function T = pt100(R)
  
  pt100 = @(R) (R/100.-1)/0.003850+273.15;
  
  T = pt100(R);