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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » mathematica生成矩阵
181/2返回列表12下一页
查看: 1825  |  回复: 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下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 为什么资助数各大高校都创新高，自己申请怎么就这么难 +12 Kittylucky 2026-08-27 13/650 2026-08-29 00:04 by superceng
[基金申请] 系统查不到 +11 董八千 2026-08-26 11/550 2026-08-28 18:06 by Leogzhya
[教师之家] 导师吐槽：我怎么摊上了这么个极品研究生！ +8 苏东坡二世 2026-08-23 8/400 2026-08-28 14:41 by lkforward
[基金申请] 麻烦专家们看看评委们的意见（F口面上） +4 gdd2018 2026-08-28 9/450 2026-08-28 14:22 by jklily
[基金申请] 怎么查啊 +6 huang1991js 2026-08-26 6/300 2026-08-28 08:42 by winsaint
[基金申请] 面上合作单位盖章 +5 ssyjh 2026-08-27 5/250 2026-08-27 20:50 by gdfollow
[基金申请] 基金未中，这种答复是模板吗？ +5 zhaosm1982 2026-08-27 6/300 2026-08-27 16:00 by lfy8008
[基金申请] 看板上这么多中的，有点像50人群里49个人都是骗子的那种感觉…… +5 a089 2026-08-26 6/300 2026-08-27 14:05 by jonewore
[基金申请] 我不理解！ +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件，有关系吗？ +25 木水思豆 2026-08-25 28/1400 2026-08-26 14:53 by draco1987
[基金申请] 能否退出参与的面上项目解除限项 +23 koalala 2026-08-24 26/1300 2026-08-26 14:29 by 宝贝虫子
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 为什么国自然不能直接公布 +4 bjdxyxy 2026-08-26 4/200 2026-08-26 13:12 by qingmu1201
[基金申请] 国合可查了 +3 paperzjh 2026-08-26 3/150 2026-08-26 10:41 by LemmonTr
[基金申请] 今天务委会开完了，明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
[职场人生] 学生撞见辅导员送外卖，第二天全班都沉默了 +3 鲸鱼融金_浙江_� 2026-08-22 3/150 2026-08-26 09:01 by zzuzxg
[基金申请] 牛来！米来！面来！ +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
[基金申请] 明天应该可查了！？ +6 chengyan1220 2026-08-23 6/300 2026-08-25 19:45 by zfd97
[基金申请] 如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
[教师之家] 跳槽后在研项目怎么办？ +5 简单化xn 2026-08-22 10/500 2026-08-23 12:38 by 简单化xn
信息提示
关闭
请填处理意见
关闭