![Galil Motion Control RIO-47 series
RIO-47100 User Manual Download Page 112](http://html1.mh-extra.com/html/galil-motion-control/rio-47-series-rio-47100/rio-47-series-rio-47100_user-manual_558776112.webp)
AQ 2,3
AQ 3,3
AQ 4,3
AQ 5,3
AT0;'set initial time reference
#Calc
REM calculate resistance of RTD
r0 = (1000*@AN[0])/21
r1 = (1000*@AN[1])/21
r2 = (1000*@AN[2])/21
r3 = (1000*@AN[3])/21
r4 = (1000*@AN[4])/21
r5 = (1000*@AN[5])/21
REM calculate deg C
r=r0;JS#Celcius;Tc0 = Tc
r=r1;JS#Celcius;Tc1 = Tc
r=r2;JS#Celcius;Tc2 = Tc
r=r3;JS#Celcius;Tc3 = Tc
r=r4;JS#Celcius;Tc4 = Tc
r=r5;JS#Celcius;Tc5 = Tc
AT-100;'wait 100 ms from last time ref
JP#Calc
#Celcius
sqrt=@SQR[992137.445376*(761.2471-r)]
Tc = (-25613.43488+sqrt)/(-7.569408)
REM adjust for Tc < 0 deg C
IF (Tc < 0)
Ta=-(((Tc-100)*Tc*Tc)/239062873.536)*Tc
Ta = Ta * 0.2311
Tc = Tc - Ta
ENDIF
EN
A1 – SCB-48206 ▫ 112 RIO-47xxx Rev. 1.0r