*******************************************************************************************************************************
.SUBCKT ECLL800  1 2 3  4 5 6 7  8 9 10 11
X1 1 2 3   12AU7_2
X2 4 5 6 7 6BQ5_2
X3 8 9 10 11 6BQ5_2
*
.SUBCKT 12AU7_2 P G K
*E1  2  0  VALUE={V(P,K)+18.28*V(G,K)}
E1  2  0  VALUE={V(P,K)+1.1*V(G,K)}
R1  2  0  1.0K
GP  P  K  VALUE={10.88E-6*(PWR(V(2),1.5)+PWRS(V(2),1.5))/2}
CGK G  K  1.6P
CGP G  P  1.5P
CPK P  K  0.5P
.ENDS 12AU7_2
*******
.SUBCKT 6BQ5_2 A S K G
*
* 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 6BQ5_2
.ENDS ECLL800

*******************************************************************************************************************************