返回   MATLAB中国论坛|MATLAB爱好者之家—不仅仅是MATLAB! > 特色讨论区:工程数学软件-不仅仅是MATLAB! > Mathematica论坛


Mathematica论坛 Mathematica是比较流行的符号运算软件之一



回复
 
LinkBack 主题工具 显示模式
旧 2019-01-02, 07:24 PM   #1
初级会员
 
注册日期: 2019-01-02
帖子: 1
感谢他人: 0
有 0 帖获得 0 感谢
声望力: 0
zhangzhehome0306 正向着好的方向发展
默认 求助,利用findroot解多元超越方程组

FindRoot[{Do[Im[za[i][n][m]] == 0, {n, 1, 5}, {m, 1, 2}],
Do[(K2*(f[i][1][1])^2)/za[i][1][1]/((K2*(f[i][n][m])^2)/
za[i][n][m]) - (
f[i][1][1]*Sin[k*l[i][1][1]]*VS[[1, 1]]/V[[1, 1]])/(
f[i][n][m]*Sin[k*l[i][n][m]]*VS[[m, n]]/V[[m, n]]) == 0, {n, 2,
5}, {m, 1, 2}],
Do[Sum[(K2*(f[i][n][m])^2)/za[i][n][m], {n, 1, 5}] == 0.5, {m, 1,
2}]}, {{x[i][1][1], 0.1}, {x[i][2][1], -0.1}, {x[i][3][1],
0.1}, {x[i][4][1], -0.1}, {x[i][5][1], 0.1}, {y[i][1][1],
1.01}, {y[i][2][1], 1.01}, {y[i][3][1], 1.01}, {y[i][4][1],
1.01}, {y[i][5][1], 1.01}, {x[i][1][2],
0.1}, {x[i][2][2], -0.1}, {x[i][3][2],
0.1}, {x[i][4][2], -0.1}, {x[i][5][2], 0.1}, {y[i][1][2],
1.01}, {y[i][2][2], 1.01}, {y[i][3][2], 1.01}, {y[i][4][2],
1.01}, {y[i][5][2], 1.01}}, MaxIterations -> 1000];


新手求助!就是想解一个超越方程组的解,这个是肯定有解的,但是由于方程数目太多写起来太麻烦,所以想通过Do循环表示,但是这样软件会报错,求问各位有没有表达方法,因为这些方程都可以通过表达式来表示,不知道我这样写哪里不符合规范了。提示的错误以及这个代码的截图在附件里!
上传的图像
文件类型: jpg 捕获.jpg (4.1 KB, 3 次查看)
zhangzhehome0306 当前离线   回复时引用此帖
回复

书签

主题工具
显示模式

发帖规则
不可以发表新主题
可以发表回复
不可以上传附件
不可以编辑自己的帖子

启用 BB 代码
论坛启用 表情符号
论坛启用 [IMG] 代码
论坛禁用 HTML 代码
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 启用



所有时间均为北京时间。现在的时间是 08:17 AM


Powered by vBulletin
版权所有 ©2000 - 2019,Jelsoft Enterprises Ltd.

SEO by vBSEO ©2009, Crawlability, Inc.