機(jī)械優(yōu)化設(shè)計(jì)

1、機(jī)械優(yōu)化設(shè)計(jì)一一復(fù)合形方法及源程序（一）題目：用復(fù)合形法求約束優(yōu)化問(wèn)題nmi /（x）= （a -5尸 +4（*2 -6T ； g = 64-xf -x22 0； g3 = -10 0的最優(yōu)解。基本思路：在可行域中構(gòu)造一個(gè)具有K個(gè)頂點(diǎn)的初始復(fù)合形。對(duì)該復(fù)合形各頂點(diǎn)的目標(biāo)函數(shù) 值進(jìn)行比較，找到目標(biāo)函數(shù)值最大的頂點(diǎn)（即最壞點(diǎn)），然后按一定的法則求出目標(biāo)函數(shù)值有 所下降的可行的新點(diǎn)，并用此點(diǎn)代替最壞點(diǎn)，構(gòu)成新的復(fù)合形，復(fù)合形的形狀每改變一次， 就向最優(yōu)點(diǎn)移動(dòng)一步，直至逼近最優(yōu)點(diǎn)。（二）復(fù)合形法的計(jì)算步驟1）選擇復(fù)合形的頂點(diǎn)數(shù)k, 一般取n + lk2nf在可行域內(nèi)構(gòu)成具有k個(gè)頂點(diǎn)的初始復(fù)合 形。2）

2、計(jì)算復(fù)合形個(gè)頂點(diǎn)的目標(biāo)函數(shù)值，比較其大小，找出最好點(diǎn)xl、最壞點(diǎn)xh、及此壞點(diǎn)xg.3）計(jì)算除去最壞點(diǎn)xh以外的（k-1）個(gè)頂點(diǎn)的中心X*判別xc是否可行，若xc為可行點(diǎn)，則轉(zhuǎn)步驟4）；若xc為非可行點(diǎn)，則重新確定設(shè)計(jì)變量的下限和上限值，即令。=xL,b = xc , 然后轉(zhuǎn)步驟1）,重新構(gòu)造初始復(fù)合形。4）按式xR=xc + axc-xM算反射點(diǎn)Xr,必要時(shí)改變反射系數(shù)a的值，直至反射成功，即滿足式gy（x/?）0,（； = 1,2,inf（xR）f（xH）o然后Xr以取代Xh，構(gòu)成新的復(fù)合形。5）若收斂條件，上|/優(yōu)）_得到滿足，計(jì)算終止。約束最優(yōu)解為: k 一 1 j=ix =x/（x

3、）=/（xL）o（三）復(fù)合形法程序框圖見(jiàn)下圖:（四）源程序如下:/*復(fù)合形法收斂控制精度*/*申請(qǐng)矩陣空間*/*目標(biāo)函數(shù)*/*約束函數(shù)*/*可行點(diǎn)的判斷*/int n.k;mt i,j,kl;int 1;double temporary;double restrain;double reflect;srand(unsigned)tmie(NULL);pnntf(”請(qǐng)輸入目標(biāo)函數(shù)的維數(shù)n:”)；scanf(”d,&n);pnntf(”請(qǐng)輸入復(fù)合形的頂點(diǎn)數(shù)k:”)；scanf(”d”,&k);double *x=apply(k,n);double *y=(double *)calloc(k.siz

4、eof(double);double *p=(double *)calloc(3,sizeof(double);double *a=(double *)calloc(n.sizeof(double);double *b=(double *)calloc(n,sizeof(double);double *x_c=(double *)calloc(n.sizeof(double);double *x_r=(double *)calloc(n,sizeof(double);/*收斂條件*/*反射系數(shù)*/*輸入己知數(shù)據(jù)*/*存放復(fù)合形頂點(diǎn)*/*存放目標(biāo)函數(shù)值*/*存放約束函數(shù)值*/*存放設(shè)計(jì)變量的下限

5、*/*存放設(shè)計(jì)變量的上限*/*存放可行點(diǎn)中心*/*存放最壞點(diǎn)的反射點(diǎn)*/*輸入值選擇n=2,k=3,本程序可以處理n為2或3, k為3或4的情況*/#iiiclude #iiiclude #iiiclude #iiiclude #defiiie EO le-5double *apply(int,int);double f(double *);double *g(double *);bool judge(double *);int niaiii()pnntf(”本程序中的所有輸入，兩個(gè)數(shù)之間用空格隔開(kāi)，然后按enter鍵時(shí)不要長(zhǎng)時(shí)間的按，否則，可 能會(huì)出錯(cuò)寸)；請(qǐng)輸入選定的第一個(gè)可行點(diǎn)xl(包含

6、(1個(gè)數(shù)fbi(i=0;in;i+)scanff%lP；x+i);pnntf(iW輸入初選變量的下限a(包含(1個(gè)數(shù)fbi(i=0;in;i+)scanff%lf,a+i);pnntf(iW輸入初選變量的上限b(包含d個(gè)數(shù)):F);fbi(i=0;in;i+)scanff%lP,b+i);pnntf(”輸出輸入結(jié)果為:nn=%d,k=%d,xl=(”,n,k);/*輸出已知數(shù)據(jù)*/fbr(i=O;in-l;i+)pnnW%51f”,*(*x+i);pnntff%.51f)Ea=(”,*(*x+n-l);fbr(i=O;in-l;i+)pnnrfT%f”,*(a+i);pnntff%.51f),

7、b=(”,*(a+n.l);fbr(i=O;in-l;i+)pnntf(”f”,*(b+i);pnntff%.51f)ir,*(b+n-l);Ll: for(i=l;ik;i+)/*隨機(jī)得到其余(k-1)個(gè)可行點(diǎn)*/foi(j=Ojnj+) *(*(x+i)+j)=*(a-fj)+(double)(rand()%10000)/10000*(*(b+j)-*(a+j); 1=1; fol(l=l；ik；l+)/*找出可行點(diǎn)的個(gè)數(shù)1,并把可行點(diǎn)放在前1個(gè)位置上*/if(judge(*(x+i)I for(j=lJk;j+) if(!judge(*(x+j) ( for(kl=0;kln;kl+)

8、( tempoiary=*(*(x+i)+kl); *(*(x+i)+kl)=*(*(x+j)+kl);* (* (x+j )+k l)=temp orary; break;) 1+; foi(i=0;il-l;i+)/*把前1個(gè)可行點(diǎn)按目標(biāo)函數(shù)值從大到小排序*/for(j=i+lJl;j+) if(f(*(x+i)f(*(x+j) fbr(k l=0;kln;kl +) ( temporary=*(*(x+i)+k 1); *(*(x+i)+kl)=*(*(x+j)+kl); *(*(x+j)+kl )=temporaiy; )foi(i=0;in;i+)/*求可行點(diǎn)中心 */*(x_c+i

9、)=O; foi(i=0;il;i+) for(j=0jvnj+) *(x_c+j)+=*(*(x+i)+j);*(x_c+i)/=l;if( !judge(x_c)/*判斷可行點(diǎn)中心是否可行*/*(a+i)=*(*(x+l-l)+i);*(b+i)=*(x_c+i);goto LI; else for(i=l；ivk;i+)/*將不可行點(diǎn)可行化*/do( for(j=0jn;j-H-) *(*(x+i)+j)=*(x_c+j)+0.5*(*(*(x+i)+j)-*(x_c+j);wlule(!judge(*(x+i)；L2:foi(i=0;ik-l;i+)/*將可行點(diǎn)按目標(biāo)函數(shù)值從大到小排序

10、*/fbr(j=i+ljkj+) f(f(*(x+i)vf(*(x+j) for(kl=0;kln;kl+) ( tempoiary=*(*(x+i)+kl); *(*(x+i)+kl)=*(*(x+j)+kl);* (* (x+j )+k 1 )=temp orary;restiaiii=O;/*求收斂條件 */fbr(i=O;ik;i-H-) restiain+=(R*(x+i)f(*(x+k-l)*(f(*(x+i)f(*(x+kl);iestiaiii=sqrt(l .0/(k- l)*iestrain); if(restiaiiiEO)/* 判斷收斂條件 */J I pnntf(”n

11、求得約束最優(yōu)點(diǎn)為:(”)； for(i=O;in;i-H-)pnntff%.5f ”,*(*(x+k.l)+i);pnntf()ii 目標(biāo)函數(shù)的最優(yōu)解為:%.5fn”,f(*(x+k-l); return 0: elseL3:for(i=0;in;i+)/*計(jì)算除去最壞點(diǎn)*x外的(k-1)個(gè)頂點(diǎn)的中心*/*(x_c+i)=0; for(i=l;ik;i+) for(j=0jn;j-H-) *(x_c+j)+=*(*(x+i)+j); for(i=0;in;i-H-) *(x_c+i)/=kl; reflect=1.3;L4:for(i=0;in;i+)/* 求反射點(diǎn)*/*(x_r+i)=*(x

12、_c+i)+reflect*(*(x_c+i)*(*x+i); if(!judge(x_r)reflect*=0.5;goto L4;else if(f(x_r)vR*x)jfbr(i=O;in;i+)*(*x+i)=*(x_r+i);goto L2;else if(reflect=le-10)fbr(i=0;in;i+)* (*x+i)=* (* (x+1 )+i);goto L3;elsereflect*=0.5;goto L4;double *apply(iiit row,hit col) /* 申請(qǐng)矩陣空間 */(int i;double *x=(double*)calloc(row*

13、col,sizeof(double);double *y=(double *)calloc(row,sizeof(double *);if(!x | !y)pnntf(吶存分配失敗!，exit(l);for(i=0;iiow;i-H-)*(y+i)=x+i*col;return y;double f(double *x)/* 目標(biāo)函數(shù)*/(return (*x-5)*(*x-5)+4*(*(x+l)-6)*(*(x+l)-6);double *g(double *x)/*約束函數(shù)*/(double *p=(double *)calloc(3,sizeof(double);】f(!p)pnntf(吶存分配失敗!，exit(l);*p=64-(*x)*(*x)-(*(x+