版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

iyearn

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 140.6
散金: 53
红花: 2
帖子: 223
在线: 44.6小时
虫号: 1701473
注册: 2012-03-19
性别: MM
专业: 微/纳机械系统

[求助] 求助：用matlab 循环计算椭圆积分已有1人参与

大家好，
请教大家一个在循环中计算椭圆积分的问题。我要计算的基本方程如附图。方程有三个变量，y,f,v. 我想画出y跟f之间的函数图像。
我的code如下：

syms fi;v = [0:0.001:pi/2];
L = length(v);
y = zeros(1,L);
k = zeros(1,L);
for i = 1:L
   t1 = 1./sqrt(sin(v(i))-sin(fi));
   m1 = int(t1,0,v(i));
   k(i) = vpa(m1)
   t2 = sin(fi)/(sin(v(i))-sin(fi));
   m2 = 1/k(i)*int(t1,0,v(i));
   y(i) = vpa(m2)
   f(i) = k(i)^2./2;
end
plot(f,y,'b');
系统提示错误如下：
The following error occurred converting from sym to double: Error using mupadmex Error in MuPAD command: DOUBLE cannot convert the input expression into a double array.
If the input expression contains a symbolic variable, use the VPA function instead.
Error in NonlinearStiffness (line 10) k(i) = vpa(m1)
但是我将积分范围换成具体数值而不是数组元素时，是可以得到一个结果：
>> t1 = 1./sqrt(sin(0.2)-sin(fi));
m1 = int(t1,0,0.2);
>> m1
m1 =
(7217745006463825^(1/2)*9007199254740992^(1/2)*ellipticF(pi/4, 18014398509481984/7217745006463825)*2*i)/7217745006463825 - (2*7217745006463825^(1/2)*ellipticF(pi/4 - 1/10, 18014398509481984/7217745006463825)*(9007199254740992*sin(1/5) - 1789454248277167)^(1/2))/(7217745006463825*(1789454248277167/9007199254740992 - sin(1/5))^(1/2))
>> vpa(m1)
ans =
0.901 + 1.145e-36*i
我有两个疑问：
1. 为什么语句在循环中就运行不通呢？
2. 为什么积分结果会有虚部呢？

椭圆积分.png

回复此楼

» 收录本帖的淘帖专辑推荐

matlab编程绘图

» 猜你喜欢

299求调剂已经有6人回复
083200学硕321分一志愿暨南大学求调剂已经有3人回复
初始318分求调剂（有工作经验）已经有3人回复
二本跨考郑大材料306英一数二已经有3人回复
化学求调剂已经有5人回复
一志愿中国石油大学（华东）本科齐鲁工业大学已经有3人回复
332求调剂已经有4人回复
265求调剂已经有9人回复
328求调剂，英语六级551，有科研经历已经有8人回复
求调剂已经有3人回复

我爱科研

1楼 2015-08-21 11:15:48

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

月只蓝

主管区长 (职业作家)

专家经验: +1059
应助: 1712 (讲师)
贵宾: 8.888
金币: 68127.7
散金: 1938
红花: 443
沙发: 4
帖子: 4373
在线: 3291.4小时
虫号: 1122189
注册: 2010-10-14
专业: 宇宙学
管辖: 计算模拟区

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
iyearn: 金币+10, ★★★很有帮助 2015-10-02 09:47:23

CODE:

function for_int

clear all;clc

v = [0:0.05:pi/2];

L = length(v); 

y = zeros(1,L);

k = zeros(1,L);

for i = 2:L

      t1 = quadgk(@(fi) 1./sqrt(sin(v(i))-sin(fi)),0,v(i));

      m1 = t1 ;  

      k(i) = vpa(m1);

      t2 =quadgk(@(fi) sin(fi)./(sin(v(i))-sin(fi)),0,v(i));

      m2 = t2;    

      y(i) = vpa(m2)   ; 

      f(i) = k(i)^2./2;

end

[k ;y ;f]'

plot(f,y,'--ob');

k          y          f
  1.0e+003 *

      0       0       0
0.0004 0.0018 0.0001
0.0006 0.0036 0.0002
0.0008 0.0054 0.0003
0.0009 0.0074 0.0004
0.0010 0.0092 0.0005
0.0011 0.0112 0.0006
0.0012 0.0130 0.0007
0.0013 0.0153 0.0008
0.0014 0.0173 0.0010
0.0015 0.0197 0.0011
0.0016 0.0219 0.0012
0.0017 0.0243 0.0014
0.0018 0.0275 0.0015
0.0018 0.0302 0.0017
0.0019 0.0335 0.0019
0.0020 0.0371 0.0021
0.0021 0.0410 0.0023
0.0022 0.0447 0.0025
0.0024 0.0495 0.0028
0.0025 0.0557 0.0031
0.0026 0.0620 0.0034
0.0028 0.0704 0.0038
0.0029 0.0807 0.0043
0.0031 0.0916 0.0048
0.0033 0.1076 0.0055
0.0035 0.1290 0.0063
0.0038 0.1594 0.0074
0.0042 0.2067 0.0088
0.0047 0.2905 0.0110
0.0054 0.4838 0.0148
0.0072 1.4962 0.0257

附图1.png

赞一下(1人)

回复此楼

MATLAB、MS小问题、普通问题请发帖求助！时间精力有限，恕不接受无偿私信求助。

2楼2015-08-21 11:41:24