<<PhysicalConstants`

μ=N[VacuumPermeability][[1]];

mm=0.001;
dingot=100mm;
el1=6000mm;
el2=el1;
T1=10;
T2=700;
hustota=8500;
c=385;
cas=5*60;
m=hustota*el2*((Pi*(dingot^2))/4);
vykonMin=m*c*(((T2-T1))/cas);
P=1.1*vykonMin;

f=50;
ω=2.*Pi*f;
γ=50*(10^6);
a=(Sqrt[(2/(ω*γ*μ))]);
d2=dingot-a;
S2=a*el2;
R2=Pi*(d2/(S2*γ));

mezera=15mm;
dinduktor=2.*mezera+dingot;
d1=dinduktor+a;
S1=a*el1;
R1=1.2*Pi*(d1/(S1*γ))*(n^2);

Lnekonecna2=μ*Pi*((d2^2)/(4*el2))*(1^2);
α2=1;
L2=α2*Lnekonecna2;

Lnekonecna1=μ*Pi*((d1^2)/(4*el1))*(n^2);
α1=1;
L1=α1*Lnekonecna1;

F=1;
M=F*L2*n1;