<<PhysicalConstants`

mm=(10^(-3));

μ=N[VacuumPermeability][[1]];
γ=50*(10^6);
f=50;
ω=2.*Pi*f;
a=(Sqrt[(2/(ω*μ*γ))]);
dingot=100mm;
el2=1;
el1=el2;

d2=dingot-a;

S2=a*el2;
R2=Pi*(d2/(S2*γ));

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

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

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

F=0.98;
M=F*n*L2;

T1=20;
T2=700;
hustota=8500;
c=385;
cas=15*60;
m=hustota*Pi*((dingot^2)/4.)*el2;
vykonMin=((m*c*(T2-T1))/cas);
P=1.15*vykonMin