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



old_f:=frequency;

frequency:=(iii1-fpoint)/(h*4.2e3 * 5);

fpoint:=iii1;

power:=power *h*frequency/5;

str(power:5:4,s);

power:=0;

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);

Рекомендуем скачать другие рефераты по теме: конспект урока 5 класс, доклад по обж.

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