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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » MATLAB/Mathematica » 请问我求解的数值解合理吗？谁能帮我验证一下？
81/1返回列表
查看: 1089  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

514741735

银虫 (小有名气)

[求助] 请问我求解的数值解合理吗？谁能帮我验证一下？ 已有1人参与

function q=myfun(p)
x=p(1);
y=p(2);
q(1)=abs((5*sin(x)+(200+5*x)*cos(x))*(5*cos(x)-(200+5*x)*sin(x))^(-1)*((200+5*x)*cos(x)-(200+5*y)*cos(y))-(200+5*x)*sin(x)+(200+5*y)*sin(y))*(((5*sin(x)+(200+5*x)*cos(x))*(5*cos(x)-(200+5*x)*sin(x))^(-1))^2+1)^(-1/2)-30;
q(2)=abs(((200+5*x)*sin(x)-5*cos(x))*(5*sin(x)+(200+5*x)*cos(x))^(-1)*((200+5*y)*cos(y)-(200+5*x)*cos(x))-(200+5*y)*sin(y)+(200+5*x)*sin(x))*((((200+5*x)*sin(x)-5*cos(x))*(5*sin(x)+(200+5*x)*cos(x))^(-1))^2+1)^(-1/2)-140;

x=fsolve('myfun',[3,4],optimset('Display','off'))

x =

   28.1992   28.6208

请问我求解的数值解合理吗？谁能帮我验证一下？
bw263h2307572_1420714392_234.png
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
自助者天助
1楼 2015-01-08 21:11:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Carpathia

银虫 (小有名气)
把解代进去看看不行吗
赞一下 回复此楼
追求理想的道路上东张西望
2楼2015-01-08 21:19:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

月只蓝

主管区长 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
514741735: 金币+30, ★★★★★最佳答案 2015-01-09 08:04:57
CODE:
function solve_nolin_eqs
clear all;clc
[x fval]=fsolve(@myfun,[3,4])

function q=myfun(p)
x=p(1);
y=p(2);
q(1)=abs((5*sin(x)+(200+5*x)*cos(x))*(5*cos(x)-(200+5*x)*sin(x))^(-1)*((200+5*x)*cos(x)-(200+5*y)*cos(y))-(200+5*x)*sin(x)+(200+5*y)*sin(y))*(((5*sin(x)+(200+5*x)*cos(x))*(5*cos(x)-(200+5*x)*sin(x))^(-1))^2+1)^(-1/2)-30;
q(2)=abs(((200+5*x)*sin(x)-5*cos(x))*(5*sin(x)+(200+5*x)*cos(x))^(-1)*((200+5*y)*cos(y)-(200+5*x)*cos(x))-(200+5*y)*sin(y)+(200+5*x)*sin(x))*((((200+5*x)*sin(x)-5*cos(x))*(5*sin(x)+(200+5*x)*cos(x))^(-1))^2+1)^(-1/2)-140;

x =

   28.1992   28.6208


两个方程残差 fval =

  1.0e-010 *

    0.2747   -0.1253
可见方程残差是 1e-10 数量级，如果不考虑参数的具体物理意义，已经算是很好的解了。
赞一下 回复此楼
MATLAB、MS小问题、普通问题请发帖求助！时间精力有限，恕不接受无偿私信求助。
3楼2015-01-08 21:34:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

月只蓝

主管区长 (职业作家)

【答案】应助回帖

不过需要说明的是，由于 正弦 余弦 的周期性，该方程组的解不唯一。
赞一下(1人) 回复此楼
MATLAB、MS小问题、普通问题请发帖求助！时间精力有限，恕不接受无偿私信求助。
4楼2015-01-08 21:41:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

514741735

银虫 (小有名气)
引用回帖:
4楼: Originally posted by 月只蓝 at 2015-01-08 21:41:28
不过需要说明的是，由于 正弦 余弦 的周期性，该方程组的解不唯一。

谢谢你，这样我就放心了
赞一下 回复此楼
自助者天助
5楼2015-01-09 08:03:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

514741735

银虫 (小有名气)
引用回帖:
4楼: Originally posted by 月只蓝 at 2015-01-08 21:41:28
不过需要说明的是，由于 正弦 余弦 的周期性，该方程组的解不唯一。

请问，我在编程的时候是参照例子做的二元方程，变量a和b用的是确定值替换的，如果我想把a=5,b=200作为方程，列四元方程组，程序应该怎么编呢？谢谢了
赞一下 回复此楼
自助者天助
6楼2015-01-09 08:16:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

月只蓝

主管区长 (职业作家)
引用回帖:
6楼: Originally posted by 514741735 at 2015-01-09 08:16:13
请问，我在编程的时候是参照例子做的二元方程，变量a和b用的是确定值替换的，如果我想把a=5,b=200作为方程，列四元方程组，程序应该怎么编呢？谢谢了...

不需要列成四元方程组吧。按如下把a b 定义好即可。
function solve_nolin_eqs
clear all;clc
[x fval]=fsolve(@myfun,[3,4])

function q=myfun(p)
a=5;
b=200;
x=p(1);
y=p(2);
q(1)=abs((a*sin(x)+(b+a*x......;
q(2)=abs(((b+a*x)*sin(x)-a*......;
赞一下 回复此楼
MATLAB、MS小问题、普通问题请发帖求助！时间精力有限，恕不接受无偿私信求助。
7楼2015-01-09 08:41:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

514741735

银虫 (小有名气)
引用回帖:
7楼: Originally posted by 月只蓝 at 2015-01-09 08:41:43
不需要列成四元方程组吧。按如下把a b 定义好即可。
function solve_nolin_eqs
clear all;clc
=fsolve(@myfun,)

function q=myfun(p)
a=5;
b=200;
x=p(1);
y=p(2);
q(1)=abs((a*sin(x)+(b+a*x......;
...

谢谢指点，看来是我的思路不对了
赞一下 回复此楼
自助者天助
8楼2015-01-09 08:56:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 514741735 的主题更新
81/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