*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