Исследование эффекта автодинного детектирования в многоконтурном генераторе на диоде Ганна
Категория реферата: Рефераты по технологии
Теги реферата: реферат на тему жизнь, решебник 7
Добавил(а) на сайт: Tihomira.
Предыдущая страница реферата | 2 3 4 5 6 7 8 9 10 11 12 | Следующая страница реферата
setfillstyle(0,0); bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1); scal;
setwritemode(XORput); if(d_visir0) then begin line(trunc(visir_s),ygmin,trunc(visir_s),ygmax); str((1e-9/d_visir):5:3,s); outtextxy(540,35,s+' GHz'); end; line(visir_3,ygmin,visir_3,ygmax); setcolor(14); line(visir_4,ygmin,visir_4,ygmax); setwritemode(COPYput); setcolor(11); str(visir_f:5:3,s); outtextxy(540,50,s+' GHz'); setcolor(14); str(visir_f1:5:3,s); outtextxy(540,60,s+' GHz');
Result;
{ рисование спектра } moveto(xgmin,ygmax);setcolor(10); for k:=1 to 200 do begin xg:=xgmax-trunc((xmax-f0/1e9)*(xgmax-xgmin)/(xmax- xmin)); yg:=ygmin-trunc((ymax-100*g1[k]/SMAX)*(ygmin-
ygmax)/(ymax-ymin)); lineto(xg,yg); f0:=f0+2e8; end;
{ конец спектра }
repeat c:=readkey; case c of
{ перемещение визиров }
'9': begin an3; setwritemode(XORput); setcolor(15);
line(visir_1,ygmin,visir_1,ygmax); visir_1:=visir_1+1;
line(visir_1,ygmin,visir_1,ygmax);
v12; setwritemode(COPYput); end;
'7': begin an3; setwritemode(XORput); setcolor(15);
line(visir_1,ygmin,visir_1,ygmax); visir_1:=visir_1-1;
line(visir_1,ygmin,visir_1,ygmax);
v12; setwritemode(COPYput); end;
'6': begin an3; setwritemode(XORput); setcolor(15);
line(visir_2,ygmin,visir_2,ygmax); visir_2:=visir_2+1;
line(visir_2,ygmin,visir_2,ygmax);
v12; setwritemode(COPYput); end;
'4': begin an3; setwritemode(XORput); setcolor(15);
line(visir_2,ygmin,visir_2,ygmax); visir_2:=visir_2-1;
line(visir_2,ygmin,visir_2,ygmax);
v12; setwritemode(COPYput); end;
'3': begin an2; setwritemode(XORput); setcolor(11);
line(visir_3,ygmin,visir_3,ygmax); visir_3:=visir_3+1;
line(visir_3,ygmin,visir_3,ygmax); visir_f:=(visir_3-xgmin)*(xmax- xmin)/(xgmax-xgmin);
setcolor(0); outtextxy(540,50,'___________');
Рекомендуем скачать другие рефераты по теме: антикризисное управление, эффективность диплом, сочинение отец.
Предыдущая страница реферата | 2 3 4 5 6 7 8 9 10 11 12 | Следующая страница реферата