概要
Rでサーミスタをグラフ化してみた。
サンプルコード
y <- function(d) {
15000.0 * d / (5.0 - d)
}
plot(y, 0, 5)
写真
サンプルコード
y <- function(t) {
1 / (0.001129148 + (0.000234125 + (0.0000000876741 * log(t) * log(t))) * log(t)) - 273.15
}
plot(y, 500, 15000)
写真
サンプルコード
y <- function(d) {
t = 15000.0 * d / (5.0 - d)
1 / (0.001129148 + (0.000234125 + (0.0000000876741 * log(t) * log(t))) * log(t)) - 273.15
}
plot(y, 0.5, 4.5)