燃燒計算中空氣的氮與氧的百分比
更嚴密計算
重量式 N2:76.8% O2:23.2%
體積式 N2:79% O2:21%
資料來源:廃棄物焼却炉計画と設計 P106
重量式 O2:23.135% 其他:76.865%
體積式 O2:20.942% 其他:79.058%
資料來源:WiKi
在[廃棄物焼却炉計画と設計]一書中計算
重量式 N2:77% O2:23%
體積式 N2:79% O2:21%
2014年7月31日 星期四
2014年7月28日 星期一
2014年7月18日 星期五
使用耐火物保溫材後的爐壁溫度降低例
使用耐火物保溫材後的爐壁溫度降低例
a) 210+230 b) 20+210+230 c) 3.2+50+114+230 d ) 50+114+114 e ) 50+50+50
a ) 105+126+146 b ) 74+87+131 c ) 59+73+89 d ) 55+65 e ) 46+51
2014年7月16日 星期三
cal j or kcal kj ??
卡路里(Calorie,縮寫為cal),簡稱卡,定義為將1克水在1大氣壓(101.325 kPa)下提升1攝氏度所需要的熱量。
但是沒定義溫度!!那好玩了(因不同溫度水的比熱容不一樣)。
但是沒定義溫度!!那好玩了(因不同溫度水的比熱容不一樣)。
所以----------------------------------------------------
1. 熱化學卡calth=4.184 J (美 環工)
2. 在工程界一般用15℃卡 cal15=4.1855 J
2. 在工程界一般用15℃卡 cal15=4.1855 J
另外還有
3. 4℃卡 cal4≒4.204 J
4. 20℃卡 cal20≒4.182 J (4.1816 J ) 中國大陸
5. 平均卡 calmean≒4.190 J (將1克無氣體水在標準大氣壓下從0℃加熱到100℃所需要的1⁄100的能量。)
6. 國際蒸汽表卡 calIT≒4.1868 J ( 蘇聯 )
注意 ! ! 在中國大陸:
在煤的熱值、比熱容等計算公式中,均以 cal(20℃)=4.1816 J 為換算係數
凡涉及熱量單位換算均採用國際蒸汽表卡 cal(1T)=4.1868 J為換算係數
燃料完全燃燒的化學反應平衡
燃料完全燃燒的化學反應平衡
資料來源:Handbook of Environmental Engineering Calculations, 2nd edition(by C. C. Lee, Shun Dar Lin)-2.152 CH2.2
資料來源:Handbook of Environmental Engineering Calculations, 2nd edition(by C. C. Lee, Shun Dar Lin)-2.152 CH2.2
2014年7月14日 星期一
2014年7月12日 星期六
2014年7月11日 星期五
2014年7月8日 星期二
WIN7 錄音機播放無聲音 處理!!
1.WIN 7 錄音機錄音後播放沒聲音
2.我的處理方法 ! ! 如下 !!
點擊開始--> [ 選控制台 ]
3.點擊 [ 硬體和音效 ]
4.點擊 [ 聲音 ]
5.點選 [ 錄製 ] 再選 [ 立體聲混音 ]
6.點選下端 [ 確定 ] 這樣就OK了!!
2014年7月5日 星期六
在Win7 使用gwbasic
gwbasic 使用多年;最近換了電腦 作業系統也改用win7;可是新系統無法使用gwbasic;網上找了一下大都是玩遊戲用..想要用gwbasic就很少人談
1.先去網上搜尋並下載箭頭所示程式(DOSBox0.74-win32-installer.exe);並放置在d:/DosBox卷宗內,雙擊程式 如下所示!!
2. 點擊 [執行]
4. 點擊 [ Next > ]
5.點擊 [ Install ]
6. Setup完後 點擊[ Close ]
7.點擊 Program Files(x86) 卷內看看裝好沒有
8.找到 DOSB-0.74並點擊它
9.點擊批次檔 觀看內容
10.把滾動條拉至最下
11.在最下端加入
PATH=Z:\;C:\BIN
MOUNT C D:\dos
C:
12.輸入完後 儲存資料
13.在D機內建一個dos卷;將GWBASIC 或 baisc 放在d:/dos 內
14.點擊桌面DOSBox-0.74捷徑
15.點擊後桌面顯示如下
16.在C:\>C:後輸入gwbasic
17.跳出另一個視窗如下(ps:以後程式就在這視窗下執行)
17.跳出另一個視窗如下(ps:以後程式就在這視窗下執行) 註:第一次開始要輸入時 先按NumLock 1 數字鍵兩次!!
1.先去網上搜尋並下載箭頭所示程式(DOSBox0.74-win32-installer.exe);並放置在d:/DosBox卷宗內,雙擊程式 如下所示!!
2. 點擊 [執行]
3. 點擊 [Next>]
4. 點擊 [ Next > ]
5.點擊 [ Install ]
6. Setup完後 點擊[ Close ]
7.點擊 Program Files(x86) 卷內看看裝好沒有
8.找到 DOSB-0.74並點擊它
9.點擊批次檔 觀看內容
10.把滾動條拉至最下
11.在最下端加入
PATH=Z:\;C:\BIN
MOUNT C D:\dos
C:
12.輸入完後 儲存資料
13.在D機內建一個dos卷;將GWBASIC 或 baisc 放在d:/dos 內
14.點擊桌面DOSBox-0.74捷徑
15.點擊後桌面顯示如下
16.在C:\>C:後輸入gwbasic
17.跳出另一個視窗如下(ps:以後程式就在這視窗下執行)
17.跳出另一個視窗如下(ps:以後程式就在這視窗下執行) 註:第一次開始要輸入時 先按NumLock 1 數字鍵兩次!!
2014年7月4日 星期五
VB.Net 顏色 【色版顏色】】
【色版顏色】
-----------------------------------------------------------------------------------------------下繪一橫紅線
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim g As Graphics = e.Graphics
Dim redpen As Pen = New Pen(Color.white, 3)
g.DrawLine(redpen, 0, 90, 285, 90)
End Sub
-------------------------------------------------------------------------------------------------
Me.MaximizeBox = False
-------------------------------------------------------------------------------------------------
button1.BackColor = System.Drawing.SystemColors.Control (原色)
Button1.BackColor = System.Drawing.Color.*****
Button1.BackColor = Color.FromArgb(***,***,***)
01-Button1.BackColor = System.Drawing.Color.White
02-Button1.BackColor = Color.FromArgb(224, 224, 224)
03-Button1.BackColor = System.Drawing.Color.Silver
04-Button1.BackColor = System.Drawing.Color.Gray
05-Button1.BackColor = Color.FromArgb(64, 64, 64)
06-Button1.BackColor = System.Drawing.Color.Black
07-Button1.BackColor = Color.FromArgb(255, 192, 192)
08-Button1.BackColor = Color.FromArgb(255, 128, 128)
09-Button1.BackColor = System.Drawing.Color.Red
10-Button1.BackColor = Color.FromArgb(192, 0, 0)
11-Button1.BackColor = System.Drawing.Color.Maroon
12-Button1.BackColor = Color.FromArgb(64, 0, 0)
13-Button1.BackColor = Color.FromArgb(255, 224, 192)
14-Button1.BackColor = Color.FromArgb(255, 192, 128)
15-Button1.BackColor = Color.FromArgb(255, 128, 0)
16-Button1.BackColor = Color.FromArgb(192, 64, 0)
17-Button1.BackColor = Color.FromArgb(128, 64, 0)
18-Button1.BackColor = Color.FromArgb(128, 64, 64)
19-Button1.BackColor = Color.FromArgb(255, 255, 192)
20-Button1.BackColor = Color.FromArgb(255, 255, 128)
21-Button1.BackColor = System.Drawing.Color.Yellow
22-Button1.BackColor = Color.FromArgb(192, 192, 0)
23-Button1.BackColor = System.Drawing.Color.Olive
24-Button1.BackColor = Color.FromArgb(64, 64, 0)
25-Button1.BackColor = Color.FromArgb(192, 255, 192)
26-Button1.BackColor = Color.FromArgb(128, 255, 128)
27-Button1.BackColor = System.Drawing.Color.Lime
28-Button1.BackColor = Color.FromArgb(0, 192, 0)
29-Button1.BackColor = System.Drawing.Color.Green
30-Button1.BackColor = Color.FromArgb(0, 64, 0)
31-Button1.BackColor = Color.FromArgb(192, 255, 255)
32-Button1.BackColor = Color.FromArgb(128, 255, 255)
33-Button1.BackColor = System.Drawing.Color.Cyan
34-Button1.BackColor = Color.FromArgb(0, 192, 192)
35-Button1.BackColor = System.Drawing.Color.Teal
36-Button1.BackColor = Color.FromArgb(0, 64, 64)
37-Button1.BackColor = Color.FromArgb(192, 192, 255)
38-Button1.BackColor = Color.FromArgb(128, 128, 255)
39-Button1.BackColor = System.Drawing.Color.Blue
40-Button1.BackColor = Color.FromArgb(0, 0, 192)
41-Button1.BackColor = System.Drawing.Color.Navy
42-Button1.BackColor = Color.FromArgb(0, 0, 64)
43-Button1.BackColor = Color.FromArgb(255, 192, 255)
44-Button1.BackColor = Color.FromArgb(255, 128, 255)
45-Button1.BackColor = System.Drawing.Color.Fuchsia
46-Button1.BackColor = Color.FromArgb(192, 0, 192)
47-Button1.BackColor = System.Drawing.Color.Purple
48-Button1.BackColor = Color.FromArgb(64, 0, 64)
VB.Net 輸入完 Enter 結束
例:
Dim z1 As Double
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
e.Handled = True
z1 = Val(TextBox1.Text) 'z1為輸入值
TextBox2.Focus() '游標跳至TextBox2.Text
End If
End Sub
注意:1.要用KeyPress否則程式不能執行 2.按 [Enter] 鍵 表示輸入結束
Dim z1 As Double
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
e.Handled = True
z1 = Val(TextBox1.Text) 'z1為輸入值
TextBox2.Focus() '游標跳至TextBox2.Text
End If
End Sub
注意:1.要用KeyPress否則程式不能執行 2.按 [Enter] 鍵 表示輸入結束
訂閱:
文章 (Atom)