发布时间 : 星期二 文章热电偶 - 图文更新完毕开始阅读26a2ed373968011ca300919c
大庆石油学院本科生毕业设计（论文）
Case 7
If t90 < -270 Or t90 > 1372 Then 'Form1.Hide Form3.Show
ElseIf t90 >= -270 And t90 < 0 Then
E = 3.9450128025 * 10 ^ 1 * t90 ^ 1 + 2.3622373598 * 10 ^ -2 * t90 ^ 2 - 3.2858906784 * 10 ^ -4 * t90 ^ 3 - 4.9904828777 * 10 ^ -6 * t90 ^ 4 - 6.7509059173 * 10 ^ -8 * t90 ^ 5 - 5.7410327428 * 10 ^ -10 * t90 ^ 6 - 3.1088872894 * 10 ^ -12 * t90 ^ 7 - 1.0451609365 * 10 ^ -14 * t90 ^ 8 - 1.9889266878 * 10 ^ -17 * t90 ^ 9 - 1.6322697486 * 10 ^ -20 * t90 ^ 10
ElseIf t90 >= 0 And t90 <= 1372 Then
E = 3.8921204975 * 10 * t90 + 1.8558770032 * 10 ^ -2 * t90 ^ 2 - 9.945759287 * 10 ^ -5 * t90 ^ 3 + 3.1840945719 * 10 ^ -7 * t90 ^ 4 - 5.6072844889 * 10 ^ -10 * t90 ^ 5 + 5.6075059059 * 10 ^ -13 * t90 ^ 6 - 3.2020720003 * 10 ^ -16 * t90 ^ 7 + 9.7151147152 * 10 ^ -20 * t90 ^ 8 - 1.2104721275 * 10 ^ -23 * t90 ^ 9
E = -1.7600413686 * 10 + E + 1.185976 * 10 ^ 2 * Exp(-1.183432 * 10 ^ -4 * (t90 - 126.9686) ^ 2) End If Case 8
If t90 < -270 Or t90 > 1300 Then 'Form1.Hide Form3.Show
ElseIf t90 >= -270 And t90 < 0 Then
E = 2.6159105962 * 10 ^ 1 * t90 ^ 1 + 1.0957484228 * 10 ^ -2 * t90 ^ 2 - 9.3841111554 * 10 ^ -5 * t90 ^ 3 - 4.6412039759 * 10 ^ -8 * t90 ^ 4 - 2.6303357716 * 10 ^ -9 * t90 ^ 5 - 2.2653438003 * 10 ^ -11 * t90 ^ 6 - 7.6089300791 * 10 ^ -14 * t90 ^ 7 - 9.3419667835 * 10 ^ -17 * t90 ^ 8
42
大庆石油学院本科生毕业设计（论文）
ElseIf t90 >= 0 And t90 <= 1300 Then
E = 2.5929394601 * 10 ^ 1 * t90 ^ 1 + 1.571014188 * 10 ^ -2 * t90 ^ 2 + 4.3825627237 * 10 ^ -5 * t90 ^ 3 - 2.5261169794 * 10 ^ -7 * t90 ^ 4 + 6.4311819339 * 10 ^ -10 * t90 ^ 5 - 1.0063471519 * 10 ^ -12 * t90 ^ 6 + 9.9745338992 * 10 ^ -16 * t90 ^ 7 - 6.0863245607 * 10 ^ -19 * t90 ^ 8 + 2.0849229339 * 10 ^ -22 * t90 ^ 9 - 3.0682196151 * 10 ^ -26 * t90 ^ 10 End If End Select
Text2.Text = Str(E) Debug.Print \
End Function
Private Function rofjs(E As Double) As Double Debug.Print \
Select Case fdh '反函数分度公式 Case 1
If E < -226 Or E > 21103 Then 'Form1.Hide Form6.Show
ElseIf E >= -226 And E < 1923 Then
t90 = 1.889138 * 10 ^ -1 * E ^ 1 - 9.383529 * 10 ^ -5 * E ^ 2 + 1.3068619 * 10 ^ -7 * E ^ 3 - 2.270358 * 10 ^ -10 * E ^ 4 + 3.5145659 * 10 ^ -13 * E ^ 5 - 3.89539 * 10 ^ -16 * E ^ 6 + 2.8239471 * 10 ^ -19 * E ^ 7 - 1.2607281 * 10 ^ -22 * E ^ 8 +
43
大庆石油学院本科生毕业设计（论文）
3.1353611 * 10 ^ -26 * E ^ 9 - 3.3187769 * 10 ^ -30 * E ^ 10
ElseIf E >= 1923 And E < 11361 Then
t90 = 1.334584505 * 10 ^ 1 * E ^ 0 + 1.472644573 * 10 ^ -1 * E ^ 1 - 1.844024844 * 10 ^ -5 * E ^ 2 + 4.031129726 * 10 ^ -9 * E ^ 3 - 6.24942836 * 10 ^ -13 * E ^ 4 + 6.468412046 * 10 ^ -17 * E ^ 5 - 4.458750426 * 10 ^ -21 * E ^ 6 + 1.994710149 * 10 ^ -25 * E ^ 7 - 5.31340179 * 10 ^ -30 * E ^ 8 + 6.481976217 * 10 ^ -35 * E ^ 9
ElseIf E >= 11361 And E < 19739 Then
t90 = -8.199599416 * 10 ^ 1 * E ^ 0 + 1.553962042 * 10 ^ -1 * E ^ 1 - 8.342197663 * 10 ^ -6 * E ^ 2 + 4.279433549 * 10 ^ -10 * E ^ 3 - 1.19157791 * 10 ^ -14 * E ^ 4 + 1.492290091 * 10 ^ -19 * E ^ 5
ElseIf E >= 19739 And E <= 21103 Then
t90 = 3.406177836 * 10 ^ 4 * E ^ 0 - 7.023729171 * E ^ 1 + 5.582903813 * 10 ^ -4 * E ^ 2 - 1.952394635 * 10 ^ -8 * E ^ 3 + 2.560740231 * 10 ^ -13 * E ^ 4 End If Case 2
If E < -235 Or E > 18694 Then 'Form1.Hide Form6.Show
ElseIf E >= -235 And E < 1874 Then
t90 = 1.8494946 * 10 ^ -1 * E ^ 1 - 8.00504062 * 10 ^ -5 * E ^ 2 + 1.0223743 * 10 ^ -7 * E ^ 3 - 1.52248592 * 10 ^ -10 * E ^ 4 + 1.88821343 * 10 ^ -13 * E ^ 5 - 1.59085941 * 10 ^ -16 * E ^ 6 + 8.2302788 * 10 ^ -20 * E ^ 7 - 2.34181944 * 10 ^ -23 * E ^ 8 + 2.7978626 * 10 ^ -27 * E ^ 9
ElseIf E >= 1874 And E < 10332 Then
t90 = 1.291507177 * 10 ^ 1 * E ^ 0 + 1.466298863 * 10 ^ -1 * E ^ 1 -
44
大庆石油学院本科生毕业设计（论文）
1.534713402 * 10 ^ -5 * E ^ 2 + 3.145945973 * 10 ^ -9 * E ^ 3 - 4.163257839 * 10 ^ -13 * E ^ 4 + 3.187963771 * 10 ^ -17 * E ^ 5 - 1.2916375 * 10 ^ -21 * E ^ 6 + 2.183475087 * 10 ^ -26 * E ^ 7 - 1.447379511 * 10 ^ -31 * E ^ 8 + 8.211272125 * 10 ^ -36 * E ^ 9
ElseIf E >= 10332 And E < 17536 Then
t90 = -8.087801117 * 10 ^ 1 * E ^ 0 + 1.621573104 * 10 ^ -1 * E ^ 1 - 8.536869453 * 10 ^ -6 * E ^ 2 + 4.719686976 * 10 ^ -10 * E ^ 3 - 1.441693666 * 10 ^ -14 * E ^ 4 + 2.08161889 * 10 ^ -19 * E ^ 5
ElseIf E >= 17536 And E <= 18694 Then
t90 = 5.333875126 * 10 ^ 4 * E ^ 0 - 1.235892298 * 10 ^ 1 * E ^ 1 + 1.092657613 * 10 ^ -3 * E ^ 2 - 4.265693686 * 10 ^ -8 * E ^ 3 + 6.24720542 * 10 ^ -13 * E ^ 4 End If Case 3
If E < 291 Or E > 13820 Then 'Form1.Hide Form6.Show
ElseIf E >= 291 And E < 2431 Then
t90 = 9.8423321 * 10 ^ 1 * E ^ 0 + 6.99715 * 10 ^ -1 * E ^ 1 - 8.4765304 * 10 ^ -4 * E ^ 2 + 1.0052644 * 10 ^ -6 * E ^ 3 - 8.3345952 * 10 ^ -10 * E ^ 4 + 4.5508542 * 10 ^ -13 * E ^ 5 - 1.5523037 * 10 ^ -16 * E ^ 6 + 2.988675 * 10 ^ -20 * E ^ 7 - 2.474286 * 10 ^ -24 * E ^ 8
ElseIf E >= 2431 And E <= 13820 Then
t90 = 2.1315071 * 10 ^ 2 * E ^ 0 + 2.8510504 * 10 ^ -1 * E ^ 1 - 5.2742887 * 10 ^ -5 * E ^ 2 + 9.9160804 * 10 ^ -9 * E ^ 3 - 1.2965303 * 10 ^ -12 * E ^ 4 + 1.119587 * 10 ^ -16 * E ^ 5 - 6.0625199 * 10 ^ -21 * E ^ 6 + 1.8661696 * 10 ^ -25 * E ^ 7 - 2.4878585 * 10 ^ -30 * E ^ 8
45