di2539.txt
;************************************************************************************************
; LISTING 1 - SPICE SIMULATION OF NONIDEAL TRANSFORMER
;
; "Model a nonideal transformer in Spice," EDN, June 5, 2000, pg 161
;
; http://www.ednmag.com/ednmag/reg/2000/060500/designideas.htm#12di1
;************************************************************************************************

.SUBCKT transformer in1 in2 out1 out2 params: L1=1u L2=1u Ls=1u

R_Rs         in1 1  1n

L_Ls         1 2 {Ls}

L_Lp         in2 2  {L1-Ls}  

E_E1         3 out2 VALUE { (sqrt(L2/(L1-Ls)))*V(2, in2) }

V_Vsense     out1 3 0V

F_F1         4 0 V_Vsense 1

R_Rload      4 0  0.1n  

G_G1         2 in2 VALUE { ((10G)*sqrt(L2/(L1-Ls)))*V(4, 0) }

.ENDS    transformer