Test the Graphics3D function for creating correct JSON output for the json2D_JSXGraph project:

• https://github.com/jsxgraph/json2D_JSXGraph

Plot[Sin[x], {x, -Pi, Pi}]

Plot[Tan[x], {x, -Pi, Pi}, PlotRange->{-10,10}]

Plot[Sin[E^x],{x,-2,6},PlotRange->{-3,3}]

LogPlot[{x^x, Exp[x], x!}, {x, 1, 5}]

NumberLinePlot[{Prime[Range[20]],Prime[Range[40]],Prime[Range[80]]}]

LogLogPlot[{Log[x]^x, x^x}, {x, 0.1, 10}]

LogLinearPlot[{Erf[x], Erfc[x]}, {x, 0.01, 10}]

ListPolarPlot[Table[{n, Log[n]}, {n, 500}]]

ListPolarPlot[{Range[100]/4, Sqrt[Range[100]], Log[Range[100]]}]

ListPlot[Prime[Range[25]]]

ListPlot[
 Table[{k, 
   PDF[BinomialDistribution[50, p], k]}, {p, {0.3, 0.5, 0.8}}, {k, 0, 
   50}], Filling -> Axis]

ListLogLogPlot[{Range[20], Sqrt[Range[20]], Log[Range[20]]}, Joined -> True]

ListLogLogPlot[Range[20]^3, Filling -> Bottom]

ListLogLogPlot[Range[20]^3, Filling -> Axis]

ListLogLinearPlot[ Table[{n, n^k}, {k, {-1, -0.5, 0.5, 1}}, {n, 1, 10}], Joined -> True ]

Graphics[Point[Table[{t, Cos[t]}, {t,-Pi, Pi, 0.2}]]]

Graphics[ Table[{Hue[RandomReal[]], Arrow[RandomReal[1, {2, 2}]]}, {75}]]

Graphics[Table[{EdgeForm[{GrayLevel[0, 0.5]}], Hue[(-11+q+10r)/72, 1, 1, 0.6], Disk[(8-r){Cos[2Pi q/12], Sin[2Pi q/12]}, (8-r)/3]}, {r,6}, {q, 12}]]

Graphics[GraphicsComplex[{{0, 0}, {2, 0}, {2, 2}, {0, 2}}, Table[Circle[i], {i, 4}]]]

data = Table[15 {Cos[t], Sin[t]}, {t, 0, 4*Pi, 4*Pi/5}];

Graphics[GraphicsComplex[data, {Green, Line[{1, 2, 3, 4, 5, 6}], Red, Point[{1, 2, 3, 4, 5}]}]]

Graphics[Line[{{-1, -1}, {3,3}, {1, 1}, {4, 5}}],Axes->True, PlotRange->{0.0, 2.0}]