SIM/qucs_s
1
0
Fork 0
mirror of https://github.com/ra3xdh/qucs_s synced 2025-03-28 21:13:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Library update

Browse Source
This commit is contained in:
Vadim Kuznetsov 2025-01-22 19:30:39 +03:00
parent 1600e3f53a
commit 65bb557775
14 changed files with 3421 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/CMakeLists.txt
View File

@ -21,6 +21,7 @@ LEDs.lib
LaserDiodes.lib
Loudspeaker.lib
MixerIC.lib
Neon.lib
MOSFETs.lib
NMOSFETs.lib
OpAmps.lib
@ -38,6 +39,7 @@ SPICE_TLine.lib
Thermistor.lib
Thyristor.lib
Transformers.lib
TubesExtended.lib
Xanalogue.lib
XyceDigital.lib
Xyce_Digital_TTL_Technology.lib
@ -59,6 +61,8 @@ xyce.blacklist
INSTALL( FILES ${COMPLIBS} ${BLACKLIST} DESTINATION share/${QUCS_NAME}/library )
INSTALL( DIRECTORY "symbols" DESTINATION share/${QUCS_NAME}/ )
INSTALL( DIRECTORY "TubesExtended" DESTINATION share/${QUCS_NAME}/library)
INSTALL( DIRECTORY "Optocoupler" DESTINATION share/${QUCS_NAME}/library )
ADD_SUBDIRECTORY( XyceDigital)

51
library/Neon.lib Normal file
View File

@ -0,0 +1,51 @@
<Qucs Library 24.3.0 "Neon">
<Component Neon>
<Description>
65V Neon Lamp Spice Model
Author: Zabb Csaba
</Description>
<Model>
.Def:Neon_Neon _net0 _net1
Sub:X1 _net0 _net1 gnd Type="Neon_sp"
.Def:End
</Model>
<ModelIncludes "Neon.sp.lst">
<Spice>
.SUBCKT NB1 10 20
D1 10 1 D1
D2 20 1 D1
D3 2 10 D1
D4 2 20 D1
D5 1 4 D2
V1 4 5 0
H1 6 0 V1 4.8E4
R1 0 6 1E6
B1 5 7 I=3.7E-4*V(5,7)+5.75E-3*V(5,7)*V(6)
C1 5 7 1.3E-11
R2 7 2 2.13E3
R3 3 5 3.5E3
R4 3 8 1.85E3
V2 8 2 1.442E2
.MODEL D1 D(IS=8E-16)
.MODEL D2 D(IS=2.1E-13 N=1.8)
.ENDS NB1
.SUBCKT Neon_Neon gnd _net0 _net1
X1 _net0 _net1 NB1
.ENDS
</Spice>
<Symbol>
<Line -40 0 30 0 #000080 2 1>
<Line 10 0 30 0 #000080 2 1>
<Line -10 -20 0 40 #000080 2 1>
<Line 10 -20 0 40 #000080 2 1>
<Ellipse -30 -30 60 60 #ffaa00 2 1 #c0c0c0 12 1>
<.PortSym -40 0 1 0 P1>
<.PortSym 40 0 2 180 P2>
<.ID -20 44 NB>
</Symbol>
</Component>

105
library/Optocoupler.lib
View File

