авторефераты диссертаций БЕСПЛАТНАЯ БИБЛИОТЕКА РОССИИ

КОНФЕРЕНЦИИ, КНИГИ, ПОСОБИЯ, НАУЧНЫЕ ИЗДАНИЯ

<< ГЛАВНАЯ
АГРОИНЖЕНЕРИЯ
АСТРОНОМИЯ
БЕЗОПАСНОСТЬ
БИОЛОГИЯ
ЗЕМЛЯ
ИНФОРМАТИКА
ИСКУССТВОВЕДЕНИЕ
ИСТОРИЯ
КУЛЬТУРОЛОГИЯ
МАШИНОСТРОЕНИЕ
МЕДИЦИНА
МЕТАЛЛУРГИЯ
МЕХАНИКА
ПЕДАГОГИКА
ПОЛИТИКА
ПРИБОРОСТРОЕНИЕ
ПРОДОВОЛЬСТВИЕ
ПСИХОЛОГИЯ
РАДИОТЕХНИКА
СЕЛЬСКОЕ ХОЗЯЙСТВО
СОЦИОЛОГИЯ
СТРОИТЕЛЬСТВО
ТЕХНИЧЕСКИЕ НАУКИ
ТРАНСПОРТ
ФАРМАЦЕВТИКА
ФИЗИКА
ФИЗИОЛОГИЯ
ФИЛОЛОГИЯ
ФИЛОСОФИЯ
ХИМИЯ
ЭКОНОМИКА
ЭЛЕКТРОТЕХНИКА
ЭНЕРГЕТИКА
ЮРИСПРУДЕНЦИЯ
ЯЗЫКОЗНАНИЕ
РАЗНОЕ
КОНТАКТЫ


Pages:     | 1 |   ...   | 3 | 4 ||

«В.И. Каширин ОСНОВЫ ФОРМООБРАЗОВАНИЯ ОПТИЧЕСКИХ ПОВЕРХНОСТЕЙ Федеральное агентство по образованию ГОУ ВПО «Уральский политехнический университет – ...»

-- [ Страница 5 ] --

3. В вариантах В1 – В6 производится расчет технологических параметров и разработка технологии изготовления вогнутого гиперболоида диаметром 300 мм.

4. В вариантах В7 – В12 производится расчет технологических параметров и разработка технологии изготовления выпуклого гиперболоида диамет ром 100 мм.

5. В вариантах В13 – В18 производится расчет технологических параметров и разработка технологии изготовления коррекционной пластины Шмидта диаметром 250 мм.

6. В вариантах В3, В9 и В15 вместо разработки технологии изготовления производится расчет провисания ОД под действием собственного веса с целью изыскания средств уменьшения влияния прогиба на ошибки ОС.

7. Метод изготовления оптического элемента определяется столбцом таб лицы. Например, в вариантах В1, В7 и В13 производится разработка ме тода траекторного копирования и рассчитывается профиль копира.

8. В нечетных вариантах контроль АП производится теневым методом, в четных – интерференционным методом.

ЦЕЛЬ РАБОТЫ Работа выполняется с целью развития навыков численной обработки технологических параметров различных способов асферизации оптических де талей. В процессе работы студент самостоятельно убеждается в целесообразно сти применения простого математического выражения, которым описывается профиль Кербера.

Математические расчеты являются инструментом современного инже нера. Но они не составляют самоцель. Конечным продуктом курсовой работы является разработка полноценной технологии формообразования АП, включая эскиз инструмента, выбор материала и способа изготовления инструмента.

Предложенный инструмент будет использоваться для асферизации оптической детали (в вариантах В3, В9 и В15 производится расчет прогиба оптической де тали под действием собственного веса).

ФОРМУЛЬНЫЙ АППАРАТ, ИСПОЛЬЗУЕМЫЙ В РАБОТЕ 1. Радиус кривизны ближайшей сферы сравнения для АП-2:

H 2 + xH, (1) RБСС = 2 xH где Н – половина диаметра АП;

хН – значение стрелки для края АП.

