Wolfram言語とWolframノートブックの決定的な経験
オリジナルの技術計算環境
複雑なシステムのマルチドメインモデリングおよびシミュレーション
その他のモバイルアプリ
シンボリック計算,データに基づく洞察,深い技術的専門知識を組み合せて,AI時代のソリューションをお届けします.
Wolfram Consulting
その他のWolframソリューション
その他の教育用ソリューション
計算,科学,生活,その他のコース
学び,問題を解決し,アイディアを共有
Wolframのニュース,視点,洞察
リソース
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["素数", Bold, 16, RGBColor[0.77, 0.42, 0.16]], Style["合成数", "Text"]}, BaseStyle -> {FontFamily -> "Helvetica"}]
Legended[primesgrid, legend]