THERMOCOUPLE.CIR * * T MEASURE JUNCTION (deg C) V_TJUNC 1 0 PWL(0MS 22 100MS 100) R1 1 0 1MEG * * T REFERENCE (deg C) V_TREF 2 0 PWL(0MS 0 100MS 0) R2 2 0 1MEG * * J THERMOCOUPLE (V) X_TC1 1 2 3 0 TC_J_1 R3 3 0 1MEG * * * *** J THERMOCOUPLE SUBCIRCUIT ************************************ * T_JUNC(C) - 1 T_REF(C) - 2 V_TC+(V) - 3 V_TC-(V) - 4 * .SUBCKT TC_J_1 1 2 3 4 * * USE POLYNOMIAL EQN TO FIND V VS. T (REF TO 0 DEGC) AT BOTH JUNC AND MEAS TEMPS. * V = B1*T + B2*T^2 + ... * * V_TJ - JUNCTION EMF (MV) VS. TEMP (C) E_TJ 5 0 VALUE = { + 0.503811878150E-01*V(1) + 0.304758369300E-04*V(1)**2 + + -0.856810657200E-07*V(1)**3 + 0.132281952950E-09*V(1)**4 + + -0.170529583370E-12*V(1)**5 + 0.209480906970E-15*V(1)**6 + + -0.125383953360E-18*V(1)**7 + 0.156317256970E-22*V(1)**8 } * * V_TR - REFERENCE EMF (MV) VS. TEMP (C) E_TR 6 0 VALUE = { + 0.503811878150E-01*V(2) + 0.304758369300E-04*V(2)**2 + + -0.856810657200E-07*V(2)**3 + 0.132281952950E-09*V(2)**4 + + -0.170529583370E-12*V(2)**5 + 0.209480906970E-15*V(2)**6 + + -0.125383953360E-18*V(2)**7 + 0.156317256970E-22*V(2)**8 } + * THERMOCOUPLE OUTPUT: * V_TC = V_TJ - V_TR * DIVIDE BY 1000 TO CONVERT MV TO V * E_TC 3 4 VALUE = { (V(5)-V(6))/1000 } * .ENDS * * * ANALYSIS .TRAN 0.1MS 100MS * .PROBE .END