@ -516,3 +516,108 @@ X1 _net0 _net3 _net1 _net2 moc3082_sub
</Symbol>
</Component>
<Component MOC3052>
<Description>
600V triac optocoupler; no zero-cross. LTspice mode is required for this model. Designed by Zabb Csaba: https://fotoelektronika.com/spice-models/
</Description>
<Model>
.Def:Optocoupler_MOC3052 _net0 _net3 _net1 _net2
SpLib:X1 _net0 _net3 _net1 _net2 File="moc3052_3062.cir" Device="MOC3052" SymPattern="auto" Params="" PinAssign=""
.Def:End
</Model>
<Spice>
.SUBCKT Optocoupler_MOC3052 gnd _net0 _net3 _net1 _net2
XX1 _net0 _net3 _net1 _net2 MOC3052
.ENDS
</Spice>
<SpiceAttach "moc3052_3062.cir">
<Symbol>
<.ID -40 -96 X>
<.PortSym -60 -30 1 0 P1>
<.PortSym -60 30 2 0 P2>
<.PortSym 80 -30 3 180 P3>
<.PortSym 80 30 4 180 P4>
<Line -30 -30 -30 0 #000080 2 1>
<Line -60 30 30 0 #000080 2 1>
<Line -40 -10 20 0 #000080 2 1>
<Line -40 -10 10 20 #000080 2 1>
<Line -40 10 20 0 #000080 2 1>
<Line -30 30 0 -20 #000080 2 1>
<Line -30 -30 0 20 #000080 2 1>
<Line -30 10 10 -20 #000080 2 1>
<Rectangle -50 -50 120 100 #000080 2 1 #c0c0c0 1 0>
<Line 40 6 0 24 #000080 2 1>
<Line 40 -30 0 24 #000080 2 1>
<Line 58 6 -36 0 #000080 2 1>
<Line 31 6 -9 -12 #000080 2 1>
<Line 31 6 9 -12 #000080 2 1>
<Line 49 -6 9 12 #000080 2 1>
<Line 49 -6 -9 12 #000080 2 1>
<Line 58 -6 -36 0 #000080 2 1>
<Line 80 30 -40 0 #000080 2 1>
<Line 80 -30 -40 0 #000080 2 1>
<Line 0 2 4 -4 #000080 2 1>
<Line -6 -4 6 6 #000080 2 1>
<Arrow 4 -2 10 10 9 3 #000080 2 1 1>
<Arrow 2 8 10 10 9 3 #000080 2 1 1>
<Line -2 12 4 -4 #000080 2 1>
<Line -8 6 6 6 #000080 2 1>
</Symbol>
</Component>
<Component MOC3063>
<Description>
600V triac optocoupler with zero-cross detector. LTspice mode is required for this model. Designed by Zabb Csaba: https://fotoelektronika.com/spice-models/
</Description>
<Model>
.Def:Optocoupler_MOC3063 _net0 _net3 _net1 _net2
SpLib:X1 _net0 _net3 _net1 _net2 File="moc3052_3062.cir" Device="MOC3063" SymPattern="auto" Params="" PinAssign=""
.Def:End
</Model>
<Spice>
.SUBCKT Optocoupler_MOC3063 gnd _net0 _net3 _net1 _net2
XX1 _net0 _net3 _net1 _net2 MOC3063
.ENDS
</Spice>
<SpiceAttach "moc3052_3062.cir">
<Symbol>
<.ID -40 -96 X>
<.PortSym -60 -30 1 0 P1>
<.PortSym -60 30 2 0 P2>
<.PortSym 80 -30 3 180 P3>
<.PortSym 80 30 4 180 P4>
<Line -30 -30 -30 0 #000080 2 1>
<Line -60 30 30 0 #000080 2 1>
<Line -40 -10 20 0 #000080 2 1>
<Line -40 -10 10 20 #000080 2 1>
<Line -40 10 20 0 #000080 2 1>
<Line -30 30 0 -20 #000080 2 1>
<Line -30 -30 0 20 #000080 2 1>
<Line -30 10 10 -20 #000080 2 1>
<Rectangle -50 -50 120 100 #000080 2 1 #c0c0c0 1 0>
<Line 40 6 0 24 #000080 2 1>
<Line 40 -30 0 24 #000080 2 1>
<Line 58 6 -36 0 #000080 2 1>
<Line 22 10 5 0 #000080 2 3>
<Line 27 10 4 -4 #000080 2 3>
<Line 31 6 -9 -12 #000080 2 1>
<Line 31 6 9 -12 #000080 2 1>
<Line 49 -6 9 12 #000080 2 1>
<Line 49 -6 -9 12 #000080 2 1>
<Line 58 -6 -36 0 #000080 2 1>
<Line -10 2 4 -4 #000080 2 1>
<Line -16 -4 6 6 #000080 2 1>
<Arrow -6 -2 10 10 9 3 #000080 2 1 1>
<Arrow -8 8 10 10 9 3 #000080 2 1 1>
<Line -12 12 4 -4 #000080 2 1>
<Line -18 6 6 6 #000080 2 1>
<Rectangle 6 14 24 20 #000080 2 1 #c0c0c0 1 0>
<Line 22 14 0 -4 #000080 2 3>
<Text 8 18 8 #000080 0 "ZCC">
<Line 14 14 0 -28 #000080 2 3>
<Line 14 -14 26 0 #000080 2 3>
<Line 30 24 10 0 #000080 2 3>
<Line 80 30 -40 0 #000080 2 1>
<Line 80 -30 -40 0 #000080 2 1>
</Symbol>
</Component>

