Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

setcolor(0); outtextxy(250,460,' ');

setcolor(11); outtextxy(250,460,'Puhf = '+s+' W'); end;

{ вывод графиков токов и напряжений } if(iii1>0) then begin an3; if(iii1=loop*1000) then begin loop:=loop+1; setfillstyle(0,0); bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1); scal;

setwritemode(XORput); setcolor(15); line(visir_1,ygmin,visir_1,ygmax); line(visir_2,ygmin,visir_2,ygmax); setwritemode(COPYput); str(d_visir*1e9:5:4,s); outtextxy(540,255,s+' ns');

round:=round+1; setcolor(0); outtextxy(50,460,' '); str(round*4:6,s); setcolor(11); outtextxy(50,460,'time = '+s+' ns+');

oldx:=xgmax-trunc((xmax-0)*(xgmax- xgmin)/(xmax-xmin)); for aaa:=1 to 10 do oldy[aaa]:=ygmin-trunc((ymax- y[8]*10)*(ygmin-ygmax)/(ymax-ymin)); end;

bn:=x*1e9; y1:=y[1]-1; xg:=xgmax-trunc((xmax-bn)*(xgmax-xgmin)/(xmax- xmin)); xg:=xg-145-580*(loop-1); yg:=ygmin-trunc((ymax-y[8]*10)*(ygmin- ygmax)/(ymax-ymin)); setcolor(10); line(oldx,oldy[1],xg,yg); oldy[1]:=ygmin-trunc((ymax-y[8]*10)*(ygmin- ygmax)/(ymax-ymin));

{ yg:=ygmin-trunc((ymax-frequency/1e10)*(ygmin- ygmax)/(ymax-ymin)); setcolor(14); line(oldx,oldy[2],xg,yg); oldy[2]:=ygmin-trunc((ymax- frequency/1e10)*(ygmin-ygmax)/(ymax-ymin));
} yg:=ygmin-trunc((ymax-y1)*(ygmin-ygmax)/(ymax- ymin)); setcolor(13); line(oldx,oldy[3],xg,yg); oldy[3]:=ygmin-trunc((ymax-y1)*(ygmin- ygmax)/(ymax-ymin)); oldx:=xg; end;

{ phas. portret } if(iii1>0) then begin an4; di:=(y[8]-oldc1)*50*size_y; yg:=ygmax-trunc((ymax-di)*(ygmax-ygmin)/(ymax- ymin)); xg:=xgmin-trunc((xmax-y[8]*15*size_x)*(xgmin- xgmax)/(xmax-xmin)); putpixel(xg+phas_x,yg+phas_y,10); oldc1:=y[8];

if(iii1249) then begin
{ control circle } if (mark=1) then begin mark:=0; setcolor(14); circle(xg+phas_x,yg+phas_y,3); setcolor(10); end; end;

{ управление экраном }

if keypressed=true then begin c:=readkey; case c of
{ пеpемещение фаз. поpepета }

'1': begin an4; setfillstyle(0,0); bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1); end;

'4': begin phas_x:=phas_x-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-10, ygmin+1, P^,

NormalPut);

FreeMem(P, Size); scal; end;

'6': begin phas_x:=phas_x+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+10, ygmin+1, P^,

Рекомендуем скачать другие рефераты по теме: антикризисное управление, эффективность диплом, сочинение отец.





Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата