\
(*Магнитное\
поле усечёного конуса*)
\[Mu] = 4 \[Pi] 10^-7;
Ic = 1000000; (*Ток*)
a = 0.7; (*Диапазон изображения по вертикали*)
b = 0.8; (*Диапазон изображения по горизонтали*)
c = a/b; (**)
R2 = 0.4; (*Радиус основания конуса*)
R1 = 0.1; (*Радиус верхушки конуса*)
h = 0.3; (*Высота конуса*)
k = (R2 - R1)/h;
F3[x_, y_, z_, \[Beta]_, l_,
R_] = \[Integral]1/(x^2 + y^2 + (z - l)^2 + (k l + R)^2 -
2 (k l + R) (x Cos[\[Beta]] + y Sin[\[Beta]]))^(
3/2) \[DifferentialD]l
F4[x_, y_, z_, \[Beta]_, l_,
R_] = \[Integral]l/(x^2 + y^2 + (z - l)^2 + (k l + R)^2 -
2 (k l + R) (x Cos[\[Beta]] + y Sin[\[Beta]]))^(
3/2) \[DifferentialD]l
F5[x_, y_, z_, \[Beta]_, l_,
R_] = \[Integral]l^2/(x^2 + y^2 + (z - l)^2 + (k l + R)^2 -
2 (k l + R) (x Cos[\[Beta]] + y Sin[\[Beta]]))^(
3/2) \[DifferentialD]l
Bxcm[x_, y_, z_, h_, R_] = ( \[Mu] Ic )/(4 \[Pi] h)
NIntegrate[(F3[x, y, z, \[Beta], h, R] R (z) +
F4[x, y, z, \[Beta], h, R] (k z - R) -
F5[x, y, z, \[Beta], h, R] k
- F3[x, y, z, \[Beta], 0, R] R (z) -
F4[x, y, z, \[Beta], 0, R] (k z - R) +
F5[x, y, z, \[Beta], 0, R] k) Cos[\[Beta]], {\[Beta], 0,
2 \[Pi]}];
Bzcm[x_, y_, z_, h_, R_] = ( \[Mu] Ic )/(4 \[Pi] h)
NIntegrate[ (F3[x, y, z, \[Beta], h,
R] R (R - y Sin[\[Beta]] - x Cos[\[Beta]]) +
F4[x, y, z, \[Beta], h,
R] k (2 R - y Sin[\[Beta]] - x Cos[\[Beta]]) +
F5[x, y, z, \[Beta], h, R] k^2
- F3[x, y, z, \[Beta], 0,
R] R (R - y Sin[\[Beta]] - x Cos[\[Beta]]) -
F4[x, y, z, \[Beta], 0,
R] k (2 R - y Sin[\[Beta]] - x Cos[\[Beta]]) -
F5[x, y, z, \[Beta], 0, R] k^2), {\[Beta], 0, 2 \[Pi]}];
StreamPlot[{Bxcm[x, 0, z + h/2, h, R1],
Bzcm[x, 0, z + h/2, h, R1]}, {x, -b, b}, {z, -a, a},
ImageSize -> 600, StreamColorFunction -> "Rainbow", AspectRatio -> c,
StreamPoints -> Fine,
Epilog -> {{RGBColor[0.5, 0.4, 0], Thick,
Line[{{-R1, 0 - h/2}, {-R2, h - h/2}, {R2, h - h/2}, {R1,
0 - h/2}, {-R1, 0 - h/2}}]}} ]