声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1506|回复: 5

[编程技巧] 请教大家 matlab 积分问题

[复制链接]
发表于 2011-7-18 16:35 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
本帖最后由 bettyshen 于 2011-7-18 16:42 编辑

未命名.jpg 此式为要积分的公式。其中f是表达式很长的函数。我用int 积分,结果总是不对。
如下的错误。不知怎么改呢?
??? Error using ==> reshape
To RESHAPE the number of elements must not change.

请大家指教。谢谢

本帖被以下淘专辑推荐:

回复
分享到:

使用道具 举报

发表于 2011-7-21 00:55 | 显示全部楼层
本帖最后由 ChaChing 于 2011-7-21 00:56 编辑

Ref : 常见的程序出错问题整理 http://forum.vibunion.com/thread-46001-1-1.html, 14F
From http://forum.vibunion.com/home-space-uid-63979-do-blog-id-18250.html
发表于 2011-7-21 13:57 | 显示全部楼层
建议你用quadl等函数进行数值积分

评分

1

查看全部评分

 楼主| 发表于 2011-8-9 13:55 | 显示全部楼层
谢谢大家的回答,我用quadl积分 出现下面的提示。Warning: System is inconsistent. Solution does not exist  请问怎么解决呢
 楼主| 发表于 2011-8-10 09:10 | 显示全部楼层

请教大家 matlab积分问题

本帖最后由 bettyshen 于 2011-8-10 09:44 编辑

。    。
未命名.jpg
 楼主| 发表于 2011-8-10 09:37 | 显示全部楼层

RE: 请教大家 matlab 积分问题

本帖最后由 bettyshen 于 2011-8-10 09:39 编辑

未命名.jpg 回复 3 # qibbxxt 的帖子

  1. clear
  2. clc

  3. w0=1.0;w1=2.0;w2=2.0;alpha=1.0;beta1=0.01;beta2=0.02;D1=0.01;D2=0.01;x1=0.3;x2=0.3;

  4. g=w0^2.*a+alpha.*a.^3;
  5. n=(alpha.*a.^2/4)./(w0^2+3*alpha*a.^2/4);
  6. b0=(w0^2+3*alpha*a.^2/4).^0.5;
  7. b2=(w0^2+3*alpha*a.^2/4).^0.5*n/2;

  8. S12=D1/pi()./(((2*b0).^2-w1^2).^2+4*x1^2*w1^2.*(2*b0).^2); %%S1(2*b0)
  9. S14=D1/pi()./(((4*b0).^2-w1^2).^2+4*x1^2*w1^2.*(4*b0).^2); %%S1(4*b0)

  10. S21=D2/pi()./((b0.^2-w2^2).^2+4*x2^2*w1^2*b0.^2);          %%S2(b0)
  11. S23=D2/pi()./(((3*b0).^2-w2^2).^2+4*x2^2*w2^2*(3*b0).^2);  %%S2(3*b0)

  12. g1=w0^2.*u+alpha*u.^3;
  13. n1=(alpha*u.^2/4)/(w0^2.*u+3*alpha*u.^2/4);
  14. b01=(w0^2+3*alpha*u.^2/4).^0.5;
  15. b21=(w0^2+3*alpha*u.^2/4).^0.5.*n1/2;

  16. SS12=D1/pi()./(((2*b01).^2-w1^2).^2+4*x1^2*w1^2*(2*b01).^2); %%S1(2*b0)
  17. SS14=D1/pi()./(((4*b01).^2-w1^2).^2+4*x1^2*w1^2*(4*b01).^2); %%S1(4*b0)
  18. SS21=D2/pi()./((b01.^2-w2^2).^2+4*x2^2*w1^2*b01.^2);          %%S2(b0)
  19. SS23=D2/pi()./(((3*b01).^2-w2^2).^2+4*x2^2*w2^2*(3*b01).^2);  %%S2(3*b0)


  20. m1=-u.^2./8./g1.*(-beta1.*(4*w0^2+5*alpha.*u.^2./2)+beta2*u.^2.*(w0^2+3*alpha*u.^2/4))+...
  21.    pi()*u.^2./32./g1.*((2*b01).*SS12.*(1./(u+3/4.*u.^2).^(1/2).*u.^2./(u+u.^3).*(1+3/2*u)+4*(u+3/4*u.^2).^(1/2).*u./(u+u.^3)-2*(u+3/4*u.^2).^(1/2).*u.^2./(u+u.^3).^2.*(1+3*u.^2))+...
  22.      b21.*SS14.*(-1/16./(u+3/4*u.^2).^(3/2).*u.^2.*(1+3/2*u)+1/4./(u+3/4*u.^2).^(1/2).*u))+...
  23.    pi()*u.^3./16./g1.^2.*((2*b01).*(2*b01+2*b21).*SS12+2*(b21).*b21.*SS14)+...
  24.     pi()*u./8./g1.*((2*b01-b21).*SS21.*((1/2./(u+3/4*u.^2).^(1/2).*(1+3/2*u)+1/16./(u+3/4*u.^2).^(3/2).*u.^2.*(1+3/2*u)-1/4./(u+3/4*u.^2).^(1/2).*u).*u./(u+u.^3)+...
  25.         ((u+3/4*u.^2).^(1/2)-1/8./(u+3/4.*u.^2).^(1/2).*u.^2)./(u+u.^3)-((u+3/4*u.^2).^(1/2)-1/8./(u+3/4.*u.^2).^(1/2).*u.^2).*u./(u+u.^3).^2.*(1+3*u.^2))+...
  26.         (2*b21).*SS23.*(-1/8./(u+3/4*u.^2).^(3/2).*u.^3./(u+u.^3).*(1+3/2.*u)+3/4./(u+3/4.*u.^2).^(1/2).*u.^2./(u+u.^3)-1/4./(u+3/4*u.^2).^(1/2).*u.^3./(u+u.^3).^2.*(1+3*u.^2)))+...
  27.     pi()*u./8./(g1).^2.*((2*b01-b21).*(2*b01+b21).*SS21+3*((b21).^2).*SS23);

  28. B=@(a)pi()/16*a.^4./g.^2.*(4*b0.^2.*S12+b2.^2.*S14)+pi()/14*a.^4./g.^2.*(4*b0.^2.*S21+b2.^2.*S23);
  29. BB=@(a)1./B;  %被积函数1的推导

  30. B1=pi()*u.^4/16./g1.^2.*(4*b01.^2.*SS12+b21.^2.*SS14)+pi()*u.^4/14./g1.^2.*(4*b01.^2.*SS21+b21.^2.*SS23);

  31. y=@(u)2*m1./B1;         %被积函数2的推导

  32. q=quadl(BB.*exp(quadl(y,u,0,a)),a,0,inf);
复制代码
程序不能计算,不知道问题出在哪里,请帮忙指教,谢谢
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-18 04:27 , Processed in 0.075701 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表