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

J1,J2, MX,MY, R1,RR1,R10,R2,RR2, S,SS, TAN1,TAN2, X,Y: REAL; GD,GM,J,K,M1 ,M2,N1,N2,X0,Y0, XG,YG,XS,YS: INTEGER; LOG: BOOLEAN; FIL: TEXT; {$I D:\BP\BIN\KOORSET.PAS} BEGIN 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:=60; Nl:=1150; FI1:=-16; 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,TI=',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) 35