Version 4
SHEET 1 1156 1032
WIRE 80 48 32 48
WIRE 160 48 80 48
WIRE 176 48 160 48
WIRE 352 48 256 48
WIRE 400 48 352 48
WIRE 560 48 480 48
WIRE 576 48 560 48
WIRE 640 48 576 48
WIRE 32 112 32 48
WIRE 560 112 560 48
WIRE 640 112 640 48
WIRE 240 128 240 96
WIRE 352 144 352 48
WIRE 32 240 32 192
WIRE 240 240 240 208
WIRE 240 240 32 240
WIRE 352 240 352 208
WIRE 352 240 240 240
WIRE 560 240 560 176
WIRE 560 240 352 240
WIRE 640 240 640 192
WIRE 640 240 560 240
WIRE 32 256 32 240
FLAG 32 256 0
FLAG 576 48 ua
FLAG 80 48 ue
SYMBOL voltage 32 96 R0
WINDOW 3 -288 50 Left 2
WINDOW 123 0 0 Left 2
WINDOW 39 0 0 Left 2
SYMATTR Value SINE(15 200m {Freq})
SYMATTR InstName V1
SYMBOL diode 368 208 R180
WINDOW 0 24 64 Left 2
WINDOW 3 30 22 Left 2
SYMATTR InstName D1
SYMBOL ind 384 64 R270
WINDOW 0 32 56 VTop 2
WINDOW 3 5 56 VBottom 2
SYMATTR InstName L1
SYMATTR Value 500µ
SYMBOL cap 544 112 R0
SYMATTR InstName C1
SYMATTR Value 100µ
SYMBOL res 624 96 R0
SYMATTR InstName R1
SYMATTR Value 10
SYMBOL nmos 160 96 R270
WINDOW 3 92 58 VRight 2
SYMATTR Value BSC082N10LS
SYMATTR InstName M1
SYMBOL voltage 240 112 R0
WINDOW 3 6 162 Left 2
WINDOW 123 0 0 Left 2
WINDOW 39 0 0 Left 2
SYMATTR Value PULSE(0 18 0 10n 10n 3.6u 10u)
SYMATTR InstName V2
TEXT 40 -104 Left 2 !.model sw1 sw (Ron=0.1 Roff=100k Vt=0.1 Vh=0.1)
TEXT 56 -80 Left 2 !.step dec param Freq 10 100k 20
TEXT 72 -56 Left 2 !.ic V(ua)=4.8
TEXT 32 -144 Left 2 !;tran 0 {20m + per/Freq} 20m 5u uic
TEXT 544 -48 Left 2 !.option plotwinsize=0 numdgt=15
TEXT 544 -8 Left 2 !.save V(ue) V(ua)
TEXT -160 384 Left 2 !.meas uaavg avg V(ua)
TEXT -152 416 Left 2 !.meas ueavg avg V(ue)
TEXT -152 456 Left 2 !.meas uare avg (V(ua)-uaavg)*cos(360*time*Freq)
TEXT -160 488 Left 2 !.meas uaim avg -(V(ua)-uaavg)*sin(360*time*Freq)
TEXT -168 520 Left 2 !.meas uere avg (V(ue)-ueavg)*cos(360*time*Freq)
TEXT -160 560 Left 2 !.meas ueim avg -(V(ue)-ueavg)*sin(360*time*Freq)
TEXT -144 600 Left 2 !.meas FGAMag param 20*log10 (hypot(uare,uaim)/hypot(uere,ueim))
TEXT -128 640 Left 2 !.meas FGAPhi param mod(atan2(uaim,uare) - atan2(ueim,uere)+180,360)-180
TEXT -32 760 Left 2 !.param Amp Amp1+(Amp2-Amp1)/(Freq2-Freq1)*(Freq-Freq1)
TEXT -32 792 Left 2 !.param Amp1 20m
TEXT -24 824 Left 2 !.param Amp2 100m
TEXT -16 856 Left 2 !.param per per1+(per2-per1)/(Freq2-Freq1)*(Freq-Freq1)
TEXT -8 896 Left 2 !.param Freq1 10
TEXT 0 936 Left 2 !.param Freq2 100k
TEXT 16 976 Left 2 !.param per1 3
TEXT 8 1016 Left 2 !.param per2 10
TEXT 864 80 Left 2 !.tran 0 20m 0 5u uic
TEXT 880 120 Left 2 !;param Freq=10