決策支持系統(tǒng)報(bào)告.doc

《決策支持系統(tǒng)報(bào)告.doc》由會(huì)員分享，可在線閱讀，更多相關(guān)《決策支持系統(tǒng)報(bào)告.doc（40頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

《決策支持系統(tǒng)》 實(shí)驗(yàn)報(bào)告 學(xué)期 10- 11學(xué)年第2學(xué)期 專業(yè) 地理信息系統(tǒng) 班級(jí) 學(xué)號(hào) 姓名 蘇州科技大學(xué) S 任課教師 兆華 蘇州科技學(xué)院 環(huán)境科學(xué)與工程學(xué)院 實(shí)驗(yàn)一 認(rèn)識(shí)模型 3 實(shí)驗(yàn)二 建立模型 8 實(shí)驗(yàn)三 模型的人工求解 11 實(shí)驗(yàn)四 程序模型 14 實(shí)驗(yàn)五 模型表示與組合 21 實(shí)驗(yàn)六 總控與DSS集成 24 目錄 實(shí)驗(yàn)一　認(rèn)識(shí)決策模型 一、實(shí)驗(yàn)?zāi)康? 認(rèn)識(shí)模型，區(qū)分模型的類別，明確模型的形式，加深理解模型的意義及對(duì)決策的作用。 二、內(nèi)容與要求 創(chuàng)建運(yùn)行環(huán)境 運(yùn)行程序模型 樣本、變量、輸入、輸出 模型概念、類型、形式 數(shù)學(xué)模型、程序模型 三、方案設(shè)計(jì)（實(shí)驗(yàn)步驟） 1.上網(wǎng)搜索或查看本實(shí)驗(yàn)參考資料第一部分和教材，找出模型概念、分類和表示形式。 2.運(yùn)行實(shí)驗(yàn)資源中的應(yīng)用數(shù)學(xué)軟件包。 回答軟件構(gòu)成（模型集合，或非模型集合）寫入實(shí)驗(yàn)結(jié)果3。 運(yùn)行程序的本質(zhì)為模型，其表示形式是數(shù)學(xué)、算法、程序形式？是源程序，還是目標(biāo)程序？ 其數(shù)據(jù)來源（數(shù)據(jù)庫(kù)，數(shù)據(jù)倉(cāng)庫(kù)，人機(jī)對(duì)話輸入）寫入實(shí)驗(yàn)結(jié)果。 基于此軟件包，可以進(jìn)行何種決策支持（模型決策，多模型輔助決策，自動(dòng)組合模型決策）。 體會(huì)模型對(duì)決策的重要性。 3.閱讀本實(shí)驗(yàn)參考材料第二部分。 舉例說明其中的樣本、變量、輸入、輸出、數(shù)學(xué)模型、程序模型到實(shí)驗(yàn)結(jié)果5中。 4.設(shè)計(jì)建模環(huán)境。 了解SAS Matlab Lindo/Lingo SPSS Excell的界面和功能，及對(duì)建模的作用。 5.其它 4、 實(shí)驗(yàn)結(jié)果（結(jié)論） 1．模型類別 模型類別 廣義數(shù)學(xué)模型 根據(jù)決策的合理性 原理性模型 系統(tǒng)學(xué)模型 規(guī)劃模型 預(yù)測(cè)模型 管理決策模型 仿真模型 計(jì)量經(jīng)濟(jì)模型 理想模型 行為模型 直覺模型 2．表示形式 表示形式 原理性模型 定理、定律、公式 系統(tǒng)學(xué)模型 系統(tǒng)動(dòng)力學(xué)、大系統(tǒng)理論、灰色理論、系統(tǒng)辨識(shí)、系統(tǒng)控制、最優(yōu)控制和創(chuàng)造工程學(xué)等 規(guī)劃模型 線性規(guī)劃、非線性規(guī)劃、動(dòng)態(tài)規(guī)劃、目標(biāo)規(guī)劃、更新理論和運(yùn)輸問題 預(yù)測(cè)模型 定性預(yù)測(cè)方法(特爾斐法－專家調(diào)查法、情景分析法、主觀概率法和對(duì)比法等); 定量預(yù)測(cè)方法(趨勢(shì)法、因素相關(guān)分析法（如回歸法等）、平滑法等。) 管理決策模型 關(guān)鍵路線法（CPM）、計(jì)劃評(píng)審技術(shù)（PERT）、風(fēng)險(xiǎn)評(píng)審技術(shù)（VERT）和層次分析法（AHP）等 仿真模型 蒙特卡羅法(概率統(tǒng)計(jì))、KSIM模擬(多變量目標(biāo))和微觀分析模擬(微觀個(gè)體)等。 計(jì)量經(jīng)濟(jì)模型 經(jīng)濟(jì)計(jì)量法、投入產(chǎn)出法、動(dòng)態(tài)投入產(chǎn)出法、回歸分析、可行性分析和價(jià)值工程等。 3．軟件構(gòu)成 該Mathcai軟件由六個(gè)模型集合（圖像顯示、最優(yōu)化方法、回歸分析、常用統(tǒng)計(jì)方法、多元統(tǒng)計(jì)方法、線性代數(shù)計(jì)算）和兩個(gè)非模型集合（關(guān)于、概述）構(gòu)成，具體如下： 一、模型集合： 1、圖像顯示：（1）、統(tǒng)計(jì)數(shù)據(jù)的圖像顯示；（2）、數(shù)據(jù)的空間曲面圖；（3）、平面散點(diǎn)圖；（4）、空間散點(diǎn)圖；（5）、三次樣條插值；（6）、倒數(shù)距離加權(quán)插值；（7）、一元函數(shù)的平面曲線圖；（8）、二元函數(shù)的空間曲面圖；（9）、函數(shù)的等高線圖；（10）、參數(shù)函數(shù)的平面曲線圖；（11）、參數(shù)函數(shù)的空間曲線圖；（12）、參數(shù)函數(shù)的空間曲面圖。 2、最優(yōu)化方法：（1）、單純形法求線性規(guī)劃問題的解；（2）、一維搜索法求一元函數(shù)的最小值；（3）、POWELL 法求多元函數(shù)的最小值；（4）、單純形下山法求多元函數(shù)的最小值；（5）、變尺度法求多元函數(shù)的最小值；（6）、共軛梯度法求多元函數(shù)的最小值；（7）、圖像法求多元函數(shù)的最小值。 3、回歸分析：（1）、按照輸入的公式進(jìn)行數(shù)據(jù)轉(zhuǎn)換；（2）、一元線性回歸；（3）、多元線性回歸；（4）、多項(xiàng)式回歸；（5）、廣義線性回歸；（6）、擬線性回歸；（7）、非線性回歸；（8）、逐步回歸；（9）、主成分回歸。 4、常用統(tǒng)計(jì)方法：（1）、正態(tài)總體參數(shù)的假設(shè)檢驗(yàn)和區(qū)間估計(jì)；（2）、單個(gè)總體分布的 χ2 檢驗(yàn)；（3）、正態(tài)分布的概率紙檢驗(yàn)；（4）、聯(lián)立表獨(dú)立性的 χ2 檢驗(yàn)；（5）、方差分析；（6）、正交試驗(yàn)設(shè)計(jì)。 5、多元統(tǒng)計(jì)方法：（1）主成分分析；（2）、典型相關(guān)分析；（3）、判別分析；（4）、聚類分析。 6、線性代數(shù)計(jì)算：（1）、矩陣的基本運(yùn)算；（2）、求行列式的值；（3）、矩陣的初等變換；（4）、矩陣的標(biāo)準(zhǔn)形分解；（5）、求向量集的最大無關(guān)子集；（6）、線性代數(shù)方程組的求解；（7）、矩陣的ＱＲ分解；（8）、實(shí)對(duì)稱矩陣的特征值與特征向量；（9）、矩陣的奇異值分解；（10）、求矩陣的廣義逆矩陣。 二、非集合模型 1、關(guān)于 2、概述：（1）、軟件系統(tǒng)概況介紹；（2）、軟件系統(tǒng)的安裝和使用；（3）、安裝后硬盤上的文件夾結(jié)構(gòu)；（4）、怎樣脫離系統(tǒng)運(yùn)行個(gè)別軟件；（5）、怎樣將說明文件打印出來；（6）、軟件系統(tǒng)的郵購(gòu)和升級(jí)；（7）、發(fā)生問題時(shí)的處理。 4．程序的表現(xiàn)形式 運(yùn)行程序的本質(zhì)為模型，其表示形式是程序形式 5．?dāng)?shù)據(jù)來源 其數(shù)據(jù)來源是通過人機(jī)對(duì)話輸入實(shí)現(xiàn)的。 樣本： 變量：X1,X2及X3 數(shù)學(xué)模型： 逐步回歸法模型 程序模型： 結(jié)果： 6．決策支持 此軟件包可以實(shí)現(xiàn)模型決策，多模型輔助決策，自動(dòng)組合模型決策。 五、體會(huì)（收獲） 通過本實(shí)驗(yàn)的學(xué)習(xí)，我了解并掌握了模型的概念以及建模處理問題的必要性，以及在建模的工程中需要注意的一些問題，具體體會(huì)如下： 1．模型的重要性 模型便于觀察和理解現(xiàn)實(shí)世界，模擬其演變。是研究自然和社會(huì)對(duì)象的基礎(chǔ)。 它的重要性有： (1)將模型并入信息系統(tǒng)軟件； (2)為高層管理提供有用信息，以便支持那些相對(duì)而言結(jié)構(gòu)化程度比較低的決策行為，如支持半結(jié)構(gòu)化的決策活動(dòng)； (3)提供給用戶強(qiáng)有力、然而并不難掌握的與系統(tǒng)之間的人一機(jī)交互能力，即用戶能夠用較為簡(jiǎn)單的語(yǔ)言向系統(tǒng)咨詢，并從系統(tǒng)得到科學(xué)的、有效的決策支持。 2．我們因該仔細(xì)考慮建立模型過程的每一步 鑒于模型的重要意義，我覺得建立模型過程的每一步都必須是明確和有計(jì)劃的。分析人員可能認(rèn)為，對(duì)一個(gè)具體的間題，時(shí)間是關(guān)鍵的，于是總急急忙忙地建立模型，這是錯(cuò)誤的。必須強(qiáng)調(diào)的是，必須弄清與分析人員自身對(duì)應(yīng)的管理人員是誰(shuí)。通常，建立模型的過程應(yīng)適當(dāng)放慢，以保證管理人員能理解模型的基本原理?？傊?，分析人員只能在經(jīng)過仔細(xì)考慮的情況下，盡可能快地建立模型，并且使建立模型過程盡量清晰，使管理人員能了解這一過程。 3．建模時(shí)要面向問題 模型是用來向決策人提供一種更有效地做出決策的手段。建立模型的人員應(yīng)該經(jīng)常習(xí)慣于問：“模型怎樣才能幫助管理人員解決問題？”在建立模型時(shí)，分析人員可能發(fā)現(xiàn)問題變得比原來想的更復(fù)雜。這時(shí)，分析人員必須重新審議問題，并與管理人員一起核實(shí)這一審議。 實(shí)驗(yàn)二　數(shù)學(xué)模型 一、實(shí)驗(yàn)?zāi)康? 掌握數(shù)學(xué)模型及其構(gòu)建方法 二、實(shí)驗(yàn)內(nèi)容 構(gòu)建一個(gè)數(shù)學(xué)模型 三、方案設(shè)計(jì)與要求 1. 參考本實(shí)驗(yàn)后附材料或教學(xué)演示，確定用于建模的決策問題。 2. 明確問題涉及的變量和邏輯關(guān)系，必要時(shí)用假設(shè)簡(jiǎn)化問題，設(shè)定變量符號(hào)。 3. 借用基本數(shù)學(xué)形式表達(dá)變量間的關(guān)系，需要時(shí)篩選變量，形成初步的模型形式。在無法進(jìn)行嚴(yán)格的數(shù)學(xué)推導(dǎo)時(shí), 可以使用“不嚴(yán)格”的數(shù)學(xué)形式。理解模型的語(yǔ)義含義和功能。 4. 盡量使用實(shí)際資料檢驗(yàn)數(shù)學(xué)結(jié)果，并用恰當(dāng)?shù)膶W(xué)科語(yǔ)言表達(dá)數(shù)學(xué)結(jié)果。 5. 確定最終的模型。 繪制應(yīng)用建模流程于實(shí)驗(yàn)結(jié)果1,完整的建模過程寫在實(shí)驗(yàn)結(jié)果2，總結(jié)寫入體會(huì)（收獲）中。 四、實(shí)驗(yàn)結(jié)果（結(jié)論） 1．應(yīng)用建模流程圖 抽 象 化 簡(jiǎn) 假 設(shè) 參 數(shù) 變 量 組 件 模 型 參 數(shù) 估 計(jì) 運(yùn) 行 檢 驗(yàn) 應(yīng) 用 符合？ 實(shí) 際 問 題 2．建模過程 下面以一個(gè)實(shí)例闡述建模的具體過程： 例：某公司研制了兩種新產(chǎn)品，即“玻璃門”和“鋁框窗”，并準(zhǔn)備生產(chǎn)這兩種新產(chǎn)品。 決策的進(jìn)程一般分為4個(gè)步驟：　　 （1）發(fā)現(xiàn)問題并形成決策目標(biāo)，這是決策活動(dòng)的起點(diǎn)； ①新產(chǎn)品有什么優(yōu)點(diǎn)？能否被消費(fèi)者購(gòu)買？這都需要進(jìn)行分析。若新產(chǎn)品會(huì)增加成本，就需要進(jìn)行成本分析； ②公司的生產(chǎn)工廠能有多少時(shí)間生產(chǎn)新產(chǎn)品？每周能賣掉幾個(gè)產(chǎn)品？這需要制定營(yíng)銷計(jì)劃； ③生產(chǎn)新產(chǎn)品時(shí)，在工廠有限的生產(chǎn)能力基礎(chǔ)上使現(xiàn)生產(chǎn)一種產(chǎn)品，還是兩個(gè)產(chǎn)品同時(shí)生產(chǎn)？同時(shí)生產(chǎn)對(duì)同時(shí)搶先市場(chǎng)有好處，為兩種產(chǎn)品做組合廣告，也會(huì)有更好的效果?！　? (2) 建立模型； 尋找兩種新產(chǎn)品的市場(chǎng)能力，那種組合能產(chǎn)生最大利潤(rùn) 該問題屬于線性規(guī)劃模型問題。線性規(guī)劃有固定的數(shù)學(xué)結(jié)構(gòu)和問題求解方法，是結(jié)構(gòu)化決策問題，但是將實(shí)際問題建立成合適的線性規(guī)劃的數(shù)學(xué)結(jié)構(gòu)模型，為此需要搜集以下信息： ①每個(gè)工廠有多少生產(chǎn)能力生產(chǎn)新產(chǎn)品？ ②生產(chǎn)每一個(gè)產(chǎn)品每個(gè)工廠個(gè)需要多少生產(chǎn)能力？ ③　每一產(chǎn)品的單位利潤(rùn)會(huì)有多少？ 這些數(shù)據(jù)只能得到估計(jì)值，特別是新產(chǎn)品的利潤(rùn)（產(chǎn)品還未出來就要估計(jì)它的利潤(rùn)），這是一個(gè)半結(jié)構(gòu)化問題。 進(jìn)過調(diào)查和分析，有A、B、C三個(gè)工廠同時(shí)生產(chǎn)該產(chǎn)品，生產(chǎn)能力如下： 工廠 生產(chǎn)該產(chǎn)品時(shí)間（時(shí)/周） 工廠A 4 工廠B 12 工廠C 18 門 工廠A 1小時(shí) + 工廠C 3小時(shí) 窗 工廠B 2小時(shí) + 工廠C 2小時(shí) 設(shè)每周生產(chǎn)新門的數(shù)量為x，生產(chǎn)新窗的數(shù)量為y。則該問題的線性方程為： ①利潤(rùn)： p=300x+500y ②工廠A約束： x≤4 工廠B約束： 2y≤12 工廠C約束： 3x+2y≤18 (x≥0,y≥0) (3) 最優(yōu)決策，對(duì)各種結(jié)局的價(jià)值所作的定量估計(jì)；　 通過對(duì)該決策問題的線性規(guī)劃模型求解，即求在生產(chǎn)能力允許的范圍條件下，達(dá)到最大利潤(rùn)的最優(yōu)解。利用線性規(guī)劃模型的求解方案可得到最優(yōu)解是： x=2, y=6, p=360　 線性規(guī)劃模型為決策者提供了最優(yōu)決策。它是公司領(lǐng)導(dǎo)層是否生產(chǎn)新產(chǎn)品的決策支持。 (4) 綜合分析各方面信息，以最后決定方案的取舍，有時(shí)還要對(duì)方案作靈敏度分析，研究原始數(shù)據(jù)發(fā)生變化時(shí)對(duì)最優(yōu)解的影響，決定對(duì)方案有較大影響的參量范圍。 如What……If分析 由于線性規(guī)劃模型的參數(shù)均是估計(jì)值，這樣計(jì)算出的最優(yōu)解也是估計(jì)值，所以要對(duì)如下問題進(jìn)行What……If分析，即What……If實(shí)驗(yàn)。 ①新產(chǎn)品中有一個(gè)產(chǎn)品的單位利潤(rùn)的估計(jì)值不準(zhǔn)確時(shí)，最優(yōu)解怎樣變化？ ②兩個(gè)產(chǎn)品的單位利潤(rùn)的估計(jì)值都不準(zhǔn)確時(shí)，又將會(huì)怎樣？ ③其中一個(gè)工廠每周可用于生產(chǎn)新產(chǎn)品的時(shí)間改變后，會(huì)對(duì)結(jié)果產(chǎn)生怎樣的影響？ ④如果3個(gè)工廠每周可用于生產(chǎn)新產(chǎn)品的時(shí)間改變后，又會(huì)對(duì)結(jié)果產(chǎn)生怎樣的影響？ 這些問題對(duì)決策仍很重要。解決這些問題是利用優(yōu)化模型進(jìn)一步的決策支持。 決策往往不可能一次完成，而是一個(gè)迭代過程。決策可以借助于計(jì)算機(jī)決策支持系統(tǒng)來完成，即用計(jì)算機(jī)來輔助確定目標(biāo)、擬定方案、分析評(píng)價(jià)以及模擬驗(yàn)證等工作。在此過程中，可用人機(jī)交互方式，由決策人員提供各種不同方案的參量并選擇方案。 五、體會(huì)（收獲） 通過本實(shí)驗(yàn)的學(xué)習(xí)，我掌握了以下內(nèi)容： 一、建模過程中要注意的問題 1．明確研究目標(biāo)，力圖從實(shí)際問題中歸納出所采用的假設(shè)和解題線索; 2．用假設(shè)簡(jiǎn)化問題，在實(shí)際與數(shù)學(xué)簡(jiǎn)化之間選擇恰當(dāng)?shù)钠胶恻c(diǎn), 這是建模成功與否的關(guān)鍵, 體現(xiàn)了建模工作的想象力和創(chuàng)造力; 3．進(jìn)行正確的推理，在無法進(jìn)行嚴(yán)格的數(shù)學(xué)推導(dǎo)時(shí), 可以使用“不嚴(yán)格”的數(shù)學(xué), 代之以對(duì)問題的分析, 歸納,類比, 猜測(cè), 嘗試, 事后檢驗(yàn)； 4．盡量使用實(shí)際資料檢驗(yàn)數(shù)學(xué)結(jié)果，并用恰當(dāng)?shù)膶W(xué)科語(yǔ)言表達(dá)數(shù)學(xué)結(jié)果。 5．在建模中，數(shù)學(xué)決不僅僅是工具,要從所作的數(shù)學(xué)推導(dǎo)和所得到的數(shù)學(xué)結(jié)論中指出所包含的更一般的、更深刻的內(nèi)在規(guī)律。數(shù)學(xué)建模絕不僅僅以應(yīng)用數(shù)學(xué)解決一個(gè)實(shí)際問題為目標(biāo)，我們更希望揭示基本自然規(guī)律，產(chǎn)生新的數(shù)學(xué)思想和方法。 二、怎樣學(xué)習(xí)建模 1. 要會(huì)“翻譯”。擴(kuò)充知識(shí)面，既能將實(shí)際問題用數(shù)學(xué)語(yǔ)言表達(dá)，又能將數(shù)學(xué)結(jié)論用“常人”能懂得的語(yǔ)言表達(dá)。 2. 要會(huì)實(shí)踐。培養(yǎng)洞察力，能一眼抓住問題的關(guān)鍵；培養(yǎng)聯(lián)想力，觸類旁通，能透過某些不同的實(shí)際問題的表面看到共同的數(shù)學(xué)特性；學(xué)會(huì)在實(shí)踐中提出問題，搜集資料，組建模型，解決問題。 3.要會(huì)思考。應(yīng)用已學(xué)到的數(shù)學(xué)知識(shí)和方法進(jìn)行數(shù)學(xué)分析，培養(yǎng)綜合，歸納，抽象，化簡(jiǎn)等數(shù)學(xué)思維方式。 4. 要會(huì)計(jì)算，學(xué)會(huì)使用軟件，設(shè)計(jì)程序，借助計(jì)算機(jī)解決實(shí)際問題。 5. 通過數(shù)學(xué)建模的學(xué)習(xí)和實(shí)踐, 發(fā)現(xiàn)數(shù)學(xué)知識(shí)的不足,發(fā)現(xiàn)數(shù)學(xué)思考方法的不足，激勵(lì)對(duì)數(shù)學(xué)學(xué)習(xí)和研究的積極性和主動(dòng)性。 實(shí)驗(yàn)三　模型的人工求解 一、實(shí)驗(yàn)?zāi)康? 掌握模型的傳統(tǒng)解法 了解管理中所使用的模型及在決策中的應(yīng)用 二、實(shí)驗(yàn)內(nèi)容 模型的人工求解 實(shí)際問題的決策 三、方案設(shè)計(jì)（實(shí)驗(yàn)步驟） 1、選擇一個(gè)管理決策問題?？蛇x擇本實(shí)驗(yàn)后附參考資料第二部分中的物資運(yùn)輸決策、本實(shí)驗(yàn)后附參考資料第一部分中的[例1]、前面試驗(yàn)涉及的決策問題，也可任選。 2、必要時(shí)自行建模。 3、先給出某個(gè)具體問題實(shí)例，然后人工求解模型。 4、進(jìn)行決策。 5、總結(jié) 四、實(shí)驗(yàn)結(jié)果（結(jié)論） 1．決策問題 某企業(yè)某種產(chǎn)品的年銷量為1000件，售價(jià)為每件110元，為要生產(chǎn)這種產(chǎn)品, 準(zhǔn)備選購(gòu)新的機(jī)器設(shè)備。對(duì)于這類設(shè)備, 市場(chǎng)上共有 A、B、C 三種類型可供選擇：A型需要投資２萬(wàn)元，每件產(chǎn)品的生產(chǎn)成本為100元；B型需要投資 3 萬(wàn)元,每件產(chǎn)品的生產(chǎn)成本為90元, A、B兩種類型設(shè)備的年生產(chǎn)能力均能超過1000件；C型需要投資1.5萬(wàn)元，每件產(chǎn)品的生產(chǎn)成本為95元，年生產(chǎn)能力只有800件。 如果要求投資回收期越短越好，問該企業(yè)應(yīng)選購(gòu)何種類型的設(shè)備為宜？ 2．建立的模型 如果要求投資回收期越短越好，問該企業(yè)應(yīng)選購(gòu)何種類型的設(shè)備為宜？ M 　　　　　　T　=　---------　　　　　　　　　　 P(S-S0) 3．詳細(xì)求解步驟 （1）、建模假設(shè) 1）該種產(chǎn)品的年銷量是一定的，不會(huì)受市場(chǎng)需求量的影響 2）該產(chǎn)品的售價(jià)固定，不會(huì)出現(xiàn)打折降價(jià)的現(xiàn)象 3）購(gòu)買的設(shè)備都是好的，不會(huì)出現(xiàn)任何故障 4）各種設(shè)備生產(chǎn)每件產(chǎn)品的成本是一定的，不會(huì)受到外界因素的影響 （2）、參數(shù)變量 投資回收期(年)：T 投資金額(元)：M 年銷量：P 單件售價(jià)(元)：S 單件生產(chǎn)成本（元）：So （3）、建立模型 如果要求投資回收期越短越好，問該企業(yè)應(yīng)選購(gòu)下列模型 M 　　　　　　T　=　---------　　　　　　　　　　 P(S-S0) （4）、模型求解 將各方案有關(guān)數(shù)據(jù)代入公式，則有： 20000 A型設(shè)備投資回收期　=　-------------------------　=　2?。辏? 1000（110－100） 　　　　　　　　　　　　　　　　30000 B型設(shè)備投資回收期　=　-------------------------　=　1.5（年） 1000（110－90） 　　　　　　　　　　　　　　　15000２ C型設(shè)備投資回收期　=　-------------------------　=　2?。辏? 1000（110－95） 4．決策過程 由于Ｃ型設(shè)備的年生產(chǎn)能力只有８００件，所以，必須購(gòu)置兩套才能保證滿足年銷量1000件。比較各方案的投資回收期,顯然，以Ｂ型設(shè)備的投資回收期為最短，因此，應(yīng)選購(gòu)Ｂ型設(shè)備作為投資決策方案。 五、體會(huì)（收獲） 1、通過本實(shí)驗(yàn)的學(xué)習(xí)，我了解了所謂決策，是指為了達(dá)到某個(gè)行為目標(biāo)，在占有一定信息的基礎(chǔ)上,借助于科學(xué)的理論、方法和工具，對(duì)影響目標(biāo)的各種因素進(jìn)行分析、計(jì)算和評(píng)價(jià)，結(jié)合決策者的經(jīng)驗(yàn)，從兩個(gè)以上的可行方案中選擇一個(gè)最優(yōu)的方案。由此可見，決策并不是一個(gè)瞬間作決定的問題，而是為了解決某個(gè)問題、達(dá)到某個(gè)行動(dòng)目標(biāo),收集信息,擬定方案，分析、評(píng)價(jià)及選擇方案等一個(gè)完整的活動(dòng)過程。 2、我了解了現(xiàn)代企業(yè)決策的基本準(zhǔn)則是是指方案的結(jié)果評(píng)價(jià)和擇優(yōu)選擇的標(biāo)準(zhǔn) 1、確定型決策準(zhǔn)則 （1）直觀法 （2）臨界點(diǎn)分析法 （3）效益成本分析法 （4）選擇評(píng)分法 2、風(fēng)險(xiǎn)型決策準(zhǔn)則 （1）期望值準(zhǔn)則 （2）最大可能準(zhǔn)則 （3）機(jī)會(huì)均等準(zhǔn)則 （4）邊際分析準(zhǔn)則 3不確定型決策準(zhǔn)則 （1）最大最小化（最小最大化）準(zhǔn)則 （2）最小最大化后悔準(zhǔn)則 （3）最大最大化（最小最小化）準(zhǔn)則 （4）折衷準(zhǔn)則 3所謂ROMC方法，就是面向決策者進(jìn)行表述R（Representions）、操作O(Operations)、存儲(chǔ)M（Memoryaids）和控制C（Control）。運(yùn)用ROMC方法，首先要識(shí)別決策過程的基本活動(dòng)，接著分析每一個(gè)基本活動(dòng)的四個(gè)基本成分：表述、操作、存儲(chǔ)和控制，然后將這些成分構(gòu)成一個(gè)初始的DSS。在交付使用后，經(jīng)用戶評(píng)價(jià)，研制者不斷修改、擴(kuò)充這些基本成分，直到開發(fā)出用戶滿意的、最終的DSS，基本過程如下圖所示。 實(shí)驗(yàn)四　程序模型 一、實(shí)驗(yàn)?zāi)康? 掌握程序模型的實(shí)現(xiàn)方法 二、實(shí)驗(yàn)內(nèi)容 編制模型的計(jì)算機(jī)算法程序。 思考實(shí)現(xiàn)計(jì)算機(jī)算法的要求。 三、方案設(shè)計(jì)與要求 1、任選一個(gè)數(shù)學(xué)模型。 2、配置編程環(huán)境。 3、明確模型的人工解法，轉(zhuǎn)變?yōu)橛?jì)算機(jī)算法，進(jìn)行必要的數(shù)據(jù)管理，并編程實(shí)現(xiàn)。 最小二乘法模型可用于實(shí)驗(yàn)六的成本預(yù)測(cè)決策支持系統(tǒng)實(shí)現(xiàn)。 四、實(shí)驗(yàn)結(jié)果（結(jié)論） 1．?dāng)?shù)學(xué)模型 最小二乘法模型：在我們研究?jī)蓚€(gè)變量(x, y)之間的相互關(guān)系時(shí)，通?？梢缘玫揭幌盗谐蓪?duì)的數(shù)據(jù)(x1, y1、x2, y2... xm , ym)；將這些數(shù)據(jù)描繪在x -y直角座標(biāo)系中(如圖1), 若發(fā)現(xiàn)這些點(diǎn)在一條直線附近，可以令這條直線方程如(式1-1)。 (式1-1) Y= a0 + a1 X 　　　　　　　　　　　　　　　　　　　 其中：a0、a1 是任意實(shí)數(shù) 人工算法 為建立這直線方程就要確定a0和a1，應(yīng)用《最小二乘法原理》，將實(shí)測(cè)值Yi與利用(式1-1)計(jì)算值(Y計(jì)=　a0　+　a1　X)的離差(Yi　-　Y計(jì))的平方和｀〔∑(Yi - Y計(jì))2〕最小為“優(yōu)化判據(jù)”。 令: φ = ∑(Yi - Y計(jì))2 　　　　　　　　　　　　　　　(式1-2) 把(式1-1)代入(式1-2)中得: φ = ∑(Yi - a0 - a1 Xi)2 　　　　　　　　　　　　　(式1-3) 當(dāng)∑(Yi-Y計(jì))平方最小時(shí)，可用函數(shù) φ 對(duì)a0、a1求偏導(dǎo)數(shù)，令這兩個(gè)偏導(dǎo)數(shù)等于零。 　　　　　　　　　　(式1-4) 　　　　　　　　 (式1-5) 　 亦即： m a0 + (∑Xi ) a1 = ∑Yi 　　　　　　　　　　　　　　(式1-6) (∑Xi ) a0 + (∑Xi2 ) a1 = ∑(Xi, Yi) 　　　　　　　　 (式1-7) 得到的兩個(gè)關(guān)于a0、 a1為未知數(shù)的兩個(gè)方程組，解這兩個(gè)方程組得出： a0 = (∑Yi) / m - a1(∑Xi) / m (式1-8) a1 = [∑Xi Yi - (∑Xi ∑Yi)/ m] / [∑Xi2 - (∑Xi)2 / m)] 　　(式1-9) 這時(shí)把a(bǔ)0、a1代入(式1-1)中, 此時(shí)的(式1-1)就是我們回歸的元線性方程即：數(shù)學(xué)模型。 在回歸過程中，回歸的關(guān)聯(lián)式是不可能全部通過每個(gè)回歸數(shù)據(jù)點(diǎn)(x1, y1、 x2, y2...xm,ym),為了判斷關(guān)聯(lián)式的好壞,可借助相關(guān)系數(shù)“R”，統(tǒng)計(jì)量“F”，剩余標(biāo)準(zhǔn)偏差“S”進(jìn)行判斷；“R”越趨近于 1 越好；“F”的絕對(duì)值越大越好；“S”越趨近于 0 越好。 2、編程環(huán)境 Visual Basic 6.0 + ADO + Microsoft Office Acess 2003 3、詳細(xì)計(jì)算機(jī)算法和完整的程序清單 調(diào)用界面 數(shù)據(jù)表 1、參數(shù)表 2、x、y數(shù)值表 程序窗口及代碼： 1、調(diào)用程序窗口： （1）、dy窗體代碼： Private Sub Command1_Click() 調(diào)用最小二乘法模型程序 Shell ("c:\jczcyzjxt\jczcxt\mx\zxecf\mbwj\zxecf.exe") Dim strSQL As String Dim ADOrs As New Recordset Set ADOrs.ActiveConnection = ADOcn 定義變量a,b，存放從cs表中得到的a,b字段的值 Dim a As Single, b As Single 等待最小二乘法模型程序執(zhí)行完畢 For i = 0 To 9999 strSQL = "select * from cs" ADOrs.Open strSQL a = ADOrs("a") b = ADOrs("b") ADOrs.Close If a <> 0 Then Exit For End If Next i 定義變量m,n，分別存放將a，b轉(zhuǎn)換為字符串后的值 Dim m, n As String m = CStr(a) n = CStr(b) 若m左側(cè)的第一個(gè)字符為"."，則在第一個(gè)字符前加"0" If Left(m, 1) = "." Then m = "0" & m End If 若n左側(cè)的第一個(gè)字符為"."，則在第一個(gè)字符前加"0" If Left(n, 1) = "." Then n = "0" & n End If 在文本框中顯示m,n的值 Txta.Text = m Txtb.Text = n 讓文本框成為只讀 Txta.Enabled = False Txtb.Enabled = False End Sub （2）、dymk公共模塊代碼 聲明全局對(duì)象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫(kù)的連接 Public ADOcn As Connection Public Sub Main() 定義數(shù)據(jù)庫(kù)連接字符型變量strAccess，并為其賦值，用以連接Access數(shù)據(jù)庫(kù) Dim strAccess As String strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= c:\jczcyzjxt\jczcxt\sj\cbyc.mdb" 調(diào)用VB函數(shù)DoEvents，用于轉(zhuǎn)移系統(tǒng)控制權(quán) DoEvents 建立與數(shù)據(jù)庫(kù)的連接 Set ADOcn = New Connection 連接Access數(shù)據(jù)庫(kù) ADOcn.Open strAccess 初始化cs表 strSQL = "delete * from cs" ADOcn.Execute strSQL strSQL = "insert into cs(a,b) values(0,0)" ADOcn.Execute strSQL 顯示主窗體 dy.Show End Sub 2、模型窗口 （1）zxecf模塊窗口代碼： 聲明全局對(duì)象變量ADOcn_mx，用于創(chuàng)建與數(shù)據(jù)庫(kù)的連接 Public ADOcn_mx As Connection Sub Main() 定義數(shù)據(jù)庫(kù)連接字符型變量strAccess，并為其賦值，用以連接Access數(shù)據(jù)庫(kù) Dim strAccess As String strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= c:\jczcyzjxt\jczcxt\sj\cbyc.mdb" 調(diào)用VB函數(shù)DoEvents，用于轉(zhuǎn)移系統(tǒng)控制權(quán) DoEvents 建立與數(shù)據(jù)庫(kù)的連接 Set ADOcn_mx = New Connection ADOcn_mx.Open strAccess Dim strSQL As String Dim ADOrs As New Recordset Set ADOrs.ActiveConnection = ADOcn_mx strSQL = "select * from tjsj" 執(zhí)行Select語(yǔ)句,1代表只讀 ADOrs.Open strSQL, ADOcn_mx, 1 定義變量num，存放從記錄集讀入的數(shù)據(jù)行個(gè)數(shù) Dim num As Integer num = ADOrs.RecordCount 定義變量v1存放x的值,變量v2存放y的值,變量sum1存放x平方的和,sum2存放y的和，sum3存放x的和,sum4存放x*y的和,i是循環(huán)變量。 Dim v1, i As Integer, v2, sum1, sum2, sum3, sum4 As Single For i = 1 To num v1 = ADOrs("X").Value v2 = ADOrs("Y").Value 計(jì)算x平方的和 sum1 = sum1 + v1 * v1 計(jì)算y的和 sum2 = sum2 + v2 計(jì)算x的和 sum3 = sum3 + v1 計(jì)算x*y的和 sum4 = sum4 + v1 * v2 ADOrs.MoveNext Next i 關(guān)閉記錄集 ADOrs.Close 定義變量a存放常數(shù)項(xiàng)，定義變量b存放回歸系數(shù)，定義變量Sql1，存放更新字符串 Dim a As Single, b As Single, Sql1 As String a = (sum1 * sum2 - sum3 * sum4) / (num * sum1 - sum3 * sum3) b = (num * sum4 - sum2 * sum3) / (num * sum1 - sum3 * sum3) 用計(jì)算出的a,b值更新數(shù)據(jù)庫(kù)表cs中的a,b值 Sql1 = "update cs set a= " & a & ", b=" & b 執(zhí)行更新語(yǔ)句 ADOcn_mx.Execute Sql1 關(guān)閉數(shù)據(jù)庫(kù)連接對(duì)象 ADOcn_mx.Close End Sub 3、運(yùn)行結(jié)果 打開調(diào)用模塊，點(diǎn)擊計(jì)算按鈕結(jié)果如下： 相應(yīng)地參數(shù)表更新為 五、體會(huì)（收獲） 通過本實(shí)驗(yàn)的學(xué)習(xí)，我基本掌握了建立模型的具體步驟和方法。結(jié)合實(shí)驗(yàn)指導(dǎo)書，學(xué)會(huì)了配置編程環(huán)境。明確掌握最小二乘法模型的人工解法，并能成功實(shí)現(xiàn)為計(jì)算機(jī)算法，最后能夠編程實(shí)現(xiàn)。 實(shí)驗(yàn)五　模型表示與組合 一、實(shí)驗(yàn)?zāi)康? 掌握模型的表示、組合及模型庫(kù)的建立 二、實(shí)驗(yàn)內(nèi)容 建立模型庫(kù) 組合模型應(yīng)用 三、方案設(shè)計(jì)與要求 1、設(shè)置開發(fā)環(huán)境。 2、將涉及的模型分類或分形式存放，構(gòu)成層級(jí)文件夾，形成模型文件庫(kù)。注意模型文件至少有源文件和目標(biāo)文件兩種形式。 3、建立索引表或分類索引表，索引內(nèi)容包含模型編號(hào)、名稱、模型文件名、以及模型文件路徑，形成字典庫(kù)。 4、建立一個(gè)模型庫(kù)集成管理界面，也可自行設(shè)計(jì)開發(fā)模型庫(kù)管理系統(tǒng)。 四、實(shí)驗(yàn)結(jié)果（結(jié)論） 1、設(shè)置開發(fā)環(huán)境 Visual Basic 6.0 + ADO + Microsoft Office Acess 2003 2、模型文件庫(kù) 在“c:\jczcyzjxt\jczcxt\”目錄下新建名為mx（模型）的子目錄，用于存放模型文件。在mx子目錄下新建名為zxecf（最小二乘法）的子目錄，用于存放最小二乘法模型程序文件。在zxecf子目錄下新建名為ywj（源文件）的子目錄，用于存放最小二乘法模型程序的源文件。在zxecf子目錄下新建名為mbwj（目標(biāo)文件）的子目錄，用于存放最小二乘法模型程序的目標(biāo)文件。具體如下圖： 模型文件庫(kù) 3、字典庫(kù) 索引表名為：zd； 模型編號(hào)（id）為：1； 模型名稱（mxmc）為：最小二乘法模型； 模型文件名（mxwjm）為：zxecf.exe； 模型文件路徑（mxwjlj）為：c:\jczcyzjxt\jczcxt\mx\zxecf\mbwj\ 具體如圖： 字典表 4、建立一個(gè)模型庫(kù)集成管理界面，設(shè)計(jì)開發(fā)模型庫(kù)管理系統(tǒng)。 模型庫(kù)管理系統(tǒng)界面 五、體會(huì)（收獲） 1、通過本實(shí)驗(yàn)的學(xué)習(xí)，我掌握了模型的組合，學(xué)會(huì)了建立模型庫(kù)：了解了模型庫(kù)的特點(diǎn)：（1）由模型庫(kù)管理系統(tǒng)進(jìn)行管理；（2）每個(gè)模型都具有輔助決策能力；（3）多個(gè)模型能有效地組織成系統(tǒng)；（4）多個(gè)模型的連接需要利用共享的數(shù)據(jù)庫(kù)。 2、同時(shí)也了解了模型庫(kù)管理系統(tǒng)的結(jié)構(gòu)，學(xué)會(huì)了將一個(gè)模型分類存放并實(shí)行調(diào)用，通過設(shè)置字典表的路徑來調(diào)用建好的模型，同時(shí)也了解的模型組的應(yīng)用，學(xué)會(huì)了在總控界面下調(diào)用模型。 實(shí)驗(yàn)六　總控與DSS集成 一、實(shí)驗(yàn)?zāi)康? 了解DSS系統(tǒng)集成方法，掌握總控部件和界面的實(shí)現(xiàn) 二、實(shí)驗(yàn)內(nèi)容 設(shè)計(jì)數(shù)據(jù)部件 編制人機(jī)交互界面 編制總控程序 集成部件形成決策支持系統(tǒng) 三、方案設(shè)計(jì)與要求 1、參考本實(shí)驗(yàn)后附材料選定要開發(fā)的系統(tǒng)，設(shè)想開發(fā)總體方案 2、設(shè)計(jì)總控和人機(jī)界面 3、部件集成和調(diào)試 4、開發(fā)文檔編寫 四、實(shí)驗(yàn)結(jié)果（結(jié)論） 下面以成本預(yù)測(cè)決策支持系統(tǒng)開發(fā)為例 1、DSS運(yùn)行結(jié)構(gòu)圖 統(tǒng)計(jì)數(shù)據(jù)表 tjsj 調(diào)用一元線性回歸方程模型 輸入投入產(chǎn)品件數(shù)x的值 顯示常數(shù)項(xiàng)a和回歸方程系數(shù)b的值 調(diào)用最小二乘法模型 開始 最小二乘法模型 zxecf.exe 參數(shù)表 cs 預(yù)測(cè)表 yc 一元線性回歸方程模型 yyxxhg.exe 預(yù)測(cè)表 yc 顯示產(chǎn)品成本Y的值 繼續(xù)預(yù)測(cè)？ 退出 NO Yes 控制流 數(shù)據(jù)流 ① ② ③ ④ ⑤ ⑦ ⑧ ⑥ 系統(tǒng)運(yùn)行結(jié)構(gòu)圖 2、實(shí)驗(yàn)過程（開發(fā)文檔） 一、數(shù)據(jù)部件的處理 1.在Access 2003中建立成本預(yù)測(cè)數(shù)據(jù)庫(kù)，在成本預(yù)測(cè)數(shù)據(jù)庫(kù)中建立統(tǒng)計(jì)數(shù)據(jù)表，以及將表1中給出的15組統(tǒng)計(jì)數(shù)據(jù)錄入統(tǒng)計(jì)數(shù)據(jù)表的具體操作步驟參見第2章實(shí)驗(yàn)1。 2.根據(jù)下表中給出的預(yù)測(cè)表的數(shù)據(jù)結(jié)構(gòu)，在成本預(yù)測(cè)數(shù)據(jù)庫(kù)中建立預(yù)測(cè)表（yc），輸入字段后的“表”設(shè)計(jì)窗口如下圖所示。 序號(hào) 字段名稱 數(shù)據(jù)類型 是否主鍵 說明 1 id 數(shù)字 是 2 x 數(shù)字 否 每批投入產(chǎn)品件數(shù)（百件），字段大小為整型 3 y 數(shù)字 否 產(chǎn)品成本（百元），字段大小為單精度型 輸入字段后的“表”設(shè)計(jì)窗口 二、模型部件的處理 編寫最小二乘法模型程序的具體操作步驟參見實(shí)驗(yàn)4。編寫一元線性回歸方程模型程序，在成本預(yù)測(cè)數(shù)據(jù)庫(kù)中建立字典表，以及將模型屬性數(shù)據(jù)錄入字典表的具體操作步驟如下。 1、在“c:\jczcyZjxt\jczcxt\mx”目錄下新建名為yyxxhg（一元線性回歸）的子目錄。接著，在yyxxhg子目錄下新建名為ywj（源文件）的子目錄，用于存放一元線性回歸方程模型程序的源文件；在yyxxhg子目錄下新建名為mbwj（目標(biāo)文件）的子目錄，用于存放一元線性回歸方程模型程序的目標(biāo)文件。結(jié)果如圖所示： 文件及子目錄 2.啟動(dòng)visual Basic 6.0，進(jìn)人“工程”界面。單擊工具欄上的“保存”按鈕，命名窗體文件為“yyxxhg.frm”，工程文件為“yyxxhg.vbp”，并將兩個(gè)文件都保存在“c:\jczcyzjxt\jczcxt\mx\yyxxhg\ywj”目錄下。然后，新建一個(gè)模塊，更改其名稱為“yyxxhg”，并以“yyxxhgbas”作為文件名也保存在“c:\jczcyzjxt\jczcxt\mx＼yyxxhg\ywj”目錄下。 3.單擊菜單欄上的“工程”＞“引用”選項(xiàng)，勾選“Microsoft ActiveX Data Objects 2.8 Library”選項(xiàng)和“Microsoft ActiveX Data Objects Recordse t2.8 Library”選項(xiàng)。 4.單擊菜單欄上的“工程”＞“工程1屬性”選項(xiàng)，將“啟動(dòng)對(duì)象”更改為“SubMain”。 5.鼠標(biāo)雙擊右側(cè)任務(wù)窗格中的yyxxhg模塊，在彈出的yyxxhg(Code)“代碼編寫”界面中編寫程序代碼。 在界面中輸人的完整程序代碼如下： ′聲明全局對(duì)象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫(kù)的連接 Public ADOcn As Connection SubMain( ) ′定義數(shù)據(jù)庫(kù)連接字符型變量strAccess，并為其賦值，用以連接Access數(shù)據(jù)庫(kù) Dim strAccess As String strAccess = "Provider = Microsoft.Jet.OLEDB.4.0; DataSource = c:\jczcyzjxt\jczcxt\sj\cbyc. mdb" ′調(diào)用vB函數(shù)DOEvents，用于轉(zhuǎn)移系統(tǒng)控制權(quán) DoEvents ′如果還沒有建立與數(shù)據(jù)庫(kù)的連接，則用以下代碼創(chuàng)建 SetADOcn = NewConnection ADOcn.Open strAccess Dim strSQL As String ′聲明一記錄集對(duì)象，并與ADOcn關(guān)聯(lián) Dim ADOrs As New Recordset SetADOrs.ActiveConnection = ADOcn strSQL= "select * from cs" ′執(zhí)行Select語(yǔ)句 ADOrs.Open strSQL ′定義變量a,b，分別存放cs表中的a,b字段值 ′定義變量x,y，分別存放投入產(chǎn)品件數(shù)和產(chǎn)品成本 Dim a As Single, b As Single, x As Integer, y As Single a = ADOrs("a") b = ADOrs("b") ADOrs.Close ′定義變量Sql1并為其賦值，得到保存在yc表中的投入產(chǎn)品件數(shù) Sql1 = "select x from yc where id = l" ADOrs.open Sql1 x = ADOrs("x") ′根據(jù)投入產(chǎn)品件數(shù)，預(yù)測(cè)產(chǎn)品成本 y = a + b * x ′定義變量Sql2并為其賦值，更新yc表中的產(chǎn)品成本 Sql2 = "update yc set y="&y&" where id=l" ADOcn.Execute Sql2 ′關(guān)閉記錄集對(duì)象和連接對(duì)象 ADOrs.Close ADOcn.Close End Sub 6.單擊菜單欄上的“文件”＞“生成yyxxhg.exe”選項(xiàng)，修改文件的存儲(chǔ)路徑為“c：\jczcyzjxt\jczcxt\mx＼yyxxhg\mbwj"，然后，單擊“確定”按鈕。至此，一元線性回歸方程模型程序編制完畢。 7.單擊菜單欄上的“保存”按鈕，保存工程。然后，單擊菜單欄上的“文件”＞“退出”選項(xiàng)，退出Visual Basic 6.0。 8.根據(jù)4-2字典表的數(shù)據(jù)結(jié)構(gòu)，在成本預(yù)測(cè)數(shù)據(jù)庫(kù)中建立字典表(zd)，輸入字段后的“表”設(shè)計(jì)窗口如下圖所示。 表 4-2 字典表的數(shù)據(jù)結(jié)構(gòu) 序號(hào) 字段名稱 數(shù)據(jù)類型 是否主鍵 說明 1 id 自動(dòng)編號(hào) 是 模型文件編號(hào) 2 mxmc 文本 否 模型名稱 3 mxwjm 文本 否 模型文件名稱 4 mxwjlj 文本 否 模型文件存放路徑 9.打開字典庫(kù)，將最小二乘法模型以及本實(shí)驗(yàn)創(chuàng)建的一元線性回歸方程模型的模型名稱、模型文件名稱，以及模型文件存放路徑錄入字典表，操作結(jié)果如下圖所示。 三、綜合部件（總控程序）的處理 1.在“c:\jczcyzjxt\jczcxt”目錄下新建一個(gè)名為zk（總控）的子目錄，用于存放總控程序。 2.啟動(dòng)Visual Basic 6.0，進(jìn)入“工程”界面。將“工程”界面右側(cè)任務(wù)窗格屬性窗口中的（名稱）屬性的值修改為“zk”。然后，單擊工具欄上的“保存”按鈕，命名窗體文件名為“zk.frm"，工程文件名為“zk.vbp"，并將兩個(gè)文件都保存在“c：\jczcyzjxt\jczcxt\zk”目錄下。 3.單擊菜單欄上的“工程”＞“引用”選項(xiàng)，勾選“Microsoft ActiveX Data Objects 2.8 Library”選項(xiàng)和“Microsoft ActiveX Data Objects Recordset 2.8 Library”選項(xiàng)。 4.單擊菜單欄上的“工程”＞“添加模塊”選項(xiàng)，新建一個(gè)模塊，并修改模塊名為“zkmk”（總控模塊）。單擊菜單欄上的“保存”按鈕，命名模塊文件為“zkmk.bas”，也保存在“c:\jczcyzjxt\jczcxt\zk”目錄下。 5.單擊菜單欄上的“工程”＞“添加窗體”選項(xiàng)，顯示器上將彈出“添加窗體”對(duì)話框。 6.選擇“窗體”選項(xiàng)，單擊“打開”按鈕，新建一個(gè)窗體。然后，將任務(wù)窗格屬性窗口中的（名稱）屬性的值修改為“wtms”（問題描述）。單擊工具欄上的“保存”按鈕，命名窗體文件為“wtms.frm"，也保存在“c:\jczcyzjxt\jczcxt\zk”目錄下。 7.在“問題描述”窗體中繪制兩個(gè)Label控件，分別修改其屬性窗口中Caption屬性的值為“問題描述”和“已知某產(chǎn)品成本與每批投入產(chǎn)品件數(shù)是線性相關(guān)的，并且已有15組統(tǒng)計(jì)數(shù)據(jù)，現(xiàn)在需要根據(jù)給出的每批投入產(chǎn)品件數(shù)，預(yù)測(cè)每批產(chǎn)品成本”。繼續(xù)在“問題描述”窗體中繪制一個(gè)CommandButton控件，修改其屬性窗口中Caption屬性的值為“進(jìn)入成本預(yù)測(cè)決策支持系統(tǒng)”。 8. 鼠標(biāo)雙擊“進(jìn)入成本預(yù)測(cè)決策支持系統(tǒng)”按鈕，在彈出的wtms(Code)“代碼編寫”界面中編寫Commandl_Click事件處理程序代碼。 在界面中輸人的完整程序代碼如下： Private Sub Commandl_Click() ′顯示總控窗體 Zk.Show ′關(guān)閉問題描述窗體 Unload Me EndSub 9.鼠標(biāo)雙擊添加窗體后“工程”界面右側(cè)任務(wù)窗格中的zkmk，打開zkmk(Code)“代碼編寫”界面，在界面中編寫程序代碼 在界面中輸入的完整程序代碼如下： ′聲明全局對(duì)象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫(kù)的連接 Public ADOcn As Connection Public Sub Main() ′定義數(shù)據(jù)庫(kù)連接字符型變量strAccess，并為其賦值，用以連接Access數(shù)據(jù)庫(kù) Dim strAccess As String strAccess = "Provider = Microsoft. Jet. OLEDB. 4. 0; Data Source = c: \jczcyzjxt \ jczcxt \ sj \ cbyc.mdb" ′調(diào)用VB函數(shù)DoEvents，用于轉(zhuǎn)移系統(tǒng)控制權(quán) DoEvents ′如果還沒有建立與數(shù)據(jù)庫(kù)的連接，則用以下代碼創(chuàng)建 Set ADOcn = NewConnection ′連接Access數(shù)據(jù)庫(kù) ADOcn.open strAccess ′初始化cs表 strSQL = "delete*from cs" AD0cn.Execute strSQL strSQL = "insert into cs(a,b) values(0,0)" ADOcn.Execute strSQL ′初始化yc表 strSQL = "delete*fromyc" ADOcn.Execute strSQL strSQL = "insertintoyc(id,x,y)values(l,0,0)" ADOcn.Execute strSQL ′顯示問題描述窗體 wtms.Show End Sub 10.鼠標(biāo)雙擊右側(cè)任務(wù)窗格中的zk，打開zk窗體，在窗體中繪制控件。 其中，“常數(shù)項(xiàng)”右側(cè)的TextBox控件（名稱）屬性被修改為“Txta",“回歸系數(shù)”右側(cè)的TextBox控件（名稱）屬性被修改為“Txtb”?！懊颗度氘a(chǎn)品件數(shù)”右側(cè)的TextBox控件（名稱）屬性被修改為“TxtmPtrcpjs",“產(chǎn)品成本”右側(cè)的TextBox控件（名稱）屬性被修改為“Txtcpcb",Enabled屬性被修改為“False”?！邦A(yù)測(cè)”CommandButton控件的（名稱）屬性被修改為“Cmdyc",“繼續(xù)預(yù)測(cè)”CommandButton控件的（名稱）屬性被修改為“Cmdjxyc",“退出”CommandButton控件的（名稱）屬性被修改為“Cmdtc”。界面右下腳的TextBox控件（名稱）屬性被修改為“Txtl",Visible屬性被修改為“False”。 11.鼠標(biāo)雙擊zk窗體中沒有繪制控件的位置，在彈出的zk(Code)“代碼編寫”界面中編寫Form_Load事件處理程序代碼。 在界面中輸人的完整程序代碼如下： Private Sub Form_Load() Dim Sqlmodel Dim ADOrs_Model As NewRecordset SetAD0rs_Model.ActiveConnection=AD0cn ′從Zd表中獲得最小二乘法模型文件的名稱和路徑 Sqlmodel = "select*from zd where id = l" ADOrs_Model.openSqlmodel Filepath = ADOrs_Model("mxwjlj") modelName = ADOrs_Model("mxwjm") ADOrs_Model.Close ′調(diào)用最小二乘法模型程序 Shell ( filepath & modelName ) Dim strSQL As String Dim ADOrs As New Recordset SetADOts.ActiveConnection = ADOcn ′定義變量a,b，存放從cs表中得到的a,b字段的值 Dim a As Single, b As Single ′等待最小二乘法模型程序執(zhí)行完畢 For i = 0 To 9999 strSQL = "select*from cs" ADOrs.open strSQL A = ADOrs("a") B = ADOrs("b") ADOrs.Close If a < > 0 Then Exit For End If Next i ′定義變量m,n，分別存放將a,b轉(zhuǎn)換為字符串后的值 Dim m, n As String m = CStr(a) n = CStr(b) ′若m左側(cè)的第一個(gè)字符為”."，則在第一個(gè)字符前加" 0", If Left(m,l） = ”." Then m = " 0" & m End If ′若n左側(cè)的第一個(gè)字符為”."，則在第一個(gè)字符前加" 0" If Left (n,l） = " ." Then n = "0" & n End If ′在文本框中顯示m,n的值 Txta. Text = m Txtb.Text = n ′讓文本框成為只讀 Txta. Enabled = False Txtb.Enabled = False Cmdjxyc.Enabled = False End Sub 12.鼠標(biāo)雙擊zk窗體中的“預(yù)測(cè)”按鈕，在彈出的zk(Code)“代碼編寫”界面中編寫Cmdyc_Click事件處理程序代碼。 在界面中輸人的完整程序代碼如下： Private Sub Cmdyc_Click() ′判斷輸入的每批投入產(chǎn)品件數(shù)是否為空，若為空則彈出提示信息 If Txtmptrcpjs.Text ＝ " " Then MsgBox