ఉదాహరణ 1 దశ, ఒకే సెషన్లో క్రమంగా నడుస్తుంది. ప్రతి దశా ఇంజిన్పై అమలు చేయబడింది, కింది అవుట్పుట్ అది ఇచ్చినదే.
GraphicsGrid[Partition[Table[With[{pts = Table[i{Cos[8 / n i], Sin[8 / n i]}, {i, n}]}, Graphics[{Green, Line[pts], Red, Point[pts], Thick, Blue, BezierCurve[pts, SplineDegree -> (n - 1)]}, PlotLabel -> Row[{"degree ", n - 1}]]], {n, 4, 16}], 4], Frame -> All, ImageSize -> {500, 500}]-Graphics-అన్ని రెసిపీలు · ఫంక్షన్ రిఫరెన్స్ · దీన్ని MCP క్లయింట్ నుండి వాడండి