【答案】应助回帖

把握当下的时光，不要计较于自己一时的得与失！！！

11楼2012-06-04 09:07:07

清晨的兔子

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 272.1
散金: 60
红花: 2
帖子: 135
在线: 39.6小时
虫号: 1283857
注册: 2011-05-03
性别: MM
专业: 化工热力学和基础数据

引用回帖:

11楼: Originally posted by 苹果核儿 at 2012-06-04 09:07:07
那你这for程序的循环变量是哪个向量的下标呢？...

t=[0.07 0.13 0.28 0.44],那么t(1)=o.o7，t(2)=o.13，t(3)=o.28，t(4)=o.44
for i=1:length(T)，就相当于for i=1:4，i=1的时候用对应着的函数m,n,o,p等求出结果并进行比较选择，然后i=2时再进行同样的下一次的循环，其实就是求了4组数。

做只勤劳的小蚂蚁！

12楼2012-06-04 09:31:15

lgycjpcqu

金虫 (正式写手)

应助: 35 (小学生)
金币: 566.8
散金: 411
帖子: 371
在线: 176.9小时
虫号: 1327328
注册: 2011-06-20
性别: GG
专业: 电化学

【答案】应助回帖

感谢参与，应助指数 +1

x=[0.07 0.13 0.28 0.44];
T=[283 296 312 320];
m=x.^2+x.*2;
n=2*x.^2+T.*3;
o=4*x.^2+5*T.^2;
p=m+n.*o;
q=3*(T.^2).^(-1);
qp=q-p;
y=exp(qp);
k=y-x;
L=length(x);
xcal=zeros(1,L);
for ii=1:L
if abs(k(ii))<1*10^(-5)
xcal(ii)=y(ii);
else
xcal(ii)=x(ii);
end
end
xcal

13楼2012-06-04 09:53:54

csgt0

荣誉版主 (著名写手)

彩色挂图

专家经验: +2
应助: 367 (硕士)
贵宾: 0.457
金币: 7807
散金: 8897
红花: 20
沙发: 7
帖子: 2809
在线: 515.8小时
虫号: 449046
注册: 2007-11-02
专业: 金属非晶态、准晶和纳米晶
管辖: 计算模拟

【答案】应助回帖

感谢参与，应助指数 +1

小妹子啊，你这还用解吗？一眼就能看出q《《《《p，y等于0，你要abs(y-x)<=0.00001,只要取x<=0.00001就可以了。

showmethemoney

14楼2012-06-04 09:59:04

清晨的兔子

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 272.1
散金: 60
红花: 2
帖子: 135
在线: 39.6小时
虫号: 1283857
注册: 2011-05-03
性别: MM
专业: 化工热力学和基础数据

引用回帖:

14楼: Originally posted by csgt0 at 2012-06-04 09:59:04
小妹子啊，你这还用解吗？一眼就能看出q《《《《p，y等于0，你要abs(y-x)<=0.00001,只要取x<=0.00001就可以了。

(⊙o⊙)…，那个啥啥，函数文件时随便写的啦，我只是想要程序啦

做只勤劳的小蚂蚁！

15楼2012-06-04 10:15:09

清晨的兔子

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 272.1
散金: 60
红花: 2
帖子: 135
在线: 39.6小时
虫号: 1283857
注册: 2011-05-03
性别: MM
专业: 化工热力学和基础数据

引用回帖:

13楼: Originally posted by lgycjpcqu at 2012-06-04 09:53:54
x=;
T=;
m=x.^2+x.*2;
n=2*x.^2+T.*3;
o=4*x.^2+5*T.^2;
p=m+n.*o;
q=3*(T.^2).^(-1);
qp=q-p;
y=exp(qp);
k=y-x;
L=length(x);
xcal=zeros(1,L);
for ii=1:L
if abs(k(ii))<1*10^(-5)
...

带进去试过了，这个计算出来的结果跟x=[0.07 0.13 0.28 0.44]是一样的啊，程序不对

做只勤劳的小蚂蚁！

16楼2012-06-04 10:17:27

csgt0

荣誉版主 (著名写手)

彩色挂图

