24小时热门版块排行榜    

查看: 750  |  回复: 3
【悬赏金币】回答本帖问题,作者chenye1717将赠送您 18 个金币
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

chenye1717

新虫 (初入文坛)

[求助] 【请教/求助】Mathematica中如何加速这个常规的三维For Loop语句? 已有1人参与

mathematica中如何加速这个常规的三维for loop语句?

for[i = 1, i <= 1000, i++,
for[j = 1, j <= 1000, j++,
for[k = 1, k <= 1000, k++,
if[x[]^2 + y[[j]]^2 + z[[k]]^2 >= r^2,
funval[[i, j, k]]=
g[x[], y[[j]], z[[k]]], funval[[i, j, k]]= 0.0]]];

我的目标是将有一个在三维空间内(在球体外部,x[]^2 + y[[j]]^2 + z[[k]]^2 >= r^2)构造table (名为funval)存储g函数的离散值。因为g函数比较复杂,所以导致计算速度很慢。
尝试过outer[g, x[], y[[j]], z[[k]]],效果不好,而且好像不能加入“位于球体外”这个限制条件。
请问有加速的方法吗?谢谢大家。
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyh700600

金虫 (小有名气)

【答案】应助回帖

如果找不到加速的方法,可考虑分块计算或试用使用其它软件。
4楼2022-09-13 10:09:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

zyh700600

金虫 (小有名气)

【答案】应助回帖

感谢参与,应助指数 +1
if[x[]^2 + y[[j]]^2 + z[[k]]^2 >= r^2,
g[x[], y[[j]], z[[k]]

将:
x[]
改为:
x[]
2楼2022-09-10 09:47:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyh700600

金虫 (小有名气)

【答案】应助回帖

引用回帖:
2楼: Originally posted by zyh700600 at 2022-09-10 09:47:41
if[x[]^2 + y[]^2 + z[]^2 &gt;= r^2,
g[x[], y[], z[]

将:
x[]
改为:
x[]

CODE:
if[x[]^2 + y[[j]]^2 + z[[k]]^2 >= r^2,
g[x[], y[[j]], z[[k]]

将:
x[]
改为:
x[[i]]

3楼2022-09-10 09:49:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 083000环境科学与工程调剂 +7 mingmingry 2026-03-09 8/400 2026-03-10 22:53 by 星空星月
[考研] 材料工程专硕,一志愿中国矿业大学,总分314,求调剂 +4 无懈可击的巨人 2026-03-10 4/200 2026-03-10 22:45 by 星空星月
[考研] 化工0817调剂 +8 灿若星晨 2026-03-10 8/400 2026-03-10 22:44 by 星空星月
[考研] 求调剂材料专硕293 +6 段_(:з」∠)_ 2026-03-10 6/300 2026-03-10 18:22 by ms629
[考研] 求调剂 +4 yfihxh 2026-03-09 4/200 2026-03-10 16:50 by Pegasus0429
[考研] 278求调剂 +8 Gale1314 2026-03-06 8/400 2026-03-10 14:18 by Linda Hu
[考研] 一志愿:武汉理工,材料工程,英二数二 总分314 +3 2202020125 2026-03-10 4/200 2026-03-10 13:54 by xiongyaxuan
[考研] 320求调剂 +4 魏zy 2026-03-08 4/200 2026-03-09 16:14 by ruiyingmiao
[考研] 307求调剂 +3 辛仁豆腐 2026-03-08 5/250 2026-03-09 14:09 by macy2011
[考研] 求调剂,数一英一274分 +4 小菲会努力 2026-03-08 4/200 2026-03-09 12:40 by 一定上岸哟_
[考研] 290 材料与化工求调剂 +7 Nebulala 2026-03-08 7/350 2026-03-09 05:21 by houyaoxu
[考博] 26申博自荐 +9 烷基八氮- 2026-03-06 11/550 2026-03-08 23:20 by gaobiao
[考研] 083000,总分284,求调剂 +5 徐yr 2026-03-04 5/250 2026-03-08 11:45 by 151314
[考研] 081700学硕一志愿北京化工大学数二英一过六级有竞赛求调剂 +5 galaxary 2026-03-07 7/350 2026-03-08 04:37 by wang_dand
[考研] 材料化工求调剂 +7 博斯特525 2026-03-06 8/400 2026-03-08 03:51 by lfhuang
[考研] 322分 085600求调剂,有互联网+国金及主持省级大创经历 +4 熊境喆 2026-03-05 4/200 2026-03-07 22:04 by 星空星月
[考研] 材料与化工354调剂 +4 Lucy-xiao 2026-03-06 7/350 2026-03-06 09:57 by hxuq8429
[考研] 316求调剂 +3 林小星发大财 2026-03-05 5/250 2026-03-06 09:05 by Iveryant
[考研] 085602 293分求调剂 +3 SivanNano. 2026-03-05 3/150 2026-03-05 19:41 by caszguilin
[考研] 0703化学求调剂,总分320分,一志愿中南民族大学 +3 19286712440 2026-03-04 3/150 2026-03-04 18:30 by houyaoxu
信息提示
请填处理意见