24小时热门版块排行榜    

查看: 2582  |  回复: 11
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

King_A

金虫 (小有名气)

[求助] 求matlab编程代码,求帮助,谢谢! 已有3人参与

有上述公式22,其中除f,D和Q外,其它均为已知量,其中T(t)为一维数组,此外还已知另一数组Y(t)。
现想进行一下计算:定义K=∑(f-Y(t))^2,分别对K求D和Q的一阶偏导数,并另其一阶偏导数等于0,解方程组,最终得到D和Q 的值,
最后将计算所得的D和Q值返回到公式22中,画出(T,f)曲线。

自行研究多日,却不得其所,实在无奈,只得到此求助大神帮帮,在此先表谢意。

求matlab编程代码,求帮助,谢谢!
22.png
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

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

hc315

铁虫 (小有名气)

引用回帖:
3楼: Originally posted by King_A at 2014-07-31 08:49:24
最小二乘拟合达不到我的要求啊,我还需要具体的D和Q的值。最小二乘拟合只能得到方程,得不到具体D和Q...

对D和Q做最小二乘拟合,就可以得到D和Q的值啊
7楼2014-08-03 13:20:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 12 个回答

jerkwin

专家顾问 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
做最小二乘拟合吧
2楼2014-07-30 22:27:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

King_A

金虫 (小有名气)

引用回帖:
2楼: Originally posted by jerkwin at 2014-07-30 22:27:35
做最小二乘拟合吧

最小二乘拟合达不到我的要求啊,我还需要具体的D和Q的值。最小二乘拟合只能得到方程,得不到具体D和Q
3楼2014-07-31 08:49:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

King_A

金虫 (小有名气)

下面是我自行编辑的,请大神帮忙看下哪有错误。
clear all
syms a b c d r N g x y
f=1-exp(-N*g*(a/b)^1.5*(exp(-c/(r*x))*(r*(x^2)/c)*(1-exp(c*(d-x)/(r*(x^2)))))^(3/2))
k=sum(f-y)^2
z=diff(k,'a')
h=diff(k,'b')
[a,b]=solve('-(3*N*g*exp(-N*g*(a/b)^(3/2)*(-(r*x^2*exp(-c/(r*x))*(exp((c*(d - x))/(r*x^2)) - 1))/c)^(3/2))*(a/b)^(1/2)*(y + exp(-N*g*(a/b)^(3/2)*(-(r*x^2*exp(-c/(r*x))*(exp((c*(d - x))/(r*x^2)) - 1))/c)^(3/2)) - 1)*(-(r*x^2*exp(-c/(r*x))*(exp((c*(d - x))/(r*x^2)) - 1))/c)^(3/2))/b=0','(3*N*a*g*exp(-N*g*(a/b)^(3/2)*(-(r*x^2*exp(-c/(r*x))*(exp((c*(d - x))/(r*x^2)) - 1))/c)^(3/2))*(a/b)^(1/2)*(y + exp(-N*g*(a/b)^(3/2)*(-(r*x^2*exp(-c/(r*x))*(exp((c*(d - x))/(r*x^2)) - 1))/c)^(3/2)) - 1)*(-(r*x^2*exp(-c/(r*x))*(exp((c*(d - x))/(r*x^2)) - 1))/c)^(3/2))/b^2=0')

下面是结果:
Warning: The solutions are parametrized by the symbols:
z  = C_
z11 = C_
z4 = ({0, d} union Dom::ImageSet(-(c*(((c + 8*PI*d*k*r*I)/c)^(1/2) -
1)*I)/(4*PI*k*r), k, Z_ minus {0}) union Dom::ImageSet((c*(((c +
8*PI*d*k*r*I)/c)^(1/2) + 1)*I)/(4*PI*k*r), k, Z_ minus {0})) minus {0}
z5 = ({0, d} union Dom::ImageSet(-(c*(((c + 8*PI*d*k*r*I)/c)^(1/2) -
1)*I)/(4*PI*k*r), k, Z_ minus {0}) union Dom::ImageSet((c*(((c +
8*PI*d*k*r*I)/c)^(1/2) + 1)*I)/(4*PI*k*r), k, Z_ minus {0})) minus {0}

> In solve at 190

a =

  z
z4
z5


b =

       1 - exp(-N*g*(a/b)^(3/2)*((r*z^2*exp(-c/(r*z)))/c - (r*z^2*exp((c*d)/(r*z^2) - c/(r*z))*exp(-c/(r*z)))/c)^(3/2))
                                                                                                                    z11
1 - exp(-N*g*(a/b)^(3/2)*((r*z5^2*exp(-c/(r*z5)))/c - (r*z5^2*exp((c*d)/(r*z5^2) - c/(r*z5))*exp(-c/(r*z5)))/c)^(3/2))
4楼2014-07-31 10:16:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见