1、軌道工程課程設計 中和軌溫及預留軌縫設計 姓名：侯新拓 學號：09231006 班級：土木0901 學院：土木建筑工程學院二一二年六月十九日目錄1路基上無縫線路課程設計任務書-22路基上無縫線路課程設計意義-83設計參數選取 -124.軟件計算過程-155課程設計結論-236軟件源程序代碼-247參考文獻-29第一部分路基上無縫線路課程設計任務書中和軌溫（即無縫線路設計鎖定軌溫）是無縫線路設計的關鍵問題，涉及鐵路軌道這門課的主要理論。該設計目的是通過實際設計，更深入地掌握鐵路軌道的基本理論。一、基本內容1）收集資料，綜合分析。通過專業書籍及相關學術期刊的學習，了解無縫線路鋪設的意義及國內外發展

2、的現狀。并對路基上無縫線路設計的基本原理、方法及步驟有較清楚的了解。2）通過計算，確定路基上無縫線路的允許降溫幅度。3）通過計算，確定路基上無縫線路的允許升溫幅度。4）通過計算，確定中和軌溫（即無縫線路設計鎖定軌溫）。中和軌溫確定是無縫線路設計的關鍵問題，涉及鐵路軌道這門課的主要理論。該設計的目的是通過實際設計，更深入地掌握鐵路軌道的基本理論（尤其是強度計算和溫度力計算理論）。二、基本要求l 對設計從全局上把握，思路清晰，將個人的獨立見解在設計說明書中完整地表達出來；l 有關計算建議上機完成，語言不限，但程序要具有通用性，即對各種參數條件都適用；并將源程序及計算結果附在課程設計書中。l 獨立完

3、成，有自己的特色；l 設計時間1周。l 設計書內容主要包括：設計任務、設計目的和意義、設計理論依據、設計參數、計算過程、設計總結（設計方案的評述、收獲及建議）、參考文獻。l 課程設計報告的文字部分要求詳細完整、章節清晰、計算過程詳盡、結論合理可靠。同時要求字跡工整、書面整潔。三、設計思路無縫線路中和軌溫計算的主要思路如圖：圖中揭示了該設計的主要思路。中和軌溫應根據當地的軌溫條件（）和軌道允許的升溫幅度和降溫幅度來確定。因此確定軌道允許的升溫幅度和降溫幅度是設計的關鍵。應根據無縫線路的設計原則來確定。主要計算如下：1、 無縫線路鋼軌強度檢算（確定允許降溫幅度）強度條件應使作用在鋼軌上的各種應力總

4、合不超過鋼軌的允許應力：式中：鋼軌動彎應力（Mpa），計算方法參見“軌道結構力學分析”一章；鋼軌溫度應力（Mpa）；鋼軌附加應力（Mpa），如橋上的伸縮應力和撓曲應力、無縫道岔基本軌附加應力、列車制動等引起的附加應力等。本設計只考慮路基上由制動引起的附加應力，可取；鋼軌允許應力。因此允許的降溫幅度可由下式計算 式中：鋼軌動彎應力（Mpa），取拉應力計算值。2、 據穩定性條件確定允許的升溫幅度根據穩定性計算求得的允許溫度壓力后，可計算出允許的升溫幅度： 式中： 附加壓力，本設計可取為零（N）。軌道允許的最大溫度壓力；根據無縫線路穩定性理論計算，采用“統一公式”。3、 中和軌溫確定根據圖，中和軌溫

5、計算如下： 4、 預留軌縫確定長軌條一端的伸縮量計算：標準規一端的伸縮量計算：按冬季軌縫不超過構造軌縫的條件，可計算預留軌縫上限： 按夏季軌縫不頂嚴的條件，可計算預留軌縫下限： 無縫線路的預留軌縫為：四、設計參數（自己選取、組合）主要技術指標：每個學生取家庭所在地區某段提速線路鋪設無縫線路，設計其鎖定軌溫。1、軌道條件：鋼軌：60kg/m，屈服強度，鋼軌斷面對水平軸的慣性矩；軌枕：III型混凝土枕，1667根/km，軌枕間距； 道床：道碴為一級道碴，面碴厚25cm，底碴厚20cm。路基填料：沙粘土；鋼軌支座剛度D：檢算鋼軌 D=301000（N/cm）；檢算軌下基礎 D=720000（N/cm

