(Program
STEIN3,
continued from previous page)
2120 REM
""
3 x 3 determinant routine
""
2130 SUM
=
B[1,1]'B[2,2]'B[3,3]+B[1,2]"B[2,3]'B[3,1]+B[1,3]'B[2,1]'8[3,2]
2140 SUM
:
SUM-B[1,1]'B[2,3]'8[3,2]-B[l.2]'8[2,1]'B[3.3j-B[1,3]'B[2,2]'B[3,1]
2150 RETURN
2160 REM
""
Copy matrix A onto 'scratch" matrix
B
"'
2170 FOR I=1 TO 3
:
FOR J=l TO 3
:
B(I.J)=A(I.J)
:
NEXT
J
:
NEXT
I
2180 RETURN
Once the constants,
C
I,
C2,
and
C3
have been determined (using this program or other means), temperature can
be
calculated from resistance, or resistance calculated from temperature using the RandT.BAS program below.
For more information on using the S-H equation, refer to
ILX
Lightwave Application Note
#4
Using the S-H Equation to Find Resistance or Temperature
The
program below, RandT.BAS, will calculate the thermistor resistance for a given temperature,
or
the
temperature given the resistance, using the
S-H
equation above. The accuracy of this conversion depends on the
accuracy of the S-H constants.
"......"..""'
RandT,BAS
..".."
........
"
10
CLS
20
'
30 'Program
IS
In GWBASIC 3.2 for IBM or compatible computers.
40 'Enter the S-H constants in the form. C1. C2. C3
50 'This program calculates resistance or temperature, given the
S-H
60
'constants and one known parameter.
70
'T
1s In degrees C, and R in ohms
80
'
90
INPUT
"Cl. C2. C3". Cl!. CZ!.
C3!
'input
S-H
constants
100'
110 PRINT "Enter
R
to find resistance,
T
lo find temperature,'
120 PRINT "or Q to qu~t.'
130'
140 A$
=
INKEY$
'input selection
150
IF
A$
=
"R" GOT0 190
160 IF A$
=
7"
GOT0 290
170 IF A$
=
"Q"
GOT0 330
:
ELSE GOT0 140
180
'
(Continued
or1
nest page)
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
To Next Page
Loading...
Need help?
General
