f=27.12*(10^6);
ω=2*Pi*f;
tgδ=0.01;
γ=ϵr*ϵ0*ω*tgδ;
ϵr=5;
ϵ0=8.85*(10^(-12));
R=(0.01/(γ*1));
P=2000;
napeti=U/.Solve[((U^2)/R)==P][[2]];
c=((ϵ0*ϵr*1)/0.01);
Xc=(1/(ω*c));
Qc=((napeti^2)/Xc);
Solve[Qc==((napeti^2)/(ω*L))]

Needs["VectorAnalysis`"]
SetCoordinates[Cartesian[x,y,z]]

Hz[x_]:=(10^4)*Exp[-(1+I)*(x/0.001)]
hacko={0,0,Hz[x]};
γ=(10^7);
ecko=(1/γ)*Curl[hacko]
a=0.001;
ω=100Pi;
μ0=4*Pi*(10^(-7));
Solve[a==(Sqrt[(2/(ω*γ*μ0*μr))])]

Umax=0.5;
Rthmin=(1/Umax);
αin=5;
αext=15;
λ=0.8;
d=0.4;
λiz=0.04;
Solve[(1/(αin))+(1/(αext))+(d/λ)+(diz/(λiz))==Rthmin]

r1=(0.05/2)
r2=r2a/.Solve[Pi*((r2a^2)-(r1^2))*1000==2][[2]]
r3=r3a/.Solve[Pi*((r3a^2)-(r2^2))*1000==2][[2]]
λ1=0.1;
λ2=0.05;
α=500;
delka=1000;
Rkonvekce=(1/(α*delka*2*Pi*r3));
pomer=((Rkonvekce+(1/(2*Pi*λ2))*Log[(r2/r1)]+(1/(2*Pi*λ1))*Log[(r3/r2)])/(Rkonvekce+(1/(2*Pi*λ1))*Log[(r2/r1)]+(1/(2*Pi*λ2))*Log[(r3/r2)]))

α1=10.;
α2=12*(Sqrt[v]);
Tin=20;
To=-5;
Solve[((Tin-0)/(1/(α1)))==((0-To)/(1/(α2)))]

(0.004/0.6)

(0.1/0.0067)

ClearAll[delka,d]
R=110;
αr=0.005;
T=2000;
σ=5.67*(10^(-8));
ϵ=1;
r1=R==0.056*(10^(-6))*(1+αr*(T-20))*(delka/(Pi*((d^2)/4)))
r2=110==Pi*d*delka*ϵ*σ*((((2000+273))^4)-(((20+273))^4))

Solve[{r1,r2}]