Исследование эффекта автодинного детектирования в многоконтурном генераторе на диоде Ганна
| Категория реферата: Рефераты по технологии
| Теги реферата: реферат на тему жизнь, решебник 7
| Добавил(а) на сайт: Tihomira.
Предыдущая страница реферата | 2 3 4 5 6 7 8 9 10 11 12 | Следующая страница реферата
NormalPut);
FreeMem(P, Size); scal; end;
'2': begin phas_y:=phas_y+10; an4;
Size := ImageSize(xgmin+1, ygmin+1, xgmax-1, ygmax-1);
GetMem(P, Size);
GetImage(xgmin+1, ygmin+1, xgmax-1, ygmax-1, P^); setfillstyle(0,0); bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1);
PutImage(xgmin+1, ygmin+1+10, P^,
NormalPut);
FreeMem(P, Size); scal; end;
'8': begin phas_y:=phas_y-10; an4;
Size := ImageSize(xgmin+1, ygmin+1, xgmax-1, ygmax-1);
GetMem(P, Size);
GetImage(xgmin+1, ygmin+1, xgmax-1, ygmax-1, P^); setfillstyle(0,0); bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1);
PutImage(xgmin+1, ygmin+1-10, P^,
NormalPut);
FreeMem(P, Size); scal; end;
{ пеpеход на вычисление спектpа }
's': begin goto 1; end;
{ масштаб фаз. поpтpета }
'+': begin an4; setfillstyle(0,0); bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1); size_x:=size_x+0.1; size_y:=size_y+0.1; end;
'-': begin an4; setfillstyle(0,0); bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1); size_x:=size_x-0.1; size_y:=size_y-0.1; end;
end;
2: end;
end;
{ спектр }
1: SETCOLOR(15); an2; f0:=0;
Smax:=0; sign0:=0; setcolor(15); for k:=1 to 200 do begin s0:=0;s1:=0;
FOR i:=1 to 500 do begin s0:=s0+(sign[i]-sign0)*cos(f0*i*6.28e-9/250); s1:=s1+(sign[i]-sign0)*sin(f0*i*6.28e-9/250); end; if k=1 then begin sign0:=s0/500; s0:=0; end; f0:=f0+2e8; g1[k]:=s0*s0+s1*s1; if g1[k]>Smax then Smax:=g1[k]; end; ppp:=s0*s0+s1*s1; f0:=0;
{ очистка поля и перерисовка визиров и цифр }
Рекомендуем скачать другие рефераты по теме: антикризисное управление, эффективность диплом, сочинение отец.
Категории:
Предыдущая страница реферата | 2 3 4 5 6 7 8 9 10 11 12 | Следующая страница реферата
Главная