Version 4
SHEET 1 880 700
WIRE -512 -1760 -592 -1760
WIRE -448 -1760 -512 -1760
WIRE -592 -1712 -592 -1760
WIRE -448 -1712 -448 -1760
WIRE -592 -1568 -592 -1632
WIRE -448 -1568 -448 -1632
WIRE -448 -1568 -592 -1568
FLAG -592 -1568 0
FLAG -512 -1760 z1
SYMBOL ind -464 -1728 R0
SYMATTR InstName L1
SYMATTR Value LF1
SYMATTR Prefix X
SYMBOL voltage -592 -1728 R0
WINDOW 123 14 105 Left 2
WINDOW 39 0 0 Left 2
SYMATTR Value2 AC 1
SYMATTR InstName V1
SYMATTR Value ""
TEXT -616 -1848 Left 2 !.ac dec 100 40 20k
TEXT -632 -1248 Left 2 !.subckt LF1 1 2 \nR1 1 10  1m\nV1 10 11 0\nB1 11 20 V=IF(IL<=10,1,0)*I(V1)  MAG FREQ= \n+ 40, {522u*40*2*pi}, 90 \n+ 190, {510u*190*2*pi}, 90\n+ 340, {506u*340*2*pi}, 90 \n+ 489, {502.5u*489*2*pi} 90\n+ 573, {502u*573*2*pi} 90\n+ 639, {501.6u*639*2*pi}, 90\n+ 789, {500.1u*789*2*pi}, 90\n+ 938, {499.3u*938*2*pi}, 90\n+1089, {498.5u*1089*2*pi}, 90\n+1238, {497.7u*1238*2*pi}, 90\n+1388, {497.18u*1388*2*pi}, 90\n+1538, {496.7u*1538*2*pi}, 90\n+1687, {496.19u*1687*2*pi}, 90\n+1838, {495.95u*1838*2*pi}, 90\n+1987, {495.44u*1987*2*pi}, 90\n+2137, {495.1u*2137*2*pi}, 90\n+2287, {494.7u*2287*2*pi}, 90\n+2736, {494.2u*2736*2*pi}, 90\n+2886, {493.8u*2886*2*pi}, 90\n+3336, {493.07u*3336*2*pi}, 90\n+4086, {492.52u*4086*2*pi}, 90\n+4533, {491.5u*4533*2*pi}, 90\n+6332, {491u*6332*2*pi}, 90\n+8878, {490.32u*8878*2*pi}, 90\n+10076, {489.6u*10076*2*pi}, 90\n+13821, {489.2u*13821*2*pi}, 90\n+14420.8, {488.7u*14420.8*2*pi}, 90\n+19813.6, {488.37u*19813.6*2*pi}, 90\n \nB2 20 2 V=IF(IL>10,1,0)*I(V1)  MAG FREQ= \n+ 40, {522u*40*2*pi}, 90 \n+ 190, {506u*190*2*pi}, 90\n+ 340, {502.9u*340*2*pi}, 90 \n+ 489, {500.5u*489*2*pi} 90\n+ 573, {499.9u*573*2*pi} 90\n+ 639, {499.2u*639*2*pi}, 90\n+ 789, {498u*789*2*pi}, 90\n+ 938, {496.8u*938*2*pi}, 90\n+1089, {496.25u*1089*2*pi}, 90\n+1238, {495.2u*1238*2*pi}, 90\n+1388, {494.8u*1388*2*pi}, 90\n+1538, {494.3u*1538*2*pi}, 90\n+1687, {493.77u*1687*2*pi}, 90\n+1838, {493.4u*1838*2*pi}, 90\n+1987, {493.2u*1987*2*pi}, 90\n+2137, {493.1u*2137*2*pi}, 90\n+2287, {492.8u*2287*2*pi}, 90\n+2736, {491.87u*2736*2*pi}, 90\n+2886, {491.33u*2886*2*pi}, 90\n+3336, {490.85u*3336*2*pi}, 90\n+4086, {490.5u*4086*2*pi}, 90\n+4533, {489.6u*4533*2*pi}, 90\n+6332, {488.73u*6332*2*pi}, 90\n+8878, {487.9u*8878*2*pi}, 90\n+10076, {486.81u*10076*2*pi}, 90\n+13821, {486.68u*13821*2*pi}, 90\n+14420.8, {486.15u*14420.8*2*pi}, 90\n+19813.6, {485.u*19813.6*2*pi}, 90\n.ends
TEXT -616 -1288 Left 2 ;Z(freq)
TEXT -616 -1488 Left 2 ;Using a model-symbol for a subcircuit \nPlace the inductor\nCtrl right mouse click on the inductor symbol\nChange Prefix:L to Prefix:X\nOK
TEXT -616 -1904 Left 2 !.step param IL list 10 15
TEXT -616 -1944 Left 2 !.param IL=0