6、）曲線最小半徑R：R=800m2、運營條件：機車：東風11內燃機車，Vmax=160km/h輪重和軸距查閱相關文獻。主要參考文獻：1、軌道工程 高 亮主編 中國鐵道出版社2、貼里軌道 谷愛軍主編 中國鐵道出版社3、鐵路無縫線路 廣鐘巖等 中國鐵道出版社4、鐵道工程 郝 瀛主編 西南交通大學出版社5、鐵路軌道設計規范（TB 10082-2005）6、高速鐵路設計規范（TB 10020-2009）7、其他相關資料計算相關的其他問題附加速度系數附加速度系數和速度范圍km/h電力機車120<V160160<V200混凝土枕線路的初始彎曲 初始彎曲50kg/m鋼軌60kg/m鋼軌75kg/m

7、鋼軌彈性初彎（mm）3.02.52.0塑性初彎（mm）3.02.52.0我國常用機車類型的計算參數機車種類機車型號輪軸名稱輪重（kN）輪距（cm）構造速度（km/h）內燃機車ND5第一轉向架I106255118II106180III106820第二轉向架I106II106180III106250東風4（DF4）第一轉向架I112.8180客120貨100II112.8180III112.8840第二轉向架I112.8II112.8180III112.8180東風11（DF11）第一轉向架I112.8200客160II112.8200III112.8826.7第二轉向架I112.8II112.8

8、200III112.8200電力機車韶山1（SS1）第一轉向架I112.823090II112.8230III112.8580第二轉向架I112.8II112.8230III112.8230韶山3（SS3）第一轉向架I112.8230100II112.8200III112.8720第二轉向架I112.8II112.8230III112.8200韶山4（SS4）第一轉向架I112.8300100II112.8520第二轉向架I112.8300II112.8520第三轉向架I112.8II112.8300第四轉向架I112.8520II112.8300韶山8（SS8）第一轉向架I107.82901

9、60II107.8610第二轉向架I107.8II107.8290當V120km/h時： 當120km/hV160km/h時： 當160km/hV200km/h時： 第二部分路基上無縫線路課程設計意義一、設計任務中和軌溫確定是無縫線路設計的關鍵問題，涉及鐵路軌道這門課的主要理論。該設計的任務是通過實際設計，更深入地掌握鐵路軌道的基本理論（尤其是強度計算和溫度力計算理論）。通過專業書籍及相關學術期刊的學習，了解無縫線路鋪設的意義及國內外發展的現狀。并對路基上無縫線路設計的基本原理、方法及步驟有較清楚的了解。1）通過計算，確定路基上無縫線路的允許降溫幅度。2）通過計算，確定路基上無縫線路的允許升溫

10、幅度。3）通過計算，確定中和軌溫（即無縫線路設計鎖定軌溫）。二、設計內容和意義無縫線路是把標準長度的鋼軌焊接而成的長鋼軌線路，又稱焊接長鋼軌線路。它是當今軌道結構的一項重要新技術，是與重載、高速鐵路相適應的新型軌道結構。在普通線路上，鋼軌接頭是軌道的的薄弱環節之一，由于鋼軌街頭的存在，列車通過時發生沖擊和振動，并伴隨有 打擊噪聲，所產生的沖擊荷載最大可達非接頭區得三倍以上。為改善鋼軌接頭的工作狀態，從20世紀30年代起，國內外學者和專家進行了大量的研究實踐，采用各種方法把鋼軌焊接起來構成無縫線路。無縫線路由于消滅了大量的接頭，因而具有行車平穩、旅客乘坐舒適、機車車輛和軌道的維修費用少、使用壽命

