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

END END; READLN; Cl:=Il*(2*LN(RRl)-l)/4/PI; C2:=I2*(2*LN(RR2)-iy4/PI; SETC0L0R(15); FI2:=-55.491;DFI2:=0.5; M2:=65; N2:=1300; R10:=0.1; DR:=0.01; FOR K:=l TO M2 DO BEGIN FI:=FI2+K*DFI2; WRITELN(FIL;FI=',FI:9:4); FOR J:=0 TO N2 DO BEGIN R1:=R10+J*DR; IF (RKRRl) THEN BEGIN R2:=EXP(2*PI*(C2-FI-Rl*Rl*Jl/4)/I2) END ELSE R2: =EXP((2 *PI* (C1 +C2-FI)-11* LN(R1 ))/I2); IF R2<RR2 THEN BEGIN SS:=4*(Cl-FI-Il*LN(Rl)/2/PI)/J2; IF SS<0 THEN GOTO LAB ELSE R2:=SQRT(SS) END; X:=(R2*R2-R1*R1)/(4*A); S:=R2*R2-(A+X)*(A+X); LOG:=(S>0); Y:=SQRT(ABS(S)); XG:=X0+R01JND(MX*X); YG:=YO-ROUND(MY*Y); IF (J>0) AND LOG THEN LINE(XS,YS,XG,YG); XS:=XG; YS:=YG; IF (J MOD 10)=0 THEN WRITELN(FIL,X:8:3,Y:6:3); LAB: END END; READLN; SETC0L0R(8); KOORSET; READLN; SETC0L0R(12); ELLIPSE(XO-250,YO,0,120,100,100); ELLIPSE(XO+250,YO,0,180,100,100); READLN; CLOSEGRAPH; CLOSE(FIL) END. 36