144
library/Optocoupler/moc3052_3062.cir Normal file
View File

@ -0,0 +1,144 @@
* MOC3063 Zero-Cross Optoisolators Triac Driver Output Spice Model
* Date : 08/09/2024
* Author: Zabb Csaba
* IRED emitting diodes optically coupled to monolithic silicon detectors
* performing the functions of Zero Voltage Crossing bilateral triac drivers.
* VINH=Inhibit Voltage (MT1–MT2 Voltage above which device will not trigger.)
*
.SUBCKT MOC3063 1 2 6 4
* A K MT2 MT1
DL 1 3 IRLED
V1 3 2 0
H1 17 0 V1 1
E1 DEL 0 TABLE {V(17)}
+ (5m, 50)
+ (10m, 30)
+ (15m, 19)
+ (20m, 14)
+ (25m, 11)
+ (30m, 10)
+ (35m, 9.0)
+ (40m, 8.0)
+ (45m, 7.0)
+ (50m, 6.5)
+ (55m, 6.1)
E2 11 0 VALUE {IF(V(17)>5m,1,0)}
X1 11 10 DEL 0 VCRES
C1 10 0 1n
E3 12 4 VALUE {IF(V(10)>0.63,1,0)}
S1 6 13 11 0 SW1
R1 13 8 3MEG
C2 8 4 10p
D1 8 7 DX
D2 4 7 DX
E4 9 4 VALUE {IF(ABS(V(8,4))<12,1,0)}
B1 G 4 I=V(12,4)*V(9,4)*10m
C3 2 4 800f
R2 2 4 10G
X2 6 4 G TRIAC Ih=0.25m
.MODEL DX D(BV=50 IBV=10u)
.MODEL SW1 VSWITCH (ROFF=1G RON=1 VOFF=0 VON=1)
.MODEL IRLED D (IS=8E-17 N=1.5 RS=2 IKF=7.5E-2 IBV=1.5E-08 NBV=7E1 BV=1.6E1 CJO=4E-11 TT=1E-08 EG=1.46)
.ENDS MOC3063
* Author: Zabb Csaba
* IRED emitting diode optically coupled to a non-zero-crossing silicon bilateral AC switch (triac).
*
.SUBCKT MOC3052 1 2 6 4
* A K MT2 MT1
DL 1 5 IRLED
V1 5 2 0
H1 7 0 V1 1
E1 DEL 0 TABLE {V(7)}
+ (10m, 30)
+ (15m, 19)
+ (20m, 14)
+ (25m, 11)
+ (30m, 10)
+ (35m, 9.0)
+ (40m, 8.0)
+ (45m, 7.0)
+ (50m, 6.5)
+ (55m, 6.1)
E2 11 0 VALUE {IF(V(7)>10m,1,0)}
X1 11 9 DEL 0 VCRES
C1 9 0 1n
E3 8 4 VALUE {IF(V(9)>0.63,1,0)}
G1 G 4 8 4 10m
C2 2 4 800f
R1 2 4 10G
X2 6 4 G TRIAC Ih=0.28m
.MODEL IRLED D (IS=8E-17 N=1.5 RS=2 IKF=7.5E-2 IBV=1.5E-08 NBV=7E1 BV=1.6E1 CJO=4E-11 TT=1E-08 EG=1.46)
.ENDS MOC3052
*
.SUBCKT VCRES 1 2 4 5
+PARAMS: R1=1k
ERES 1 3 VALUE={IF(V(4,5)>0,I(VSENSE)*{R1}*V(4,5),-I(VSENSE)*{R1}*V(4,5))}
VSENSE 3 2 0
.ENDS VCRES
*
.SUBCKT TRIAC MT2 MT1 G params:
+ Vdrm=600
+ Igt=5m
+ Ih=0.28m
+ Rt=3.3
+ Standard=1
S1 MT2 2 3 0 SW1
D1 2 4 DAK
R1 2 4 1k
V1 4 MT1 0
S2 MT2 5 6 0 SW1
D2 7 5 DAK
R2 5 7 1k
V2 MT1 7 0
R3 G MT1 1G
D3 8 G DGK
D4 G 8 DGK
V3 8 MT1 0
R4 G 8 1k
R5 9 3 2.2
C1 0 3 5u
E1 9 0 VALUE {IF(((V(10)>0.5)|(V(13)>0.5)|(V(12)>0.5)),400,0)}
R6 14 6 2.2
C2 0 6 5u
E2 14 0 VALUE {IF(((V(10)>0.5)|(V(11)>0.5)|(V(12)>0.5)),400,0)}
E3 15 0 VALUE {IF((ABS(I(V3)))>(Igt-1u),1,0)}
E4 16 0 VALUE {V(17)*V(15)}
E5 17 0 VALUE {IF(((I(V3)>(Igt-1u))&((V(MT2)-V(MT1))<0)&(Standard==0)),0,1)}
X1 16 10 BUFDELAY
E6 18 0 VALUE {IF(((I(V1))>(Ih/2)),1,0)}
E7 19 0 VALUE {IF(((I(V1))>(Ih/3)),1,0)}
E8 20 0 VALUE {IF((V(18)*V(19)+V(19)*(1-V(18))*(V(21)))>0.5,1,0)}
C3 21 0 1n
R7 20 21 1k
R8 21 0 100MEG
X2 21 13 BUFDELAY
E9 22 0 VALUE {IF(((I(V2))>(Ih/2)),1,0)}
E10 23 0 VALUE {IF(((I(V2))>(Ih/3)),1,0)}
E11 24 0 VALUE {IF((V(22)*V(23)+V(23)*(1-V(22))*(V(25)))>0.5,1,0)}
C4 25 0 1n
R9 24 25 1k
R10 25 0 100MEG
X3 25 11 BUFDELAY
E12 26 0 VALUE {IF((ABS(V(MT2)-V(MT1))>(Vdrm*1.3)),1,0)}
E13 27 0 VALUE {IF((I(V1)>(Vdrm*1.3)/5MEG)|(I(V2)>(Vdrm*1.3)/5MEG),1,0)}
E14 28 0 VALUE {IF((V(26)+(1-V(26))*V(27)*V(29) )>0.5,1,0)}
C5 29 0 1n
R11 28 29 100
R12 29 0 100MEG
X4 29 12 BUFDELAY
.MODEL SW1 VSWITCH (ROFF=1G RON={Rt} VOFF=0 VON=1)
.MODEL DAK D(IS=3E-12 N=1.66 CJO=5p)
.MODEL DGK D(IS=1E-16 CJO=50p Rs=5)
.ENDS TRIAC
*
.SUBCKT BUFDELAY A Y PARAMS:DELAY=1u
E1 Y1 0 VALUE {IF(V(A)>0.5,1,0)}
R1 Y1 Y2 1
C1 Y2 0 {DELAY*1.44}
E2 Y3 0 VALUE {IF(V(Y2)>0.5,1,0)}
R2 Y3 Y 1
C2 Y 0 1n
.ENDS BUFDELAY
*$

