ニュートンのりんご

DynamicModule[{contents={}},EventHandler[Graphics[{Green,Disk[{0.5,1},0.5],
Red,Disk[{0.1,0.8},0.025],Red,Disk[{0.23,0.91},0.025],Red,Disk[{0.32,0.67},0.025],Red,Disk[{0.46,0.96},0.025],Red,Disk[{0.55,0.76},0.025],Red,Disk[{0.67,0.58},0.025],Red,Disk[{0.89,0.73},0.025],Red,Disk[{0.75,0.83},0.025],
Brown,Rectangle[{0.37,0},{0.63,0.51}],
Red,PointSize[0.05],Point[Dynamic[contents=Map[If[#[[1,2]]≥0,{#[[1]]-#[[2]],#[[2]]+{0,0.00025}},{{#[[1,1]],0},{0,0}#[[2]]}]&,contents];Map[First,contents]]]},PlotRange->{{0,1},{0,1}}],"MouseDown":>(AppendTo[contents,{MousePosition["Graphics"],{0,0}}])]]

（作品２）

Manipulate[ParametricPlot3D[ {Cos[ ϕ] Sin[a*θ], Sin[ϕ]Sin[a*θ], Cos[a*θ]},{ϕ, 0, 2π}, {θ, -Pi/2, Pi/2}, PlotPoints -> 25,  Mesh->None,BoundaryStyle->Black,RegionFunction -> Function[{x,y,z, ϕ, θ}, Sin[6 ϕ]Sin[6θ]≥ 1/4],PlotStyle->Yellow,Boxed->False,Axes->False,PlotRange->All],{a,-2,0}]

（作品３）

Animate[ArrayPlot[CellularAutomaton[n,{{1},0},{40,All}]],{n,0,255,1},AnimationRunning->False]