2. Величина стрелки шарового сегмента на диаметре 2у:

R0 1 + (e 1) y 1, 2 (2) x= e2 1 R где R0 – радиус кривизны при вершине;

е – эксцентриситет АП-2.

Примечание.

А. Для сферы е = 0, Б. Для параболоида е = 1, поэтому стрелку считать по формуле X = Y2/2/R0.

3. Профиль Кербера, компенсирующий аберрации 3-го порядка:

3 = 0 (m – 2)2, (3) где 0 – отступление АП от вершинной сферы для края АП;

m – параметр про филя, определяющий точку перегиба профиля;

= у/Н – расстояние от оси АП в относительных единицах.

Во всех вариантах принято: m = 1.

4. Профиль Кербера, компенсирующий аберрации 5-го порядка:

3 = В0 (1/3 – 2 + 2 4/3)2, (4) ПОСЛЕДОВАТЕЛЬНОСТЬ ВЫПОЛНЕНИЯ РАБОТЫ I. Расчет данных и заполнение табл. П Используя приведенный выше формульный аппарат, необходимо рас считать и заполнить табл. П2, в которой применено сокращение ПК - профиль Кербера.

Предполагается, что исходная сферическая поверхность асферизуемой ОД имеет радиус кривизны RБСС, рассчитанный по формуле (1).

Асферизация выполняется путем нанесения на исходную сферическую поверхность асферичности, имеющей вид универсального профиля Кербера (3) с параметром m = 1.

Таблица П Сопоставление асферичности АП с профилем Кербера У, мм 5 10 15... Н хБСС хАП = (хАП - хБСС)cos ПК - по (3) i = ПК - х Вычисление i производится с целью определения ошибки, вносимой в профиль АП в результате замены точной асферичности х приближенным зна чением ПК, которое дает профиль Кербера (3).

Специфика выполнения вариантов с КПШ В вариантах, в которых асферизуется коррекционная пластинка Шмидта (КПШ), предполагается изготовление зеркальной КПШ, имеющей негативный профиль к профилю Кербера.

Для определения ошибки i, которую вносит применение профиля Кербера (3) вместо точного обобщенного профиля Кербера, необходимо расчет вести в следующей последовательности.

1. Определить радиус кривизны R0 сферического зеркала, для которого предназначена КПШ, по следующей формуле:

H H, (5) R0 = 2 где Н – половина диаметра;

0 – заданная асферичность КПШ.

2. Полагая, что R0 – это радиус параболоида в его вершине, остальной расчет провести так, как для параболоида (квадрат эксцентриситета которого равен 1):

– рассчитывают для параболоида стрелку кривизны по формуле хАП = у2/2/R0;

(6) - определяют радиус ближайшей сферы RБСС по формуле (1);

- считают и заполняют табл. П1 значениями стрелки для ближайшей сферы сравнения хБСС по формуле (2) при е2 = 0;

- вычисляют асферичность = (хАП - хБСС)cos, где – угол наклона ме жду осью и нормалью к АП;

- вычисляют асферичность профиля Кербера ПК по (3);

- определяют ошибку профиля i = ПК -.

Примечание. Замена на стадии расчета профиля зеркальной КПШ асферично стью параболоида – это абсолютно корректная операция, демонстрирующая универсальность профиля Кербера.

II. Вычисление среднеквадратичной ошибки Среднеквадратичная ошибка отступления принятой АП от точной рас считывается по формуле n ( ) i, (7) CKB = i = n где n - число зон в табл. П1, для которых определены значения ошибок i;

= 0,000556 мм - длина волны света, на которой работает оптический прибор с изготовленной АП.

По результатам выполнения неравенства (7) делается вывод о достаточ ности применения профиля (3), либо о введении дополнительной коррекции по (4).

Замечание.

Чтобы средняя ошибка имела реальное значение, расчет табличных ве личин проводят с 6 значащими цифрами после запятой.

III. Представление результатов работы в графическом виде По результатам расчета на миллиметровой бумаге строятся кривые = f(y) и i = f(y) на одном графике, но в разных масштабах.