1636
library/TubesExtended.lib Normal file
View File

File diff suppressed because it is too large Load Diff

27
library/TubesExtended/2P2.CIR Normal file
View File

@ -0,0 +1,27 @@
* 2P2 Miniature Power Pentode Spice Model
* Author: Zabb Csaba
* Date: 4/12/2021
* The following parameters are not modelled:
* (1) Filament and filament warmup time
* (2) Limiting values
* This model is valid for the following tubes (within max. ratings):
* DL92, 3S4, CV484, VT-174
.SUBCKT 2P2 A S G K
+ PARAMS: MU=5.5 KG1=3916 KP=39.04 KVB=12 VCT=0.0025 EX=1.19 KG2=6384 KNEE=2.88 KVC=2.133
+ KLAM=2.75E-7 KLAMG=6.12E-4 KNEE2=11.76 KNEX=2.85
E1 1 0 VALUE={V(S,K)/KP*LOG(1+EXP((1/MU+(VCT+V(G,K))/SQRT(KVB+V(S,K)*V(S,K)))*KP))}
E2 2 0 VALUE={(PWR(V(1),EX)+PWRS(V(1),EX))}
G4 A K VALUE={IF(V(A,K)>0,V(2)/KG1*ATAN((V(A,K)+KNEX)/KNEE)*TANH(V(A,K)/KNEE2)*(1+KLAMG*V(A,K)),0)}
E4 4 K VALUE={IF(V(A,K)>0,V(A,K),0)}
G2 S K VALUE={V(2)/KG2*(KVC-ATAN((V(4,K)+KNEX)/KNEE)*TANH(V(4,K)/KNEE2))/(1+KLAMG*V(4,K))}
B1 G K I=URAMP(V(G,K)+8.68E-1)^1.5*2.1E-5*V(5)
G3 G K VALUE={3.1E-5*(PWR(V(G,K),1.5)+PWRS(V(G,K),1.5))/1.5} ; G1 diode
E3 3 0 VALUE={IF(V(S,K)>0,1/(1+ABS(V(S,K))/20)^2.5,1)} ;G1 Splash current change
E5 5 0 VALUE={IF(V(A,K)>=3,V(3),1)}
R1 3 0 1G
R2 5 0 1G
C1 G K 4.4p
C2 G A 0.4p
C3 A K 6p
.ENDS
*$

