Pentagram: Difference between revisions
Content added Content deleted
(→{{header|Quackery}}: added image) |
|||
Line 707: | Line 707: | ||
</pre> |
</pre> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang mathematica> |
<lang mathematica>Graphics[{ |
||
Graphics[{ |
|||
EdgeForm[Directive[Thickness[0.01], RGBColor[0, 0, 1]]],(*Edge coloring*) |
EdgeForm[Directive[Thickness[0.01], RGBColor[0, 0, 1]]],(*Edge coloring*) |
||
RGBColor[0.5, 0.5, .50], (*Fill coloring*) |
RGBColor[0.5, 0.5, .50], (*Fill coloring*) |
||
Polygon[AnglePath[Table[6 Pi/5, 5]]]} |
Polygon[AnglePath[Table[6 Pi/5, 5]]]} |
||
] |
]</lang> |
||
</lang> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |