Èȵçż - ͼÎÄ

´óÇìʯÓÍѧԺ±¾¿ÆÉú±ÏÒµÉè¼Æ£¨ÂÛÎÄ£©

End If Case 4

If E < -8095 Or E > 69553 Then 'Form1.Hide Form6.Show

ElseIf E >= -8095 And E < 0 Then

t90 = 1.9528268 * 10 ^ -2 * E ^ 1 - 1.2286185 * 10 ^ -6 * E ^ 2 - 1.0752178 * 10 ^ -9 * E ^ 3 - 5.9086933 * 10 ^ -13 * E ^ 4 - 1.7256713 * 10 ^ -16 * E ^ 5 - 2.8131513 * 10 ^ -20 * E ^ 6 - 2.396337 * 10 ^ -24 * E ^ 7 - 8.3823321 * 10 ^ -29 * E ^ 8

ElseIf E >= 0 And E < 42919 Then

t90 = 1.978425 * 10 ^ -2 * E ^ 1 - 2.001204 * 10 ^ -7 * E ^ 2 + 1.036969 * 10 ^ -11 * E ^ 3 - 2.549687 * 10 ^ -16 * E ^ 4 + 3.585153 * 10 ^ -21 * E ^ 5 - 5.344285 * 10 ^ -26 * E ^ 6 + 5.09989 * 10 ^ -31 * E ^ 7

ElseIf E >= 42919 And E <= 69553 Then

t90 = -3.11358187 * 10 ^ 3 * E ^ 0 + 3.00543684 * 10 ^ -1 * E ^ 1 - 9.9477323 * 10 ^ -6 * E ^ 2 + 1.7027663 * 10 ^ -10 * E ^ 3 - 1.43033468 * 10 ^ -15 * E ^ 4 + 4.73886084 * 10 ^ -21 * E ^ 5 End If Case 5

If E < -5603 Or E > 20872 Then 'Form1.Hide Form6.Show

ElseIf E >= -5603 And E < 0 Then

46

´óÇìʯÓÍѧԺ±¾¿ÆÉú±ÏÒµÉè¼Æ£¨ÂÛÎÄ£©

t90 = 2.5949192 * 10 ^ -2 * E ^ 1 - 2.1316967 * 10 ^ -7 * E ^ 2 + 7.9018692 * 10 ^ -10 * E ^ 3 + 4.2527777 * 10 ^ -13 * E ^ 4 + 1.3304473 * 10 ^ -16 * E ^ 5 + 2.0241446 * 10 ^ -20 * E ^ 6 + 1.2668171 * 10 ^ -24 * E ^ 7

ElseIf E >= 0 And E <= 20872 Then

t90 = 2.5928 * 10 ^ -2 * E ^ 1 - 7.602961 * 10 ^ -7 * E ^ 2 + 4.637791 * 10 ^ -11 * E ^ 3 - 2.165394 * 10 ^ -15 * E ^ 4 + 6.048144 * 10 ^ -20 * E ^ 5 - 7.293422 * 10 ^ -25 * E ^ 6 End If Case 6

If E < -8825 Or E > 76373 Then 'Form1.Hide Form6.Show

ElseIf E >= ¨C8825 And E < 0 Then

t90 = 1.6977288 * 10 ^ -2 * E ^ 1 - 4.351497 * 10 ^ -7 * E ^ 2 - 1.5859697 * 10 ^ -10 * E ^ 3 - 9.2502871 * 10 ^ -14 * E ^ 4 - 2.6084314 * 10 ^ -17 * E ^ 5 - 4.1360199 * 10 ^ -21 * E ^ 6 - 3.403403 * 10 ^ -25 * E ^ 7 - 1.156489 * 10 ^ -29 * E ^ 8

ElseIf E >= 0 And E <= 76373 Then

t90 = 1.7057035 * 10 ^ -2 * E ^ 1 - 2.3301759 * 10 ^ -7 * E ^ 2 + 6.5435585 * 10 ^ -12 * E ^ 3 - 7.3562749 * 10 ^ -17 * E ^ 4 - 1.7896001 * 10 ^ -21 * E ^ 5 + 8.4036165 * 10 ^ -26 * E ^ 6 - 1.3735879 * 10 ^ -30 * E ^ 7 + 1.0629823 * 10 ^ -35 * E ^ 8 - 3.2447087 * 10 ^ -41 * E ^ 9 End If Case 7

If E < -5891 Or E > 54886 Then

47