29
library/TubesExtended/2P3.CIR Normal file
View File

@ -0,0 +1,29 @@
* 2P3 Miniature Power Pentode Spice Model
* Author: Zabb Csaba
* Date: 25/02/2023
* The following parameters are not modelled:
* (1) Filament and filament warmup time
* (2) Limiting values
* 2P3 maximum ratings:
* Ua max. 150V
* Ug2 max. 135V
* Ik max. 25mA
* Uf 1.4V
* If 200mA
* The cathode symbol is the negative end of the filament (pin 5, parallel filament).
.SUBCKT 2P3 A S G K
+ PARAMS: MU=5.2 KG1=5535 KP=60.06 KVB=12.96 VCT=0.274 EX=1.4 KG2=6852 KNEE=12 KVC=1.874
+ KLAMG=5.61E-4 KNEE2=21.41 KNEX=26.4
E1 1 0 VALUE={V(S,K)/KP*LOG(1+EXP((1/MU+(VCT+V(G,K))/SQRT(KVB+V(S,K)*V(S,K)))*KP))}
E2 2 0 VALUE={(PWR(V(1),EX)+PWRS(V(1),EX))}
G1 A K VALUE={IF(V(A,K)>0,V(2)/KG1*ATAN((V(A,K)+KNEX)/KNEE)*TANH(V(A,K)/KNEE2)*(1+KLAMG*V(A,K)),0)}
E3 4 K VALUE={IF(V(A,K)>0,V(A,K),0)}
G2 S K VALUE={V(2)/KG2*(KVC-ATAN((V(4,K)+KNEX)/KNEE)*TANH(V(4,K)/KNEE2))/(1+KLAMG*V(4,K))}
B1 G K I=URAMP(V(G,K)+960m)^1.5*5.3E-5
G3 G K VALUE={3.1E-5*(PWR(V(G,K),1.5)+PWRS(V(G,K),1.5))/1.5} ; G1 diode
C1 K G 4.8p
C2 G A 0.36p
C3 K A 4.2p
.ENDS 2P3
*

22
library/TubesExtended/5899.CIR Normal file
View File

