應(yīng)用excel規(guī)劃求解實例_第1頁
應(yīng)用excel規(guī)劃求解實例_第2頁
應(yīng)用excel規(guī)劃求解實例_第3頁
應(yīng)用excel規(guī)劃求解實例_第4頁
應(yīng)用excel規(guī)劃求解實例_第5頁
已閱讀5頁,還剩1頁未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、應(yīng)用EXCEL規(guī)劃求解工具進(jìn)行優(yōu)化1.線性規(guī)劃一生產(chǎn)規(guī)劃:步驟一:建立模型:每天生產(chǎn)甲乙兩種產(chǎn)品分別為X1和X2,數(shù)學(xué)模型為:目標(biāo)函數(shù):minf(XI,X2)=60*X1+120*X2約束條件:9*X1+4*X2=3603*X1+4*X2=3004*X1+5*X2=200-X1=0-X2=0用EXCEL建立模型如下:步驟二:規(guī)劃求解參數(shù)確定:I.tnc, $渤椎旅四.壁四i咨目標(biāo)畏元格財設(shè)計變量K=約束條件gsl-00ss40gi5=Cl且標(biāo)函數(shù)fxQ寺于:0社疽,陽$J枷 H D JD$1 := D $DI = 3G0 !f|珀3flD $D9 垢0 x5=0好0(1S=0約束條件gKl=2

2、統(tǒng)=01目標(biāo)函數(shù)fz0. 0277 7 S蔽話鄒拒1刃:逢代枷,時】:允許景差收贛度叫:r柔用掰瞬型:裝人模型如器助、正加函魅面/鈾法妙二痂瞞共銅名叨廠舄定非員國顯示訖ft*果騏步驟四:求解:由上面求解過程可知:X1=23,X2=50,X3=0,X4=4,X5=0,X6=0,X7=0和X8=3時,可使目 標(biāo)函數(shù)值最小,即f(X)=0.045139.3 .規(guī)劃求解一工時安排:某廠生產(chǎn)A B C三種產(chǎn)品,凈利潤分別為90元,75元,50元;使用的機(jī)時數(shù)分別為3h,手 工時數(shù)分別為4h,3h,2h,由于數(shù)量和品種受到制約,機(jī)工最多為400h,手工為280h,數(shù) 量最多不能超過50件,C至少要生產(chǎn)32

3、件。求:如何安排A B C的數(shù)量以獲得最大利潤?解:建立數(shù)學(xué)模型:A、B、C三種產(chǎn)品的數(shù)量分別為X1, X2和X3,其利潤為f (X): 目標(biāo)函數(shù):maxf(X)=90*X1+75*X2+50*X3約束條件:3*X1+4*X2+5*X3=4004*X1+3*X2+2*X3=280X1=32用EXCEL建立模型如下:設(shè)計變量1=s2-s3=E約或條杵gil=E-k3=8 2二目標(biāo),Fk0求解更改()O1 3 5 TH g 1111 r r r 3333s3S32群泠豹oofinL -董毒s ;-E 七該讓變量X1i2i3約束條件gx10?0SK迭代凌教(X):暗度叫:九:山段差但):收斂度親用線

4、性槿刑地i,in萩I 而宜伽I 蜉1口頂 |裝孔植墮I LI 謀虐).IL| 2為助叩點(diǎn)祝宣比崩鼬叫:。正切齡步占向牙差分D0中齡如二方程叩中心差扶饋共駐法電)5鋼尊黑步驟四:求解:由上面求解過程可知:X1=0, X2=93, X3=0時,可使目標(biāo)函數(shù)值最大,即f (X) =11160.4.FORTRAN語言解讀:c =SUBROUTINE FFX(N,X,FX);(目標(biāo)函數(shù)定義)C =DIMENSION X(N)COMMON /ONE/ I1,I2,I3,I4,NFX,I6NFX=NFX+1P0=ACOS(1.0+X(1)*2-X(2)*2+25.0)/(10.0*(1.0+X( 1);(輸

5、入角初始值)Q0=ACOS(1.0+X(1)*2-X(2)*2-25.0)/(10.0*X(2);(輸出角初始值)T=90.0*3.1415926/(180.0*30.0);(將輸入角 30 等分后每一份值)FX=0.0;(目標(biāo)函數(shù)初始值)DO 10 K=0,30;(循環(huán)程序入口,循環(huán)次數(shù)30次)PI=P0+K*T;(計算每一次循環(huán)后的輸入角)QE=Q0+2.0*(PI-P0)*2/(3.0*3.1415926);(計算每一次循環(huán)后的理想輸出角)D=SQRT(26.0-10.0*COS(PI);(與L1和L4相鄰的連桿四邊形對角線長度r)AL=ACOS(D*D+X(2)*X(2)-X(1)*X

6、(1)/(2.0*D*X(2); (L3 和 r 的夾角)BT=ACOS(D*D+24.0)/(10.0*D); (L4 和 r 的夾角)IF (PI.GE.0.0 .AND. PI.LT.3.1415926) THEN;(判斷輸入角是否在 0 到 pi 之間,計 算實際輸出角)QI=3.1415926-AL-BTELSEQI=3.1415926-AL+BTENDIFIF(K.NE.0 .OR. k.NE.30) THEN ;(判斷循環(huán)次數(shù)是否在30次內(nèi),計算目標(biāo)函數(shù)) FX=FX+(QI-QE)*2*T;ELSEFX=FX+(QI-QE)*2*T/2.0ENDIF10 CONTINUEEND

7、;(繼續(xù)循環(huán));(程序段結(jié)束)SUBROUTINE GGX(N,KG,X,GX);(約束條件函數(shù)子程序)C =DIMENSION X(N),GX(KG)GX(1)=-X(1)GX(2)=-X(2)GX(3)=-(X(1)+X(2)+6.0GX(4)=-(X(2)+4.0)+X(1)GX(5)=-(4.0+X(1)+X(2);(定義GX=0);(桿長 L1=0);(最短桿L1和桿L4之和小于另兩桿之和);(最短L1和桿L2之和小于另兩桿之和條件);(最短L1和桿L3之和小于另兩桿之和條件)GX(6)=-(1.4142*X(1)*X(2)-X(1)*2-X(2)*2)-16.0 ;(傳動角大于 4

8、5 度)GX(7)=-(X(1)*2+X(2)*2+1.4142*X(1)*X(2)+36.0;(傳動角小于 135 度)ENDC =SUBROUTINE HHX(N,KH,X,HX);(約束條件函數(shù)子程序)C =DIMENSION X(N),HX(KH);(定義HX=0的約束條件函數(shù))X(1)=X(1)END5.學(xué)習(xí)心得:這次作業(yè)讓我收獲了很多,通過課堂上的學(xué)習(xí),讓我對優(yōu)化設(shè)計有了一個充分的認(rèn)識, 老師的講解細(xì)致入微,也讓我對這門課充滿了興趣。課堂上的實例講解,以及課下的實踐操 作,讓我們從理論到實際對優(yōu)化都有了了解。以前用office不怎么用excel,以為excel對我 們來說沒有什么用,直到今天對excel的一番操作,才知道自己的知識面太狹隘了。通過這 次操作,也讓我體會到,用筆算和用計算機(jī)計算的區(qū)別,用筆需要埋頭苦

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論