完整的 Wolfram 语言和笔记本体验
原有的技术计算环境
复杂系统的多领域建模与仿真
更多移动应用程序
我们帮助客户充分发挥计算知识与智能的潜力。
Wolfram 咨询
更多 Wolfram 解决方案
更多教育解决方案
计算机、科学、生活等方面的课程
学习、解决问题、分享想法。
来自 Wolfram 的新闻、观点和见解
资源
WolframConsulting.com
With[{i = \!\(\*Graphics3DBox[«9»]\), size = 100}, Manipulate[Grid[{#& /@ {Show[Image3DSlices[i, {s}, 1][[1]], Graphics[{Red, Line[{{c, 0}, {c, size}}], Line[{{0, size - r + 1}, {size, size - r + 1}}]}]], Show[Image3DSlices[i, {r}, 2][[1]], Graphics[{Red, Line[{{c, 0}, {c, size}}], Line[{{0, size - s + 1}, {size, size - s + 1}}]}]], Show[Image3DSlices[i, {c}, 3][[1]], Graphics[{Red, Line[{{r, 0}, {r, size}}], Line[{{0, size - s + 1}, {size, size - s + 1}}]}]]}}], {{s, 30}, 1, size, 1}, {{r, 20}, 1, size, 1}, {{c, 50}, 1, size, 1}]]