*Intusoft Nonlinear MPP Core Models *Date: 2/95 *********** *SRC=MP58268;MP58268;Magnetic Cores;MPP58; *SYM=MPP1 .SUBCKT MP58268 1 2 10 *AL=nH/T, le=cm mu=(no units) .params AL=132n le=1.363 mu=160 R1 1 4 {DCR} V1 3 2 0 G2 4 3 8 2 1 G1 2 8 7 2 1 C1 8 9 {AL*N**2} IC={IC} R2 9 2 {0.531*{mu}**1.09/(1e9*AL*N**2)} B1 5 2 V=ABS(0.4*pi*{N}*I(V1)/{le}) B2 6 2 V=(1.25*exp(-({mu}*V(5,2)*0.000103)))-(0.25*exp(-({mu}*V(5,2)*0.00052))) B3 7 2 V=V(4,3)/(V(6,2)+.02) B4 10 0 V=V(6,2)*{AL*N**2} .ENDS *********** *SRC=MP58269;MP58269;Magnetic Cores;MPP58; *SYM=MPP1 .SUBCKT MP58269 1 2 10 R1 1 4 {DCR} V1 3 2 0 G2 4 3 8 2 1 G1 2 8 7 2 1 C1 8 9 {N**2*122n} IC={IC} R2 9 2 {0.531*147**1.09/(122*N**2)} B1 5 2 V=ABS(1.256*{N}*I(V1)/1.363) B2 6 2 V=(1.25*exp(-(147*V(5,2)*0.000103))-(0.25*exp(-(147*V(5,2)*0.00052)))) B3 7 2 V=V(4,3)/(V(6,2)+.02) B4 10 0 V=V(6,2)*{N**2*122n} .ENDS *********** *SRC=MP58270;MP58270;Magnetic Cores;MPP58; *SYM=MPP1 .SUBCKT MP58270 1 2 10 R1 1 4 {DCR} V1 3 2 0 G2 4 3 8 2 1 G1 2 8 7 2 1 C1 8 9 {N**2*103n} IC={IC} R2 9 2 {0.531*125**1.09/(103*N**2)} B1 5 2 V=ABS(1.256*{N}*I(V1)/1.363) B2 6 2 V=(1.25*exp(-(125*V(5,2)*0.000103))-(0.25*exp(-(125*V(5,2)*0.00052)))) B3 7 2 V=V(4,3)/(V(6,2)+.02) B4 10 0 V=V(6,2)*{N**2*103n} .ENDS *********** *SRC=MP55135;MP55135;Magnetic Cores;MPP; *SYM=MPP1 .SUBCKT MP55135 1 2 10 * Connections | | | * + | | * - | * Inductance test point output *N=number of turns, DCR=DC resistance, IC=initial condition R1 1 4 {DCR} V1 3 2 0 G2 4 3 8 2 1 G1 2 8 7 2 1 C1 8 9 {N**2*62n} IC={IC} R2 9 2 {48.2M*300**1.451/(62*N**2)} B1 5 2 V=ABS(1.256*{N}*I(V1)/0.817) B2 6 2 V=(1.77*exp(-(300*V(5,2)*0.0002))-(0.77*exp(-(300*V(5,2)*0.00052)))) B3 7 2 V=V(4,3)/(V(6,2)+.02) B4 10 0 V=V(6,2)*{N**2*62n} .ENDS *********** *SRC=MP55137;MP55137;Magnetic Cores;MPP55; *SYM=MPP1 .SUBCKT MP55137 1 2 10 R1 1 4 {DCR} V1 3 2 0 G2 4 3 8 2 1 G1 2 8 7 2 1 C1 8 9 {N**2*42n} IC={IC} R2 9 2 {48.2M*200**1.451/(42*N**2)} B1 5 2 V=ABS(1.256*{N}*I(V1)/0.817) B2 6 2 V=(1.77*exp(-(200*V(5,2)*0.0002))-(0.77*exp(-(200*V(5,2)*0.00052)))) B3 7 2 V=V(4,3)/(V(6,2)+.02) B4 10 0 V=V(6,2)*{N**2*42n} .ENDS *********** *SRC=MP55134;MP55134;Magnetic Cores;MPP55; *SYM=MPP1 .SUBCKT MP55134 1 2 10 R1 1 4 {DCR} V1 3 2 0 G2 4 3 8 2 1 G1 2 8 7 2 1 C1 8 9 {N**2*36n} IC={IC} R2 9 2 {48.2M*173**1.451/(36*N**2)} B1 5 2 V=ABS(1.256*{N}*I(V1)/0.817) B2 6 2 V=(1.77*exp(-(173*V(5,2)*0.0002))-(0.77*exp(-(173*V(5,2)*0.00052)))) B3 7 2 V=V(4,3)/(V(6,2)+.02) B4 10 0 V=V(6,2)*{N**2*36n} .ENDS