11、長等一系列優點。鎖定軌溫：無縫線路當軌溫變化時，鋼軌要發生熱脹冷縮，但由于有約束作用，不能自由伸縮，在鋼軌內部就會產生很大的溫度力。為了保證無縫線路在工作時保持足夠的強度和穩定性，在鋪設無縫線路時，應選擇一個適宜的溫度范圍，適當控制軌溫的變化幅度，以降低鋼軌內部的溫度力。通常，將零應力狀態的軌溫稱為設計鎖定軌溫，將長軌條始終端落槽就位時的平均軌溫稱為施工鎖定軌溫。由于長軌條鎖定施工過程中軌溫是不斷變化的。所以施工鎖定軌溫有一個范圍，但應在設計鎖定軌溫允許變化的范圍之內。可以說，設計鎖定軌溫是決定鋼軌溫度力水平的基準。因此，正確合理的選擇設計鎖定軌溫，是無縫線路設計中至關重要的問題，決定無縫線路

12、的技術發展方向。預留軌縫：在無縫線路長軌條兩端的伸縮區產生的伸縮量需要留有一定的軌縫來調節，以保證軌溫達到當地最高軌溫時軌縫不頂嚴，軌溫達到當地最低軌溫時軌縫不超限，以免拉彎或剪斷螺栓。為此，必須設計計算預留軌縫值，以便在鋪設施工時實施。設計的意義在于在本科生學習期間掌握簡單的無縫線路設計的方法和步驟，為以后更加貼合實際的設計工作做準備。三、設計理論依據無縫線路中和軌溫計算的主要思路如右圖。圖中揭示了該設計的主要思路。中和軌溫應根據當地的軌溫條件（）和軌道允許的升溫幅度和降溫幅度來確定。因此確定軌道允許的升溫幅度和降溫幅度是設計的關鍵。應根據無縫線路的設計原則來確定。主要計算如下：1、無縫線路

13、允許降溫幅度計算強度條件應使作用在鋼軌上的各種應力總合不超過鋼軌的允許應力：式中：鋼軌動彎應力（Mpa），鋼軌溫度應力（Mpa）；鋼軌附加應力（Mpa），如橋上的伸縮應力和撓曲應力、無縫道岔基本軌附加力列車制動等引起的附加應力等。本設計只考慮路基上由制動引起的附加應力,可取；鋼軌允許應力。因此允許的降溫幅度可由下式計算：式中：鋼軌動彎應力（Mpa），取拉應力計算值。2、無縫線路允許升溫幅度計算根據穩定性計算求得的允許溫度壓力后，可計算出允許的升溫幅度：式中： 附加壓力，本設計可取為零（N）。軌道允許的最大溫度壓力；根據無縫線路穩定性理論計算根據圖，中和軌溫計算如下： 3、預留軌縫的計算a1長軌

14、條與標準軌之間預留軌縫值 （mm）a2相鄰緩沖軌間預留縫值 (mm)ag鋼軌接頭構造軌縫，取18mmr每股鋼軌單位長度線路縱向阻力N/cmr2每枕縱向阻力 (KN)a軌枕間距 (cm)Pj接頭阻力 (N)Ptmax最大溫度力 (N)L緩沖軌長度（m）E鋼軌彈性模量，取210GPaF鋼軌斷面面積 (mm2)長長軌條一端伸縮量（mm）短緩沖軌一端伸縮量 (mm)長軌條一端伸縮量長由以下公式計算：緩沖軌一端伸縮量緩由以下公式計算：根據預留軌縫的原則冬季軌縫不應超過構造軌縫可得：夏季軌縫不頂緊可得：伸縮區長度可按下式計算：鋼軌溫度力可按下式計算：第三部分設計參數選取主要技術指標：長春地區某段線路鋪設無

15、縫線路。 一、基本參數選取如下：鋼軌：60kg/m，鋼軌屈服強度：457Mpa，鋼軌斷面對水平軸的慣性矩：3217cm4軌枕：III型混凝土軌枕，1667根/km，軌枕間距：60cm道床：道砟為一級道砟，面砟厚：25cm，底砟厚20cm路基填料：砂粘土鋼軌支座剛度：檢算鋼軌 D=301000N/cm 檢算軌下基礎 D=720000N/cm最小曲線半徑：800m機車：東風11內燃機車，Vmax=160km/h二、具體參數如下各表：1、取正線軌道類型如下： 項目單位重型運營條件年通過總質量Mt2550列車設計最高速度km/h160軌道結構鋼軌kg/m60混凝土枕型號/鋪枕根數根/km1667巖石、