@ -0,0 +1,22 @@
* 5899 Special Quality Variable-mu Pentode Spice Model
* Author: Zabb Csaba
* Date: 30/10/2021
* The following parameters are not modelled:
* (1) Filament and filament warmup time
* (2) Limiting values
.SUBCKT 5899 A S G K
+ PARAMS: MU=27.2 KG1=11545.6 KP=35.3 KVB=11.88 VCT=8.438E-5 EX=2.64 KG2=7324 KNEE=7.44 KVC=1.772
+ KLAM=3E-8 KLAMG=2.04E-4 KNEE2=15.64 KNEX=10.8
E1 1 0 VALUE={V(S,K)/KP*LOG(1+EXP((1/MU+(VCT+V(G,K)*V(3))/SQRT(KVB+V(S,K)*V(S,K)))*KP))}
E2 2 0 VALUE={(PWR(V(1),EX)+PWRS(V(1),EX))}
G1 A K VALUE={IF(V(A,K)>0,V(2)/KG1*ATAN((V(A,K)+KNEX)/KNEE)*TANH(V(A,K)/KNEE2)*(1+KLAMG*V(A,K)),0)}
E4 4 K VALUE={IF(V(A,K)>0,V(A,K),0)}
G2 S K VALUE={V(2)/KG2*(KVC-ATAN((V(4,K)+KNEX)/KNEE)*TANH(V(4,K)/KNEE2))/(1+KLAMG*V(4,K))}
G3 G K VALUE={2.16E-3*(PWR(V(G,K),1.5)+PWRS(V(G,K),1.5))/2} ; G1 diode
E3 3 0 VALUE={IF(V(G,K)<0,(1-EXP(10/V(G,K)))^1.3,1)}
B1 G K I=URAMP(V(G,K)+8.56E-1)^1.5*2.6E-4
C1 G K 4p
C2 A K 1.9p
C3 A G 0.03p
.ENDS 5899
*$

38
library/TubesExtended/6F12P.CIR Normal file
View File

@ -0,0 +1,38 @@
* 6F12P Triode-Pentode Spice Model
* Author: Zabb Csaba
* Date: 27/10/2021
* The following parameters are not modelled:
* (1) Filament and filament warmup time
* (2) Limiting values
.SUBCKT 6F12P A S G K
+ PARAMS: MU=66.4 KG1=352 KP=423.45 KVB=5.64 VCT=6.25E-4 EX=1.596 KG2=672 KNEE=1.14 KVC=2.07
+ KLAM=2.5E-8 KLAMG=3.637E-5 KNEE2=14.56 KNEX=2.1
E1 1 0 VALUE={V(S,K)/KP*LOG(1+EXP((1/MU+(VCT+V(G,K))/SQRT(KVB+V(S,K)*V(S,K)))*KP))}
E2 2 0 VALUE={(PWR(V(1),EX)+PWRS(V(1),EX))}
G4 A K VALUE={IF(V(A,K)>0,V(2)/KG1*ATAN((V(A,K)+KNEX)/KNEE)*TANH(V(A,K)/KNEE2)*(1+KLAMG*V(A,K)),0)}
E4 4 K VALUE={IF(V(A,K)>0,V(A,K),0)}
G2 S K VALUE={V(2)/KG2*(KVC-ATAN((V(4,K)+KNEX)/KNEE)*TANH(V(4,K)/KNEE2))/(1+KLAMG*V(4,K))}
G3 G K VALUE={2.1E-2*(PWR(V(G,K),1.5)+PWRS(V(G,K),1.5))/2} ; G1 diode
B1 G K I=URAMP(V(G,K)+1.045)^1.5*3.2E-4*V(3)
B2 G K I=URAMP(V(G,K)+1.045)^1.5*9.5E-5
E3 3 0 VALUE={IF(V(S,K)>0,1/(1+ABS(V(S,K))/20)^1.8,1)} ;G1 Splash current change
R1 3 0 1G
C1 K G 6.6p
C2 G A 0.02p
C3 K A 1.9p
.ENDS
*$
.SUBCKT 6F12PT A G K
+PARAMS: MU=101 KG1=161.7 KP=691.2 KVB=69.96 VCT=0.1786 EX=1.44
E1 1 0 VALUE={V(A,K)/KP*LOG(1+EXP(KP*(1/MU+(VCT+V(G,K))/SQRT(KVB+V(A,K)*V(A,K)))))}
G1 A K VALUE={(PWR(V(1),EX)+PWRS(V(1),EX))/KG1}
G3 G K VALUE={3.5E-2*(PWR(V(G,K),1.5)+PWRS(V(G,K),1.5))/2} ; G1 diode
B1 G K I=URAMP(V(G,K)+1.05)^1.5*4.6E-4*V(3)
B2 G K I=URAMP(V(G,K)+1.05)^1.5*7E-5
E3 3 0 VALUE={IF(V(A,K)>0,1/(1+ABS(V(A,K))/20)^2,1)} ;G1 Splash current change
R1 3 0 1G
C1 G K 2.1p
C2 A K 0.26p
C3 G A 1.6p
.ENDS
*$

