ILX Lightwave LDT-5525 User Manual page 51

80 REM * * * * * * * * * * * * * * STEIN1 * * * * * * * * * * * * * * * * *
90 REM
92 REM Rev: 3-11-87
94 REM T is expressed in Kelvins.
100 REM Least squares fit program to find the thermistor coefficients
110 REM C1 and C2 in the following equation:
120 REM
130 REM 1/T = C1 + C2 * (ln R)
140 REM
200 REM
210 REM Variables:
220 REM
230 REM T[i], R[i] temperature and resistance data values.
240 REM
250 REM Y[i] = 1/T[i] the dependent variable (depends on R[i])
260 REM in the Steinhart - Hart equation (above).
270 REM
280 REM X[i] = ln(R[I]) the value of the ith function of the independent
290 REM variable ln(R) (natural log of resistance)
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 **** read and echo T(i), R(i) from the data file ****
1060 REM (terminate read on R=-1)
1070 I=0
1080 PRINT "Data:"
1090 G$="Point Temperature (Celsius) Resistance (ohms)"
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
(Continued on next page)
########.##"
A-5