*nsi45030 PSpice model (constant Iak slope) *$ .SUBCKT nsi450160_1 ANODE CATHODE R_Rpeak VAKPEAK ANODE 7G G_Iak ANODE CATHODE VALUE { {IakFunc(V(ANODE, CATHODE),temp,Slope,V(IREG, CATHODE))} } C_Cpeak CATHODE VAKPEAK 0.1n D_D1 CATHODE ANODE DLIM E_VakPeakTable VAKTABLE CATHODE TABLE { V(ANODE, CATHODE) } + ( (0,0) (3,31.8m) (4,34.3m) (5,35.5m) (7,36.8m) (10,37.8m) (60,38m) ) D_D2 N168443 CATHODE DLIM V_Vbr ANODE N168443 {Vakbr} R_Rpeak1 N169893 VAKPEAK 40G E_IakPeak IREG CATHODE VALUE { + IakPeakFunc(V(VAKTABLE, CATHODE),Iregss,V(ANODE, CATHODE),V(VAKPEAK, CATHODE)) } C_Cpeak1 CATHODE N169893 0.1n R_R1 CATHODE IREG 1k .PARAM Iregss=160m .PARAM Vakbr=52 .PARAM Slope=3e-7 .FUNC IakFunc(Vak,T,k,current) +{(-0.0025*T+1.0746)*current*(1-exp(-Vak/1.8))+Vak*k} .FUNC IakPeakFunc(VakTable,Iregss,Vak,VakPeak) +{IF(Vak>0, (Iregss+(VakTable-Iregss)*((Vak-Vakpeak)/Vak)), 0)} .MODEL DLIM D +IS=1e-10 +RS=1e-2 .ENDS *$