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