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

XG,YG,XS,YS,GD,GM: INTEGER; LOGN,LOGS: BOOLEAN; {$I D:\BP\BIN\KOORSET.PAS} BEGIN A:=5; DAL:=PI/2000; AL0:=DAL/2; M1:=56;N1:=3500; FI1:=0;DF:=0.5; Tl:=72; T2:=-72; 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*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) THEN LINE(XS,YS,XG,YG); XS:=XG; YS:=YG END END; READLN; SETC0L0R(13); M2:=104;N2:=2800; L0:=0.5;DL:=0.005; C0:=0.099; L0:=0.5; C:=CO; GA:=EXP(2*PI*DF/T1); FOR I:=l TO M2 DO BEGIN LOGS:=FALSE; FOR J:=0 TO N2 DO BEGIN L1:=L0+J*DL; L2:=C*L1; X:=(L2*L2-L1*L1)/(4*A); Q:=L2*L2-SQR(X+A); 13