版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、沈 陽(yáng) 航 空 航 天 大 學(xué) 課程設(shè)計(jì) 學(xué) 號(hào) 班 級(jí)14060109 姓 名 熊 俊指導(dǎo)教師 楊 煦2013年 6 月 24 日沈陽(yáng)航空航天大學(xué)課程設(shè)計(jì)任務(wù)書(shū)學(xué)院:機(jī)電工程學(xué)院 專業(yè):機(jī)械師及制造 班級(jí):14060109 學(xué)號(hào):題目:繪制曲線并求定積分一、課程設(shè)計(jì)時(shí)間2013年6月17日6月21日(第17周),共計(jì)1周。二、課程設(shè)計(jì)內(nèi)容繪制曲線y=x3+1,并用“累計(jì)梯形面積”法求定積分 的值,要求所求區(qū)間的面積區(qū)域用藍(lán)色填充。用戶界面中的菜單(或命令按鈕)至少應(yīng)包括“輸入a和b的值”、“繪制曲線”、“求定積分”、“退出”4項(xiàng)。三、課程設(shè)計(jì)要求程序質(zhì)量:² 貫徹事件驅(qū)動(dòng)的程序設(shè)計(jì)
2、思想。² 用戶界面友好,功能明確,操作方便;可以增加其它功能或修飾。² 代碼應(yīng)適當(dāng)縮進(jìn),并給出必要的注釋,以增強(qiáng)程序的可讀性。課程設(shè)計(jì)說(shuō)明書(shū):² 課設(shè)結(jié)束后,上交課程設(shè)計(jì)說(shuō)明書(shū)和源程序。課程設(shè)計(jì)說(shuō)明書(shū)的內(nèi)容參見(jiàn)提供的模板。四、指導(dǎo)教師和學(xué)生簽字指導(dǎo)教師:_ 學(xué)生簽名:_五、成績(jī)六、教師評(píng)語(yǔ)目 錄需求分析4設(shè)計(jì)分析4關(guān)鍵技術(shù)6總結(jié)9完整的源程序10參考文獻(xiàn)11需求分析繪制曲線并求定積分,主要任務(wù)就是把y=x*x*x+1的曲線繪制出來(lái)與確定a、b的值后求定積分 的值并把這部分的面積用藍(lán)色填充要求:用戶界面中的菜單(或命令按鈕)至少應(yīng)包括“輸入a和b的值”、“繪制曲線”
3、、“求定積分”、“退出”4項(xiàng)能夠打開(kāi)程序點(diǎn)擊繪制曲線就能把y=x*x*x+1的曲線顯示出來(lái)。輸入a、b的值點(diǎn)擊求定積分就能把值顯示并把所對(duì)應(yīng)的面積用藍(lán)色填充。藍(lán)色填充后原來(lái)的函數(shù)曲線保留。設(shè)計(jì)分析(1) 基本原理:“累計(jì)梯形面積”法求定積的值與用圖形操作技術(shù)繪制圖形與填充顏色。(2) 總體設(shè)計(jì):填充顏色 計(jì)算定積分繪制曲線(3)詳細(xì)設(shè)計(jì):開(kāi)始設(shè)計(jì)界面繪制圖形輸入a、b的值填充所求區(qū)域求定積分結(jié)束關(guān)鍵技術(shù)1用"累計(jì)梯形面積"法求定積分Function fun#(x#) '函數(shù)過(guò)程 fun = x * x * x + 1End FunctionFunction jife
4、n#(ByVal a#, ByVal b#, ByVal n&) '函數(shù)過(guò)程Dim sum#, s#, h#, x# '變量聲明 h = (b - a) / n '"累計(jì)梯形面積"法求定積分 For i = 0 To n - 1 x = a + i * h s = h * (fun(x) + fun(x + h) / 2 sum = sum + s Next ijifen = sum '面積總和賦值到j(luò)ifenEnd Function2繪制圖形Private Sub command1_click() Form1.Scale (-7.5
5、, 10)-(7.5, -10) DrawWidth = 2 '設(shè)置繪制的線寬 Line (-7.3, 0)-(7.3, 0): Line (0, 9.5)-(0, -9.5) CurrentX = 7.3: CurrentY = 0.2: Print "X" '標(biāo)記X軸 CurrentX = 0.5: CurrentY = 9.3: Print "Y" '標(biāo)記Y軸 For i = -7 To 7 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2: CurrentY = -0.1: Print i N
6、ext i For x = -7 To 7 Step 0.005 y = x * x * x + 1 PSet (x, y) Next xEnd Sub窗體-查詢:2填充所求區(qū)域For x = a To b Step 0.005 Form1.Line (x, 0)-(x, x * x * x + 1), vbBlue '用藍(lán)色直線填充積分面積區(qū)域 Next x窗體-查詢:總結(jié) 這次課設(shè)我的題目是繪制曲線并求定積分,通過(guò)這次課設(shè)讓我了解了VB與數(shù)學(xué)知識(shí)之間有很大的聯(lián)系,比如這個(gè)題目就要用數(shù)學(xué)中的累計(jì)面積法求定積分,讓我學(xué)到編寫(xiě)程序要簡(jiǎn)單易懂,但要達(dá)到效果。界面安排要得當(dāng),達(dá)到美光。不然雜
7、亂無(wú)章,自己也無(wú)法看懂,更談何給他人講解呢。 在課設(shè)過(guò)程中,我遇到了重重困難,例如:在繪制圖形時(shí),圖像不能顯示,界面過(guò)小不能顯示全部?jī)?nèi)容,運(yùn)行另一指令,把前面的圖像覆蓋了,而且缺少了左半部分,通過(guò)老師的指點(diǎn)和自己查閱資料,修改了部分程序,界面修改下合理化,最終順利的完成了任務(wù)。 同時(shí)我也了解了VB的出現(xiàn)是一場(chǎng)技術(shù)革命,它在生活中各個(gè)方面都能發(fā)揮巨大的作用,所以,學(xué)好VB是社會(huì)發(fā)展的需要。完整的源程序Private Sub Command2_Click()End End SubFunction fun#(x#) fun = x * x * x + 1End FunctionFunction ji
8、fen#(ByVal a#, ByVal b#, ByVal n&) Dim sum#, s#, h#, x# h = (b - a) / n For i = 0 To n - 1 x = a + i * h s = h * (fun(x) + fun(x + h) / 2 sum = sum + s Next ijifen = sum End FunctionPrivate Sub Command3_Click() Dim a%, b% a = Val(Text1.Text) b = Val(Text2.Text) Text3.Text = jifen(a, b, 100) Form
9、1.Scale (-7.5, 10)-(7.5, -10) Line (-7.3, 0)-(7.3, 0): Line (0, 9.5)-(0, -9.5) For i = -7 To 7 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2: CurrentY = -0.1: Print i Next i For x = -7 To 7 Step 0.005 y = x * x * x + 1 PSet (x, y) Next x For x = a To b Step 0.005 Form1.Line (x, 0)-(x, x * x * x + 1), vbBl
10、ue Next xEnd SubPrivate Sub command1_click() Form1.Scale (-7.5, 10)-(7.5, -10) DrawWidth = 2 Line (-7.3, 0)-(7.3, 0): Line (0, 9.5)-(0, -9.5) CurrentX = 7.3: CurrentY = 0.2: Print "X" CurrentX = 0.5: CurrentY = 9.3: Print "Y" For i = -7 To 7 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2: CurrentY = -0.1: Print i Next i For x = -7 To 7 Step 0.005 y = x * x * x + 1 PSet (x, y) Next xEnd Sub參考
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 二零二五年度門窗行業(yè)人力資源服務(wù)合同下載4篇
- 二零二五年集團(tuán)團(tuán)購(gòu)食品禮盒團(tuán)購(gòu)合同3篇
- 2025年度租賃車輛清潔維護(hù)合同定期保養(yǎng)4篇
- 半導(dǎo)體超潔凈材料建設(shè)項(xiàng)目可行性研究報(bào)告完整立項(xiàng)報(bào)告
- 二零二五版高端寫(xiě)字樓物業(yè)管理合同樣本3篇
- 供應(yīng)鏈全球化的挑戰(zhàn)與機(jī)遇
- 高溫火災(zāi)下的安全逃生指南
- 民政局二零二五年度離婚協(xié)議起草與咨詢合同4篇
- 2021-2026年中國(guó)信號(hào)完整性行業(yè)全景評(píng)估及投資規(guī)劃建議報(bào)告
- 2023三年級(jí)英語(yǔ)下冊(cè) Module 1 Using my five senses Unit 2 Tastes第2課時(shí)說(shuō)課稿 牛津滬教版(三起)
- 火災(zāi)安全教育觀后感
- 農(nóng)村自建房屋安全協(xié)議書(shū)
- 快速康復(fù)在骨科護(hù)理中的應(yīng)用
- 國(guó)民經(jīng)濟(jì)行業(yè)分類和代碼表(電子版)
- ICU患者外出檢查的護(hù)理
- 公司收購(gòu)設(shè)備合同范例
- 廣東省潮州市2023-2024學(xué)年高二上學(xué)期語(yǔ)文期末考試試卷(含答案)
- 2024年光伏發(fā)電項(xiàng)目EPC總包合同
- 子女放棄房產(chǎn)繼承協(xié)議書(shū)
- 氧化還原反應(yīng)配平專項(xiàng)訓(xùn)練
- 試卷(完整版)python考試復(fù)習(xí)題庫(kù)復(fù)習(xí)知識(shí)點(diǎn)試卷試題
評(píng)論
0/150
提交評(píng)論