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

Отметим, что внутри проводов силовые линии отсутствуют, потенциал постоянен, а напряженность поля равна нулю. Программа ELEL14 построения силовых линий и эквипотенциалей поля, созданного двумя толстыми проводами с разными знаками зарядов PROGRAMELEL14; USES GRAPH; VARA,AL0,AL1,AL2, В,ВО, CO, DAL,DL, FI,FI1,DF, GA, L0,L1,L2, MX,MY, Q, TAN1,TAN2,T1,T2, X, Y: REAL; I,J,K,M1 ,M2,N1,N2,X0,YO, XG,YG,XS,YS,GD,GM: INTEGER; LOGN,LOGS: BOOLEAN; {$I D:\BP\BIN\KOORSET.PAS} BEGIN C0:=5; R:=2; A:=SQRT(CO*CO-R*R); 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; 25