专家经验: +2
应助: 367 (硕士)
贵宾: 0.457
金币: 7807
散金: 8897
红花: 20
沙发: 7
帖子: 2809
在线: 515.8小时
虫号: 449046
注册: 2007-11-02
专业: 金属非晶态、准晶和纳米晶
管辖: 计算模拟

【答案】应助回帖

引用回帖:

15楼: Originally posted by 清晨的兔子 at 2012-06-04 10:15:09
(⊙o⊙)…，那个啥啥，函数文件时随便写的啦，我只是想要程序啦...

数据会影响程序的，估计你要的是这个

clc
clear
x0=[0.07 0.13 0.28 0.44];
T=[283 296 312 320];
for i=1:length(x0)
k(i)=1;
y(i)=x0(i);
while k(i)>0.00001
      x(i)=y(i);
      m=x(i)^2+2*x(i);
      n=2*x(i)^2+3*T(i);
      o=4*x(i)^2+5*T(i)^2;
      p=m+n.*o;
      q=3./(T(i)^2);
      y(i)=exp(q-p);
      k(i)=abs(y(i)-x(i));
end
end
x
k
y

但是用这个也行
%需要输入的数组为x数组和T数组
function main
clc
clear
x0=[0.07 0.13 0.28 0.44];
options = optimset('Display','iter','TolFun',1e-5);
x=fsolve(@calk,x0,options)
end

%计算用到的函数如下，这是我随便写的函数，主要写明每个函数里面的未知输入量是哪个
function k=calk(x)
T=[283 296 312 320];
m=x.^2+2*x;
n=2*x.^2+3*T;
o=4*x.^2+5*T.^2;
p=m+n.*o;
q=3./(T.^2);
%我要得到的结果如下
y=exp(q-p);
%最终目的是将计算得到的y(i)与代入的初值x(i)比较
k=abs(y-x)-0.00001;
end
%如果k的绝对值abs(k)<=0.00001，则最终的输出结果为xcal=y(i)，否则将得出的y(i)赋值给最初代入计算的x，接着进行计算，直到abs(k)<=0.00001为止。

赞一下(2人)

showmethemoney

17楼2012-06-04 10:27:39

disini

新虫 (初入文坛)

应助: 1 (幼儿园)
金币: 25.5
帖子: 2
在线: 28分钟
虫号: 1678865
注册: 2012-03-09

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
清晨的兔子: 金币+30, ★★★很有帮助 2012-06-04 14:58:52

x=[0.07 0.13 0.28 0.44]
T=[283 296 312 320]
m=x.^2+2*x
n=2*x.^2+3*T
o=4*x.^2+5*T.^2
p=m+n.*o
q=3*(T.^(-2))
for i=1:length(T);
  y(i)=exp(q(i)-p(i));
  k(i)=y(i)-x(i);
   if abs(k)<=0.00001
   xcal=y(i);
   end
  end

好了。
最后的y(i)全部是0，因为你选的数值不合适，xcal没有值，也是这个原因，不符合if设定的条件。

亲你编程序要严谨啊，要认真点写才行，语法，逻辑都不能有一点错误
比如说那个.*,.^
这都不能漏。。就算举例子也得仔细些。
这又不是写小说

18楼2012-06-04 12:55:08

gov_sb

新虫 (初入文坛)

应助: 2 (幼儿园)
金币: 0.8
红花: 1
帖子: 5
在线: 35分钟
虫号: 1846519
注册: 2012-06-04

x=[1 2];
T=[10 20];
i = 1;
while i<=length(x)
  m=2*x(i)+3*T(i);
  n=2*x(i).^2+3*T(i).^2;
  y(i)=n./10-m;
  k=y(i)-x(i);
  if k<-2
i = i+1
  else
x(i) = y(i)
  end
end

楼主要的是这个吧，16楼的虽然也能行，
但是时间复杂度和可读性有待改进

赞一下(3人)

19楼2012-06-04 19:38:33

gov_sb

新虫 (初入文坛)

应助: 2 (幼儿园)
金币: 0.8
红花: 1
帖子: 5
在线: 35分钟
虫号: 1846519
注册: 2012-06-04

忘记写输出了，嘎嘎
.........
if k<-2
i = i+1
在这里输出k就是了
else
.......

赞一下(1人)

20楼2012-06-04 19:40:40