LOOP ANT
.OPT ACCT NOMOD NOPAGE RELTOL=.001

.TRAN 1u 500u
;.AC dec 10 10k 1000k

.subckt   loopant in1 out1
vs   0 in1 0v
Eant	out1 0 freq {i(vs) } =
+(0.1kHz, -63.0, 92 )
+(1kHz, -43.0, 95 )
+(3.16kHz, -34.0, 97 )
+(7.1kHz, -23.0,98) 
+(10kHz, -25.17872338,99 
+(14kHz, -22.4457281, 106 )
+(20kHz, -19.66035113,117 )
+(30kHz, -16.69426612,119) 
+(40kHz, -14.79946657,126) 
+(50kHz, -13.55115449,132 )
+(60kHz, -12.65344373,137 )
+(70kHz, -12.0372781,141 )
+(80kHz, -11.5386095,145 )
+(90kHz, -11.16169296,148 )
+(100kHz, -10.86940599,152 )
+(140kHz, -10.05022564,160 )
+(200kHz, -9.271224138,168 )
+(300kHz, -8.149574028,177 )
+(400kHz, -6.857362147,186 )
+(500kHz, -4.881413674,192 )
+(600kHz, -1.774668208,209 )
+(700kHz, -4.700532919,234 )
+(800kHz, -3.40926025,	222 )
+(900kHz, 2.099747706,	200 )
.ends

Ithunder 0 100 exp(0, 1000, 0, 5u, 10u, 50u)	;simurate
;Istep 0 100 pwl(0, 0, 10u, 0, 10.001u, 1)	;step
rt 100 0 1 

x1 100 10 loopant
r4 10 0 1k

.probe
.end