**** EML_RS242_DC Composite DHT *****************************************
* Plate Curves image file: EML-RS242-DC.png
* Tube curves made with DC Heated tube. 
* DC heating shifts the Grid voltage 2Volts vs. AC heating, for the same tube. 
* Data source link: http://www.emissionlabs.com/datasheets/EML-RS242.html
*----------------------------------------------------------------------------------
.SUBCKT DHT_EML_RS242_DC 1 2 3 4 ; P G K1 K2
+ PARAMS: CCG=3P  CGP=1.4P CCP=1.9P RFIL=4.44
+ MU=16.37 KG1=1350 KP=256 KVB=89.25 VCT=-3.78 EX=1.372 RGI=2000
* Vp_MAX=750 Ip_MAX=100 Vg_step=3 Vg_start=0 Vg_count=15
* Rp=1.866E6 Vg_ac=5.304 P_max=17 Vg_qui=-10.91 Vp_qui=349.28
* X_MIN=83 Y_MIN=31 X_SIZE=554 Y_SIZE=446 FSZ_X=1371 FSZ_Y=600 XYGrid=true
* showLoadLine=y showIp=y isDHT=y isPP=n isAsymPP=n showDissipLimit=n 
* showIg1=n gridLevel2=n isInputSnapped=n  
* XYProjections=n harmonicPlot=n dissipPlot=n 
*----------------------------------------------------------------------------------
RFIL_LEFT    3  31 {RFIL/4}
RFIL_RIGHT   4  41 {RFIL/4}
RFIL_MIDDLE1 31 34 {RFIL/4}
RFIL_MIDDLE2 34 41 {RFIL/4}
E11 32 0  VALUE={V(1,31)/KP*LOG(1+EXP(KP*(1/MU+V(2,31)/SQRT(KVB+V(1,31)*V(1,31)))))} 
E12 42 0  VALUE={V(1,41)/KP*LOG(1+EXP(KP*(1/MU+V(2,41)/SQRT(KVB+V(1,41)*V(1,41)))))} 
RE11 32 0 1G 
RE12 42 0 1G 
G11 1 31 VALUE={(PWR(V(32),EX)+PWRS(V(32),EX))/(2*KG1)} 
G12 1 41 VALUE={(PWR(V(42),EX)+PWRS(V(42),EX))/(2*KG1)} 
RCP1 1 34 1G 
C1 2 34 {CCG} ; CATHODE-GRID 
C2 2 1 {CGP} ; GRID=PLATE 
C3 1 34 {CCP} ; CATHODE-PLATE 
D3 5 3 DX ; FOR GRID CURRENT 
D4 6 4 DX ; FOR GRID CURRENT 
RG1 2 5 {2*RGI} ; FOR GRID CURRENT 
RG2 2 6 {2*RGI} ; FOR GRID CURRENT 
.MODEL DX D(IS=1N RS=1 CJO=10PF TT=1N) 
.ENDS 
*$