РАСЧЕТ ПРОФИЛЯ ИНСТРУМЕНТА, ИСПОЛЬЗУЕМОГО ПРИ АСФЕРИЗАЦИИ ОД 1. Высота профиля копира вычерчивается в масштабе, который обеспечивает максимальное отступление от окружности не менее 1 мм. Необходимо учесть знак асферичности: «асферичность» копира должна быть «негативной» к асфе ричности ОД.

2. При асферизации методом упругого деформирования заготовки необходимо вычислить величину равномерно распределенной нагрузки (давления), при ко торой заготовка прогнется на достаточную величину для обеспечения требуе мой асферичности. По приведенной в Курсе лекций формуле оценить коэффи циент запаса прочности, и если он недостаточен, указать, какую толщину необ ходимо взять у ОД, при которой будет обеспечена безопасность работы.

3. Провисание ОД рассчитывается по программе Прил. 1. График также вычер чивается в масштабе, достаточном для визуального изучения хода кривой (мак симальный размах кривой – не менее 50 мм). На графике должна проходить кривая ближайшей сферы сравнения (в том же масштабе), чтобы увидеть воз никновение асферичности от прогиба детали.

Примечание. Прогиб для пластины Шмидта строится по уравнению 3q (1 2 ) H 4 2(3 + ) 2 ) 2, w= ( 1 + ) 16 Eh где q = h – «давление», изгибающее пластину;

- плотность материала пласти ны в кг/см3;

h – ее толщина;

H – половина диаметра КПШ;

= Y/H;

Y – расстоя ние от центра КПШ до текущей точки;

здесь все размеры – в сантиметрах.

4. Вакуумная и полировальная маски рассчитываются по методикам, изложен ным в монографии: Заказнов Н.П. и Горелик В.В. Изготовление асферической оптики. – М.: Машиностроение, 1978.

5. Распределение времени по зонам при асферизации малоразмерным инстру ментом рассчитывается также по методике упомянутой монографии.

Целесообразно все время по работе на асферизацию принять за единицу.

Поскольку работа, совершаемая инструментом, пропорциональна величине съема материала с заготовки ОД при ее асферизации, то необходимо проинтег рировать кривую Кербера по формуле 2 H H y y = 0Н2/6.

V = dV = 2 0 [1 ] ydy (8) H H 0 Время работы малоразмерного инструмента на зоне у пропор ционально объему снимаемого на зоне материала, а именно 2 y y y y V y = dV = 2 0 [1 ] ydy = 2 0 (1 2 ) 2 yy, (9) H H y1 y где - расстояние зоны от центра детали в относительных единицах.

Поделив (9) на y и затем на (8), получим относительное время работы шлифовальника на зоне при неподвижной детали y = C1 (1 2 ) 3. (10) и при вращающейся ОД y = C 2 (1 2 ) 2. (11) Графики этих зависимостей представлены на рис. П2.1: v = 0 для непод вижной детали и v = V для вращающейся детали.

Обе кривые приведены к одному масштабу для демонстрации смещения максимума кривой (10) в сторону центра ОД. Однако на самом деле за счет вращения ОД суммарное время (площадь под кривой 10) должно быть сущест венно меньше времени, чем для кривой 9.

Рис. П2.1. Кривые распределения времени (tau) нахождения шлифовальника на зонах непод вижной ОД (v = 0) и на вращающейся ОД (v = V) 6. По результатам расчетов на миллиметровой бумаге строятся графики кривых или профили инструментов, которые будут использованы при асферизации оп тических деталей.

ПРИЛОЖЕНИЕ ПРОГРАММА KURSRAB.PAS Программа производит вычисления по курсовой работе (Прил. 2) и вы водит таблицу данных и графики.

program KursRab;

uses crt, graph;

const j0=100;

Ky=1.5e4;

Kx=500/j0;

lam=5.56e-4;

y0g=350;

x0g=50;

roi=85/140;

i0=1;

type TPnt = record X,Y: integer;

end;

var Gd,Gm,i,x1,x2,y1,y2: integer;

xh,h,d,d0,rb,e2,r0,max,mad: extended;

ptx,ptd: array[0..j0] of tpnt;

xs,xa,dx,dk,dd,ddd,d5: array[0..j0] of extended;

function strelka(r,e,y:real):double;

begin if (e1) then strelka:=(sqrt(1+(e-1)*sqr(y/r))-1)*r/(e-1) else strelka:=sqr(y)/2/r;

end;

procedure calcpoly;

var a,b,c,ro,ord,ro2,m: extended;

begin max:=0;

mad:=0;

c:=1/24.5;

m:=1;

for i:=i0 to j0 do begin ro:=i/j0;

ord:=ro*h;

ro2:=sqr(ro);

dk[i]:=d0*(m-ro2)*ro2;

d5[i]:=d0*c*(1/3-ro2+2*sqr(ro2)/3)*ro2;

xa[i]:=strelka(r0,e2,ord);

xs[i]:=abs(strelka(rb,0,ord));

c:=ord/Rb;

a:=arctan(c/sqrt(1-sqr(c)));

b:=(xa[i]-xs[i])*cos(a);

dx[i]:=b;

if (abs(b)max) then max:=abs(b);

dd[i]:=abs(b)-dk[i];

a:=dk[i]-abs(b)-d5[i];

ddd[i]:=a;

if (abs(a)mad) then mad:=abs(a);

end;

end;

procedure drawGraf;

var mdx,mdd: extended;

s1,s2,s3: string;

begin line(x0g,y0g,x0g+500,y0g);

line(x0g,y0g,x0g,50);

outtextxy(x0g-40,30,'Асферичность,dx: мкм');

outtextxy(x0g+465,30,'Ошибка, dd: мкм');

outtextxy(x0g+505,y0g-15,'ro');

for i:=0 to 10 do begin str(i/10:2:1,s1);

x1:=x0g-3;

y1:=y0g-30*i;

x2:=x0g+503;

y2:=y1;

line(x1,y1,x2,y2);

str(1e3*max*i/10:2:2,s2);

outtextxy(x1-35,y1-5,s2);

str(1e3*mad*i/10:2:4,s2);

outtextxy(x1+525,y1-5,s2);

x1:=x0g+50*i;

y1:=y0g+3;

x2:=x1;

y2:=y0g-300;

line(x1,y1,x2,y2);

outtextxy(x1,y1+5,s1);

end;

mdx:=300/abs(max);

mdd:=300/abs(mad);

ptx[0].y:=y0g;

ptx[0].x:=x0g;

ptd[0].y:=y0g;

ptd[0].x:=x0g;

for i:=i0 to j0 do begin x1:=x0g+round(Kx*i);

ptx[i].y:=y0g-round(mdx*dx[i]);

ptx[i].x:=x1;

ptd[i].y:=y0g-round(mdd*ddd[i]);

ptd[i].x:=x1;

end;

setlinestyle(3,0,3);

drawpoly(j0+1,ptx);

str(2*h:2:1,s1);

str(e2:2:3,s2);

str(r0:2:1,s3);

outtextxy(100,395,'- dx;

D='+s1+';

Ro='+s3+' мм;

e2='+s2);

line(20,400,80,400);

setlinestyle(0,0,3);

drawpoly(j0+1-i0,ptd);

line(20,420,80,420);

outtextxy(100,415,'- dd');

end;

procedure drawTabl;

var j: integer;

sr,sa,ss,sx,sk,sd,sdd: string;

xg: integer;

su: extended;

begin str(2*h:2:1,ss);

str(e2:2:3,sx);

str(r0:2:1,sd);

outtextxy(20,20,'D='+ss+';

Ro='+sd+' mm;

e2='+sx);

outtextxy(20,40,'Результаты вычислений. Табл. 1:');

outtextxy(5,60,'ro ');

outtextxy(5,80,'xA мм');

outtextxy(5,100,'xB мм');

outtextxy(5,120,'dX мк');

outtextxy(5,140,'d3 мк');

outtextxy(5,160,'dd мк');

outtextxy(5,180,'d5 мк');

outtextxy(5,200,'ddd мк');

xg:=50;

for i:=1 to 10 do begin j:=i*10;

str(j/j0:2:1,sr);

str(xa[j]:1:4,sa);

str(xs[j]:1:4,ss);

str(1e3*dx[j]:6:3,sx);

str(1e3*dk[j]:1:4,sk);

str(1e3*dd[j]:1:4,sd);

outtextxy(xg,60,sr);

outtextxy(xg,80,sa);

outtextxy(xg,100,ss);

outtextxy(xg,120,sx);

outtextxy(xg,140,sk);

outtextxy(xg,160,sd);

str(1e3*d5[j]:1:4,sk);

outtextxy(xg,180,sk);

str(1e3*ddd[j]:1:4,sd);

outtextxy(xg,200,sd);

xg:=xg+60;

end;

su:=0;

for i:=1 to j0 do su:=su+sqr(ddd[i]);

su:=sqrt(su/j0);

str(su*1e3:2:5,ss);

outtextxy(20,240,'Ср.кв.ошибка: '+ss+' мкм');

str(lam/14*1e3:2:3,ss);

outtextxy(20,220,'Допуск: '+ss+' мкм');

outtextxy(20,260,'ro = y/H');

outtextxy(20,280,'xA - стрелка АП.');

outtextxy(20,300,'xB - стрелка БСС.');

outtextxy(20,320,'dX - отступление АП от БСС (асферичность).');

outtextxy(20,340,'PK - Профиль Кербера.');

outtextxy(20,360,'dd - недоасферизация.');

readln;

end;

begin clrscr;

writeln;

Writeln('Введите данные АП (в миллиметрах): ');

writeln;

write('Радиус кривизны вершинной сферы R0 ');

readln(R0);

write('Квадрат эксцентриситета e2 ');

readln(e2);

write('Диаметр D ');

readln(d);

h:=d/2;

e2:=9.05;

h:=50;

d:=100;

r0:=1000;

xh:=strelka(r0,e2,h);

rb:=(sqr(h)+sqr(xh))/2/xh;

d0:=e2*sqr(sqr(h))/8/sqr(r0)/r0;

Gd := Detect;

InitGraph(Gd, Gm, 'c:\bp\bgi');

if GraphResult grOk then Halt(1);

setTextStyle(2,0,5);

calcpoly;

drawTabl;

cleardevice;

drawGraf;

readln;

end.

Пример распечатки данных, полученных с помощью программы kursrab.pas, приведен на рис. П3.1, П3.2.

Рис. П3.1. Таблица данных Рис. П3.2. Графики ПРИДОЖЕНИЕ ПРОГРАММА POLIRMAS.PAS В лекции 13 приведен расчет полировальной маски для идеального слу чая полного отсутствия размаха поводка станка. Но очевидно, при этом будут образовываться концентрические борозды на ОД. Для того чтобы уменьшить этот эффект, полировщику приходится вводить небольшую осцилляцию инст румента (0,05 от полудиаметра ОД и менее). Это облегчает расчет маски и по зволяет приблизить макрогеометрию АП к расчетной. Однако микронеровности в виде концентрических борозд полностью устранить не удается.

В этом приложении приведена программа расчета полировальной маски для случая колебания поводка станка с амплитудой конечной величины. Такая полировка АП имитирует режим обработки сферических поверхностей и по зволяет производить полноценное выглаживание АП в процессе ее формообра зования. Однако расчет усложняется, становится не так очевиден и состоит из нескольких этапов.

Вначале своего исполнения программа производит вычисление коэффи циента покрытия инструментом ОД, усредненного за период колебания поводка станка. На этом этапе производится вычисление табличных данных, приведен ных в Прил. 1 монографии: Зубаков В.Г., Семибратов М.Н., Штандель С.К.

Технология оптических деталей. Изд. 2-е. – М.: Машиностроение, 1985.

Затем для заданного для АП параметра профиля Кербера определяется коэффициент заполнения по зонам полировальной маски и производится его оптимизация до получения минимальной среднеквадратичной ошибки обра зуемого профиля. После получения удовлетворительного результата оптимиза ции на экран монитора выводится изображение конфигурации маски.

Программа предоставляет технологу возможность произвести выбор конфигурации маски и режима работы станка.

Как и в лекции 13 выбран режим вращающейся детали и остановленного от вращения инструмента. В случае, если выбран режим увлекаемого инстру мента (работа съема производится только за счет размаха поводка, без враще ния маски), в процедуре kzap необходимо массив коэффициента заполнения вычислять по формуле ee[j]:=m*v*(kprf - v), т. е. вместо ro подставить v.

program PolirMas;

{ Расчет полировальной маски с учетом размаха поводка} uses Crt,graph;

const H0=45.0;

{D/2 – световой диаметр ОД} Kg=5.08;

{Graf = Printer 1:1 – масштабный коэффициент} ns=70;

{ количество зон на маске } ex=0.05;

{ размах поводка } KF=1e4;

{ перевод в % } k0=256;

{ количество зон на заготовке при расчете коэффициента покрытия } o0= 2;

{ число шагов приближения } kkz=0;

{ к-т скорости оптимизации } miz=1e-12;

{ мизерная добавка при расчете коэф-та покрытия, вводимая для исключения деления на нуль } { kprf=1.0 - к-т профиля } col=15;

{ цвет "чернил" } type TPnt = record X,Y:integer;

end;

var gd,gm,n7, o : integer;

s0, s1, s2 : string;

kprf, del, dt, prp : extended;

ee : array [0..ns+1] of single;

aa, bb, cc, ff : array [0..ns] of single;

pp, qq, ss : array [0..ns,0..ns] of single;

ptx,ptd: array[0..ns] of tpnt;

procedure kzap;

{ Исходные значения коэффициента заполнения } var j : integer;

m,ro,v : extended;

begin for j:=0 to ns do begin ro:=j/ns;

v:=sqr(ro);

m:=3*sqrt(3/kprf)/2/kprf;

ee[j]:=m*ro*(kprf-v);

end;

end;

procedure kpokr;

{ вычисление сpеднего за пеpиод коэф-та покpытия } var i, j, k : integer;

a, b, c, d, c1, d1, p2,r, r1, r2, s, sa, sb, z, z1 : extended;

begin {clrscr;

writeln('Табл знач сред/период к-та покрыт зон заготовки(в %): ');

writeln;

} z:=pi/2/k0;

z1:=0.1*ns/pi/k0;

p2:=pi/2;

for j:=0 to ns do begin r:=j/ns+miz;

for i:=0 to ns do begin r1:=i/ns;

r2:=r1+1/ns;

s:=0;

for k:=1 to k0 do begin a:=ex*sin(k*z)+miz;

b:=a*a+r*r;

c:=(b-sqr(r2))/2/r/a;

d:=(b-r1*r1)/2/r/a;

if abs(c)1 then c:=abs(c)/c;

if abs(d)1 then d:=abs(d)/d;

a:=sqrt(1-sqr(c))/c;

b:=sqrt(1-sqr(d))/d;

sa:=abs(c)/c;

sb:=abs(d)/d;

c1:=p2*(1-sa)+arctan(a);

d1:=p2*(1-sb)+arctan(b);

s:=s+c1-d1;

end;

if r(r2+ex) then s:=0;

if r(r1-ex) then s:=0;

ss[j,i]:=z1*s;

{write(trunc(100*ss[j,i]):3);

} end;

{writeln;

} end;

{readln;

clrscr;

} end;

procedure sem;

{ pасчет величины съема } var i, j : integer;

a : extended;

begin for j:= 0 to ns do begin a:=0;


for i:=0 to ns do a:=a+ss[j,i];

aa[j]:=a*ee[j];

end;

end;

procedure prof;

{ вычисление пpофиля } var j : integer;

a, d, g, v : extended;

begin for j:=0 to ns do cc[j]:=aa[j]+miz;

g:=aa[0];

d:=2*(2*aa[n7]-aa[ns]-g);

a:=1+(aa[ns]-g)/d;

a:=kprf{:=a};

for j:=0 to ns do begin v:=sqr(j/ns);

bb[j]:=g+d*v*(a-v);

end;

prp:=bb[ns];

end;

procedure otst;

{Вычисление отступления величины съема материала от заданного профиля} var j : integer;

b, w : extended;

begin {clrscr;

writeln('ЗОНА',' ОТСТУП');

} w:=0;

{writeln('Step ',o);

} for j:=0 to ns do begin b:=aa[j]-bb[j];

w:=w+b*b;

ff[j]:=b;

{writeln(j,b*KF/cc[j]/100:16:4);

} end;

{writeln('sqw = ',w:3:8);

readln;

} end;

procedure det;

{Вычисление определителя системы} var mt,a:extended;

i,j,k,m: integer;

begin dt:=1;

for i:=1 to ns do begin dt:=dt*pp[i-1,i-1];

for j:=i to ns do begin m:=i-1;

a:=pp[m,m];

if (abs(a)1e-19) then mt:=0 else mt:=pp[j,m]/a;

for k:=j to ns do pp[j,k]:=pp[j,k]-pp[m,k]*mt;

end;

end;

dt:=dt*pp[ns,ns];

end;

procedure korkz;

{Коррекция коэффициента заполнения по результатам анализа ошибок профиля} var i, j, l : integer;

d : extended;

begin for l:=0 to ns do begin ee[l]:=ee[l]+del;

sem;

ee[l]:=ee[l]-del;

for j:=0 to ns do begin pp[l,j]:=(aa[j]-cc[j])/del;

qq[l,j]:=pp[l,j];

end;

end;

det;

d:=dt;

for j:=0 to ns do begin for i:=0 to ns do pp[i,j]:=-ff[i];

det;

ee[j]:=ee[j]+dt/d/(1+kkz*o);

if ee[j]0 then ee[j]:=0;

for i:=0 to ns do pp[i,j]:=qq[i,j];

if ee[j]1 then ee[j]:=1;

end;

end;

procedure drawMask;

{Вычерчивание маски на экране} const x0g=320;

y0g=240;

r0=round(210*H0*Kg/320);

Ky=r0/ns;

a0=45;

Ka=a0/ns;

var x1,x2,y1,y2,i: integer;

a,b,mdd,mad: extended;

s: string;

begin mad:=0;

y1:=y0g-r0;

y2:=y1+2*r0-50;

str(ex:2:3,s);

outtextxy(x0g+r0-20,y1,s);

outtextxy(x0g-r0-80,y1,'PA3MAX');

str(kprf:2:3,s);

outtextxy(x0g+r0 10,y2,s);

outtextxy(x0g-r0-40,y2,'Kpr');

for i:=1 to ns do begin a:=ee[i];

if (amad) then mad:=a;

end;

line(x0g-220,y0g,x0g+220,y0g);

line(x0g,450,x0g,30);

for i:=1 to 10 do circle(x0g,y0g,round(r0*i/10));

mdd:=a0/abs(mad);

ptd[0].y:=y0g;

ptd[0].x:=x0g;

for i:=1 to ns do begin a:=pi*a0*ee[i]/180;

b:=Ky*i;

ptx[i].x:=round(b*sin(a));

ptx[i].y:=round(b*cos(a));

ptd[i].x:=x0g+ptx[i].x;

ptd[i].y:=y0g-ptx[i].y;

end;

setlinestyle(0,0,3);

drawpoly(ns+1,ptd);

for i:=1 to ns do begin ptd[i].x:=x0g-ptx[i].x;

ptd[i].y:=y0g-ptx[i].y;

end;

drawpoly(ns+1,ptd);

for i:=1 to ns do begin ptd[i].x:=x0g+ptx[i].x;

ptd[i].y:=y0g+ptx[i].y;

end;

drawpoly(ns+1,ptd);

for i:=1 to ns do begin ptd[i].x:=x0g-ptx[i].x;

ptd[i].y:=y0g+ptx[i].y;

end;

drawpoly(ns+1,ptd);

for i:=1 to ns do begin ptd[i].x:=x0g-ptx[i].y;

ptd[i].y:=y0g-ptx[i].x;

end;

drawpoly(ns+1,ptd);

for i:=1 to ns do begin ptd[i].x:=x0g+ptx[i].y;

ptd[i].y:=y0g+ptx[i].x;

end;

drawpoly(ns+1,ptd);

for i:=1 to ns do begin ptd[i].x:=x0g-ptx[i].y;

ptd[i].y:=y0g+ptx[i].x;

end;

drawpoly(ns+1,ptd);

for i:=1 to ns do begin ptd[i].x:=x0g+ptx[i].y;

ptd[i].y:=y0g-ptx[i].x;

end;

drawpoly(ns+1,ptd);

end;

begin { Управляющая программа } clrscr;

kprf:=0.88;

n7:=trunc(ns*sqrt(2)/2);

del:=1e-4;

kzap;

kpokr;

{writeln('Расчет маски для полиpовки зеpкала');

} for o:=1 to o0 do begin sem;

prof;

otst;

korkz;

end;

{writeln('kprf = ',kprf:2:4,' Em поводка = ',ex:2:2,' припуск =',prp:2:4);

writeln(' Зона % заполн');

writeln;

for o:=0 to ns do writeln(o/ns:1:3,1e3*ee[o]/10:16:2);

readln;

} Gd := Detect;

InitGraph(Gd, Gm, 'c:\bp\bgi');

if GraphResult grOk then Halt(1);

setlinestyle(0,0,1);

settextstyle(2,0,9);

drawmask;

readln;

end.

На рис. П4.1 и П4.2 приведены маски, рассчитанные для полировки вы пуклого гиперболоида диаметром 90 мм при различных размахах поводка стан ка, позволяющие получать профили асферичностей с различными параметрами m. При вращении ОД маска удер живается от вращения, как это описано в лекции 13.

Рис. П4.1. Маска для полировки выпук лого гиперболоида 90 мм с парамет ром профиля Кербера m = 0,88;

рекомен дованная амплитуда размаха поводка – 0,05 от полудиаметра ОД (2,25 мм) Рис. П4.2. Маска для полировки выпук лого гиперболоида 90 мм с парамет ром профиля Кербера m = 1;

рекомендо ванная амплитуда размаха поводка – 0,25 от полудиаметра ОД (11,25 мм) На рис. П4.3 приведена маска, рассчитанная для полировки выпуклого гиперболоида диаметром 90 мм при размахе поводка станка, равном 0,21 раз мера полудиаметра, что позволяет получить профили Кербера на АП с пара метром m = 1,24.

Рис. П4.3. Маска для полировки выпуклого гиперболоида 90 мм с параметром профи ля Кербера m = 1,24;

рекомендованная ам плитуда размаха поводка – 0,21 от полудиа метра ОД (9,4 мм). Маска увлекается вра щающейся ОД При вращении ОД маска увлекается и вращается с той же скоростью, что и ОД, поэтому съем материала с ОД производится только за счет прямоли нейного движения маски относительно ОД в радиальном направлении. Размах маски составляет более 1/5 ее полудиаметра, поэтому маска, изготовленная по рис. П4.3, производит полноценное выглаживание образуемой АП.

Учебное издание Владимир Ильич Каширин Основы формообразования оптических поверхностей Редактор И.Г. Южакова Корректор М.Ю. Петров Компьютерный набор В.И. Каширина ИД № 06263 от 12.11.2001 г.

Подписано в печать Формат 60х84 1/ Бумага типографская Печать плоская Уч. – изд. л. 13,3 Усл. печ. л. 14, Тираж Заказ Цена «С»

Редакционно-издательский отдел ГОУ ВПО УГТУ–УПИ 620002, Екатеринбург, ул. Мира,

Pages:     | 1 |   ...   | 3 | 4 ||
 





 
© 2013 www.libed.ru - «Бесплатная библиотека научно-практических конференций»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.