24小时热门版块排行榜    

查看: 2801  |  回复: 13

743832049

新虫 (初入文坛)

[求助] 我用matlab编写了一个风力机叶片的优化设计程序,有点问题 已有1人参与

主程序
clear;
global r;
global R;
global phi;
global lamb;
V1=7;P=400;lamb0=6;B=3;
D=2.5;
R=D/2;                                                                     
N=60*lamb0*V1/pi/D;                                                        
omiga=V1*lamb0/R;
    r=0.1*R;                                                                                   %当前只进行0.1R处翼型截面的气动力计算试一试                                                            
    a0=lamb0^2/2000+0.027*lamb0-0.038;                                                              
    b0=10/lamb0/exp(12*r/R);
    lamb=lamb0*r/R;
    x0=[a0;b0];
    for i=1:10
    lb=[0;0];
    ub=[0.5;1];
    options=optimset('largescale','off','Algorithm','active-set');                                                         
    [x,fval]=fmincon('objfun',x0,[],[],[],[],lb,ub,'confun',options);                                 
   a=x.(1);
    b=x.(2);
    xi=x;
    if((abs(a-a0)<=0.00001)&&(abs(b-b0)<=0.00001)),break,end                                                                  
    x0=xi;                                         
    end                                                                    
    C0=0.21897;
    for i=0:10                                                         
    Re=[100000 500000 1000000 2000000 3000000 4000000 5000000 9000000];   
    Cl=[1.2424 1.0853 1.001 0.9616 0.9663 0.9693 0.9016 1.0023];
    alpha=[8 6 5 4.5 4.5 4.5 4 5];
    Re(i)=V1*(1-a)*C0/1.48e-5/sin(phi);                                      
    Cl(i)=interpi(Re,Cl,Re(i),'spline');                                       
    alpha(i)=interpi(Re,alpha,Re(i),'spline');                                
    S=8*pi*sin(phi)*sin(phi)*(1-a*F)*a*F/cos(phi)/(1-a)^2;               
    C(i+1)=S*r/B/Cl(i);                                                      
    C=C(i+1);                                                              
    if(abs(C-C0)<=0.00001),break,end                                                
    C0=C(i+1);                                                            
    end                                                                    
    theta=phi-alpha(i);                                                      
printf(fid,'%f\t%f\t%f\t%f\t%f\t%f\t%f\t%f\t%f\t%f\t%f\n',a,b);


目标函数
function fval=objfun(x0)                                                     
global lamb0;
global B;
global R;
global r;
global phi;
lamb=lamb0*r/R;
phi=atan((1-x0.(1))/(1+x0.(2))/lamb);
f=B*(R-r)/2/r/sin(phi);
F=2*acos(exp(-f))/pi;
fval=-8*x0.(2)*(1-x0.(1))*F*lamb^3/lamb0^2;



条件函数
function [c,ceq]=confun(x0)                                                
global lamb0;
global B;
global R;
global r;
global phi;
lamb=lamb0*r/R;
phi=atan((1-x0.(1))/(1+x0.(2))/lamb);
f=B*(R-r)/2/r/sin(phi);
F=2/pi*acos(exp(-f));
ceq=x0.(1)*(1-x0.(1)*F)-x0.(2)*(1+x0.(2))*lamb^2;
c=[];


程序采用的是Wilson算法,但是在MATLAB中运行的时候总是出问题。我是菜鸟,该程序是边学边做的,可能有出错的地方,望大侠们帮帮吧。。。
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

yqsky610

禁虫 (小有名气)

本帖内容被屏蔽

9楼2013-12-12 20:47:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

云海孤狼

银虫 (正式写手)

我也想做优化,是离心风机叶轮的,你是用什么书学习的呢?
2楼2013-12-07 21:00:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yqsky610

禁虫 (小有名气)

本帖内容被屏蔽

3楼2013-12-08 10:55:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

743832049

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by 云海孤狼 at 2013-12-07 21:00:05
我也想做优化,是离心风机叶轮的,你是用什么书学习的呢?

我就用学习了一下matlab基础教程,然后再在网上找了点资料自己学着编的,都不知道编的对不对。。。因为论文要优化叶片,所以才学编程。
4楼2013-12-11 15:30:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

743832049

新虫 (初入文坛)

