共享：自己写了一个热敏电阻阻值计算的小程序

hailang853 · 发表于 2008-4-10 13:39:09

用到热敏电阻,自己写了一个阻值计算的小程序,有用得到的人可以下载来用,如发现错误,请回复!

点击此处下载 ourdev_248763.rar(文件大小:187K) (原文件名:热敏电阻计算.rar)

zhao_123456 · 发表于 2008-4-10 23:22:40

看看!

armok · 发表于 2008-4-11 00:01:52

提示: 作者被禁止或删除内容自动屏蔽

Elex · 发表于 2008-4-11 01:33:53

这种小工具可以用Excel来做，修改很方便，可以生成你想要的各种数据格式。
ourdev_248502.xls(文件大小:298K) (原文件名:Heating Level.xls)

hailang853 · 发表于 2008-4-11 08:36:53

用delphi 7写的,公式Rt=Rn*exp[B*(1/Tt-1/Tn)
Tt:侍测量的温度+绝对温度273.15
Rt:侍测温度下的阻值
Tn:常温25度+273.15
Rn:常温下的阻值

procedure TForm1.Button1Click(Sender: TObject);
var a:real;
i:integer;
begin
memo1.Clear;
for i:= strtoint(edit3.Text) to strtoint(edit4.Text) do
begin
a:= strtoint(edit2.Text)*exp(strtoint(edit1.Text)*(1/(273.15+i)-1/298.15)) ;
memo1.Lines.Add(inttostr(i)+' '+copy(floattostr(a),1,6));
end;

bjj9217 · 发表于 2008-5-30 10:51:44

好！

oouu01 · 发表于 2008-5-31 14:46:12

这个估计不太准确吧。热敏电阻需要实测然后用回归分析去拟合它的温度阻值曲线的。而且每一种热敏电阻的曲线都不太一样。一般电阻可以看做是R对温度的常量。而热敏电阻是R(t)。我以前按照热敏电阻的手册上说的R(t)函数曲线去测过，结果不是太逼近。
手册上说是：
R(t)=-exp(bt+c)
最后曲线拟合出来是R(t)=-1*exp(at^2+bt+c)
其中a、b、c是拟合出来的系数。

wuyunzdh · 发表于 2008-6-6 12:58:31

可能用得到，谢谢

yerdak · 发表于 2008-6-6 16:13:37

这样计算误差很大，还是要直接找厂家要T-R表来做设计。

dy624 · 发表于 2011-8-9 17:38:13

mark

woshixiongzai · 发表于 2011-8-9 21:22:04

mark

woshixiongzai · 发表于 2011-8-9 21:30:19

好东西啊……哈哈哈

flotox · 发表于 2013-9-26 14:20:26

oouu01 发表于 2008-5-31 14:46
这个估计不太准确吧。热敏电阻需要实测然后用回归分析去拟合它的温度阻值曲线的。而且每一种热敏电阻的曲线 ...

我也认为应该实测

jz701209李 · 发表于 2013-9-27 12:38:07

谢谢楼主...........

共享：自己写了一个热敏电阻阻值计算的小程序

阿莫论坛20周年了！感谢大家的支持与爱护！！

浏览过的版块