16、滲水土路基道砟一級cm面25底202、鋼軌斷面尺寸特征如下： 鋼軌類型kg/m60鋼軌類型kg/m60每米質量M/kg60.64軌頭所占面積Ah/%37.47斷面積A/cm277.45軌腰所占面積Aw/%25.29重心距軌底距離y1/mm81軌底所占面積Ab/%37.24對水平軸的慣性矩Ix/cm43217鋼軌高度H/mm176對豎直軸的慣性矩Iy/cm4524鋼軌寬度B/mm150下部截面系數W1/cm3396軌頭高度h/mm48.5下部截面系數W2/cm3339軌頭寬度b/mm73軌底橫向撓曲斷面系數Wy/cm370軌腰厚度t/mm16.53、鋼軌頭部磨耗輕傷標準如下：鋼軌kg/m總磨耗/

17、mm垂直磨耗/mm側面磨耗/mm60129124、混凝土枕尺寸如下：軌枕類型主筋數量混凝土等級截面高度/mm截面寬度/cm底面積/cm2質量/kg長度/cm軌下中間端部軌下中間772032026010787.8C6023.018.5/30.0285、軌枕扣件技術性能如下: 扣件性能彈條型扣件性能彈條型每個彈條初始扣壓力/KN10彈條變形量/mm10扣壓節點垂直靜剛度/KN/m60-80調軌距量/mm-812縱向防爬阻力/KN16調高量/mm106、附加速度系數如下： 附加速度系數a和a1速度范圍 km/h內燃機車aV120a1120<V1607、橫向水平力系數f如下（取最小曲線半徑R=8

18、00）：線路平面曲線半徑/m800橫向水平力系數f1.458、長春地區最高、最低及中間軌溫如下： 地區最高軌溫最低軌溫中間軌溫長春59.5-36.511.59、等效道床阻力Q如下（線路容許彎曲矢度f=0.2cm）： 線路條件每千米軌枕根數碎石道床、混凝土枕混凝土軌枕肩寬40cm1667 Q=84N/cm10、混凝土枕線路的初始彎曲如下：（見軌道結構課程設計資料附表2）初始彎曲60kg/m鋼軌彈性初彎（mm）2.5塑性初彎（mm）2.511、機車類型為: 東風11內燃機車，設計速度取：Vmax=160km/h，機車參數如下： 機車型號輪軸名稱輪重kN輪距cm構造速度km/h東風11（DF11）第

19、一轉向架I112.8200客160II112.8200III112.8826.7第二轉向架I112.8II112.8200III112.8200表（12）12、道床狀態參數指標如下：指標軌枕類型速度km/h道床橫向阻力 q(KN/枕)道床縱向阻力q(KN/枕)道床支承剛度(KN/mm)道床密度(g/cm3)III16010121001.7第四部分軟件計算過程1、計算動彎矩（1）無縫線路鋼軌強度檢算東風11輪軸重示意圖如右圖所示。車輪荷載采用當量靜荷載最大可能值。考慮速度及偏載的因素，車輛垂直當量荷載的最大可能值為：120km/hv160km/h 因為鋼軌彎矩Mo與車輪垂直靜荷載Po成正比，因此

20、，在垂直當量靜荷載的最大可能值Pd作用下鋼軌動彎矩Md為：120km/hv160km/h （2）計算鋼軌最大靜彎矩。輪載群作用下y,M,R的計算： 彈性位移曲線： 當量荷載： 彎矩： 軌枕反力：其中影響線函數：剛比系數：則最大動彎矩為：速度系數： 內燃機車偏載系數： 采用75mm（考慮最不利情況）； 曲線半徑：曲線上橫向水平力系數：1.45 用Vb程序計算動彎矩Md輸入參數：鋼軌支座剛度D:30100，鋼軌軌枕間距a:600，鋼軌彈性模量E:210000，鋼軌截面慣性矩:32170000機車的輪重:112800，機車的軸距:2000，軌道允許的最高速度Vmax:160，軌道的未被平衡超高值:7