25
library/TubesExtended/6K1J.CIR Normal file
View File

@ -0,0 +1,25 @@
* 6K1J Variable-mu VHF Pentode Spice Model
* Author: Zabb Csaba
* Date: 6/11/2021
* The following parameters are not modelled:
* (1) Filament and filament warmup time
* (2) Limiting values
* This model is valid for the following tubes (within max. ratings):
* RCA 956, VT-238, E2F
.SUBCKT 6K1J A S G K
+ PARAMS: MU=19.2 KG1=95744 KP=12.95 KVB=5.76 VCT=0.0575 EX=2.828 KG2=120960 KNEE=14.4 KVC=2.339
+ KLAM=2.5E-8 KLAMG=7.8E-5 KNEE2=13.39 KNEX=11.1
E1 1 0 VALUE={V(S,K)/KP*LOG(1+EXP((1/MU+(VCT+V(G,K)*V(3))/SQRT(KVB+V(S,K)*V(S,K)))*KP))}
E3 3 0 VALUE={ATAN(V(G,K)/19+1)/2.7+0.5}
E2 2 0 VALUE={(PWR(V(1),EX)+PWRS(V(1),EX))}
G1 A K VALUE={IF(V(A,K)>0,0.831*V(2)/KG1*ATAN((V(A,K)+KNEX)/KNEE)*TANH(V(A,K)/KNEE2)*(1+KLAMG*V(A,K)),0)}
E4 4 K VALUE={IF(V(A,K)>0,V(A,K),0)}
G2 S K VALUE={0.822*V(2)/KG2*(KVC-ATAN((V(4,K)+KNEX)/KNEE)*TANH(V(4,K)/KNEE2))/(1+KLAMG*V(4,K))}
B1 G K I=URAMP(V(G,K)+1.15)^1.5*2.6E-4*V(5)
E5 5 0 VALUE={IF(V(S,K)>0,1/(1+ABS(V(S,K))/20)^1.3,1)} ;G1 Splash current change
R1 5 0 1G
C1 G K 3.4p
C2 A K 3p
C3 G A 0.007p
.ENDS
*$

25
library/TubesExtended/EF183.CIR Normal file
View File

@ -0,0 +1,25 @@
* EF183 Variable-mu Pentode Spice Model
* Author: Zabb Csaba
* Date: 26/10/2021
* The following parameters are not modelled:
* (1) Filament and filament warmup time
* (2) Limiting values
.SUBCKT EF183 A S G K
+ PARAMS: MU=45.58 KG1=126.5 KP=141.9 KVB=12 VCT=6.25E-4 EX=1.008 KG2=258 KNEE=7.92 KVC=2.82
+ KLAM=2E-7 KLAMG=9.9E-5 KNEE2=7.963 KNEX=2.756
E1 1 0 VALUE={V(S,K)/KP*LOG(1+EXP((1/MU+(VCT+V(G,K)*V(3))/SQRT(KVB+V(S,K)*V(S,K)))*KP))}
E2 2 0 VALUE={(PWR(V(1),EX)+PWRS(V(1),EX))}
G1 A K VALUE={IF(V(A,K)>0,V(2)/KG1*ATAN((V(A,K)+KNEX)/KNEE)*TANH(V(A,K)/KNEE2)*(1+KLAMG*V(A,K)),0)}
E4 4 K VALUE={IF(V(A,K)>0,V(A,K),0)}
G2 S K VALUE={V(2)/KG2*(KVC-ATAN((V(4,K)+KNEX)/KNEE)*TANH(V(4,K)/KNEE2))/(1+KLAMG*V(4,K))}
G3 G K VALUE={3.16E-2*(PWR(V(G,K),1.5)+PWRS(V(G,K),1.5))/2} ; G1 diode
E3 3 0 VALUE={IF(V(G,K)<0,(1-EXP(14/V(G,K)))^1.3,1)}
B1 G K I=URAMP(V(G,K)+1.015)^1.5*5.1E-4*V(6)
B2 G K I=URAMP(V(G,K)+1.015)^1.5*2E-4
E5 5 0 VALUE={IF(V(S,K)>0,1/(1+ABS(V(S,K))/20)^2,1)} ;G1 Splash current change
E6 6 0 VALUE={IF(V(A,K)>=15,V(5),1)}
C1 G K 9p
C2 A K 3p
C3 A G 0.005p
.ENDS EF183
*$

