波长小于0.1λ的线天线的增益与60kHz匹配线圈

c = 2.99792458×10⁸;
λ = c/频率;
Rr = (40×π²)/(高度/λ)²;
直径 = 直径（mm）/1000;
Za = 60*(ln(4*高度/直径)-1);
θ = 2*π*高度/λ;
Xc = Za/tan(θ);
Xa = Za*tan(θ);
XL = Xc-Xa;
ω = 2*π*频率;
L = XL/ω;
Ca = 1/(ω*Xc);
RL = XL/Q;
μ0 = 4*π*10⁻⁷;
δ = √(2*ρ/(ω*μ0));
radius = diameter /2;
Rdc = ρ*高度 /(π*半径²);
Rac = ρ*高度 /(π*(半径²-(半径-δ)²));
δ微米 = δ*10⁶;
η = Rr/(Rr+Rac+RL)*100;
heff = height/2;
Vo = Q*heff/2*Eradio;
Rp = Q^2*(Rr+Rac+RL);
print(λ);
print(Rr);
print(Za);
print(θ);
print(Xc);
print(Xa);
print(XL);
print(L*10^6);
print(RL);
print(η);
print(heff);
print(δmicron);
print(Rdc);
print(Rac);
print(ρ);
print(Ca*10^12);
print(Vo);
print(Rp);