21、5 計算結果軟件截圖鋼軌基礎彈性模量u= 50.17剛比系數k=0.0011672697靜彎矩M0=23994361.767鋼軌上的動彎矩為Md=62889702.062、根據穩定性計算允許溫度壓力原始彈性彎曲矢度：foe=2.5mm 原始塑性彎曲矢度：fop=2.5mm線路容許彎曲矢度：f=2mm 原始彎曲半波長：l0=4000mm等效道床阻力：84N/cm 用Vb程序計算允許溫度壓力P輸入參數:彈性初始彎矩矢度:0.25，塑性初始彎矩矢度:0.25，鋼軌彈性模量:21000000，鋼軌截面慣性矩:524,等效道床阻力:84,彈性初始彎曲半波長：400，安全系數：1.3計算結果軟件截圖變形曲

22、線弦長l=409.0694244306鋼軌允許溫度壓力P=1996976.3053373、計算中和軌溫（1）計算允許的鋼軌降溫幅度制動而引起的附加應力：安全系數：K1.3鋼軌容許應力由鋼軌的強度條件得：軌底 從強度條件出發，要求無縫線路鋼軌冬季最低軌溫Tmin時，軌底總拉應力不超過允許應力，夏季最高軌溫Tmax時，軌頭產生的總壓應力也不超過；故強度條件允許的軌溫變化幅度為： 用Vb程序計算允許的降溫幅度輸入參數：鋼軌動彎矩：62889702.06，鋼軌附加應力：10，鋼軌屈服強度：457，安全系數：1.3，鋼軌線膨脹系數：0.0000118，鋼軌斷面系數：396000，計算結果軟件截圖允許的鋼

23、軌降溫幅度：63.150C （2）根據計算允許的鋼軌升溫幅度：用Vb程序計算允許的降溫幅度輸入參數：允許溫度壓力：1996976.305337，鋼軌彈性模量：210000，鋼軌線膨脹系數：0.0000118，鋼軌斷面面積：7745，計算結果軟件截圖允許的鋼軌升溫幅度：52.030C（3）鎖定軌溫的確定：用Vb程序計算鎖定軌溫輸入參數：鋪軌地區歷史最高軌溫：59.50C，鋪軌地區歷史最低軌溫：-36.50C，設計軌溫修正值：50C ，允許的鋼軌降溫幅度：63.150C，允許的鋼軌升溫幅度：52.030C， 計算結果軟件截圖鎖定軌溫：180C施工鎖定軌溫上限：220C施工鎖定軌溫下限：130C4、

24、計算長軌和緩沖軌間預留縫a1和緩沖軌與緩沖軌間的預留縫a2 （如下圖）長軌條一端的伸縮量計算：標準規一端的伸縮量計算：按冬季軌縫不超過構造軌縫的條件，可計算預留軌縫上限： 按夏季軌縫不頂嚴的條件，可計算預留軌縫下限： 無縫線路的預留軌縫為：用Vb程序計算預留軌縫輸入參數：鋼軌截面面積:7745，鋼軌軌枕間距:600，鋼軌彈性模量:210000，鋼軌每枕縱向阻力:12000鋼軌的線膨脹系數:0.0000118，相鄰標準軌間預留軌縫:18，鋼軌接頭阻力:490000，最高軌溫:59.5最低軌溫:-36.5，標準軌的長度:25，施工鎖定軌溫：220C，210C，200C，190C，180C，170C

25、，160C，150C，140C，130C當溫度為220C，長軌與緩沖軌預留軌縫為4mm，緩沖軌與緩沖軌預留軌縫為：6mm當溫度為210C，長軌與緩沖軌預留軌縫為5mm，緩沖軌與緩沖軌預留軌縫為：6mm當溫度為200C，長軌與緩沖軌預留軌縫為5mm，緩沖軌與緩沖軌預留軌縫為：7mm當溫度為190C，長軌與緩沖軌預留軌縫為6mm, 緩沖軌與緩沖軌預留軌縫為：7mm當溫度為180C，長軌與緩沖軌預留軌縫為6mm, 緩沖軌與緩沖軌預留軌縫為：8mm當溫度為170C，長軌與緩沖軌預留軌縫為7mm, 緩沖軌與緩沖軌預留軌縫為：8mm當溫度為160C，長軌與緩沖軌預留軌縫為7mm, 緩沖軌與緩沖軌預留軌縫為

