Version 4
SHEET 1 2156 864
WIRE 400 0 224 0
WIRE 560 0 480 0
WIRE 688 0 640 0
WIRE 864 0 816 0
WIRE 1168 0 864 0
WIRE 224 16 224 0
WIRE 80 32 16 32
WIRE 16 80 16 32
WIRE 224 176 224 144
WIRE 864 208 864 0
WIRE 224 288 224 256
WIRE 16 416 16 160
WIRE 224 416 224 368
WIRE 224 416 16 416
WIRE 864 416 864 272
WIRE 864 416 224 416
WIRE 1152 416 864 416
WIRE 16 432 16 416
FLAG 16 432 0
FLAG 80 32 H
IOPIN 80 32 In
FLAG 1168 0 Ant_Out
IOPIN 1168 0 Out
FLAG 1152 416 Ant_Com
IOPIN 1152 416 Out
SYMBOL voltage 16 64 R0
WINDOW 123 24 124 Left 2
WINDOW 39 0 0 Left 0
WINDOW 3 24 152 Left 2
SYMATTR Value2 AC {H}
SYMATTR Value ""
SYMATTR InstName Vfield
SYMBOL bv 224 272 R0
SYMATTR InstName Bloop
SYMATTR Value V=V(H) laplace(2*pi*{Area}*{Mu_mat}*s/sqrt(-1))
SYMBOL ind 496 -16 R90
WINDOW 0 5 56 VBottom 2
WINDOW 3 32 56 VTop 2
SYMATTR InstName Lloop
SYMATTR Value {Lloop}
SYMBOL ind 656 -16 R90
WINDOW 0 5 56 VBottom 2
WINDOW 3 32 56 VTop 2
SYMATTR InstName Lwire
SYMATTR Value {Lwire}
SYMBOL res 208 160 R0
SYMATTR InstName Rdc
SYMATTR Value {Rdc}
SYMBOL cap 848 208 R0
SYMATTR InstName Cloop
SYMATTR Value {Cloop}
SYMBOL rrad 752 0 R90
WINDOW 39 38 -9 VTop 2
WINDOW 1 -9 -2 VTop 2
SYMATTR SpiceLine A={Area}
SYMATTR InstName U1
SYMBOL rac 224 80 R0
WINDOW 39 -104 59 Left 2
WINDOW 1 19 -6 Right 2
SYMATTR SpiceLine L={Len} d={Wire_d} Sigma={Sigma_mat} Mu={Mu_mat}
SYMATTR InstName U2
TEXT -32 528 Left 2 ;Constants
TEXT -40 560 Left 2 !.param E={EF}; E=1u ; Electric Field V/m
TEXT -40 592 Left 2 !.param Loop_d={LD}; Loop_d=1 ; loop diameter in meters
TEXT -40 624 Left 2 !.param Wire_d= {WD}; Wire_d=14.5m ; wire or tube diameter, meters
TEXT -40 656 Left 2 !.param Mu_mat=1.26e-6  ; loop material permeability for Aluminum H/m
TEXT -40 688 Left 2 !.param Sigma_mat=3.5e7 ; loop material conductivity for aluminum S/m
TEXT 896 528 Left 2 ;Variables
TEXT 888 560 Left 2 !.param Area=pi*{loop_r}**2
TEXT 888 592 Left 2 !.param Len=pi*{loop_d}
TEXT 888 624 Left 2 !.param Lloop= (ln(8*{Loop_r}/{Wire_r})-2)*{Loop_r}*{Mu_mat}
TEXT 888 656 Left 2 !.param Lwire=(2*{Len})*(2.303*log(4*{Len}/{Wire_d})-.75+({Wire_d}/({Len}*2)))*1E-7
TEXT 888 688 Left 2 !.param Rdc=({Loop_c}*{DCRes_factor})
TEXT 888 720 Left 2 !.param Cloop=3.9685E-13*((100*{Loop_C}/Pi)**4/(100*{Loop_C}) )**(1/3)
TEXT -40 720 Left 2 !.param H=({E}/376.73031346177)
TEXT -40 752 Left 2 !.param Loop_r=({Loop_d}/2)
TEXT -40 784 Left 2 !.param Wire_r=({Wire_d}/2)
TEXT -40 816 Left 2 !.param Loop_c=(pi*{Loop_d})
TEXT -40 848 Left 2 !.param DCRes_factor =  0.000021 ; aluminum ohms/meter
