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

ASSIGN(FIL;D:\BP\BIN\FIFLTXT'); REWRITE(FIL); A:=5; Jl:=6; J2:=-6; RR1:=2;RR2:=2; DAL:=PI/2000; AL0:=DAL/2; Ml:=56; Nl:=3500; FI1:=0; DFI1:=0.5; I1:=PI*RR1*RR1*J1; I2:=PI*RR2*RR2*J2; MX:=50; MY:=50; X0:=310; Y0:=450; 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*DFI1; WRITELN(FIL;FI=',FI:9:4); FOR J:=0 TO N1 DO BEGIN AL1:=AL0+J*DAL; AL2:=(I1*AL1-2*PI*FI)/I2; 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) THEN LINE(XS,YS,XG,YG); XS:=XG; YS:=YG; IF (J MOD 10)=0 THEN WRITELN(FIL,X:8:3,Y:6:3) END END; READLN; Cl:=Il*(2*LN(RRl)-l)/4/PI; C2:=I2*(2*LN(RR2)-iy4/PI; SETC0L0R(14); FI2:=-26.0; DFI2:=0.5; M2:=104; N2:=2800; R10:=0.1; DR:=0.005; FOR K:=l TO M2 DO BEGIN FI:=FI2+K*DFI2; WRITELN(FIL;FI=',FI:9:4); 33