Lightwave Communications LDT-5525 manual Rem

C H A P T E R A

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)

140REM

200REM

210REM Variables:

220REM

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

30 LDT-5525