Version 4.1
SHEET 1 880 680
WIRE 176 -176 48 -176
WIRE 176 -128 176 -176
WIRE 48 -32 48 -176
WIRE 176 -32 176 -48
WIRE 176 -16 176 -32
WIRE 48 96 48 48
WIRE 176 96 176 64
FLAG 176 96 0
FLAG 48 96 0
FLAG 176 -32 L1
SYMBOL ind 160 -32 R0
SYMATTR InstName L1
SYMATTR Value flux={L*Is}*sgn(x)*tanh((abs(x)/{Is})**{a})**{1/a}
SYMATTR SpiceLine Rser=1m
SYMBOL bi 176 -128 R0
SYMATTR InstName B1
SYMATTR Value I=time*1
SYMBOL voltage 48 -48 R0
WINDOW 123 0 0 Left 0
WINDOW 39 0 0 Left 0
SYMATTR InstName V1
SYMATTR Value 1
TEXT 368 -96 Left 2 !.param L=40m
TEXT 368 -152 Left 2 !.tran 6000m
TEXT 368 -56 Left 2 !.param Is=3
TEXT 368 -16 Left 2 !.param a=3
TEXT 232 88 Left 2 ;Voltage L1 vs I gives Inductance L1 vs current.
TEXT 232 128 Left 2 ;1mV=1mH