- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 98
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-4-27
              
|
回復 3# hero_lin - Sub ex()
- V1 = InputBox("桶槽體積(V1)： ", , 450) ' (使用者輸入值)
- T1 = InputBox("Tank 內溫度(T1)：", , 30) ' (使用者輸入值)
- TW = InputBox("灑水溫度(TW)： ", , 5) ' (使用者輸入值)
- W = InputBox("灑水量(W)(L/SEC)： ", , 8.33) ' (使用者輸入值)
- '計算值 (y): XXXXX (經過下列計算後把數值顯示此欄位)
-
- For T = T1 - 2 To T1 Step 0.01
- X1 = 0.02273 - (0.2275 * 10 ^ -2) * T1 + 1352 * 10 ^ -4 * T1 ^ 2 - 2.607 * 10 ^ -6 * T1 ^ 3 + 2.642 * 10 ^ -8 * T1 ^ 4
- IS1 = 0.24 * T1 + X1 * (597.3 + 0.44 * T1)
- X = 0.02273 - (0.2275 * 10 ^ -2) * T + 1352 * 10 ^ -4 * T ^ 2 - 2.607 * 10 ^ -6 * T ^ 3 + 2.642 * 10 ^ -8 * T ^ 4
- I = 0.24 * T + X * (597.3 + 0.44 * T)
- VS1 = 0.632 + 1.55 * 10 ^ -2 * T1 - 3.385 * 10 ^ -4 * T1 ^ 2 + 3.85 * 10 ^ -6 * T1 ^ 3
- y = V1 / VS1 * (IS1 - I) - W * (T - TW)
- n = n + 1
- Cells(n, 1) = y
- Next T
- End Sub
|
|
發表於 2011-6-7 19:09
| 