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

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; B0:=0.099; L0:=0.5; B:=BO; 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:=B*L1; X:=(L2*L2-L1*L1)/(4*A); Q:=L2*L2-SQR(X+A); LOGN:=(Q>0); IF LOGN THEN BEGIN Y:=SQRT(Q); XG:=X0+R01JND(MX*X); YG:=YO-ROUND(MY*Y) END; IF (LOGS AND LOGN) THEN LINE(XS,YS,XG,YG); XS:=XG; YS:=YG; LOGS:=LOGN END; B:=GA*B END; READLN; CLOSEGRAPH END. Лабораторная работа 5 1. Тема работы: Расчет магнитной системы 2. Описание источника поля и исходные данные к работе 2.1. Тип поля - магнитное поле от постоянных токов. 2.2. Источник поля - два цилиндрических провода, параллельные оси z. 26