- 1、本文档共8页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
机械优化设计黄金分割法外推法概要
郑州大学
机械优化设计部分程序
1.外推法
2.黄金分割法
3.二次插值法
4.坐标轮换法
5.随机方向法
6.四杆机构优化设计
1.外推法
源程序:
#includestdio.h
#includemath.h
#define R 0.01
double fun(double x)
{ double m;
m=x*x-10*x+36;
return m;
}
void main()
{
double h0=R,y1,y2,y3,x1,x2,x3,h;
x1=0;h=h0;x2=h;
y1=fun(x1);y2=fun(x2);
if(y2y1)
{h=-h;
x3=x1;
y3=y1;
x1=x2;
y1=y2;
x2=x3;
y2=y3;
}
x3=x2+h;y3=fun(x3);
while(y3y2)
{h*=2.0;
x1=x2;
y1=y2;
x2=x3;
y2=y3;
x3=x2+h;
y3=fun(x3);
}
printf(fun(%f)=%f,fun(%f)=%f,fun(%f)=%f\n,x1,y1,x2,y2,x3,y3);
}
运行过程及结果:
fun(2.560000)=16.953600,
fun(5.120000)=11.014400,
fun(10.240000)=38.457600
2.黄金分割法
源程序:
#includestdio.h
#includemath.h
#define f(x) x*x*x*x-5*x*x*x+4*x*x-6*x+60
double hj(double *a,double *b,double e,int *n)
{
double x1,x2,s;
if(fabs((*b-*a)/(*b))=e)
s=f((*b+*a)/2);
else
{
x1=*b-0.618*(*b-*a);
x2=*a+0.618*(*b-*a);
if(f(x1)f(x2))
*a=x1;
else
*b=x2;
*n=*n+1;
s=hj(a,b,e,n);
}
return s;
}
void main()
{
double s,a,b,e,m;
int n=0;
printf(输入a,b值和精度e值\n);
scanf(%lf %lf %lf,a,b,e);
s=hj(a,b,e,n);
m=(a+b)/2;
printf(a=%lf,b=%lf,s=%lf,m=%lf,n=%d\n,a,b,s,m,n);
}
运行过程及结果:
输入a,b值和精度e值
-3
5
0.0001
a=3.279466,b=3.279793,s=22.659008,m=3.279629,n=21
3.二次插值法
源程序:
#includestdio.h
#includemath.h
int main(void)
{
double a1,a2,a3,ap,y1,y2,y3,yp,c1,c2,m;
double j[3];
int i,h=1;
void finding(double a[3]);
finding(j);
a1=j[0];
a2=j[1];
a3=j[2];
m=0.001;
double f(double x);
y1=f(a1);
y2=f(a2);
y3=f(a3);
for(i=1;1=1;i++)
{
c1=(y3-y1)/(a3-a1);
c2=((y2-y1)/(a2-a1)-c1)/(a2-a3);
ap=0.5*(a1+a3-c1/c2);
yp=f(ap);
if(fabs((y2-yp)/y2)m)
break;
else if((ap-a2)*h0)
{
if(y2=yp){
a1=a2;y1=y2;
a2=ap;y2=yp;}
else{
a3=ap;y3=yp;}
}
else if(y2=yp){
a3=a2;y3=y2;
a2=ap;y2=yp;}
else{a1=ap;y1=yp;}
}
double x,y;
if(y2=yp){
x=a2;y=y2;}
else{
x=ap;y=yp;}
printf(a*=%f\n,x);
printf(y*=%f\n,y);
return 0;
}
double f(doubl
您可能关注的文档
- 第四章线路测量.ppt
- 第四章纯电动汽车.ppt
- 第四章纺织助剂.ppt
- 第四章红外光谱资料.ppt
- 第四章组合音响、影碟机与电视机资料.ppt
- 第四章第一节燃烧与灭火沪教版资料.ppt
- 第四章特种铸造资料.ppt
- 第四章绝缘油的电器性能.ppt
- 机器人_河南机器人租赁.ppt
- 机动车维修企业安全生产达标考评指标.doc
- 部编版一年级语文下册第四单元《8 夜色》教学课件(2025年春-新编教材).pptx
- 江苏省盐城市五校2024-2025学年高一下学期4月期中联考数学试卷(含答案).pdf
- 2025年高一语文教师工作总结简单版(六).docx
- 第12课《台阶》课件 2024—2025学年统编版语文七年级下册(共39张PPT).pptx
- 部编版一年级语文下册第四单元《语文园地四》教学课件(2025年春-新编教材).pptx
- 部编版一年级语文下册第四单元《9 端午粽》教学课件(2025年春-新编教材).pptx
- 指导技能的关键要素与提升的策略研究与分享.docx
- 湖南省永州四中直升班2025届高三(下)适应性数学试卷(含答案).pdf
- 湖北省荆荆宜襄·四地七校联盟2024-2025学年高一(下)期中联考数学试卷(含答案).pdf
- 2025年04月17日袁荣的初中历史组卷.docx
文档评论(0)