Const Beta=3950 Const Tct=25+273.15,Rct=10000' 25C in Kelvin - this is the calibration point of the thermistor i.e. 10K @ 25C. Change as necessary Const Rb=1000'balance resistor 'Varying the balance resistor (Rb) moves the temperature range on the logarithmic parabola. 'Adjust so your delta (area with most pronounced change in voltage) is where it's best for you 'e.g. middle of the voltage range, AIN=1.65V, 'Rb 1K=83C, 2K2=59C, 4K7=39C 'for me, 1K gives 2.5V at 124`C which is just over the top of the desired range (60-120C) - ideal Const Vcc=3.29' measure your supply voltage precisely for this value Dim Float Vtb,Rt,Tc SetPin 5,AIN Do Vtb=Pin(5)'voltage at junction of Rt and Rb Rt=Rb*((Vcc/Vtb)-1)' calculate the resistance of the thermistor Print "Rt resistance in Ohms",Rt, Tc=((Beta*Tct)/(Beta+(Tct*Log(Rt/Rct))))-273.15 'calculate the temperature Print"=";Tc;"`C" Print Pause 500' slow the loop a bit Loop