Gallery

101 items‹ Workspace

Manipulate[Module[{gridPoints$ = Range[-5, 5, 1], arrowScale

Manipulate[Module[{u = {1, 2}, v, angle, dp}, v = RotationTr

DynamicModule[{zoom = 1.0},

Manipulate[Show[Plot3D[0, {x, -2, 2}, {y, -2, 2}, PlotStyle

Manipulate[Module[{surfpos$, surfneg$, planeZ$, curveZ$, pla

Manipulate[Show[Plot3D[0, {x, 0, 1}, {y, 0, 1}, PlotStyle ->

Manipulate[Module[{surf, plane, intersect, contourplot, high

Manipulate[Module[{a = 2*t + (1 - t)*1, b = 2*s + (1 - s)*1,

Manipulate[Module[{u, v, crossProduct}, u = {1, 0, 0}; v = {

Manipulate[Module[{n$, nNorm$, radius2$, d$, u$, v$, center$

Manipulate[Show[{If[showPlane, ContourPlot3D[x - y == 0, {x,

Manipulate[Column[{Row[{"u = ", {1, 2}, Spacer[20], "v = ",

Manipulate[Show[{If[showSurface, ContourPlot3D[x^2 + y^2 - 4

Manipulate[Show[Plot[0, {x, -0.1, 1.1}, PlotStyle -> Opacity

demo_discontinuity_q

demo_discontinuity

Manipulate[Module[{surf, planeZ, curveZ, planeX, curveX, pla

Manipulate[Module[{u = {1, 2}, v0 = {2, 1}, v, proj, orth, p

demo_quadric_curves

demo_vertex_ecc3

demo_vertex_ecc

demo_quadric_family

demo_quadric_sphere

Manipulate[Plot3D[x^2 - c y^2, {x, -2, 2}, {y, -2, 2}, PlotR

Manipulate[Plot3D[Sin[a x] Cos[b y],{x,-3,3},{y,-3,3}],{a,0.

Manipulate[Plot3D[Sin[a x] Cos[b y],{x,-3,3},{y,

Manipulate[Plot3D[Cos[k (x^2 + y^2)] Exp[-(x^2 + y^2)/6], {x

demo_conic_family

Manipulate[Module[{surfpos$, surfneg$, planeZ$, curveZ$, pla

Manipulate[Module[{surf, plane, intersect, contourplot, high

Manipulate[Show[Plot3D[0, {x, -2, 2}, {y, -2, 2}, PlotStyle

Manipulate[Module[{n$, nNorm$, radius2$, d$, u$, v$, center$

Manipulate[Show[Plot[0, {x, -0.1, 1.1}, PlotStyle -> Opacity

Manipulate[Module[{a$ = 2*t + (1 - t)*1, b$ = 2*s + (1 - s)*

Manipulate[Column[{Row[{"u = ", {1, 2}, Spacer[20], "v = ",

Manipulate[Column[{Row[{Show[Plot3D[0, {x, 0, 1}, {y, 0, 1},

Manipulate[Show[Graphics[{{GrayLevel[0.9], Thin, Table[Line[

Manipulate[Module[{a = 2*t + (1 - t)*1, b = 2*s + (1 - s)*1,

Manipulate[Module[{gridPoints$ = Range[-5, 5, 1], arrowScale

Manipulate[Show[Plot3D[0, {x, 0, 1}, {y, 0, 1}, PlotStyle ->

Manipulate[Module[{lineFunc$, points$, midIndex$, P$, select

Manipulate[Module[{radius$ = (6/8)*Min[1 - x0, 1 + x0, 1 - y

Manipulate[Module[{gridPoints$ = Range[-5, 5, 1], arrowScale

Manipulate[Module[{p1$ = {1, 2, 3}, n1$ = {1, 0, 0}, p2$ = {

demo_u3_quadric

demo_u20_jacobian

Manipulate[Module[{m, jac},

Manipulate[Module[{xbar},

Manipulate[Dynamic[Module[{tt, p, vv, aa},

Manipulate[Dynamic[Module[{tau},

demo_u10_gradlevel

Manipulate[Module[{f, gx, gy, n},

demo_u9_dirderiv

Manipulate[Module[{f, fx, fy, gx, gy, du},

Manipulate[Dynamic[If[!ListQ[buf2],buf2={}];AppendTo[buf2,Cu

Manipulate[Dynamic[Graphics[{Circle[{0,0},1],Table[Line[{0.9

Manipulate[Show[ParametricPlot3D[{Cos[phi]*Sin[psi], Sin[phi

Manipulate[Show[{If[showSurface, ContourPlot3D[x^2 + y^2 - 4

Manipulate[Show[{If[showPlane, ContourPlot3D[x - y == 0, {x,

live-damped-frame

Manipulate[Plot[Sin[a x] Exp[-x/5], {x, 0, 15}, Frame -> Tru

live-gaussian-blue

Manipulate[Plot3D[Exp[-(x^2 + y^2)/a], {x, -2, 2}, {y, -2, 2

live-rainbow-surface

Manipulate[Plot3D[Sin[a x y], {x, 0, 3}, {y, 0, 3}, Mesh ->

live-parametric-styled

Manipulate[ParametricPlot[{Cos[t] + a Cos[7 t]/2, Sin[t] - a

live-helix-points

Manipulate[ListPointPlot3D[Table[{Cos[t], Sin[t], a t/10}, {

live-listplot3d

Manipulate[ListPlot3D[Table[Sin[a i] Cos[j], {i, 0, 3, 0.25}

Manipulate[Plot[Tan[a x], {x, -2 Pi, 2 Pi}], {{a, 1}, 0.5, 2

Manipulate[Plot[Sin[a x], {x, 0, 2 Pi}, Filling -> Axis], {{

live-plot-styles

Manipulate[Plot[{Sin[x], Sin[2 x], Sin[a x]}, {x, 0, 2 Pi},

Manipulate[With[{curve = ParametricPlot[{3*Cos[t], 2*Sin[t]}

Manipulate[Graphics[{Blue, Circle[{0, 0}, 1], Red, Arrow[{{0

Manipulate[Module[{u = {1.3, 1.7}, v = {1, 0.5}, proj, orth}

Manipulate[Module[{u = {1, 2}, v0 = {2, 1}, v, w}, v = len*N

live-revolution

Manipulate[RevolutionPlot3D[Sin[a x] + 2, {x, 0, 2 Pi}], {{a

Manipulate[SphericalPlot3D[1 + a Sin[3 p] Sin[t], {t, 0, Pi}

Manipulate[RegionPlot[x^2 + y^3 < a, {x, -2, 2}, {y, -2, 2}]

Manipulate[DensityPlot[Sin[a x] Sin[y], {x, -3, 3}, {y, -3,

Manipulate[ContourPlot[Sin[a x] Cos[y], {x, -3, 3}, {y, -3,

Manipulate[ImageRotate[Blur[CurrentImage[],b],th

Manipulate[ListPlot[Table[{i,Sin[a i]/i},{i,1,40}],ImageSize

Manipulate[Graphics3D[{Orange,Sphere[{0,0,0},r],Blue,Sphere[

live-torus-knot

Manipulate[ParametricPlot3D[{Cos[t](2+Cos[a t]),Sin[t](2+Cos

Manipulate[Plot3D[Sin[a x] Cos[y],{x,-3,3},{y,-3,3},ImageSiz

live-graphics-primitives

Manipulate[Graphics[{Blue,Disk[{0,0},r],Red,Thick,Circle[{1.

live-polar-rose

Manipulate[PolarPlot[1+a Cos[5 t],{t,0,2 Pi},ImageSize->380]

Manipulate[ParametricPlot[{Cos[t]+a Cos[3 t],Sin[t]-a Sin[3

Manipulate[Plot[a (x/2 + 1)^2, {x, -8, 4}, PlotR

Manipulate[Plot[Sin[a x]+b,{x,0,6},PlotRange->{{

Manipulate[Graphics[{PointSize[0.0022], Point[Table[{x, Mod[

Manipulate[Plot3D[x^2 - c y^2, {x, -2, 2}, {y, -

Manipulate[Plot3D[Cos[k (x^2 + y^2)] Exp[-(x^2 +

Image[Table[Length@NestWhileList[(# - UnitStep@Re[# - 1.2])^