These are vacuum tube spice 3f4 models I have hacked together. With comments indicating which parameters do mostly what when I'm trying to approximate curves on data sheets. No guarentees on accurcay. Think these are fairly close, but don't commit to production without building prototypes first! These are 3f4 style, made using "Circuit Maker". Cut and paste using a text editor and your spice software. In no particular order: ********************** *tube rectifier .SUBCKT X38HK7R A K b1 A K i=5.3e-3*uramp(V(A,K))^ 1.51 Cpk A K 11P .ends X38HK7R ************************* *Vacuum Tube pentode (assumes K tied to g3) (radio freq. remote cutoff) .SUBCKT X12BA6 A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/8) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the V/G,K)/# determines grid line spacing *the number at the right end determines slope of grid lines (plate resistance) *control grid, the square root approximates remote cutoff Bgsg gsg 0 V=URAMP(V(S,K)/4.0-(sqrt(-(V(G,K))^1.0))*7+V(A,K)/9000) *screen grid Bgss gss 0 V=URAMP(V(S,K)/4.1-(sqrt(-(V(G,K))^1.7))/0.24+V(A,K)/9000) *the exponent sets the linearity of grid line spacing, and big *impact on peak plate currrent. *control grid Bgs2 gs2 0 V=(V(gsg))^1.45 *screen grid (sharp cutoff) Bgs3 gs3 0 V=V(gss)^1.4 Bcath cc 0 V=V(gs2)*V(at)+V(gs3)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=0.091E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs3)*(1.1-V(at)) Bs S K I=0.45E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 5.5p Cak A K 5p Cg1a G A 0.0035p .ENDS X12BA6 *************************** *Vacuum Tube pentode (assumes K tied to g3) (sharp cutoff) .SUBCKT X6AU6 A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/8) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines (plate resistance) Bgs gs 0 V=URAMP(V(S,K)/44.8+V(G,K)*0.75+V(A,K)/9000) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.5 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=3.085E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=0.84E-2*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 5.5p Cak A K 5p Cg1a G A 0.0035p .ENDS X6AU6 ************************************ *Vacuum Tube pentode (assumes K tied to g3) (radio freq. remote cutoff, 1 of 2 sections, both identical) .SUBCKT X11AR11 A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/8) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the V/G,K)/# determines grid line spacing *the number at the right end determines slope of grid lines (plate resistance) *control grid, the square root approximates remote cutoff Bgsg gsg 0 V=URAMP(V(S,K)/4.0+((V(G,K))/(0.9-(V(G,K)*0.3)))*6.6+V(A,K)/9000) *screen grid Bgss gss 0 V=URAMP(V(S,K)/4.1-((-(V(G,K))/0.44))/0.24+V(A,K)/9000) *the exponent sets the linearity of grid line spacing, and big *impact on peak plate currrent. *control grid Bgs2 gs2 0 V=(V(gsg))^3.70 *screen grid (sharp cutoff) Bgs3 gs3 0 V=V(gss)^1.4 Bcath cc 0 V=V(gs2)*V(at)+V(gs3)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=URAMP((0.066E-6*V(cc))-0.001) * * Calculate screen current * Bscrn sc 0 V=V(gs3)*(1.1-V(at)) Bs S K I=0.27E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 5.5p Cak A K 5p Cg1a G A 0.0035p .ENDS X11AR11 ******************************** *Vacuum Tube pentode (assumes K tied to g3) (radio freq. remote cutoff, section 1) .SUBCKT X11BQ11r A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/8) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the V/G,K)/# determines grid line spacing *the number at the right end determines slope of grid lines (plate resistance) *control grid, the square root approximates remote cutoff Bgsg gsg 0 V=URAMP(V(S,K)/4.0+((V(G,K))/(0.9-(V(G,K)*0.3)))*6.6+V(A,K)/9000) *screen grid Bgss gss 0 V=URAMP(V(S,K)/4.1-((-(V(G,K))/0.44))/0.24+V(A,K)/9000) *the exponent sets the linearity of grid line spacing, and big *impact on peak plate currrent. *control grid Bgs2 gs2 0 V=(V(gsg))^3.70 *screen grid (sharp cutoff) Bgs3 gs3 0 V=V(gss)^1.4 Bcath cc 0 V=V(gs2)*V(at)+V(gs3)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=URAMP((0.066E-6*V(cc))-0.001) * * Calculate screen current * Bscrn sc 0 V=V(gs3)*(1.1-V(at)) Bs S K I=0.27E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 2.8p Cak A K 10p Cg1a G A 0.022p .ENDS X11BQ11r ******************************* *Vacuum Tube pentode (assumes K tied to g3) (sharp cutoff section 2) .SUBCKT X16BQ11s A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/8) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines (plate resistance) Bgs gs 0 V=URAMP(V(S,K)/44.8+V(G,K)*1.13+V(A,K)/9000) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.5 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=5.085E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=1.2E-2*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 11p Cak A K 2.8p Cg1a G A 0.024p .ENDS X16BQ11s *************************** *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X38HK7P A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/12) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines (plate resistance) Bgs gs 0 V=URAMP(V(S,K)/3.27+V(G,K)+V(A,K)/90) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.58 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=2.65E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=0.9E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 17p Cak A K 6.5p Cg1a G A 0.6p .ENDS X38HK7P ************************ *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X117L7P A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/12) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines Bgs gs 0 V=URAMP(V(S,K)/6.2+V(G,K)+V(A,K)/120) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.58 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=1.15E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=0.6E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances SWAGs * Cg1 G K 13p Cak A K 8.5p Cg1a G A 0.6p .ENDS X117L7P ************************ *tube rectifier .SUBCKT X117L7R A K b1 A K i=2.8e-3*uramp(V(A,K))^ 1.44 .ends X117L7R ****************************** *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X50C5 A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/12) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines Bgs gs 0 V=URAMP(V(S,K)/6.2+V(G,K)+V(A,K)/90) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.58 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=1.35E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=0.6E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 13p Cak A K 8.5p Cg1a G A 0.6p .ENDS X50C5 ********************** *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X50L6 A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/12) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines Bgs gs 0 V=URAMP(V(S,K)/6.2+V(G,K)+V(A,K)/90) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.58 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=1.35E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=0.6E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 15p Cak A K 9.5p Cg1a G A 0.6p .ENDS X50L6 *********************** *tube rectifier (heater not done) .SUBCKT X35W4 A K b1 A K i=3.4e-3*uramp(V(A,K))^ 1.44 Cpk A K 2.4P .ends X35W4 ************************* *tube rectifier .SUBCKT X35Z5 A K b1 A K i=3.4e-3*uramp(V(A,K))^ 1.44 Cpk A K 2.4P .ends X35Z5 ***************************** *tube diode detector .SUBCKT X6AL5 A K b1 A K i=2.2e-3*uramp(V(A,K))^ 1.44 Cpk A K 2.46P .ends X6AL5 ******************************* *tube diode detector .SUBCKT X6AL5_4vh A K *reduced heater voltage, crude limited plate current above 8V b1 A K i=2.4e-3*(uramp(V(A,K))-uramp(V(A,K)-8))^ 1.24 Cpk A K 2.46P .ends X6AL5_4vh ******************************** *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X5902 A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/12) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines Bgs gs 0 V=URAMP(V(S,K)*0.19+V(G,K)+V(A,K)/40) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.58 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=0.7E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=0.4E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 7.5p Cak A K 8.5p Cg1a G A 0.2p .ENDS X5902 ********************************** *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X6AV5GT A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/12) Bgsg gsg 0 V=URAMP(V(S,K)*0.12-(sqrt(-V(G,K)^1.9)*0.60)+V(A,K)/140) Bgss gss 0 V=URAMP(V(S,K)*0.12-(sqrt(-V(G,K)^1.9)*1)+V(A,K)/140) Bgsg2 gsg2 0 V=V(gsg)^1.8 Bgss2 gss2 0 V=V(gss)^1.8 Bcath cc 0 V=V(gsg2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=1.25E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gss2)*(1.1-V(at)) Bs S K I=0.46E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 14p Cak A K 7p Cg1a G A 0.7p .ENDS X6AV5GT ***************************** * 6B10 diodes .SUBCKT X6B10d a1 k a2 Bout1 ap1 k i = ((uramp(v(ap1, k)+0.466))^1.28)*0.00265 Bout2 ap2 k i = ((uramp(v(ap2, k)+0.466))^1.28)*0.00265 D1 a1 ap1 dx D2 a2 ap2 dx C1 a1 k 1.9E-12 C2 k a2 1.9E-12 C3 a1 a2 0.7E-12 .model dx D(is=1.0e-12 rs=1.0) .ends X6B10d **************************** *Vacuum Tube Triode 6B10 triode .SUBCKT X6B10t 1 3 4 B1 2 4 I=((URAMP((V(2,4)/17)+V(3,4)*1.1))^1.44)/1000 C1 3 4 1.8E-12 C2 3 1 1.5E-12 C3 1 4 0.4E-12 R1 3 5 10E+3 D1 1 2 DX D2 4 2 DX2 D3 5 4 DX .MODEL DX D(IS=1.0E-12 RS=1.0) .MODEL DX2 D(IS=1.0E-9 RS=1.0) .ENDS X6B10t ******************************* *Vacuum Tube Triode .SUBCKT X12AC10 A G K * ANODE MODEL BLIM LI 0 V=(URAMP((V(A)-V(K))))* 0.0037 BGG GG 0 V=((V(G)-V(K))*1.05)--0.5 BRP1 RP1 0 V=URAMP(-V(GG)* 0.09869 ) BRP2 RP2 0 V=V(RP1)-URAMP(V(RP1)-0.999) BRPF RP 0 V=(1-V(RP2)^ 1 )+URAMP(V(GG))* 0.1 BGR GR 0 V=URAMP(V(GG))-URAMP(-(V(GG)*(1+V(GG)* 0.012937 ))) BEM EM 0 V=URAMP(V(A)-V(K)+V(GR)* 47.093 ) BEP EP 0 V=(V(EM)^ 1.43 )*V(RP)* 0.00000863 BEL1 EL1 0 V=URAMP(V(EP)) BEL EL 0 V=V(EL1)-URAMP(V(EL1)-V(LI)) BLD LD 0 V=URAMP(V(EP)-V(LI)) BAK A K I=V(EL) * GRID MODEL BGF GF 0 V=(URAMP(V(G)-V(K)--0.5 )^1.5)* 0.00012 BG G K I=V(GF)+V(LD) * CAPS CAK A K 0.00000000000036 CGK G K 0.0000000000025 CGA G A 0.0000000000012 .ENDS X12AC10 ************************** * a space charge pentode, usual B+ of 12.6V *Vacuum Tube pentode (assumes K tied to g3) (radio freq. remote cutoff, space charge) .SUBCKT X12AC6 A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/1.5) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the V/G,K)/# determines grid line spacing *the number at the right end determines slope of grid lines (plate resistance) Bgsg gsg 0 V=URAMP(V(S,K)/4.0-(sqrt(sqrt((-(V(G,K)))*3)^1.7))+V(A,K)/9000) *screen grid Bgss gss 0 V=URAMP(V(S,K)/4.1-((-(V(G,K))))*1.5+V(A,K)/9000) *the exponent sets the linearity of grid line spacing, and big *impact on peak plate currrent. *control grid Bgs2 gs2 0 V=(V(gsg))^1.4 *screen grid (sharp cutoff) Bgs3 gs3 0 V=V(gss)^1.4 Bcath cc 0 V=V(gs2)*V(at)+V(gs3)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=0.138E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs3)*(1.1-V(at)) Bs S K I=0.45E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 4.3p Cak A K 5p Cg1a G A 0.005p .ENDS X12AC6 ******************************* *Vacuum Tube Triode 6111 triode .SUBCKT X6111 1 3 4 B1 2 4 I=((URAMP((V(2,4)/14)+V(3,4)*1.6))^1.48)/1000 C1 3 4 2.1E-12 C2 3 1 1.3E-12 C3 1 4 1.0E-12 R1 3 5 10E+3 D1 1 2 DX D2 4 2 DX2 D3 5 4 DX .MODEL DX D(IS=1.0E-12 RS=1.0) .MODEL DX2 D(IS=1.0E-9 RS=1.0) .ENDS X6111 ********************************* *Vacuum Tube pentagrid (sharp cutoff) .SUBCKT X6CS6close G 3 S K A *model written to use op-amp symbol +in=g1,-in=g3, +supply=g2g4, -supply=kg5, out=plate *work in progress, not final * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/8) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines (plate resistance) Bgs gs 0 V=URAMP(V(S,K)*1.6164+V(G,K)*24.75+V(A,K)/9000) Bgss gss 0 V=URAMP(V(S,K)*0.0005+V(3,K)*0.0075+V(A,K)/9000) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.5 Bgs3 gs3 0 V=V(gss)^1.5 Bcath cc 0 V=V(gs2)*V(at) Ban an 0 V=V(gs2)*V(at)*(V(gs3)) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=0.345E-3*V(an) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.0-V(at)) Bs S K I=(URAMP(0.64E-3*V(sc)-(1.45E-3*(V(an)))))*0.29*(V(at)) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 5.5p Cak A K 7.5p Cg3 3 S 7p Cg1g3 G 3 0.36p Cg1a G A 0.07p .ENDS X6CS6close ***************************** *Vacuum Tube pentagrid (g3 remote cutoff) .SUBCKT X6BE6close G 3 S K A *model written to use op-amp symbol +in=g1,-in=g3, +supply=g2g4, -supply=kg5, out=plate *work in progress, not final * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/8) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines (plate resistance) Bgs gs 0 V=URAMP(V(S,K)*1.6164+V(G,K)*24.75+V(A,K)/9000) Bgss gss 0 V=URAMP(V(S,K)*0.0005+V(3,K)*0.0045+V(A,K)/9000) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.5 Bgs3 gs3 0 V=V(gss)^2.7 Bcath cc 0 V=V(gs2)*V(at) Ban an 0 V=V(gs2)*V(at)*(V(gs3)) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=0.345E-2*V(an) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.0-V(at)) Bs S K I=(URAMP(2.34E-4*V(sc)-(0.95E-2*(V(an)))))*0.29*(V(at)) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 3p Cak A K 8p Cg3 3 S 7p Cg1g3 G 3 0.15p Cg1a G A 0.1p .ENDS X6BE6close *************************************** *Vacuum Tube Triode (Audio freq.) .SUBCKT X8CG7 1 3 4 B1 2 4 I=((URAMP((V(2,4)/20)+V(3,4)))^1.4)/801 C1 3 4 3.7E-12 C2 3 1 2.4E-12 C3 1 4 0.3E-12 R1 3 5 10E+3 D1 1 2 DX D2 4 2 DX2 D3 5 4 DX .MODEL DX D(IS=1.0E-12 RS=1.0) .MODEL DX2 D(IS=1.0E-9 RS=1.0) .ENDS X8CG7 ***************************************** *Vacuum Tube Triode 6111 triode .SUBCKT X6112 1 3 4 B1 2 4 I=((URAMP((V(2,4)/40)+V(3,4)*1.77))^1.4)/900 C1 3 4 1.5E-12 C2 3 1 2E-12 C3 1 4 0.3E-12 R1 3 5 10E+3 D1 1 2 DX D2 4 2 DX2 D3 5 4 DX .MODEL DX D(IS=1.0E-12 RS=1.0) .MODEL DX2 D(IS=1.0E-9 RS=1.0) .ENDS X6112 ******************************************** *Vacuum Tube Triode (vert osc)agk .SUBCKT X13EM7u1 1 3 4 B1 2 4 I=((URAMP((V(2,4)/55)+V(3,4)))^1.5)/1050 C1 3 4 2.2E-12 C2 3 1 4.8E-12 C3 1 4 0.6E-12 R1 3 5 10E+3 D1 1 2 DX D2 4 2 DX2 D3 5 4 DX .MODEL DX D(IS=1.0E-12 RS=1.0) .MODEL DX2 D(IS=1.0E-9 RS=1.0) .ENDS X13EM7u1 ********************************************** *Vacuum Tube Triode (vert output) .SUBCKT X13EM7u2 a g k Bout ap k i = ((uramp((v(ap, k)/3.8)+v(g, k)*1.2))^1.5)/(655-(v(g, k)*20)) Cgk g k 7e-12 Cga g a 10e-12 Cak a k 1.8e-12 Rleak g gp 10e+3 D1 a ap dx D2 k ap dx2 D3 pg k dx .model dx D(is=1.0e-12 rs=1.0) .model dx2 D(is=1.0e-9 rs=1.0) .ends X13EM7u2 ********************************************* *Vacuum Tube nuvistor .SUBCKT X6CW4a A G K * ANODE MODEL BLIM LI 0 V=(URAMP((V(A)-V(K))))* 0.0037 BGG GG 0 V=((V(G)-V(K))*1.05)--0.14 BRP1 RP1 0 V=URAMP(-V(GG)* 0.09869 ) BRP2 RP2 0 V=V(RP1)-URAMP(V(RP1)-0.999) BRPF RP 0 V=(1-V(RP2)^ 1 )+URAMP(V(GG))* 0.1 BGR GR 0 V=URAMP(V(GG))-URAMP(-(V(GG)*(1+V(GG)* 0.012937 ))) BEM EM 0 V=URAMP(V(A)-V(K)+V(GR)* 50.093 ) BEP EP 0 V=(V(EM)^ 1.53 )*V(RP)* 0.00001563 BEL1 EL1 0 V=URAMP(V(EP)) BEL EL 0 V=V(EL1)-URAMP(V(EL1)-V(LI)) BLD LD 0 V=URAMP(V(EP)-V(LI)) BAK A K I=V(EL) * GRID MODEL BGF GF 0 V=(URAMP(V(G)-V(K)--0.5 )^1.5)* 0.00012 BG G K I=V(GF)+V(LD) * CAPS CAK A K 0.00000000000018 CGK G K 0.0000000000043 CGA G A 0.00000000000092 .ENDS X6CW4a ************************************* *Vacuum Tube Triode (Audio freq.) pkg:VT-9 (A:1,2,3)(B:6,7,8) .SUBCKT X12Av7A A G K * ANODE MODEL BLIM LI 0 V=(URAMP(V(A)-V(K))^ 1 )* 0.0037 BGG GG 0 V=V(G)-V(K)--0.5 *below is variation of grid slopes BRP1 RP1 0 V=URAMP(-V(GG)* 0.07069 ) BRP2 RP2 0 V=V(RP1)-URAMP(V(RP1)-0.999) BRPF RP 0 V=(1-V(RP2)^ 1 )+URAMP(V(GG))* 0.1 BGR GR 0 V=URAMP(V(GG))-URAMP(-(V(GG)*(1+V(GG)* 0.012937 ))) BEM EM 0 V=URAMP(V(A)-V(K)+V(GR)* 28.093 ) BEP EP 0 V=(V(EM)^ 1.4 )*V(RP)* 0.00001963 BEL1 EL1 0 V=URAMP(V(EP)) BEL EL 0 V=V(EL1)-URAMP(V(EL1)-V(LI)) BLD LD 0 V=URAMP(V(EP)-V(LI)) BAK A K I=V(EL) * GRID MODEL BGF GF 0 V=(URAMP(V(G)-V(K)--0.5 )^1.5)* 0.00012 BG G K I=V(GF)+V(LD) * CAPS CAK A K 0.00000000000024 CGK G K 0.00000000000323 CGA G A 0.0000000000019 .ENDS X12Av7A *********************************** *Vacuum Tube Triode (Audio freq.) pkg:VT-9 (A:1,2,3)(B:6,7,8) .SUBCKT X12Ay7A A G K * ANODE MODEL BLIM LI 0 V=(URAMP(V(A)-V(K))^ 1 )* 0.0037 BGG GG 0 V=V(G)-V(K)--0.5 *below is variation of grid slopes BRP1 RP1 0 V=URAMP(-V(GG)* 0.009869 ) BRP2 RP2 0 V=V(RP1)-URAMP(V(RP1)-0.999) BRPF RP 0 V=(1-V(RP2)^ 1 )+URAMP(V(GG))* 0.1 BGR GR 0 V=URAMP(V(GG))-URAMP(-(V(GG)*(1+V(GG)* 0.012937 ))) *below is grid sensitivity BEM EM 0 V=URAMP(V(A)-V(K)+V(GR)* 45.093 ) *below ^is grid linearity,*plate current at 0Vg BEP EP 0 V=(V(EM)^ 1.3 )*V(RP)* 0.000007503 BEL1 EL1 0 V=URAMP(V(EP)) BEL EL 0 V=V(EL1)-URAMP(V(EL1)-V(LI)) BLD LD 0 V=URAMP(V(EP)-V(LI)) BAK A K I=V(EL) * GRID MODEL BGF GF 0 V=(URAMP(V(G)-V(K)--0.5 )^1.5)* 0.00012 BG G K I=V(GF)+V(LD) * CAPS CAK A K 0.0000000000006 CGK G K 0.0000000000013 CGA G A 0.0000000000013 .ENDS X12Ay7A ******************************************************** *Vacuum Tube Triode .SUBCKT X12AT6t A G K * ANODE MODEL aside from capacitences same as 5751 BLIM LI 0 V=(URAMP(V(A)-V(K))^ 1.5 )* 0.000016 BGG GG 0 V=V(G)-V(K)--0.53056 BRP1 RP1 0 V=URAMP(-V(GG)* 0.075772 ) BRP2 RP2 0 V=V(RP1)-URAMP(V(RP1)-0.999) BRPF RP 0 V=(1-V(RP2)^ 1 )+URAMP(V(GG))* 0.131285 BGR GR 0 V=URAMP(V(GG))-URAMP(-(V(GG)*(1+V(GG)*-0.0111 ))) BEM EM 0 V=URAMP(V(A)-V(K)+V(GR)* 62.94685 ) BEP EP 0 V=(V(EM)^ 1.5 )*V(RP)* 0.00000142 BEL1 EL1 0 V=URAMP(V(EP)) BEL EL 0 V=V(EL1)-URAMP(V(EL1)-V(LI)) BLD LD 0 V=URAMP(V(EP)-V(LI)) BAK A K I=V(EL) * GRID MODEL BGF GF 0 V=(URAMP(V(G)-V(K)--0.2 )^1.5)* 0.00001 BG G K I=V(GF)+V(LD) * CAPS CAK A K 0.0000000000008 CGK G K 0.0000000000022 CGA G A 0.000000000002 .ENDS X12AT6t *********************************************************** *12Av6 triode aside from capacence same as 12AX7 .SUBCKT X12Av6t A G K * * Calculate contribution to anode current * Bca ca 0 V=45+V(A,K)+95.43*V(G,K) * * Reduction at low va * Bre re 0 V=URAMP(V(A,K)/5)-URAMP(V(A,K)/5-1) Baa A K I=V(re)*1.147E-6*(URAMP(V(ca))^1.5) * * Grid current * Bgg G K I=5E-6*(URAMP(V(G,K)+0.2)^1.5) * * Capacitances * Cgk G K 2.2P Cgp G A 2P Cpk A K 0.8P .ENDS X12Av6t ************************************************************* *Vacuum Tube Triode (Audio freq.) pkg:VT-9 (A:1,2,3)(B:6,7,8) .SUBCKT X12Az7A A G K * ANODE MODEL same as 12at7 except for capicentences BLIM LI 0 V=(URAMP(V(A)-V(K))^ 1 )* 0.0037 BGG GG 0 V=V(G)-V(K)--0.5 BRP1 RP1 0 V=URAMP(-V(GG)* 0.09869 ) BRP2 RP2 0 V=V(RP1)-URAMP(V(RP1)-0.999) BRPF RP 0 V=(1-V(RP2)^ 1 )+URAMP(V(GG))* 0.1 BGR GR 0 V=URAMP(V(GG))-URAMP(-(V(GG)*(1+V(GG)* 0.012937 ))) BEM EM 0 V=URAMP(V(A)-V(K)+V(GR)* 45.093 ) BEP EP 0 V=(V(EM)^ 1.4 )*V(RP)* 0.00000863 BEL1 EL1 0 V=URAMP(V(EP)) BEL EL 0 V=V(EL1)-URAMP(V(EL1)-V(LI)) BLD LD 0 V=URAMP(V(EP)-V(LI)) BAK A K I=V(EL) * GRID MODEL BGF GF 0 V=(URAMP(V(G)-V(K)--0.5 )^1.5)* 0.00012 BG G K I=V(GF)+V(LD) * CAPS CAK A K 0.0000000000004 CGK G K 0.0000000000026 CGA G A 0.000000000002 .ENDS X12Az7A ************************************************* *Vacuum Tube dual control .SUBCKT X6HZ6 A 3 S G K *model written to use op-amp symbol +in=g1,-in=g3, +supply=g2g4, -supply=kg5, out=plate *work in progress, not final * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/24) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines (plate resistance) Bgs gs 0 V=URAMP((V(S,K)*1.1964+V(G,K)*43.75+V(A,K)*0)) Bgss gss 0 V=URAMP((V(S,K)*0.0005)+(-(URAMP((SQRT(URAMP(V(K,3))^2.7)))/((((SQRT(V(A,K))^1.5)/5)^1)))*0.0405+V(A,K)/9400))*1+((URAMP(V(3,K))/((SQRT(V(A,K))*11)))*1)*0.5 *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.5 Bgs3 gs3 0 V=V(gss)^1.5 Bcath cc 0 V=V(gs2)*(V(at)) Ban an 0 V=V(gs2)*(V(gs3))*(V(at)) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=0.395E-3*V(an) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.0-V(at)*0.9) Bs S K I=(URAMP(0.34E-3*V(sc)-(1.95E-3*(V(an)))))*0.29*(V(at))*0.37 * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 5.5p Cak A K 7.5p Cg3 3 S 5.6p Cg1g3 G 3 0.09p Cg1a G A 0.02p Cg3a 3 A 1.6p .ENDS X6HZ6 ************************************************************** *Vacuum Tube pentode aka ef184 (assumes K tied to g3) .SUBCKT X6EJ7 A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/32) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines (plate resistance) Bgs gs 0 V=URAMP(V(S,K)/42.8+V(G,K)*1.55+V(A,K)/9000) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.5 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=7.985E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=0.20E-2*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 10p Cak A K 3p Cg1a G A 0.0055p .ENDS X6EJ7 *********************************************************** *Vacuum Tube submini pentode (assumes K tied to g3) .SUBCKT X5840 A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/9) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines (plate resistance) Bgs gs 0 V=URAMP(V(S,K)/28.8+V(G,K)*0.75+V(A,K)/4000) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.5 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=2.585E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=0.550E-2*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 3.5p Cak A K 2.9p Cg1a G A 0.0155p .ENDS X5840 ********************************************************* *Vacuum Tube submini 6021 .SUBCKT X6021 A G K * ANODE MODEL BLIM LI 0 V=(URAMP((V(A)-V(K))))* 0.0037 BGG GG 0 V=((V(G)-V(K))*0.61)--0.14 BRP1 RP1 0 V=URAMP(-V(GG)* 0.09869 ) BRP2 RP2 0 V=V(RP1)-URAMP(V(RP1)-0.999) BRPF RP 0 V=(1-V(RP2)^ 1 )+URAMP(V(GG))* 0.1 BGR GR 0 V=URAMP(V(GG))-URAMP(-(V(GG)*(1+V(GG)* 0.012937 ))) BEM EM 0 V=URAMP(V(A)-V(K)+V(GR)* 50.093 ) BEP EP 0 V=(V(EM)^ 1.53 )*V(RP)* 0.00001063 BEL1 EL1 0 V=URAMP(V(EP)) BEL EL 0 V=V(EL1)-URAMP(V(EL1)-V(LI)) BLD LD 0 V=URAMP(V(EP)-V(LI)) BAK A K I=V(EL) * GRID MODEL BGF GF 0 V=(URAMP(V(G)-V(K)--0.5 )^1.4)* 0.00012 BG G K I=V(GF)+V(LD) * CAPS CAK A K 0.00000000000028 CGK G K 0.0000000000007 CGA G A 0.0000000000015 .ENDS X6021 ******************************************************************** *Vacuum Tube Triode .SUBCKT X5703 A G K * ANODE MODEL BLIM LI 0 V=(URAMP(V(A)-V(K))^ 1 )* 0.0037 BGG GG 0 V=V(G)-V(K)- 0 BRP1 RP1 0 V=URAMP(-V(GG)* 0.024778659 ) BRP2 RP2 0 V=V(RP1)-URAMP(V(RP1)-0.999) BRPF RP 0 V=(1-V(RP2)^ 2.040491735 )+URAMP(V(GG))* 0.18 BGR GR 0 V=URAMP(V(GG))-URAMP(-(V(GG)*(1+V(GG)* 0.005857103 ))) BEM EM 0 V=URAMP(V(A)-V(K)+V(GR)* 26.2 ) BEP EP 0 V=(V(EM)^ 1.35 )*V(RP)* 0.0000316 BEL1 EL1 0 V=URAMP(V(EP)) BEL EL 0 V=V(EL1)-URAMP(V(EL1)-V(LI)) BLD LD 0 V=URAMP(V(EP)-V(LI)) BAK A K I=V(EL) * GRID MODEL BGF GF 0 V=(URAMP(V(G)-V(K)- 0 )^1.5)* 0.00012 BG G K I=V(GF)+V(LD) * CAPS CAK A K 0.0000000000008 CGK G K 0.0000000000013 CGA G A 0.0000000000013 .ENDS X5703 *********************************************************** *Vacuum Tube Triode .SUBCKT X5719 A G K * ANODE MODEL BLIM LI 0 V=(URAMP(V(A)-V(K))^ 1.30 )* 0.000016 BGG GG 0 V=V(G)-V(K)--0.43056 *below is variation of grid slopes BRP1 RP1 0 V=URAMP(-V(GG)* 0.095772 ) BRP2 RP2 0 V=V(RP1)-URAMP(V(RP1)-0.999) BRPF RP 0 V=(1-V(RP2)^ 1.0 )+URAMP(V(GG))* 0.111285 BGR GR 0 V=URAMP(V(GG))-URAMP(-(V(GG)*(1+V(GG)*-0.0111 ))) *below is grid sensitivity BEM EM 0 V=URAMP(V(A)-V(K)+V(GR)* 69.94685 ) *below ^is grid linearity,*plate current at 0Vg BEP EP 0 V=(V(EM)^ 1.4 )*V(RP)* 0.00000386 BEL1 EL1 0 V=URAMP(V(EP)) BEL EL 0 V=V(EL1)-URAMP(V(EL1)-V(LI)) BLD LD 0 V=URAMP(V(EP)-V(LI)) BAK A K I=V(EL) * GRID MODEL BGF GF 0 V=(URAMP(V(G)-V(K)--0.2 )^ 1.5)* 0.00001 BG G K I=V(GF)+V(LD) * CAPS CAK A K 0.00000000000045 CGK G K 0.0000000000010 CGA G A 0.0000000000008 .ENDS X5719 ********************************************************* A filament tube, designed to be sharp cutoff with DC on the filament, pin 3 fed by the negative filament, pin 5 the positive filament supply. (The cathode symbol is the negative end of the filament. Filament heating current is not simulated). *Vacuum Tube filament pentode (voltages referenced to negative (pin 3) end of filament) .SUBCKT X5678 A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/9) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines (plate resistance) Bgs gs 0 V=URAMP(V(S,K)/28.8+V(G,K)*0.75+V(A,K)/4000) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.5 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=0.635E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.25-V(at)) Bs S K I=0.04500E-2*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 3.5p Cak A K 2.9p Cg1a G A 0.01p .ENDS X5678 ***************************************************** *Vacuum Tube Triode (Audio freq.) .SUBCKT X6CG7 P G K Cgp G P 2.4p Ci G K 3.7p Co P K 0.3p Bp P K I=(0.000021013613370)*uramp(V(P,K)*ln(1.0+(-0.07065996889)+2.7182818^((4.906641927)+(4.906641927)*((21.00937615)+(-0.08811984935)*V(G,K))*V(G,K)/sqrt((26.83919821)^2+(V(P,K)-(5.377562838))^2)))/(4.906641927))^(1.370968473) .ENDS X6CG7 ********************************************************* Here's a low voltage filament tube (crosses with DF650 and CK6419): *Vacuum Tube filament pentode (voltages referenced to negative (pin 3) end of filament) .SUBCKT XCK538DX A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/1) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines (plate resistance) Bgs gs 0 V=URAMP(V(S,K)/24.8+V(G,K)*0.35+V(A,K)/4000) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.84 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=3.335E-4*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.25-V(at)) Bs S K I=0.04000E-2*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 2.4p Cak A K 1.75p Cg1a G A 0.08p .ENDS XCK538DX ********************************************************************************** *********************************************************************** *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X34DG5A A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/6) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines Bgs gs 0 V=URAMP(V(S,K)*0.19+V(G,K)*1.38+V(A,K)/60) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^(1.59) Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=0.72E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=0.4E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^(1.5))*50E-6 * * Capacitances * Cg1 G K 6p Cak A K 12p Cg1a G A 0.6p .ENDS X34DG5A *************************************************************************** *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X32ET5A A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/6) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines Bgs gs 0 V=URAMP(V(S,K)*0.19+V(G,K)*1.33+V(A,K)/90) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^(1.55) Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=0.76E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=0.4E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^(1.5))*50E-6 * * Capacitances * Cg1 G K 6p Cak A K 12p Cg1a G A 0.6p .ENDS X32ET5A ********************************************************************************** *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X5AQ5A A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/6) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines Bgs gs 0 V=URAMP(V(S,K)*0.19+V(G,K)*1.73+V(A,K)/130) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^(1.5) Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=0.32E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=0.55E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^(1.5))*50E-6 * * Capacitances * Cg1 G K 8p Cak A K 8p Cg1a G A 0.4p .ENDS X5AQ5A *********************************************************************************** *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X35C5 A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/13) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines Bgs gs 0 V=URAMP(V(S,K)/6.2+(V(G,K)*1)+V(A,K)/270) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.58 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=1.150E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=0.23E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 12p Cak A K 9p Cg1a G A 0.6p .ENDS X35C5 ************************************************************************************ *Vacuum Tube Tetrode (Audio freq.) .SUBCKT XSV83 A S G K * * * Calculate contribution to cathode current * Bat at 0 V=0.636*ATAN(V(A,K)/20) Bme me 0 V=(URAMP(V(A,K))^(1.5))/1400 Bgs gs 0 V=URAMP(V(A,K)/1400+(V(S,K)/14)^(1.1)+V(G,K)*2.26) Bgs2 gs2 0 V=(V(gs)^(1.5))*1.6 Bcath cc 0 V=URAMP(V(gs2)*V(at)) * Bgs1 gs1 0 V=URAMP(V(A,K)/1400+(V(S,K)/14)^(1.1)+V(G,K)*3.86) Bgs3 gs3 0 V=(V(gs1)^(1.5))*1.6 * Calculate anode current * Ba A K I=(0.99E-3*V(cc)) * * Calculate screen current * Bscrn sc 0 V=0.6*V(gs3)*(1.1-(V(at))) Bs S K I=1.6E-3*V(sc)*((ABS(V(S,K))+V(S,K))/(2*V(S,K))) * * Grid current * Bg G K I=(URAMP(V(G,K)+1)^(1.5))*((1.25-V(at))*50E-6) * * Capacitances * Cg1 G K 13.5p Cak A K 7.0p Cg1a G A 0.07p .ENDS XSV83 ***************************************************************** *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X7695 A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/9) Bgsg gsg 0 V=URAMP(V(S,K)*0.12-((-V(G,K))*0.68)+V(A,K)/290) Bgss gss 0 V=URAMP(V(S,K)*0.12-((-V(G,K))*0.87)+V(A,K)/290) Bgsg2 gsg2 0 V=V(gsg)^1.35 Bgss2 gss2 0 V=V(gss)^1.35 Bcath cc 0 V=V(gsg2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=6.260E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gss2)*(1.1-V(at)) Bs S K I=2.46E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 10p Cak A K 9p Cg1a G A 0.75p .ENDS X7695 ******************************************************************** *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X30A5 A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/9) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines Bgs gs 0 V=URAMP(V(S,K)/6.2+(V(G,K)*1.2)+V(A,K)/270) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.58 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=1.700E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=(V(gs2)*1.5)*(1.1-V(at)) Bs S K I=0.53E-3*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 12p Cak A K 9p Cg1a G A 0.3p .ENDS X30A5 ******************************************************************* *Vacuum Tube pentode (assumes K tied to g3) (sharp cutoff) .SUBCKT X6BH6 A S G K * * Calculate contribution to cathode current * *the number at the right end determines sharpness of knee Bat at 0 V=0.636*ATAN(V(A,K)/8) *the URAMP(V(S,K)/# mostly determines peak plate current, grid line spacing nearly constant *the number at the right end determines slope of grid lines (plate resistance) Bgs gs 0 V=URAMP(V(S,K)/58.8+V(G,K)*0.75+V(A,K)/9000) *the exponent sets the linearity of grid line spacing, and big impact on peak plate currrent Bgs2 gs2 0 V=V(gs)^1.5 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current, grid line spacing adjust and peak plate current * Ba A K I=3.085E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=1.04E-2*V(sc) * * Grid current (approximation - does not model low va/vs) * Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 * * Capacitances * Cg1 G K 5.5p Cak A K 4.5p Cg1a G A 0.0035p .ENDS X6BH6 ********************************************************************************* * 1A3 detector diode model .SUBCKT X1A3 P K Bp P K I=(0.09375/1.0e3)*uramp(V(P,K))^1.305 Cpk P K 0.46P .ends X1A3 ***************************************************************************************