Предыдущая страница реферата | 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 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки