* John's Skin Effect Loss
.SUBCKT RAC 1 2 PARAMS: L=1 d=1 Sigma=1 Mu=1
G1 1 2 1 2 laplace={L}/({pre}*(1/sqrt(1/((abs(s)/{twopi}))*{post}))*2e-10)
R 1 2 10meg
* The 2e-10 is kluge to get fit.
.param twopi = 2*pi
.param pre=pi*{d}*{Sigma}
.param post=pi*{Mu}*{Sigma}
.ends
