Version 4
SHEET 1 880 680
WIRE 80 -208 64 -208
WIRE 192 -208 176 -208
WIRE 320 -208 304 -208
WIRE 432 -208 416 -208
WIRE 560 -208 544 -208
WIRE 64 -192 64 -208
WIRE 176 -192 176 -208
WIRE 304 -192 304 -208
WIRE 416 -192 416 -208
WIRE 544 -192 544 -208
WIRE 496 80 480 80
WIRE 528 80 496 80
WIRE 80 240 64 240
WIRE 176 240 80 240
WIRE 304 240 288 240
WIRE 176 256 176 240
WIRE 400 256 400 240
WIRE 80 304 80 240
WIRE 304 304 304 240
WIRE 176 352 176 320
WIRE 400 352 400 320
WIRE 480 352 464 352
WIRE 512 352 480 352
WIRE 512 368 512 352
WIRE 400 432 400 416
WIRE 464 432 464 352
WIRE 464 432 400 432
WIRE 80 448 80 384
WIRE 80 448 64 448
WIRE 176 448 176 416
WIRE 176 448 80 448
WIRE 304 448 304 384
WIRE 304 448 288 448
WIRE 512 448 304 448
FLAG 368 -128 0
FLAG 64 -112 0
FLAG 320 -208 sw
FLAG 368 -176 sw
FLAG 416 -112 0
FLAG 304 -112 0
FLAG 64 448 s1
FLAG 496 -128 0
FLAG 496 -176 sw
FLAG 176 -112 0
FLAG 192 -208 v2
FLAG 80 -208 v1
FLAG 64 240 v1
FLAG 432 -208 s1
FLAG 544 -112 0
FLAG 560 -208 s2
FLAG 288 448 s2
FLAG 288 240 v2
FLAG 400 240 0
FLAG 480 352 k
FLAG 480 160 0
FLAG 496 80 xpind
FLAG 528 160 0
SYMBOL ind 96 288 M0
WINDOW 39 6 92 Right 2
WINDOW 123 6 108 Right 2
WINDOW 40 6 124 Right 2
SYMATTR SpiceLine Rser={rsx}
SYMATTR InstName L1
SYMATTR Value 1
SYMATTR Value2 Rpar={rpx}
SYMATTR SpiceLine2 Cpar={cpx}
SYMBOL voltage 64 -208 R0
WINDOW 123 0 0 Left 2
WINDOW 39 24 112 Left 2
SYMATTR SpiceLine Rser=1u
SYMATTR InstName V1
SYMATTR Value 10
SYMBOL diode 160 320 M180
WINDOW 0 24 64 Left 2
WINDOW 3 24 0 Left 2
SYMATTR InstName D11
SYMATTR Value 1N4148
SYMBOL zener 160 352 R0
SYMATTR InstName D12
SYMATTR Value KDZ20B
SYMATTR Description Diode
SYMATTR Type diode
SYMBOL sw 416 -96 M180
SYMATTR InstName S1
SYMBOL voltage 304 -208 R0
WINDOW 123 0 0 Left 2
WINDOW 39 0 0 Left 2
WINDOW 3 -5 119 Left 2
SYMATTR InstName V3
SYMATTR Value PULSE(0 1 1m 1u 1u 50m 100m 1)
SYMBOL sw 544 -96 M180
SYMATTR InstName S2
SYMBOL voltage 176 -208 R0
WINDOW 123 0 0 Left 2
WINDOW 39 24 112 Left 2
SYMATTR SpiceLine Rser=1u
SYMATTR InstName V2
SYMATTR Value 10
SYMBOL diode 384 320 M180
WINDOW 0 24 64 Left 2
WINDOW 3 24 0 Left 2
SYMATTR InstName D21
SYMATTR Value 1N4148
SYMBOL zener 384 352 R0
SYMATTR InstName D22
SYMATTR Value KDZ20B
SYMATTR Description Diode
SYMATTR Type diode
SYMBOL bv 512 464 M180
WINDOW 0 24 96 Left 2
WINDOW 3 -46 138 Left 2
SYMATTR InstName B1
SYMATTR Value V=V(s1)-V(k)
SYMBOL bi 480 160 R180
WINDOW 0 24 80 Left 2
WINDOW 3 24 0 Left 2
WINDOW 123 24 -16 Left 2
SYMATTR InstName B2
SYMATTR Value I=xpind(V(v1,s1), I(L1), rsx, rpx, cpx)
SYMBOL res 512 64 R0
SYMATTR InstName R1
SYMATTR Value 1
SYMBOL ind 320 288 M0
WINDOW 39 6 92 Right 2
WINDOW 123 6 108 Right 2
WINDOW 40 6 124 Right 2
SYMATTR SpiceLine Rser={rsx}
SYMATTR InstName L2
SYMATTR Value 1
SYMATTR Value2 Rpar={rpx}
SYMATTR SpiceLine2 Cpar={cpx}
TEXT 48 -240 Left 2 !.tran 0 6m 0 100n
TEXT 296 -72 Left 2 !.model sw SW(Ron={1/gmin} Roff=1u Vt=0.5)
TEXT 48 -280 Left 2 ;https://www.mikrocontroller.net/topic/387998#4441902
TEXT 40 -24 Left 2 !.func xpind(u, i, rs, rp, cp) {(i-(u/rp)-ddt(u*cp))**2*rs+(u**2/rp)}
TEXT 40 -56 Left 2 !.param rsx=100, rpx=100k, cpx=1p
TEXT 40 0 Left 2 !.meas e1ind integ pind(V(v1,s1), I(L1), rsx, rpx, cpx)  trig V(sw) val=0.5 rise=1
TEXT 40 16 Left 2 !.meas e1dio integ V(s1,v1)*I(D11) trig V(sw) val=0.5 rise=1
TEXT 40 32 Left 2 !.meas e1tot param e1ind+e1dio
TEXT 40 -40 Left 2 !.func pind(u, i, rs, rp, cp) {(i-(u/rp))**2*rs+(u**2/rp)}
TEXT 40 56 Left 2 !.meas e2ind integ pind(V(v2,s2), I(L2), rsx, rpx, cpx)  trig V(sw) val=0.5 rise=1
TEXT 40 72 Left 2 !.meas e2dio integ V(s2)*I(D21) trig V(sw) val=0.5 rise=1
TEXT 40 88 Left 2 !.meas e2src integ V(v2)*I(V2) trig V(sw) val=0.5 rise=1
TEXT 40 104 Left 2 !.meas e2tot param e2ind+e2dio
TEXT 256 32 Left 2 ;targ I(L2) val=1u fall=1
TEXT 176 -240 Left 2 ;.opt plotwinsize=0
TEXT 40 120 Left 2 !.meas e2dif param e2tot+e2src
TEXT 40 192 Left 2 !.meas xe1ind integ xpind(V(v1,s1), I(L1), rsx, rpx, cpx)  trig V(sw) val=0.5 rise=1
TEXT 40 208 Left 2 !.meas ye1ind integ V(xpind) trig V(sw) val=0.5 rise=1