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

INITGRAPH(GD,GM,'D:\BP\BGR); X0:=10; Y0:=470; LINE(X0,0,X0,480); LINE(0,Y0,640,Y0); MX:=0.0425;MY:=230; SETC0L0R(7); FOR J:=-L TO 19 DO BEGIN XG:=XO+ROIJND(MX*MA[J]); YG:=YO-ROIJND(MY*J*DB); LINE(XO,YG,XG,YG) END; READLN; SETCOLOR(IO); FOR I:=0 TO N DO BEGIN BB:=I*G; HH:=FHH(BB); XG:=XO+ROIJND(MX*HH); YG:=YO-ROIJND(MY*BB); IF I>0 THEN LINE(XS,YS,XG,YG); XS:=XG; YS:=YG END; READLN; LLL:=0.1; L12:=0.06; L13:=0.06; L21:=0.1; L22:=0.07; L23:=0.07; L31:=0.0995; DEL:=0.0003; BLL:=0.02; B12:=0.024; B13:=0.026; B21:=0.02; B22:=0.024; B23:=0.026; B31:=0.022; Q:=0.05; MU0:=1.256E-6; FF1:=600; FF2:=200; BMAX:=1.7; S11:=Q*B11; S12:=Q*B12; S13:=Q*B13; S21:=Q*B21; S22:=Q*B22; S23:=Q*B23; S31:=Q*B31; SDE:=S31; MX:=0.5; MY:=100000; X0:=310; Y0:=250; SETC0L0R(15); LINE(X0,0,X0,480); LINE(0,Y0,640,Y0); NN:=20; DF1:=S11*BMAX/NN; DF2:=S21*BMAX/NN; DF3:=S31*BMAX/NN; WRITELN(FIMA; FLUXI и м г ; FLUX2 UM2', ' FLUX3 UM3'); FOR I:=-NN TO NN DO BEGIN FL1:=I*DF1; FL2:=I*DF2; FL3:=I*DF3; B11:=FL1/S11; B12:=FL1/S12; B13:=FL1/S13; 36