26、：8mm當溫度為150C，長軌與緩沖軌預留軌縫為8mm, 緩沖軌與緩沖軌預留軌縫為：9mm當溫度為140C，長軌與緩沖軌預留軌縫為8mm, 緩沖軌與緩沖軌預留軌縫為：9mm當溫度為130C，長軌與緩沖軌預留軌縫為9mm, 緩沖軌與緩沖軌預留軌縫為：9mm第五部分課程設計結論本設計根據所給的工程資料將長春某段提速區域的無縫線路軌道鎖定溫度和預留軌縫寬度進行了設計，在設計中主要參照了課本的計算公式與參數選擇，同時也向老師同學請教了一些問題。通過這幾天的設計，不僅使我對已學的知識進行了鞏固和加深，更了解到無縫軌道設計的過程，在設計中發現了以下結論：1.在溫差較大的地方會導致軌溫變化幅度增大，使軌道溫

27、度應力升高，致使軌道應力大于允許應力，造成軌道的變形和破壞。這說明了在溫差較大的地方是不利于鋪設無縫線路的，如果有工程需求，就要加強軌道的強度以及相應的構造措施來保證軌道的穩定承載。2.中和軌溫的確定一方面是由線路鋪設地的最高、最低溫度決定，另一方面是由于軌道自身的材料性質決定。在鎖定軌溫的選擇中，施工溫度為一個溫度區域。3.預留軌縫的寬度要在滿足構造軌縫的前提下考慮升降溫所帶來的軌道脹縮因素，保證夏天不脹軌，冬天軌道不被拉壞。從之前計算結果可以看出，在設計范圍內，隨施工溫度的升高，軌縫由大變小。4.根據所求的各組數據，長春地區冬季氣溫較低，軌道長度收縮較大，盡管夏季溫度不是特別高，但是夏季產

