plot 3950/Log[R] - 130.7 -273.15 from R=1e3 to 20e3