cp = 470;
cm = 0.01;
el = 3;
ro = 7850;
γFe = (0.000000245^(-1));
d = 0.3;
m = Pi*((d^2)/4)*el*ro;
minuta = 60;
cas = 20  minuta;
ΔT = 1000;
energie = 1.  ro*cp*ΔT;
vykon = (energie/cas);
Pt = 1.5*vykon;

<< Miscellaneous`PhysicalConstants`

μ = (VacuumPermeability // 
            N)[[1]]

ω = 100.  Pi;
γCu = 56*(10^6);
aFe = (Sqrt[(2/(ω*γFe*μ))]);
aCu = (Sqrt[(2/(ω*γCu*μ))]);

dingot = 0.3;
d2 = dingot - aFe;
R2 =  Pi*d2/(γFe*aFe*el)

mezera = 3  cm;
dinduktor = dingot + 2*mezera;
d1 = dinduktor + aCu;
R1 = (n1^2)* Pi*d1/(γCu*aCu*el)

\(\(Print[\*""\!\(d2\/el\)= "", 
        d2\/el];\)\)
α2 = 0.97;
L2 =  Pi*(((d2^2)*(1^2))/(4  el))*μ*α2;

\(\(Print[\*""\!\(d1\/el\)= "", 
        d1\/el];\)\)
α1 = 0.96;
L1 =  Pi*(((d1^2)*(n1^2))/(4  el))*μ*α1;

F = prolozenim
M =  Pi*(((d2^2)*1*n1)/(4  el))*F