24小时热门版块排行榜    

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

zdzqy

新虫 (小有名气)

[求助] mathematica生成矩阵已有2人参与

AA = Array[A, {n, n}];
Do[A[i, j] = (tt) /. {x -> m[[i, 1]], y -> m[[i, 2]],  x1 -> l[[j, 1]], x2 -> l[[j, 2]], x3 -> l[[j, 3]], y1 -> v[[j, 1]], y2 -> v[[j,  2]], y3 -> v[[j, 3]]}, {i, 1, n}, {j, 1, n}]

如上所示,tt是与x,y,x1,x2,x3,y1,y2,y3相关的函数,如果n很大的时候,生成矩阵AA就特别的慢,请各位大神指教,有没有加速这个程序的方法?谢谢
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zdzqy

新虫 (小有名气)

引用回帖:
12楼: Originally posted by xzczd at 2015-04-17 16:34:50
我在你的2222.nb基础上修改的版本。你的1111.nb错在哪我不清楚,我只知道真相一定非常无趣。

刚才贴的就是最终需要的大矩阵。
15楼2015-04-17 17:51:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 18 个回答

xzczd

木虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
zdzqy: 金币+5, ★★★很有帮助 2015-04-14 15:35:03
单就你这个不完整的代码来看,我能给出的建议是别用这种先构造空表再用Do的方法来生成新阵,至少应该直接用Table。替换(ReplaceAll)应该也是不必要的(目测时间大部分浪费在这里了),至少可以利用Table的第五种语法来实现。剩下的,因为既不知道你的完整代码是怎么样的,也不知道生成的阵是符号的还是数值的,这里就不啰嗦了。
小木虫Mathematica版块已毁(当然原本也不咋的),建议大家前往百度贴吧或Stackexchange。
3楼2015-04-14 10:12:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zdzqy

新虫 (小有名气)

引用回帖:
3楼: Originally posted by xzczd at 2015-04-14 10:12:50
单就你这个不完整的代码来看,我能给出的建议是别用这种先构造空表再用Do的方法来生成新阵,至少应该直接用Table。替换(ReplaceAll)应该也是不必要的(目测时间大部分浪费在这里了),至少可以利用Table的第五种语 ...

谢谢回复,感觉很有用,我把完整代码发一下,请你再看看,大神你可不能跑啊。

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : 矩阵.nb
  • 2015-04-14 15:34:39, 4.54 K
4楼2015-04-14 15:34:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zdzqy

新虫 (小有名气)

引用回帖:
3楼: Originally posted by xzczd at 2015-04-14 10:12:50
单就你这个不完整的代码来看,我能给出的建议是别用这种先构造空表再用Do的方法来生成新阵,至少应该直接用Table。替换(ReplaceAll)应该也是不必要的(目测时间大部分浪费在这里了),至少可以利用Table的第五种语 ...

程序里的数据矩阵cn,nxx,nyy是用Abaqus生成的,然后引用的。t1,t2,t3,t4是一个含有x,y,x1,x2,x3,y1,y2,y3的函数,比较复杂就没贴上去,如果有需要,再贴。
5楼2015-04-14 15:37:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见