Tammo 80

Hierbij, met het gevaar dat ik enkele wiskundestudenten help, mijn poging tot uitwerking van de Mathematica-opgave: Teken een regenboog:

Show[Graphics[{AbsolutePointSize[9],

        Table[

          {Hue[x],Point[{Cos[Pi x],Sin[Pi x]}]}

          ,{x,0,1,.002}]

        }],AspectRatio->Automatic];

Mijn gewaardeerde collega Rogier was zo vriendelijk een reality check te doen, waarna ik de volgende poging heb gedaan:

Show[Graphics[{AbsoluteThickness[2],

        Table[

          {Hue[r-1],Circle[{0,0},r,{0,Pi}]}

          ,{r,1,2,.01}]

        }],AspectRatio->Automatic];