Attribute VB_Name = "Module1"
5 Rem"²¨¸ß¡¢·çÛÕË®Ãæ¸ß¼°²¨ÀËÅÀ¸ß¼ÆËã³ÌÐò"
10 INPUT"ƽ¾ùË®Éî=";H:INPUT"Éè¼Æ·çËÙW1=";W1:INPUT"´µ³ÌD=";D
15 W = Int(0.988 * W1 * 10 + 0.5) / 10: D = 1000 * D
20 X1 = 0.7 * (9.810001 * H / W ^ 2) ^ 0.7: X2 = (2.72 ^ X1 - 2.72 ^ (-X1)) / (2.72 ^ X1 + 2.72 ^ (-X1))
25 Y1 = 0.0018 * (9.810001 * D / W ^ 2) ^ 0.45
30 Y2 = Y1 / (0.13 * X2): Y3 = (2.72 ^ Y2 - 2.72 ^ (-Y2)) / (2.72 ^ Y2 + 2.72 ^ (-Y2))
40 X = 0.13 * X2 * Y3
50 H1 = X * W ^ 2 / 9.810001
55 H1 = Int(H1 * 100 + 0.5) / 100: Print "ƽ¾ù²¨¸ß:H1="; H1; "(Ã×)"
60 T = 4 * (Sqr(H1))
80 For U = 5 To 90
90 Z = 2 * 3.14159 * H / U: P = (9.810001 * T ^ 2 / (2 * 3.14159)) * ((2.72 ^ Z - 2.72 ^ (-Z)) / (2.72 ^ Z + 2.72 ^ (-Z)))
100 If Abs(P - U) < 3 And H / U < 0.5 Then GoTo 170
110 If Abs(P - U) < 3 Then GoTo 130
120 Next U
130 P = 1.56 * T ^ 2
170 E = 5 * 10 ^ (-6) * W ^ 2 * D / (2 * 9.810001 * H)
175 E = Int(E * 100 + 0.5) / 100
180 Print "W/SQR(9.81*H)="; W / Sqr(9.810001 * H)
185 Print "²é¡¶ÄëѹʽÍÁʯ°ÓÉè¼Æ¹æ·¶¡·¸½±í1.5¡¢1.6È·¶¨K1¼°KWÖµ"
188 INPUT "²ÚÂʼ°Éø͸ϵÊýK1";K1
190 INPUT "¾­ÑéϵÊýKW=";KW:INPUT"±ßÆÂϵÊýM=";M:INPUT"°²È«¼Ó¸ß(Ã×)H2=";H2
200 R = 2.08 * K1 * KW * Sqr(H1 * P) / Sqr(1 + M ^ 2)
205 R = Int(R * 100 + 0.5) / 100
210 B = H2 + R + E
215 T = Int(T * 100 + 0.5) / 100
218 P = Int(P * 100 + 0.5) / 100
220 Print: Print Tab(20); "-----»ù´¡Êý¾Ý-----"
230 Print Tab(5); "²¨³¤:P="; P; "(Ã×)"; Tab(35); "ƽ¾ùË®Éî:H="; H; "(Ã×)"
235 Print Tab(5); "´µ³Ì:D="; D; "(Ã×)"; Tab(35); "¼ÆËã·çËÙ:W="; W; "(Ã×/Ãë)"
240 Print Tab(5); "ƽ¾ùÖÜÆÚ:T="; T; "(Ãë)"; Tab(35); "ƽ¾ù²¨¸ß:H1="; H1; "(Ã×)"
245 Print Tab(5); "±ßÆÂϵÊý:M="; M
250 Print Tab(20); "-----Êä³ö½á¹û-----"
260 Print Tab(5); "°²È«¼Ó¸ß :H2="; H2; "(Ã×)"; Tab(35); "·çÛÕË®Ãæ¸ß:E="; E; "(Ã×)"
265 Print Tab(5); "Éè¼ÆÅÀ¸ß(1£¥):R="; R; "(Ã×)"; Tab(35); "³¬¸ß:B="; B; "(Ã×)"
270 End
ÿ