32
library/TubesExtended/EF184.cir Normal file
View File

@ -0,0 +1,32 @@
* EF184 Pentode Spice Model
* Copyright 2003--2006 by Ayumi Nakabayashi, All rights reserved.
* Version 3.01, Generated on Wed Mar 22 17:19:41 2006
* -Ig1 splash current modified by Zabb Csaba 21/10/2021
.SUBCKT EF184 A G2 G1 K
BGG GG 0 V=V(G1,K)+0.40321166
BEP EP 0 V=URAMP(V(A,K))+1e-10
BEG EG 0 V=URAMP(V(G1,K))+1e-10
BEG2 EG2 0 V=URAMP(V(G2,K))+1e-10
BM1 M1 0 V=(0.0054275937*(URAMP(V(EG2)-1e-10)+1e-10))^-0.61801526
BM2 M2 0 V=(0.7082102*(URAMP(V(GG)+V(EG2)/53.760436)+1e-10))^2.1180153
BP P 0 V=0.019963362*(URAMP(V(GG)+V(EG2)/75.910283)+1e-10)^1.5
BIK IK 0 V=U(V(GG))*V(P)+(1-U(V(GG)))*0.011540933*V(M1)*V(M2)
BIG IG 0 V=0.0099816812*V(EG)^1.5*(V(EG)/(V(EP)+V(EG))*1.2+0.4)
BIK2 IK2 0 V=V(IK,IG)*(1-0.4*(EXP(-V(EP)/V(EG2)*15)-EXP(-15)))
BIG2T IG2T 0 V=V(IK2)*(0.71666698*(1-V(EP)/(V(EP)+10))^1.5+0.28333302)
BIK3 IK3 0 V=V(IK2)*(V(EP)+5500)/(V(EG2)+5500)
BIK4 IK4 0 V=V(IK3)-URAMP(V(IK3)-(0.010377457*(V(EP)+URAMP(V(EG2,EP)))^1.5))
BIP IP 0 V=URAMP(V(IK4,IG2T)-URAMP(V(IK4,IG2T)-(0.010377457*V(EP)^1.5)))
BIAK A K I=V(IP)+1e-10*V(A,K)
BIG2 G2 K I=URAMP(V(IK4,IP))
B1 G1 K I=URAMP(V(G1,K)+1.3)^1.5*4.3E-4*V(3)
G3 G1 K VALUE={9.516E-3*(PWR(V(G1,K),1.5)+PWRS(V(G1,K),1.5))/2} ; G1 diode
E3 3 0 VALUE={IF(V(G2,K)>0,1/(1+ABS(V(G2,K))/20)^1.3,1)} ;G1 Splash current change
E5 5 0 VALUE={IF(V(A,K)>=8,V(3),1)}
R1 3 0 1G
R2 5 0 1G
CGA G1 A 0.005p
CGK G1 K 7.2p
C12 G1 G2 2.8p
CAK A K 3p
.ENDS

1280
library/TubesExtended/tube.lib Normal file
View File

File diff suppressed because it is too large Load Diff

3
library/qucs.blacklist
View File

@ -15,3 +15,6 @@ MixerIC.lib
SPICE_TLine.lib
Digital_AUX.lib
Digital_XSPICE.lib
TubesExtended.lib
Neon.lib
Optocoupler.lib