28、生的軌道長度伸長量已經超過了冬季所能預留軌縫的數值，但經驗算，數據還是合格通過的。 建議：如果想要修建無縫線路，可以將軌枕從1667根/km提高到1840根/km，從而提高等效床阻力，減小冬季軌道收縮量。 第六部分軟件源程序代碼Private Sub Command1_Click()Dim op1 As DoubleDim op2 As DoubleDim op3 As DoubleDim op4 As DoubleDim op5 As DoubleDim op6 As Doubleop1 = Val(Text2.Text)op2 = Val(Text3.Text)op3 = Val(Text

29、4.Text)op4 = Val(Text5.Text)op5 = Val(Text6.Text)op6 = Val(Text7.Text)Text1.Text = op1 / op2Text13.Text = (op1 / 4 / op2 / op3 / op4) (1 / 4)Text14.Text = (op5 * (1 + (Exp(-(Val(Text13.Text) * op6) * (Cos(Val(Text13.Text) * op6) + Sin(Val(Text13.Text) * op6) + (Exp(-(Val(Text13.Text) * 2 * op6) * (C

30、os(Val(Text13.Text) * 2 * op6) + Sin(Val(Text13.Text) * 2 * op6) / (4 * Val(Text13.Text)End SubPrivate Sub Command10_Click()Text31 = ""Text32 = ""Text33 = ""Text34 = ""Text35 = ""Text36 = ""End SubPrivate Sub Command11_Click()Dim op27 As Do

31、ubleDim op28 As DoubleDim op29 As DoubleDim op30 As DoubleDim op31 As Doubleop27 = Val(Text36.Text)op28 = Val(Text37.Text)op29 = Val(Text38.Text)op30 = Val(Text39.Text)op31 = Val(Text40.Text)Text41.Text = (op27 + op28) / 2 + (op30 - op31) / 2Text42.Text = (op27 + op28) / 2 + (op30 - op31) / 2) + op2

32、9Text43.Text = (op27 + op28) / 2 + (op30 - op31) / 2) - op29End SubPrivate Sub Command12_Click()Text36 = ""Text37 = ""Text38 = ""Text39 = ""Text40 = ""Text41 = ""Text42 = ""Text43 = ""End SubPrivate Sub Command13_Click()

33、Dim op32 As DoubleDim op33 As DoubleDim op34 As DoubleDim op35 As DoubleDim op36 As DoubleDim op37 As DoubleDim op38 As DoubleDim op39 As DoubleDim op40 As DoubleDim op41 As DoubleDim op42 As Doubleop32 = Val(Text44.Text)op33 = Val(Text45.Text)op34 = Val(Text46.Text)op35 = Val(Text47.Text)op36 = Val

34、(Text48.Text)op37 = Val(Text49.Text)op38 = Val(Text50.Text)op39 = Val(Text51.Text)op40 = Val(Text52.Text)op41 = Val(Text53.Text)op42 = Val(Text54.Text)Text55.Text = (op37 - (op32 * op34 * op36 * (op42 - op40) - op38) * (op32 * op34 * op36 * (op42 - op40) - op38) / (2 * op34 * op32 * (op35 / (2 * op3

35、3) - (op32 * op34 * op36 * (op42 - op40) - op38) * op41 - (op35 / (2 * op33) * op41 * op41 / 4) / (2 * op34 * op32) + (op32 * op34 * op36 * (op39 - op42) - op38) * (op32 * op34 * op36 * (op39 - op42) - op38) / (2 * op34 * op32 * (op35 / (2 * op33) + (op32 * op34 * op36 * (op39 - op42) - op38) * op41

36、 - (op35 / (2 * op33) * op41 * op41 / 4) / (2 * op34 * op32) / 2Text56.Text = (op37 - 2 * (op32 * op34 * op36 * (op42 - op40) - op38) * op41 - (op35 / (2 * op33) * op41 * op41 / 4) / (2 * op34 * op32) + (2 * (op32 * op34 * op36 * (op39 - op42) - op38) * op41 - (op35 / (2 * op33) * op41 * op41 / 4) /

37、 (2 * op34 * op32) / 2End SubPrivate Sub Command14_Click()Text44 = ""Text45 = ""Text46 = ""Text47 = ""Text48 = ""Text49 = ""Text50 = ""Text51 = ""Text52 = ""Text53 = ""Text54 = ""Text55 = &q

38、uot;"Text56 = ""End SubPrivate Sub Command2_Click()Text2 = ""Text3 = ""Text4 = ""Text5 = ""Text6 = ""Text7 = ""Text1 = ""Text13 = ""Text14 = ""End SubPrivate Sub Command3_Click()Dim op7 As Double

39、Dim op8 As Doubleop7 = Val(Text8.Text)op8 = Val(Text12.Text)Text18.Text = (0.04 * op7) / 100Text19.Text = 0.002 * op8Text9.Text = (1 + Val(Text18.Text) + Val(Text19.Text) * 1.45 * Val(Text14.Text)End SubPrivate Sub Command4_Click()Text8 = ""Text9 = ""Text12 = ""Text18 =

40、 ""Text19 = ""End SubPrivate Sub Command5_Click()Dim op9 As DoubleDim op10 As DoubleDim op11 As DoubleDim op12 As DoubleDim op13 As DoubleDim op14 As DoubleDim op15 As DoubleDim op16 As Doubleop9 = Val(Text10.Text)op10 = Val(Text11.Text)op11 = Val(Text15.Text)op12 = Val(Text16.Te

41、xt)op13 = Val(Text17.Text)op14 = Val(Text21.Text)op15 = Val(Text22.Text)op16 = Val(Text23.Text)Text20.Text = (2 * op11 * op12 * 3.1415926 * 3.1415926) / (1 / (1 / (op14 * op14) / (8 * op10) + (1 / 106000) + (2 * op11 * op12 * 3.1415926 * 3.1415926) / (1 / (1 / (op14 * op14) / (8 * op10) + (1 / 106000) 2 + (op11 * op12 * (3.1415926) 5) * (0.2 + op9) * op13) / 2) (1 / 2) / op13)