Пособие по практике "Теория электромагнитного поля"

FOR I:=l TO 4 DO BEGIN Y0[l]:=350; Y[I]:=OEND; MA[1]:=10;MA[2]:=20; MA[3]:=15; MA[4]:=1; G:=0.5*H; GD:=DETECT; INITGRAPH(GD,GM,'D:\BP\BGr); LINE(XO,0,XO,450); LINE(XO,350,640,350); T:=TO; FOR J:=0 TON DO BEGIN XG:=X0+R01JND(MX*T); F0RI:=1 TOM DO BEGIN YG[I]:=Y0[I]-R01JND(MA[I]*Y[I]); IF J>0 THEN BEGIN SETC0L0R(I+1); IF ABS(80*I-J)>2 THEN LINE(XS,YS[I],XG,YG[I]) END; YS[I]:=YG[I] END; XS:=XG; IF J<N THEN RUNCUT END; READLN; XS:=400; XG:=450; FOR I:=l TO 4 DO BEGIN SETC0L0R(I+1); GY:=20*I; LINE(XS,GY,XG,GY); MOVETO(XG,GY); CASE I OF 1: OUTTEXTC Y[l] - ANGLE'); 2: OUTTEXT(' Y[2] - SPEED'); 3: OUTTEXT(' Y[3] - CURRENT'); 4: OUTTEXT(' Y[4] - ENERGY) END END; READLN; SETC0L0R(8); KOORSET; OUTTEXTXY(1,355,'0'); READLN; CLOSEGRAPH END. 33