热电偶 - 图文

大庆石油学院本科生毕业设计（论文）

Select Case fdh Case 1

If t90 < -50 Or t90 > 1768.1 Then 'Form1.Hide Form3.Show

ElseIf t90 >= -50 And t90 < 1064.18 Then

E = 5.28961729765 * t90 + 1.39166589782 * 10 ^ -2 * t90 ^ 2 - 2.38855693017 * 10 ^ -5 * t90 ^ 3 + 3.56916001063 * 10 ^ -8 * t90 ^ 4 - 4.62347666298 * 10 ^ -11 * t90 ^ 5 + 5.00777441034 * 10 ^ -14 * t90 ^ 6 - 3.73105886191 * 10 ^ -17 * t90 ^ 7 + 1.57716482367 * 10 ^ -20 * t90 ^ 8 - 2.81038625251 * 10 ^ -24 * t90 ^ 9

ElseIf t90 >= 1064.18 And t90 < 1664.5 Then

E = 2.95157925316 * 10 ^ 3 * t90 ^ 0 - 2.52061251332 * t90 + 1.59564501865 * 10 ^ -2 * t90 ^ 2 - 7.64085947576 * 10 ^ -6 * t90 ^ 3 + 2.05305291024 * 10 ^ -9 * t90 ^ 4 - 2.93359668173 * 10 ^ -13 * t90 ^ 5

ElseIf t90 >= 1664.5 And t90 <= 1768.1 Then

E = 1.52232118209 * 10 ^ 5 * t90 ^ 0 - 2.68819888545 * 10 ^ 2 * t90 ^ 1 + 1.71280280471 * 10 ^ -1 * t90 ^ 2 - 3.45895706453 * 10 ^ -5 * t90 ^ 3 - 9.34633971046 * 10 ^ -12 * t90 ^ 4 End If Case 2

If t90 < -50 Or t90 > 1768.1 Then 'Form1.Hide Form3.Show

38

大庆石油学院本科生毕业设计（论文）

ElseIf t90 >= -50 And t90 < 1064.18 Then

E = 5.40313308631 * t90 + 1.2593428974 * 10 ^ -2 * t90 ^ 2 - 2.32477968689 * 10 ^ -5 * t90 ^ 3 + 3.22028823036 * 10 ^ -8 * t90 ^ 4 - 3.31465196389 * 10 ^ -11 * t90 ^ 5 + 2.55744251786 * 10 ^ -14 * t90 ^ 6 - 1.25068871393 * 10 ^ -17 * t90 ^ 7 + 2.71443176145 * 10 ^ -21 * t90 ^ 8

ElseIf t90 >= 1064.18 And t90 < 1664.5 Then

E = 1.32900444085 * 10 ^ 3 * t90 ^ 0 + 3.34509311344 * t90 ^ 1 + 6.54805192818 * 10 ^ -3 * t90 ^ 2 - 1.64856259209 * 10 ^ -6 * t90 ^ 3 + 1.29989605174 * 10 ^ -11 * t90 ^ 4

ElseIf t90 >= 1664.5 And t90 <= 1768.1 Then

E = 1.46628232636 * 10 ^ 5 * t90 ^ 0 - 2.58430516752 * 10 ^ 2 * t90 ^ 1 + 1.63693574641 * 10 ^ -1 * t90 ^ 2 - 3.30439046987 * 10 ^ -5 * t90 ^ 3 - 9.43223690612 * 10 ^ -12 * t90 ^ 4 End If Case 3

If t90 < 0 Or t90 > 1820 Then 'Form1.Hide Form3.Show

ElseIf t90 >= 0 And t90 < 630.615 Then

E = -2.4650818346 * 10 ^ -1 * t90 ^ 1 + 5.9040421171 * 10 ^ -3 * t90 ^ 2 - 1.3257931636 * 10 ^ -6 * t90 ^ 3 + 1.5668291901 * 10 ^ -9 * t90 ^ 4 - 1.694452924 * 10 ^ -12 * t90 ^ 5 + 6.2990347094 * 10 ^ -16 * t90 ^ 6

ElseIf t90 >= 630.615 And t90 <= 1820 Then

E = -3.8938168621 * 10 ^ 3 * t90 ^ 0 + 2.857174747 * 10 ^ 1 * t90 ^ 1 - 8.4885104785 * 10 ^ -2 * t90 ^ 2 + 1.5785280164 * 10 ^ -4 * t90 ^ 3 - 1.6835344864 * 10 ^ -7 * t90 ^ 4 + 1.1109794013 * 10 ^ -10 * t90 ^ 5 - 4.4515431033 * 10 ^ -14 * t90 ^ 6 + 9.8975640821 * 10 ^ -18 * t90 ^ 7 - 9.3791330289 * 10 ^ -22 * t90 ^ 8

39

大庆石油学院本科生毕业设计（论文）

End If Case 4

If t90 < -210 Or t90 > 1200 Then 'Form1.Hide Form3.Show

