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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » mathematica生成矩阵
181/2返回列表12下一页
查看: 1584  |  回复: 17
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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就特别的慢，请各位大神指教，有没有加速这个程序的方法？谢谢
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼2015-04-13 17:39:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

JIAZZU

新虫 (初入文坛)
我也不清楚
回复此楼
2楼2015-04-13 21:32:45
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

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的回帖

zdzqy

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

另外，生成矩阵是数值。
赞一下 回复此楼
6楼2015-04-14 15:38:19
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zdzqy

新虫 (小有名气)
引用回帖:
2楼: Originally posted by JIAZZU at 2015-04-13 21:32:45
我也不清楚

表捣乱
回复此楼
7楼2015-04-14 15:45:15
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xzczd

木虫 (小有名气)

【答案】应助回帖

★ ★ ★
zdzqy: 金币+3, ★★★★★最佳答案 2015-04-16 09:34:16
引用回帖:
5楼: Originally posted by zdzqy at 2015-04-14 15:37:22
程序里的数据矩阵cn,nxx,nyy是用Abaqus生成的，然后引用的。t1,t2,t3,t4是一个含有x,y,x1,x2,x3,y1,y2,y3的函数，比较复杂就没贴上去，如果有需要，再贴。...

今晚网络不佳，你的附件下不下来，不过看你的叙述，已经能猜个七八分了。tt全是由算术函数（加减乘除指数对数特殊函数……）构成的表达式是吧。那此类函数一般全具备Listable属性，你把你的列表直接往里面代就行了。关于什么是Listable，你可以查下自带帮助。……好吧，这里举个例子。注意观察并体会以下几段代码的异同：
CODE:
n = 10^5;

lst = RandomReal[1, n];


ans1 = (Do[a[i] = Sin[lst[[i]]], {i, n}]; Array[a, n]); //
  AbsoluteTiming
ans2 = Table[Sin[j] /. j -> lst[[i]], {i, n}]; // AbsoluteTiming
ans3 = Table[Sin[lst[[i]]], {i, n}]; // AbsoluteTiming
ans4 = Table[Sin[i], {i, lst}]; // AbsoluteTiming
ans5 = Sin /@ lst; // AbsoluteTiming
ans6 = Sin@lst; // AbsoluteTiming

ans1 == ans2 == ans3 == ans4 == ans5 == ans6
赞一下 回复此楼
小木虫Mathematica版块已毁（当然原本也不咋的），建议大家前往百度贴吧或Stackexchange。
8楼2015-04-14 22:03:43
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wufengseu

木虫 (正式写手)

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
zdzqy: 金币+2, ★有帮助 2015-04-16 09:33:17
除了楼上的建议，如果你的机器是多核的，可以使用并行命令，例如ParallelTable， ParallelDo进行并行计算。
赞一下 回复此楼
9楼2015-04-15 15:06:15
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zdzqy

新虫 (小有名气)
引用回帖:
9楼: Originally posted by wufengseu at 2015-04-15 15:06:15
除了楼上的建议，如果你的机器是多核的，可以使用并行命令，例如ParallelTable， ParallelDo进行并行计算。

是多核的，之前没用过这些代码，我试试，非常感谢。
赞一下 回复此楼
10楼2015-04-16 09:33:02
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zdzqy 的主题更新
181/2返回列表12下一页
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