Теория электромагнитного поля

Y: REAL; I,J,К,Ml ,M2,N1,N2,X0,YO, XG,YG,XS,YS,GD,GM: INTEGER; LOGN,LOGS: BOOLEAN; {$I D:\BP\BIN\KOORSET.PAS} BEGIN A:=5; DC:=1; DL:=0.001; DX:=0.01; Tl:=6; T2:=6; Ml:=60; Nl:=1500; M2:=100; N2:=12000; L0:=0.5; C0:=5; MX:=50; MY:=50; X0:=310; Y0:=450; DAL:=PI/2000; AL0:=DAL/2; FI1:=-16; DF:=0.05; GA:=EXP(2*PI*DF/T1); GD:=DETECT; INITGRAPH(GD,GM,'D:\BP\BGr); LINE(XO,0,XO,YO); LINE(10,YO,640,YO); SETCOLOR(ll); FOR K:=l TO Ml DO BEGIN FI:=FI1+K*DF; FOR J:=0 TO N1 DO BEGIN AL1:=AL0+J*DAL; AL2:=(T1*AL1-2*PI*FI)/T2; TANl:=SIN(AL1 )/COS(AL 1); TAN2:=SIN(AL2)/COS(AL2); X:=A* (TANl -TAN2)/(TAN1+TAN2); Y:=(A-X)*TAN1; XG:=X0+R01JND(MX*X); YG:=YO-ROUND(MY*Y); IF (J>0) AND (AL2>0) AND (XG<630) AND (YG<YO) AND (YG>0) THEN LINE(XS,YS,XG,YG); XS:=XG; YS:=YG END END; READLN; SETC0L0R(12); C:=CO; FOR I:=l TO M2 DO BEGIN LOGS:=FALSE; FOR J:=0 TO N2 DO BEGIN L1:=L0+J*DL; L2:=C/L1; 19