Cantor set: Difference between revisions

Content deleted Content added
Drkameleon (talk | contribs)
Added Arturo implementation
Shuisman (talk | contribs)
Line 2,191: Line 2,191:
*** *** *** *** *** *** *** ***
*** *** *** *** *** *** *** ***
* * * * * * * * * * * * * * * *</pre>
* * * * * * * * * * * * * * * *</pre>
=={{header|Mathematica}}==
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>Graphics[MeshPrimitives[CantorMesh[#],1]/.{x_}:>{x,-0.05#}&/@Range[5],ImageSize->600]</lang>
<lang Mathematica>Graphics[MeshPrimitives[CantorMesh[#],1]/.{x_}:>{x,-0.05#}&/@Range[5],ImageSize->600]</lang>
{{out}}
{{out}}