These are vacuum tube spice 3f4 models from other sources on the 'net. In no particular order: ********************** Pentodes (some are tetrodes with beams) *********************** *Vacuum Tube Tetrode 6146 .SUBCKT X6146 A S G K * * Calculate contribution to cathode current * Bat at 0 V=0.636*ATAN(V(A,K)/10) Bme me 0 V=URAMP(V(A,K)/130) Bmup mup 0 V=1-(URAMP(V(K,G)-30)/2000) Bmu mu 0 V=V(G,K)*V(mup) Bgs gs 0 V=URAMP(V(S,K)*4.5+V(mu)*19+URAMP(V(A,K))/10) Bgs2 gs2 0 V=(V(gs)^1.5)*16E-6 Bsd sd 0 V=URAMP(V(gs2)*V(at)-v(me)) Bcath cc 0 V=V(gs2)*V(at) - V(sd) * * Calculate anode current * Ba A K I=V(cc) * * Calculate screen current * Bscrn sc 0 V=2.5E-4*(V(S,K)^1.5)*V(gs2)*(1.1-V(at))+V(sd) Bs S K I=V(sc) * * Grid current * *Bg G K I=(URAMP(V(G,K)+1)^1.5)*(1.25-V(at))*870E-6 * * Capacitances * Cg1 G K 13.0p Cak A K 8.5p Cg1a G A 0.24p .ENDS X6146 ************************************ *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X6BQ5 A S G K * * Calculate contribution to cathode current * Bat at 0 V=0.636*ATAN(V(A,K)/15) Bgs gs 0 V=URAMP(V(S,K)/19+V(G,K)+V(A,K)/1400) Bgs2 gs2 0 V=V(gs)^1.5 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current * Ba A K I=3.2E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=2.0E-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 10.8p Cak A K 6.5p Cg1a G A 0.5p .ENDS X6BQ5 *************************** *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X6BM8P A S G K * * Calculate contribution to cathode current * Bat at 0 V=0.636*ATAN(V(A,K)/15) Bgs gs 0 V=URAMP(V(S,K)/7+V(G,K)+V(A,K)/700) Bgs2 gs2 0 V=V(gs)^1.24 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current * Ba A K I=3.45E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=3.7E-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 10.8p Cak A K 6.5p Cg1a G A 0.5p .ENDS X6BM8P *********************************** *Vacuum Tube Tetrode 6ca7 .SUBCKT X6CA7 A S G K * * Calculate contribution to cathode current * Bat at 0 V=0.636*ATAN(V(A,K)/23) Bgs gs 0 V=URAMP(V(S,K)/9.3+V(G,K)*0.95) Bgs2 gs2 0 V=V(gs)^1.5 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current * Ba A K I=1.86E-3*V(cc) * * Calculate screen current * Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=1.518E-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 15.4p Cak A K 8.4p Cg1a G A 1.1p .ENDS X6CA7 *************************** *6L6 .SUBCKT X6L6 A S G K * * Calculate contribution to cathode current * Bat at 0 V=0.636*ATAN(V(A,K)/5) Bme me 0 V=(URAMP(V(A,K))^1.5)/1750 Bmup mup 0 V=1-(URAMP(V(K,G)-30)/2000) Bmu mu 0 V=V(G,K)*V(mup) Bgs gs 0 V=URAMP(URAMP(V(A,K)/2.5)+V(S,K)*15.15+V(mu)*134) Bgs2 gs2 0 V=(V(gs)^1.5)*0.8E-6 Bsd sd 0 V=URAMP(V(gs2)*V(at)-V(me)) Bcath cc 0 V=V(gs2)*V(at)-V(sd) * * Calculate anode current * Ba A K I=V(cc) * * Calculate screen current * Bscrn sc 0 V=0.76*V(gs2)*(1.1-V(at)) Bs S K I=V(sc) * * Grid current * Bg G K I=(URAMP(V(G,K)+1)^1.5)*(1.25-V(at))*650E-6 * * Capacitances * Cg1 G K 5.0p Cgs G S 5.0p Cak A K 6.5p Cg1a G A 0.6p .ENDS X6L6 ***************************** * 6L6 .SUBCKT X6L6_XN _ssi_pin0 _ssi_pin1 _ssi_pin2 _ssi_pin3 * _SS_Symbol [C:\Program Files\AnaSoft\SuperSpice\system\Vacume Tubes.ssm] [Tetrode] * Filename: dm6L6.inc V2 5/9/97 V_ssi_pin3 _ssi_pin3 K 0 V_ssi_pin2 _ssi_pin2 G 0 V_ssi_pin1 _ssi_pin1 S 0 V_ssi_pin0 _ssi_pin0 A 0 * Simulator: Spice 3f4 * Device type: Power beam tetrode * Device model: 6L6 (and variants) * * Author: Duncan Munro * Date: 3/9/97 * Copyright: (C)1997 DDS * * The following parameters are not modelled: * * (1) Heater * (2) Grid current is an approximation * * Please note that this model is provided "as is" and * no warranty is provided in respect of its suitability * for any application. * * This model is provided for educational and non-profit use. * * Email queries to duncan@muffy.demon.co.uk * * Pins A Anode * S Screen * G Grid * K Cathode * *----------------------------------------------------------------------- * * Calculate contribution to cathode current * Bat at 0 V=0.636*ATAN(V(A,K)/5) Bme me 0 V=(URAMP(V(A,K))^1.5)/1750 Bmup mup 0 V=1-(URAMP(V(K,G)-30)/2000) Bmu mu 0 V=V(G,K)*V(mup) Bgs gs 0 V=URAMP(URAMP(V(A,K)/2.5)+V(S,K)*15.15+V(mu)*134) Bgs2 gs2 0 V=(V(gs)^1.5)*0.8E-6 Bsd sd 0 V=URAMP(V(gs2)*V(at)-V(me)) Bcath cc 0 V=V(gs2)*V(at)-V(sd) * * Calculate anode current * Ba A K I=V(cc) * * Calculate screen current * Bscrn sc 0 V=0.76*V(gs2)*(1.1-V(at)) Bs S K I=V(sc) * * Grid current * Bg G K I=(URAMP(V(G,K)+1)^1.5)*(1.25-V(at))*650E-6 * * Capacitances * Cg1 G K 5.0p Cgs G S 5.0p Cak A K 6.5p Cg1a G A 0.6p .ENDS X6L6_XN *************************** *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X6L6GC 1 6 3 4 B1 2 4 I=(((URAMP((V(7,4)/8)+V(3,4)))^1.5)/1456)*ATAN(V(1,4)/10) B2 7 4 I=((URAMP((V(7,4)/8)+V(3,4)))^1.5)/9270 C1 3 4 10P C2 3 1 0.6P C3 1 4 6.5P R1 3 5 1.5K R2 2 4 100K D1 1 2 DX D2 4 2 DX2 D3 5 4 DX D4 6 7 DX D5 4 7 DX2 .MODEL DX D(IS=1.0P RS=1.0) .MODEL DX2 D(IS=1.0N RS=1.0) .ENDS X6L6GC **************************** *Vacuum Tube Tetrode (Audio freq.) .SUBCKT X7199P 1 6 3 4 B1 2 4 I=(((URAMP((V(7,4)/20)+V(3,4)))^1.5)/1206)*ATAN(V(1,4)/10) B2 7 4 I=((URAMP((V(7,4)/20)+V(3,4)))^1.5)/2562 C1 3 4 5.0P C2 3 1 0.06P C3 1 4 2.0P R1 3 5 5K R2 2 4 2.5MEG D1 1 2 DX D2 4 2 DX2 D3 5 4 DX D4 6 7 DX D5 4 7 DX2 .MODEL DX D(IS=1.0P RS=1.0) .MODEL DX2 D(IS=1.0N RS=1.0) .ENDS X7199P ********************************* *Vacuum Tube Tetrode EF86 .SUBCKT XEF86 A S G K * * Calculate reduction in mu when Vg < -3V * Bmu mu 0 V=V(G,K)+URAMP(V(K,G)-3)*0.4 * * Calculate contribution to cathode current * Bat at 0 V=0.636*ATAN(V(A,K)/15) Bgs gs 0 V=URAMP(V(S,K)/27.5+V(mu)*1.32+1) Bgs2 gs2 0 V=URAMP(V(gs))^1.5 Bcath cc 0 V=V(gs2)*V(at) * * Calculate anode current * Ba A K I=5.83E-4*V(cc) * * Calculate screen current * Bs S K I=0.5E-3*V(gs2)*(1.1-V(at)) * * Capacitances * Cg1 G K 3.8p Cak A K 5.3p Cg1a G A 0.05p .ENDS XEF86 **************************** * EL34 .SUBCKT XEL34 _ssi_pin0_A _ssi_pin2_S _ssi_pin3_G _ssi_pin4_K V_ssi_pin4 _ssi_pin4_K K 0 V_ssi_pin3 _ssi_pin3_G G 0 V_ssi_pin2 _ssi_pin2_S S 0 *V_ssi_pin1 _ssi_pin1_S1 S1 0 V_ssi_pin0 _ssi_pin0_A A 0 Bat at 0 V=0.636*ATAN(V(A,K)/23) Bgs gs 0 V=URAMP(V(S,K)/9.3+V(G,K)*0.95) Bgs2 gs2 0 V=V(gs)^1.5 Bcath cc 0 V=V(gs2)*V(at) Ba A K I=1.86E-3*V(cc) Bscrn sc 0 V=V(gs2)*(1.1-V(at)) Bs S K I=1.518E-3*V(sc) Bg G K I=(URAMP(V(G,K)+1)^1.5)*50E-6 Cg1 G K 15.4p Cak A K 8.4p Cg1a G A 1.1p .ENDS XEL34 ************************ Triodes ************************ *Vacuum Tube Triode (Audio freq.) pkg:VT-9 (A:1,2,3)(B:6,7,8) .SUBCKT X12AT7A 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 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.0000000000023 CGA G A 0.0000000000016 .ENDS X12AT7A *************************** *Vacuum Tube Triode (Audio freq.) pkg:VT-9 (A:1,2,3)(B:6,7,8) .SUBCKT X12AU7 1 3 4 B1 2 4 I=((URAMP((V(2,4)/18)+V(3,4)))^1.5)/1151 C1 3 4 1.6E-12 C2 3 1 1.5E-12 C3 1 4 0.5E-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 X12AU7 ************************** *Vacuum Tube Triode (Audio freq.) pkg:VT-9 (A:1,2,3)(B:6,7,8) .SUBCKT X12AU7A 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)* 14.27427 ) BEP EP 0 V=(V(EM)^ 1.35 )*V(RP)* 0.0000236 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.00000000000045 CGK G K 0.0000000000018 CGA G A 0.0000000000016 .ENDS X12AU7A ************************** *. 12AU7, model based on RCA data sheets, aka ECC82 .SUBCKT X12AU7rca a g k Bout ap k i = ((uramp((v(ap, k)/15.5186)+v(g, k)))^1.5)/1502.55 Cgk g k 1.6e-12 Cga g a 1.5e-12 Cak a k 0.4e-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 X12AU7rca ************************* *Vacuum Tube Triode (Audio freq.) pkg:VT-9 (A:1,2,3)(B:6,7,8) .SUBCKT X12AX7 1 3 4 B1 2 4 I=((URAMP((V(2,4)/85)+V(3,4)))^1.5)/580 C1 3 4 1.6E-12 C2 3 1 1.7E-12 C3 1 4 0.46E-12 R1 3 5 50E+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 X12AX7 ************************** *Vacuum Tube Triode (Audio freq.) pkg:VT-9 (A:1,2,3)(B:6,7,8) .SUBCKT X12AX7A 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 1.6P Cgp G A 1.7P Cpk A K 0.46P .ENDS X12AX7A ************************ *another 12AX7 .SUBCKT X12AX7B 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 1.6P Cgp G A 1.7P Cpk A K 0.46P .ENDS X12AX7B *************************** *. 12BH7, model based on EUVM type 311 .SUBCKT X12BH7 a g k Bout ap k i = ((uramp((v(ap, k)/17.7212)+v(g, k)))^1.5)/515.571 Cgk g k 3.2e-12 Cga g a 2.6e-12 Cak a k 0.5e-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 X12BH7 *********************** *Vacuum Tube Triode (Audio freq.) pkg:VT-9 (A:1,2,3)(B:6,7,8) .SUBCKT X5751 A G K * ANODE MODEL 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.00000000000045 CGK G K 0.0000000000014 CGA G A 0.0000000000014 .ENDS X5751 *********************** *. 5998, model based on EUVM issue 1, unknown supplier data sheets .SUBCKT X5998 a g k Bout ap k i = ((uramp((v(ap, k)/5.39837)+v(g, k)))^1.5)/234.898 Cgk g k 7.7e-12 Cga g a 18.3e-12 Cak a k 2.5e-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 X5998 ************************ *Vacuum Tube Triode (Audio freq.) .SUBCKT X6080 a g k Bout ap k i = ((uramp((v(ap, k)/2.00735)+v(g, k)))^1.5)/565.063 Cgk g k 5.5e-12 Cga g a 8.6e-12 Cak a k 2.5e-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 X6080 ************************* *. 6BL7, model based on EUVM type 311 .SUBCKT X6BL7 a g k Bout ap k i = ((uramp((v(ap, k)/14.8353)+v(g, k)))^1.5)/397.744 Cgk g k 4.8e-12 Cga g a 4.2e-12 Cak a k 1.2e-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 X6BL7 *************************** *Vacuum Tube Triode (Audio freq.) .SUBCKT X6BM8T A G K * ANODE MODEL BLIM LI 0 V=(URAMP(V(A)-V(K))^ 1.5 )* 10 BGG GG 0 V=V(G)-V(K)--0.5 BRP1 RP1 0 V=URAMP(-V(GG)* 0.030667 ) BRP2 RP2 0 V=V(RP1)-URAMP(V(RP1)-0.999) BRPF RP 0 V=(1-V(RP2)^ 5 )+URAMP(V(GG))* 0.587 BGR GR 0 V=URAMP(V(GG))-URAMP(-(V(GG)*(1+V(GG)* 0.035 ))) BEM EM 0 V=URAMP(V(A)-V(K)+V(GR)* 50 ) BEP EP 0 V=(V(EM)^ 1.5 )*V(RP)* 0.00000256 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 BG G K I=V(GF)+V(LD) * CAPS CAK A K 0.000000000004 CGK G K 0.0000000000027 CGA G A 0.000000000004 .ENDS X6BM8T **************************** *Vacuum Tube Triode (Audio freq.) .SUBCKT X6C19C a g k Bout ap k i = ((uramp((v(ap, k)/2.62419)+v(g, k)))^1.5)/647.903 Cgk g k 5e-12 Cga g a 5e-12 Cak a k 4e-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 X6C19C ***************************** *Vacuum Tube Triode (Audio freq.) .SUBCKT X6C33C-B a g k Bout ap k i = ((uramp((v(ap, k)/2.73644)+v(g, k)))^1.5)/85.5547 Cgk g k 36e-12 Cga g a 37e-12 Cak a k 45e-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 X6C33C-B ************************** *Vacuum Tube Triode (Audio freq.) pkg:VT-9 (A:1,2,3)(B:6,7,8) .SUBCKT X6DJ8 1 3 4 B1 2 4 I=((URAMP((V(2,4)/31)+V(3,4)))^1.5)/120 C1 3 4 3.1E-12 C2 3 1 1.4E-12 C3 1 4 0.18E-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 X6DJ8 ************************** *Vacuum Tube Triode (Audio freq.) pkg:VT-9 (A:1,2,3)(B:6,7,8) .SUBCKT X6N1P 1 3 4 B1 2 4 I=((URAMP((V(2,4)/34)+V(3,4)))^2.2)/1400 C1 3 4 3.2E-12 C2 3 1 1.6E-12 C3 1 4 1.5E-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 X6N1P ************************** *Vacuum Tube Triode (Audio freq.) .SUBCKT X6SN7 1 3 4 B1 2 4 I=((URAMP((V(2,4)/20)+V(3,4)))^1.5)/1086 C1 3 4 2.6E-12 C2 3 1 4.0E-12 C3 1 4 0.7E-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 X6SN7 ************************ *Vacuum Tube Triode (Audio freq.) .SUBCKT X6SN7GTB 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.02 ) BRP2 RP2 0 V=V(RP1)-URAMP(V(RP1)-0.999) BRPF RP 0 V=(1-V(RP2)^ 2 )+URAMP(V(GG))* 0.002 BGR GR 0 V=URAMP(V(GG))-URAMP(-(V(GG)*(1+V(GG)* 0.006167 ))) BEM EM 0 V=URAMP(V(A)-V(K)+V(GR)* 19.2642 ) BEP EP 0 V=(V(EM)^ 1.4 )*V(RP)* 0.0000189 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.000213 BG G K I=V(GF)+V(LD) * CAPS CAK A K 0.0000000000007 CGK G K 0.0000000000024 CGA G A 0.0000000000039 .ENDS X6SN7GTB *************************** *Vacuum Tube Triode (Audio freq.) .SUBCKT X7199T 1 3 4 B1 2 4 I=((URAMP((V(2,4)/17)+V(3,4)))^1.5)/711 C1 3 4 2.3E-12 C2 3 1 2.0E-12 C3 1 4 0.3E-12 R1 3 5 5E+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 X7199T **************************** *Vacuum Tube Triode Connected Pentode (Audio freq.) .SUBCKT X807 a g k Bout ap k i = ((uramp((v(ap, k)/8.9966)+v(g, k)))^1.5)/714.69 Cgk g k 7e-12 Cga g a 0.2e-12 Cak a k 6e-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 X807 ****************************** *. E80CC, model based on EUVM type 316 .SUBCKT XE80CC a g k Bout ap k i = ((uramp((v(ap, k)/23.5934)+v(g, k)))^1.5)/1457.33 Cgk g k 2.4e-12 Cga g a 3.1e-12 Cak a k 0.55e-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 XE80CC ******************************* *. E90CC, model based on EUVM type 316 .SUBCKT XE90CC a g k Bout ap k i = ((uramp((v(ap, k)/25.268)+v(g, k)))^1.5)/222.684 Cgk g k 3.4e-12 Cga g a 2.5e-12 Cak a k 0.4e-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 XE90CC ************************ *SV811-10 cathode is midpoint of filament .SUBCKT XSV811-10 A G K * * Calculate contribution to cathode current * Bat at 0 V=0.636*ATAN(V(A,K)/30) Bme me 0 V=(URAMP(V(A,K))^1.5)/1800 Bmu mu 0 V=V(G,K) Bgs gs 0 V=URAMP(V(A,K)+V(mu)*8.7) Bgs2 gs2 0 V=(V(gs)^1.5)*12E-6 Bcath cc 0 V=V(gs2)-(U(V(gs2)-V(me))*(V(gs2)-V(me))) * * Calculate anode current * Ba A K I=V(cc) * * Calculate grid current * Bg G K I=(URAMP(V(G,K)+1)^1.5)*(2-V(at))*73E-6 * * Capacitances * Cgk G K 7p Cga A G 8p .ENDS XSV811-10 **************************** *SV811-3 cathode is midpoint of filament .SUBCKT XSV811-3 A G K * * Calculate contribution to cathode current * Bme me 0 V=(URAMP(V(A,K))^1.5)/4500 Bmu mu 0 V=V(G,K) Bgs gs 0 V=URAMP(V(A,K)+V(mu)*3.4) Bgs2 gs2 0 V=(V(gs)^1.5)*25E-6 Bcath cc 0 V=V(gs2)-(U(V(gs2)-V(me))*(V(gs2)-V(me))) * * Calculate anode current * Bat at 0 V=0.636*ATAN(V(A,K)/30) Ba A K I=V(cc) * * Calculate grid current * Bg G K I=(URAMP(V(G,K)+1)^1.5)*(2-V(at))*30E-6 * * Capacitances * Cgk G K 7p Cga A G 8p .ENDS XSV811-3 *************************** Diodes and rectifiers ************************** * AZ11 AZ1 dual rectifier .SUBCKT XAZ11 1 2 b1 1 2 i=7.3998E-4*uramp(V(1,2))^ 1.2936 Cpk 1 2 10P .ends XAZ11 **************************** *tube rectifier .SUBCKT XGZ30 A K *3/2 power law, formulated as v*sqrt(v) for convergence b1 A K i=1.9e-3*uramp(V(A,K))^ 1.44 .ends XGZ30 ************************ *tube rectifier .SUBCKT XGZ34_5AR4 A K * *(c) Kevin Aylward 2002 all rights reserved *This model may be freely distributed and used provided this notice is included *www.anasoft.co.uk kevin@anasoft.co.uk *3/2 power law, formulated as v*sqrt(v) for convergence b1 A K i=3.1e-4*uramp(V(A,K)) * sqrt(V(A,K)) .ends XGZ34_5AR4 ************************** These need to be used with an AKA (3 legged symbol with two diodes inside, common cathode) schematic symbol: ********* *- 5U4 tube rectifier .SUBCKT X5U4-GB a1 k a2 Bout1 ap1 k i = ((uramp(v(ap1, k)+0.466))^1.5)/2620.23 Bout2 ap2 k i = ((uramp(v(ap2, k)+0.466))^1.5)/2620.23 D1 a1 ap1 dx D2 a2 ap2 dx .model dx D(is=1.0e-12 rs=1.0) .ends X5U4-GB ********* *. 6202, tube rectifier model based on EUVM type 409 .SUBCKT X6202 a1 k a2 Bout1 ap1 k i = ((uramp(v(ap1, k)+0.466))^1.5)/4141.26 Bout2 ap2 k i = ((uramp(v(ap2, k)+0.466))^1.5)/4141.26 D1 a1 ap1 dx D2 a2 ap2 dx .model dx D(is=1.0e-12 rs=1.0) .ends X6202 ********* *- Filament 5V/1.5A .SUBCKT X5W4 a1 k a2 Bout1 ap1 k i = ((uramp(v(ap1, k)+0.466))^1.5)/7150.12 Bout2 ap2 k i = ((uramp(v(ap2, k)+0.466))^1.5)/7150.12 D1 a1 ap1 dx D2 a2 ap2 dx .model dx D(is=1.0e-12 rs=1.0) .ends X5W4 *********** *- Filament 5V/2A .SUBCKT X5Y3-G a1 k a2 Bout1 ap1 k i = ((uramp(v(ap1, k)+0.466))^1.5)/7071.07 Bout2 ap2 k i = ((uramp(v(ap2, k)+0.466))^1.5)/7071.07 D1 a1 ap1 dx D2 a2 ap2 dx .model dx D(is=1.0e-12 rs=1.0) .ends X5Y3-G *********** *. 6203, tube rectifier model based on EUVM type 409 .SUBCKT X6203 a1 k a2 Bout1 ap1 k i = ((uramp(v(ap1, k)+0.466))^1.5)/2856.04 Bout2 ap2 k i = ((uramp(v(ap2, k)+0.466))^1.5)/2856.04 D1 a1 ap1 dx D2 a2 ap2 dx .model dx D(is=1.0e-12 rs=1.0) .ends X6203 *********** *. 6X5, model based on EUVM type 409 .SUBCKT X6X5 a1 k a2 Bout1 ap1 k i = ((uramp(v(ap1, k)))^1.5)/2941.44 Bout2 ap2 k i = ((uramp(v(ap2, k)))^1.5)/2941.44 D1 a1 ap1 dx D2 a2 ap2 dx .model dx D(is=1.0e-12 rs=1.0) .ends X6X5 **********