Пособие по практике "Теория электромагнитного поля"

B21:=FL2/S21; B22:=FL2/S22; B23:=FL2/S23; B31 :=FL3/S31; BDE:=FL3/SDE; UMl :=FF 1 -FHH(B 11)*L 11 -FHH(B 12)*L 12-FHH(B 13)*L 13; UM2:=-FF2-FHH(B21)*L21-FHH(B22)*L22-FHH(B23)*L23; UM3 :=FHH(B31)*L31+BDE/MU0*DEL; MAX[I,1 ]:=XO+ROIJND(MX*UM1); MAX[I,2] :=XO+ROIJND(MX*UM2); MAX[I,3] :=XO+ROIJND(MX*UM3); MAY[1,1 ]:=YO-ROIJND(MY*FL1); MAY[I,2]:=YO-ROIJND(MY*FL2); MAY[I,3]:=YO-ROIJND(MY*FL3); WRITELN(FIMA,1000*FL1:10:3,UM1:10:1,1000*FL2:10:3, UM2:10:1,1000*FL3:10:3,UM3:10:1); {WRITELN(FL1:10:5,UM1:10:2,FL2:10:5,UM2:10:2,FL3:10:5,UM3:10:2)} END; READLN; FOR I:=-NN TO NN-1 DO BEGIN FOR J:=l TO 3 DO BEGIN SETCOLOR(MACO[J]); LINE(MAX[I,J] ,MAY[I,J] ,MAX[I+1,J] ,MAY[I+1,J]) END END; READLN; SETC0L0R(7); KOORSET; READLN; XS:=450; XG:=500; FOR J:=l TO 3 DO BEGIN SETCOLOR(MACO[J]); YG:=20*J+10; LINE(XS,YG,XG,YG); MOVETO(XG,YG); CASE J OF 1: OUTTEXTC FLUXl(UMl)'); 2: OUTTEXT(' FLUX2(UM2)'); 3: OUTTEXT(' FLUX3(UM3)') END END; READLN; CLOSE(FIMA); CLOSEGRAPH END. 37