24小时热门版块排行榜    

查看: 3149  |  回复: 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-15 +15 archvillain 2026-08-15 27/1350 2026-08-21 11:32 by tim76
[基金申请] 科研孤儿太难了 +15 我4大白菜 2026-08-20 16/800 2026-08-21 11:07 by yming1319
[基金申请] 应该是下周三26日公布了吧? +4 哈哈蛤? 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[论文投稿] 投稿咨询 +5 wwm09 2026-08-17 7/350 2026-08-21 10:11 by 期刊论文帮手
[基金申请] 让我中一个面上吧! +10 大萍1987 2026-08-20 12/600 2026-08-21 09:31 by 020100099
[基金申请] 时间戳今天,20号变了 +4 archvillain 2026-08-20 4/200 2026-08-21 08:10 by gatelove
[基金申请] 只有每年这种时候来逛逛小木虫 +22 yaoyewhu2008 2026-08-20 24/1200 2026-08-21 07:44 by DanielDDDD
[基金申请] 今日不放榜?网传国自然预计 8 月 27 日可查结果 +15 医学老男孩 2026-08-20 17/850 2026-08-20 20:35 by CaoLG
[基金申请] 时间戳又变了 +12 wuchongjun 2026-08-20 17/850 2026-08-20 20:05 by spzhao
[基金申请] 今天系统多次维护,明天很可能放榜! +10 zju2000 2026-08-16 11/550 2026-08-20 20:02 by cl479861084
[基金申请] 重要消息,中午系统在维护 +11 yuleib84 2026-08-18 12/600 2026-08-20 11:09 by xskun
[教师之家] 为什么余额宝的年化利率越来越低?主要原因有哪些? +5 瞬息宇宙 2026-08-15 5/250 2026-08-19 20:23 by super2002521
[基金申请] 今天放榜吗? +14 布布和一二 2026-08-19 15/750 2026-08-19 18:07 by gltch
[基金申请] 2027广东省杰青 +4 奶牛小黑 2026-08-15 10/500 2026-08-19 11:02 by wanfengnew
[基金申请] 朋友圈看到的 +6 wangzilk 2026-08-18 8/400 2026-08-19 10:55 by Haru815
[基金申请] 什么时候开奖? +6 CrisMessi 2026-08-18 6/300 2026-08-19 08:06 by Equinoxhua
[基金申请] 明天放榜? +5 Shxjjxjkx 2026-08-18 5/250 2026-08-18 18:14 by -大大大大大-
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
[基金申请] 感觉是下周放榜了 +6 angus9576 2026-08-17 11/550 2026-08-17 23:57 by angus9576
[基金申请] 各位道友,我要去昆明玩几天,回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
信息提示
请填处理意见