.Subckt S6045_1 P dm dp k=0.5 ids=100p idg=100f
.param C0=10.8p rs=10
r p 0 1gig
* k- koeff A/Wt
g dm 8 P 0 {k}
Rs 12 dp {rs}
* C ot V
c dm 120 {C0}
va 120 12 0
bc dm 12 i=i(va)*(TABLE(v(dm,12), 0,1 , 30,0.4 , 50,0.3 , 65,0.2 , 100,0.13 , 150,0.12 , 200,0.12)-1)
* M ot V
B3 M 0 v=TABLE(v(dm,12), 0,1 , 120,2., 140,2.5, 160,4 , 170,5.5, 180,8 , 200,15 , 220,40 , 230,200 , 240,10000)
* F ot M
B4 F 0 v=TABLE(v(M), 1,1 , 5,1.26 , 10,1.6 , 40,3 , 100,4, 1000,10)
*
D1 8 dm diode
iidg dm 8 {idg}
iids dm 12 {ids}
.model diode D is=.0001f tt=10u
VAm2 8 13 0
VAm3 13 12 0
BM dm 13 i=i(vam2)*(v(M)-1)
*noise
Q1 0 9 10 npn
Q2 0 9 14 pnp
VAm4 0 9 0
B1 10 14 i=2*(i(vam3)*v(F)+{ids})
B2 dm 12 i=i(vam4)
*
.model npn npn bf=1 is=0.01f
.model pnp pnp bf=1 is=0.01f
.ends S6045_1
.Subckt S8890-05 P dm dp k=0.5 ids=100p idg=2p
.param C0=10.8p rs=10
r p 0 1gig
* k- koeff A/Wt
g dm 8 P 0 {k}
Rs 12 dp {rs}
* C ot V
c dm 120 {C0}
va 120 12 0
bc dm 12 i=i(va)*(TABLE(v(dm,12), 0,1 , 65,0.4 , 100,0.2 , 150,0.05 , 200,0.05)-1)
* M ot V
B3 M 0 v=TABLE(v(dm,12), 0,1 , 120,1.5, 200,10 , 300,20 , 400,100 , 420,2000, 422,10000)
* F ot M
B4 F 0 v=TABLE(v(M), 1,1 , 5,1.26 , 10,1.6 , 40,3 , 100,4, 1000,10)
*
D1 8 dm diode
iidg dm 8 {idg}
iids dm 12 {ids}
.model diode D is=.0001f tt=10u
VAm2 8 13 0
VAm3 13 12 0
BM dm 13 i=i(vam2)*(v(M)-1)
*noise
Q1 0 9 10 npn
Q2 0 9 14 pnp
VAm4 0 9 0
B1 10 14 i=2*(i(vam3)*v(F)+{ids})
B2 dm 12 i=i(vam4)
*
.model npn npn bf=1 is=0.01f
.model pnp pnp bf=1 is=0.01f
.ends S8890-05