Wolfram言語とWolframノートブックの決定的な経験
オリジナルの技術計算環境
複雑なシステムのマルチドメインモデリングおよびシミュレーション
その他のモバイルアプリ
シンボリック計算，データに基づく洞察，深い技術的専門知識を組み合せて，AI時代のソリューションをお届けします
Wolfram Consulting
その他の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}]]