ILX Lightwave Temperature Controller LDT-5525 User Manual page 44

A
C H A P T E R
80 REM
90 REM
92 REM
94 REM
100 REM
110 REM
120 REM
130 REM
140 REM
200 REM
210 REM
220 REM
230 REM
240 REM
250 REM
260 REM
270 REM
280 REM
290 REM
330 REM
1000 DEFDBL A Z
1010 DEFINT I, J, K, L
1020 DIM R[400], T[400], Y[400], X[400]
1030 PRINT "What is the data file name"; : INPUT D$
1040 OPEN "i", 1, D$
1050 REM
1060 REM
1070 I=0
1080 PRINT "Data:"
1090 G$="Point
1100 H$=" ###
1110 PRINT G$
1120 PRINT
1130 I=I+1
1140 INPUT #1, T(I), R(I)
1150 IF R(I)<0 THEN GOTO 1180
30
LDT-5525
* * * * * * * * * * * * * *
Rev: 3 11 87
T is expressed in Kelvins.
Least squares fit program to find the thermistor coefficients
C1 and C2 in the following equation:
1/T = C1 + C2 * (ln R)
Variables:
T[i], R[i] temperature and resistance data values.
Y[i] = 1/T[i] the dependent variable (depends on R[i])
in the Steinhart
X[i] = ln(R[I]) the value of the ith function of the independent
variable ln(R) (natural log of resistance)
**** read and echo T(i), R(i) from the data file ****
(terminate read on R= 1)
Temperature (Celsius)
#####.##
STEIN1 * * * * * * * * * * * * * * *
Hart equation (above).
Resistance (ohms)"
########.##"