Автоматизация теплового и технологического режимов дуговой печи ДСП-180 в условиях ЭСПЦ ОАО "ММК"
Дипломная работа - Разное
Другие дипломы по предмету Разное
nd(i*(my-100)/z_gr),585,(my-50)-round(i*(my-100)/z_gr));(minz+i*(maxz-minz)/z_gr:5:0,gr); outtextxy(600, (my-50)-round(i*(my-100)/z_gr),gr);;[0]:=0;[0]:=xn;[0]:=f(x[0],t[0]);[0]:=f(x[0],t[0]);[0]:=f(x[0],t[0]);[0]:=0;[0]:=0;:=0; U:=1; sigma:=1;(0,1,1); moveto (50,getmaxy-50);i:=1 to n do[i]:=t[i-1]+dt; begin[i]:=x[i-1]+ku*sigma*dt;(x[i]0 then:=1;:=0;;dz[i]-dzmax+zn<=0 then:=0;;;dz[i]<0 then(dz[i]+zn<0) then:=(-1);:=0;:=tv+1;;U=1 then:=sigma; sigma:=sigma;;U=0 then sigma:=0 ; if U=(-1) then:=sigma0*(-1);; tv<=0.1*T1 then
sigma:=sigma;(U=-1) and (sigma=1) then:=x[i]; if (U=-1) and (sigma=-1)x2:=x[i];x[i]=x1+(x2-x1)/2then begin:=0; x1:=0; x2:=0; end;sigma=0 then tk:=tk+1; if (tk>3*T1)then:=-1;:=0;:=dz[i];;;(15);(trunc((t[i-1])*ht/dt)+50,getmaxy-50-trunc((f(x[i-1],t[i-1])-miny)*hte),(t[i]*ht/dt)+50,getmaxy-50-trunc((f(x[i],t[i])-miny)*hte));(14);(trunc((t[i-1])*ht/dt)+50,getmaxy-50-trunc((z[i-1]-miny)*hte), trunc((t[i])*ht/dt)+50,getmaxy-50-trunc((z[i]-miny)*hte));(15);(trunc((t[i-1])*ht/dt)+50,getmaxy-50-trunc((x[i-1]-minz)*hx),trunc((t[i])*ht/dt)+50,getmaxy-50-trunc((x[i]-minz)*hx));;;(gd,ga);(gd,ga,c:\bp\bgi);(15);:=10;:=42;:=1260;:=1380;:=getmaxx;:=getmaxy;_gr:=8;_gr:=6;:=(my-100)/(maxy-miny); {построение осей}:=(mx-100)/(maxx-minx);(50,my-50,mx-50,my-50);(50,50 ,50,my-50);(200,0,fazovy portret);(460,my-10,rashod vozduha);(0,1,0);(10,100,temperatura);(0,0,0);(0,1,1);i:=0 to x_gr do(round(i*(mx-100)/x_gr)+50,425,round(i*(mx-100)/x_gr)+50,my-45);(minx+i*(maxx-minx)/x_gr:5:0,gr);(round(i*(mx-100)/x_gr),my-30,gr);;i:=0 to y_gr do(mx-585,(my-50)-round(i*(my-100)/y_gr),45,(my-50)-round(i*(my-100)/y_gr));(miny+i*(maxy-miny)/y_gr:4:0,gr);(15,(my-50)-round(i*(my-100)/y_gr),gr);;
t[0]:=0; {ввод начальных условий}
x[0]:=xn;[0]:=f(x[0],t[0]);[0]:=f(x[0],t[0]);[0]:=f(x[0],t[0]);1[0]:=0; dz[0]:=0;
dzmax:=0; U:=1; sigma:=1;(0,1,1); moveto (50,my-50);i:=1 to n do[i]:=t[i-1]+dt;[i]:=x[i-1]+ku*sigma*dt;(x[i]0 then:=1;:=0;;dz[i]-dzmax+zn<=0 then:=0;;;dz[i]<0 then(dz[i]+zn<0) thenU:=(-1);:=0;:=tv+1;; U=1 then begin
sigma0:=sigma; sigma:=sigma; end;U=0 then:=0;U=(-1) then:=sigma0*(-1);;tv3*T1) then:=-1; tk:=0;:=dz[i];;;(15);(trunc((x[i-1]-minx)*hx)+50,getmaxy-50-trunc((z[i-1]-miny)*hte),((x[i]-minx)*hx)+50,getmaxy-50-trunc((z[i]-miny)*hte));
{setcolor(15);(trunc((x[i-1]-minx)*hx)+50,getmaxy-50-trunc((f(x[i-1], t[i-1])-miny)*hte);((x[i]-minx)*hx)+50,getmaxy-50-trunc((f(x[i],t[i])-miny)*hte));};[0]:=xn; sigma:=1;(50,my-50); For i:=1 to n dot[i]:=0;[i]:=x[i-1]+ku*sigma*dt;x[i]>=xk then sigma:=0; setcolor(15);(trunc((x[i-1]-minx)*hx)+50,getmaxy-50-trunc((f(x[i-1],t[i])-miny)*hte),((x[i]-minx)*hx)+50,getmaxy-50-trunc((f(x[i],t[i])-miny)*hte));;[0]:=9; sigma:=1;(50,my-50);i:=1 to n do[i]:=300;[i]:=x[i-1]+ku*sigma*dt;x[i]>=40 then sigma:=0; setcolor(15);(trunc((x[i-1]-minx)*hx)+50,getmaxy-50-trunc((f(x[i-1],t[i])-miny)*hte),((x[i]-minx)*hx)+50,getmaxy-50-trunc((f(x[i],t[i])-miny)*hte));;[0]:=10;:=1;(50,my-50);i:=1 to n do[i]:=600;[i]:=x[i-1]+ku*sigma*dt; if x[i]>=10 then sigma:=0; setcolor(15);(trunc((x[i-1]-minx)*hx)+50,getmaxy-50-trunc((f(x[i-1],t[i])-miny)*hte),((x[i]-minx)*hx)+50,getmaxy-50-trunc((f(x[i],t[i])-miny)*hte));;;;(gd,ga);(gd,ga, c:\bp\bgi);(15);:=23;:=38;:=1360;:=1375;:=getmaxx;:=getmaxy;_gr:=10;_gr:=6;:=(my-100)/(maxy-miny); {построение осей}:=(mx-100)/(maxx-minx);(50,my-50,mx-50,my-50); line(50,50,50,my-50);(50,0,uvelich fozoviy portret);(460,my-10,rashod vozduha);(0,1,0);(10,100,temperatura);(0,0,0);(0,1,1);i:=0 to x_gr do begin(round(i*(mx-100)/x_gr)+50,425,round(i*(mx-100)/x_gr)+50,my-45);(minx+i*(maxx-minx)/x_gr:5:0,gr);(round(i*(mx-100)/x_gr),my-30,gr); end;i:=0 to y_gr do begin(mx-585,(my-50)-round(i*(my-100)/y_gr),45,(my-50)-round(i*(my -100)/y_gr));(miny+i*(maxy-miny)/y_gr:4:0,gr);(15,(my-50)-round(i*(my-100)/y_gr),gr);;
t[0]:=0; {ввод начальных условий}
x[0]:=xn;
y[0]:=f(x[0],t[0]);
z1[0]:=f(x[0],t[0]);
z[0]:=f(x[0],t[0]);
dz1[0]:=0;
,dz[0]:=0;:=0;:=1;:=1;(0,1,1);(50,my-50);i:=1 to n do[i]:=t[i-1]+dt;[i]:=x[i-1]+ku*sigma*dt;(x[i]0 then begin U:=1; tv:=0;;dz[i]-dzmax+zn<=0 then:=0;;;dz[i]<0 then (dz[i]+zn<0) then
begin
U:=(-1);
dzmax:=0; tv:=tv+1;; U=1 then
begin:=sigma;:=sigma;;U=0 then:=0; if U=(-1) then:=sigma0*(-1);;tv3*T1) then:=-1; tk:=0;:=dz[i];;;(15);(trunc((x[i-1]-minx)*hx)+50,getmaxy-50-trunc((z[i-1]-miny)*hte),((x[i]-minx)*hx)+50,getmaxy-50-trunc((z[i]-miny)*hte));(11);(trunc((x[i-1]-minx)*hx)+50,getmaxy-50-trunc((f(x[i-1],t[i-1])-miny)*hte),
trunc((x[i]-minx)*hx)+50,getmaxy-50-trunc((f(x[i],t[i])-miny)*hte));
END;
x[0]:=xn; sigma:=1;
moveto (50,my-50);i:=1 to n dot[i]:=0;[i]:=x[i-1]+ku*sigma*dt; if x[i]>=xk then sigma:=0; setcolor(15);(trunc((x[i-1]-minx)*hx)+50,getmaxy-50-trunc((f(x[i-1],t[i])-miny)*hte),((x[i]-minx)*hx)+50,getmaxy-50-trunc((f(x[i],t[i])-miny)*hte));;[0]:=10; sigma:=1;(50,my-50);i:=1 to n do[i]:=300;[i]:=x[i-1]+ku*sigma*dt; if x[i]>=40 then sigma:=0; setcolor(15);(trunc((x[i-1]-minx)*hx)+50,getmaxy-50-trunc((f(x[i-1],t[i])-miny)*hte),((x[i]-minx)*hx)+50,getmaxy-50-trunc((f(x[i],t[i])-miny)*hte));;[0]:=10; sigma:=1;(50,my-50);i:=1 to n do[i]:=600;[i]:=x[i-1]+ku*sigma*dt; if x[i]>=10 then sigma:=0; setcolor(15);(trunc((x[i-1]-minx)*hx)+50,getmaxy-50-trunc((f(x[i-1],t[i])-miny)*hte),((x[i]-minx)*hx)+50,getmaxy-50-trunc((f(x[i],t[i])-miny)*hte));
END;;;.