引用回帖:
3楼: Originally posted by yqsky610 at 2013-12-08 10:55:54
请问有输入值吗?

你指的是哪些量?基本的叶片参数都有
5楼2013-12-11 15:32:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yqsky610

禁虫 (小有名气)

本帖内容被屏蔽

6楼2013-12-11 22:14:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

743832049

新虫 (初入文坛)

引用回帖:
6楼: Originally posted by yqsky610 at 2013-12-11 22:14:27
我想问是在程序里输入的吗?你最终要实现的程序是要把变量输入程序?...

直径,转速,额定功率,风速,叶尖速比都是输入值,并给定一组轴向和周向诱导因子【a0,b0】为初始值,然后通过迭代求取一组最优的轴向和周向诱导因子【a,b】使得Cp值最大啊。。。
7楼2013-12-12 16:46:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yqsky610

禁虫 (小有名气)

本帖内容被屏蔽

8楼2013-12-12 20:34:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

743832049

新虫 (初入文坛)

引用回帖:
8楼: Originally posted by yqsky610 at 2013-12-12 20:34:58
如果你有时间的话 能把框图公式给我吗 我可以帮你看看 但是不保证一定能做出来。。。麻烦了...

行。加我QQ743832049,麻烦了。
10楼2013-12-13 21:52:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 743832049 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 调剂 +8 调剂的考研学生 2026-03-09 8/400 2026-03-15 22:14 by Winj1e
[考研] 梁成伟老师课题组欢迎你的加入 +6 一鸭鸭哟 2026-03-14 7/350 2026-03-15 22:12 by Winj1e
[考研] 中科大材料专硕319求调剂 +3 孟鑫材料 2026-03-13 3/150 2026-03-14 18:10 by houyaoxu
[考研] 【0703化学调剂】-一志愿华中师范大学-六级475 +5 Becho359 2026-03-11 5/250 2026-03-14 11:35 by 哦哦123
[考研] 331求调剂(0703有机化学 +5 ZY-05 2026-03-13 6/300 2026-03-14 10:51 by Jy?
[考研] 求调剂 +5 鹤遨予卿 2026-03-09 5/250 2026-03-14 02:44 by JourneyLucky
[考研] 求调剂 +3 清风问长安 2026-03-09 3/150 2026-03-14 02:15 by JourneyLucky
[考研] 288求调剂 +14 王晓阳- 2026-03-09 19/950 2026-03-14 02:05 by JourneyLucky
[考研] 295复试调剂 +5 简木ChuFront 2026-03-09 5/250 2026-03-14 01:29 by JourneyLucky
[考研] 材料专硕288分求调剂 一志愿211 +4 在家想你 2026-03-11 4/200 2026-03-13 22:49 by JourneyLucky
[考研] 材料与化工304求B区调剂 +5 邱gl 2026-03-11 6/300 2026-03-13 22:37 by JourneyLucky
[考研] 307求调剂 +5 超级伊昂大王 2026-03-12 5/250 2026-03-13 15:56 by 棒棒球手
[考研] 工科材料085601 279求调剂 +8 困于星晨 2026-03-12 10/500 2026-03-13 15:42 by ms629
[考研] 0817化学工程与技术考研312分调剂 +3 T123 tt 2026-03-12 3/150 2026-03-13 10:49 by houyaoxu
[考研] 268求调剂 +4 好运连绵不绝 2026-03-12 4/200 2026-03-13 10:45 by hyswxzs
[考研] 070303一志愿西北大学学硕310找调剂 +3 d如愿上岸 2026-03-13 3/150 2026-03-13 10:43 by houyaoxu
[考研] 求调剂 资源与环境 285 +3 未名考生 2026-03-10 3/150 2026-03-13 10:31 by houyaoxu
[考研] 一志愿河海大学085900土木水利专硕279求调剂不挑专业 +4 SunWwWwWw 2026-03-10 8/400 2026-03-13 02:23 by SunWwWwWw
[考研] 一志愿:武汉理工,材料工程,英二数二 总分314 +3 2202020125 2026-03-10 4/200 2026-03-10 13:54 by xiongyaxuan
[考研] 数二英二309分请求调剂 +3 dtdxzxx 2026-03-09 4/200 2026-03-09 19:56 by yuningshan
信息提示
请填处理意见