ElseIf t90 >= -210 And t90 < 760 Then

E = 5.0381187815 * 10 ^ 1 * t90 ^ 1 + 3.047583693 * 10 ^ -2 * t90 ^ 2 - 8.568106572 * 10 ^ -5 * t90 ^ 3 + 1.3228195295 * 10 ^ -7 * t90 ^ 4 - 1.7052958337 * 10 ^ -10 * t90 ^ 5 + 2.0948090697 * 10 ^ -13 * t90 ^ 6 - 1.2538395336 * 10 ^ -16 * t90 ^ 7 + 1.5631725697 * 10 ^ -20 * t90 ^ 8

ElseIf t90 >= 760 And t90 <= 1200 Then

E = 2.9645625681 * 10 ^ 5 * t90 ^ 0 - 1.4976127786 * 10 ^ 3 * t90 ^ 1 + 3.1787103924 * t90 ^ 2 - 3.1847686701 * 10 ^ -3 * t90 ^ 3 + 1.5720819004 * 10 ^ -6 * t90 ^ 4 - 3.0691369056 * 10 ^ -10 * t90 ^ 5 End If Case 5

If t90 < -270 Or t90 > 400 Then 'Form1.Hide Form3.Show

ElseIf t90 >= -270 And t90 < 0 Then

E = 3.8748106364 * 10 ^ 1 * t90 ^ 1 + 4.4194434347 * 10 ^ -2 * t90 ^ 2 + 1.1844323105 * 10 ^ -4 * t90 ^ 3 + 2.0032973554 * 10 ^ -5 * t90 ^ 4 + 9.0138019559 * 10 ^ -7 * t90 ^ 5 + 2.2651156593 * 10 ^ -8 * t90 ^ 6 + 3.6071154205 * 10 ^ -10 * t90 ^ 7 + 3.8493939883 * 10 ^ -12 * t90 ^ 8 + 2.8213521925 * 10 ^ -14 * t90 ^ 9 + 1.4251594779 * 10 ^ -16 * t90 ^ 10 + 4.8768662286 * 10 ^ -19 * t90 ^ 11 +

40

大庆石油学院本科生毕业设计（论文）

1.079553927 * 10 ^ -21 * t90 ^ 12 + 1.3945027062 * 10 ^ -24 * t90 ^ 13 + 7.9795153927 * 10 ^ -28 * t90 ^ 14

ElseIf t90 >= 0 And t90 <= 400 Then

E = 3.8748106364 * 10 ^ 1 * t90 ^ 1 + 3.329222788 * 10 ^ -2 * t90 ^ 2 + 2.0618243404 * 10 ^ -4 * t90 ^ 3 - 2.1882256846 * 10 ^ -6 * t90 ^ 4 + 1.0996880928 * 10 ^ -8 * t90 ^ 5 - 3.0815758772 * 10 ^ -11 * t90 ^ 6 + 4.547913529 * 10 ^ -14 * t90 ^ 7 - 2.7512901673 * 10 ^ -17 * t90 ^ 8 End If Case 6

If t90 < -270 Or t90 > 1000 Then 'Form1.Hide Form3.Show

ElseIf t90 >= -270 And t90 < 0 Then

E = 5.8665508708 * 10 ^ 1 * t90 ^ 1 + 4.5410977124 * 10 ^ -2 * t90 ^ 2 - 7.7998048686 * 10 ^ -4 * t90 ^ 3 - 2.5800160843 * 10 ^ -5 * t90 ^ 4 - 2.5800160843 * 10 ^ -5 * t90 ^ 4 - 5.9452583057 * 10 ^ -7 * t90 ^ 5 - 9.3214058667 * 10 ^ -9 * t90 ^ 6 - 1.0287605534 * 10 ^ -10 * t90 ^ 7 + 8.0370123621 * 10 ^ -13 * t90 ^ 8 - 4.3979497391 * 10 ^ -15 * t90 ^ 9 - 1.6414776355 * 10 ^ -17 * t90 ^ 10 - 3.9673619516 * 10 ^ -20 * t90 ^ 11 - 5.5827328721 * 10 ^ -23 * t90 ^ 12 - 3.4657842013 * 10 ^ -26 * t90 ^ 13

ElseIf t90 >= 0 And t90 <= 1000 Then

E = 5.866550871 * 10 ^ 1 * t90 ^ 1 + 4.5410977124 * 10 ^ -2 * t90 ^ 2 + 2.8908407212 * 10 ^ -5 * t90 ^ 3 - 3.3056896652 * 10 ^ -7 * t90 ^ 4 + 6.502440327 * 10 ^ -10 * t90 ^ 5 - 1.9197495504 * 10 ^ -13 * t90 ^ 6 - 1.2536600497 * 10 ^ -15 * t90 ^ 7 + 2.1489217569 * 10 ^ -18 * t90 ^ 8 - 1.4388041782 * 10 ^ -21 * t90 ^ 9 + 3.5960899481 * 10 ^ -25 * t90 ^ 10 End If

41