完整的 Wolfram 语言和笔记本体验
原有的技术计算环境
复杂系统的多领域建模与仿真
更多移动应用程序
我们帮助客户充分发挥计算知识与智能的潜力。
Wolfram 咨询
更多 Wolfram 解决方案
更多教育解决方案
计算机、科学、生活等方面的课程
学习、解决问题、分享想法。
来自 Wolfram 的新闻、观点和见解
资源
WolframConsulting.com
primesgrid = Grid[Partition[Table[If[PrimeQ[i], Style[i, Bold, 18, RGBColor[0.77, 0.42, 0.16]], Style[i, "Text" ]], {i, 1, 100}], 10], BaseStyle -> {FontFamily -> "Helvetica"}, Frame -> All, FrameStyle -> LightGray]
legend = Column[{Style["primes", Bold, 18, RGBColor[0.77, 0.42, 0.16]], Style["composites", "Text"]}, BaseStyle -> {FontFamily -> "Helvetica"}]
Legended[primesgrid, legend]