声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1205|回复: 3

[编程技巧] [求助]matlab求积分的问题?

[复制链接]
发表于 2006-4-16 12:26 | 显示全部楼层 |阅读模式

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

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

x
我是MATLAB新手,今天写了下面一个积分的测试程序,却总是出不来结果,请高手赐教


x = 0 : 0.1 : 3.2;
y = -1.6 : 0.1 : 1.6;
[X,Y] = meshgrid(x,y);
func = inline('L/((X-L).^2+Y.^2+eps)','L');
Z = quad(func,0,1.5);
mesh(Z);
1.JPG

本帖被以下淘专辑推荐:

回复
分享到:

使用道具 举报

发表于 2006-4-16 13:00 | 显示全部楼层
warning off
syms x y x1 x2;
F = int(1/(x^2+y^2),x,x1,x2);
ff=inline(char(F),'x1','x2','y');
x = 0:0.1:3.2;
y = -1.6:0.1:1.6;
m=length(x);
n=length(y);
for p=1:m;
for q=1:n;
Fd(p,q)=ff(-x(p),-x(p)+1.5,y(q));
end
end
Fd(17,17)=nan;
[X,Y]=meshgrid(x,y);
mesh(X,Y,Fd)
 楼主| 发表于 2006-4-16 15:37 | 显示全部楼层
在基础上作了一点修改:
warning off
syms x y r1 r2 l;
F = int(1/((x-l)^2+y^2)^1.5,l,r1,r2);
func=inline(char(F),'x','y','r1','r2');
x = 0:0.1:3.2;
y = -1.6:0.1:1.6;
m=length(x);
n=length(y);
for p=1:m;
for q=1:n;
Fd(p,q)=func(x(p),y(q),0,1.5);
end
end
[X,Y]=meshgrid(x,y);
mesh(X,Y,Fd);

但不知为什么Fd(0,17)(即x=y=0时)为无限大啊?这个值应当是L的-2次方从0到1.5的积分值啊?
 楼主| 发表于 2006-4-16 15:51 | 显示全部楼层
搞定,谢谢
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

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

GMT+8, 2024-6-15 23:03 , Processed in 0.058406 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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