PT100計算公式

基于ITS-90工業用鉑電阻分度表IEC751的修訂版。包含2個函數。

#define A 3.9083e-3

#define B -5.775e-7

#define C -4.183e-12

溫度計算電阻

void CCalcuPT100Dlg::OnEnChangeEditT()

{

// TODO: 在此添加控件通知處理程序代碼

UpdateData(TRUE);

double fT , fR;

fT = _wtof(l_strT);

if(fT >= -200 && fT < 0)

{

fR = 100 * (1 + A*fT + B*fT*fT + C*(fT-100)*fT*fT*fT) ;

l_strR.Format(_T("%.3f") , fR);

}

else if(fT >= 0 && fT <= 850)

{

fR = 100 * (1 + A*fT + B*fT*fT);

l_strR.Format(_T("%.3f") , fR);

}

else

l_strR = _T("溫度超限!");

UpdateData(FALSE);

}

電阻計算溫度，采用牛頓迭代法，一般迭代3次就可以達到0.1%的精度。

void CCalcuPT100Dlg::OnEnChangeEditR()

{

// TODO: 在此添加控件通知處理程序代碼

UpdateData(TRUE);

double fT , fR , fT0;

short i ;

fR = _wtof(l_strR);

fT0 = (fR / 100 - 1) / A ;

if(fR >= 18.52 && fR < 100) //-200℃- 0℃

{

for(i = 0 ; i < 50 ; i ++)

{

fT = fT0 + (fR - 100*(1 + A*fT0 + B*fT0*fT0 - 100*C*fT0*fT0*fT0 + C*fT0*fT0*fT0*fT0)) /

(100 * (A + 2*B*fT0 - 300*C*fT0*fT0 + 4*C*fT0*fT0*fT0)) ;

if(fabs(fT - fT0) < 0.001)

break ;

else

fT0 = fT ;

}

l_strT.Format(_T("%.3f") , fT);

}

else if(fR >= 100 && fR <= 390.481) //0℃- 850℃

{

for(i = 0 ; i < 50 ; i ++)

{

fT = fT0 + (fR - 100*(1 + A*fT0 + B*fT0*fT0)) / (100*(A + 2*B*fT0)) ;

if(fabs(fT - fT0) < 0.001)

break ;

else

fT0 = fT ;

}

l_strT.Format(_T("%.3f") , fT);

}

else

l_strT = _T("電阻超限!");

UpdateData(FALSE);

}

總結

以上是生活随笔為你收集整理的pt100 c 语言,PT100计算公式 C程序.doc的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。