Version 4
SHEET 1 2592 980
WIRE 432 -192 400 -192
WIRE 528 -192 512 -192
WIRE 704 -192 528 -192
WIRE 752 -192 704 -192
WIRE 848 -192 816 -192
WIRE 880 -192 848 -192
WIRE 992 -192 960 -192
WIRE 704 -160 704 -192
WIRE 704 -64 704 -96
FLAG 704 -64 0
FLAG 400 -192 0
FLAG 528 -192 1
FLAG 992 -192 0
FLAG 848 -192 2
SYMBOL diode 688 -160 R0
SYMATTR InstName D1
SYMATTR Value PIN
SYMATTR Prefix X
SYMBOL current 432 -192 R270
WINDOW 0 32 40 VTop 2
WINDOW 3 -32 40 VBottom 2
WINDOW 123 0 0 Left 2
WINDOW 39 0 0 Left 2
SYMATTR InstName I1
SYMATTR Value PWL(0 {I} {I*10/didt} {-I*9})
SYMBOL diode 816 -208 R90
WINDOW 0 0 32 VBottom 2
WINDOW 3 32 32 VTop 2
SYMATTR InstName D2
SYMATTR Value Di
SYMBOL voltage 976 -192 R90
WINDOW 0 -32 56 VBottom 2
WINDOW 3 32 56 VTop 2
SYMATTR InstName V1
SYMATTR Value {Vr}
TEXT 352 -64 Left 2 !.tran 20u
TEXT 352 32 Left 2 !.model Di d Ron=1m Vfwd=20m Epsilon=10m
TEXT 352 -32 Left 2 !.param I=20 didt=10/1u
TEXT 352 0 Left 2 !.step param Vr list 1k 300 100 10 0
TEXT 352 80 Left 2 !.subckt PIN A K params:\n+ Rlim=1m8 Repi=8 Vm=0.12 Lam=30m\n+ Is=1.65e-10 N=1.06 IKf=3\n+ Ie=12 Tau=7u5 To=13u\n+ Phi=1 Vpt=1k2 Rsc=18\n.param alfa=To/tau\n.func pos(x)={limit(x,0,1e15)}\n.func hh(x)={pwr(1-sqrt(x),2)}\n.model Dj d Is={Is} N={N} Ikf={Ikf}\nRlim 6 A {Rlim}\nRepi A 7 {Repi}\nRmod 6 7 R=Vm/(V(2,3)+Lam*V(3))\nRpin K 7 1T\nFpin 7 K Vs2 1\nEj 8 0 7 K 1\nDj 8 0 Dj\nH1 1 0 Ej -1\nVs2 1 2 0\nBe 2 0 I=pos(V(2)**2)/Ie\nCp1 2 3 {tau} Rpar=1\nRs1 3 0 R={alfa/3}*hh( (Phi-V(8))/(Vpt+Rsc*pos(-I(Vs2))) )\nCp2 3 4 {tau/5} Rpar=5\nRs3 4 0 {alfa/7}\nCp4 4 5 {tau/9} Rpar=9\nRs5 5 0 {alfa/11}\n.ends PIN
TEXT 696 -240 Bottom 2 ;Derived from "A New SPICE Model of Power P-I-N Diode\nBased on Asymptotic Waveform Evaluation"\nby Antonio G. M. Strollo