(*  Graphics Teil 3:  WQ,  FS 2013 *)

Manipulate[Factor[x^n-1],{n,2,10,1}]

Animate[Plot[Sin[x+a],{x,-0.2,3 Pi}],{a,0,2 Pi}]

Manipulate[Plot3D[Sin[x y],{x,-Pi,Pi},{y,-Pi,Pi},PlotPoints->5,PlotRange->2,Axes->None,
ViewPoint->{Sin[α],Cos[α],1},ViewAngle->(20^°)],{α,0.,2 Pi,Pi/12}]

(* Zeige "gestapelte" 2D-Kurven als "Rad-Staender" *)

pp=Table[ParametricPlot3D[{x,n/5,Sin[x]^n},{x,0,π}],{n,5}]

Show[pp[[5]],pp[[4]],pp[[3]],pp[[2]],pp[[1]] ,Axes->True,AxesLabel->{x,"n/5",z},BoxRatios->{1,1,1},PlotRange->{{0,Pi},{0.2,1},{0,1}}]

(* Hier die Mma - Version aus einer help - Seite *)

Graphics3D[MapIndexed[Cases[#1,Line[L_]:>Line[Thread[{#2[[1]]/5,L[[All,1]],L[[All,2]]}]],-1]&,Table[Plot[Sin[x]^n,{x,0,π}],{n,5}]],Axes->True,AxesLabel->{"n/5",y,z},BoxRatios->{1,1,1}]

MapIndexed[f,{a},-1]

{f[a,{1}]}

MapIndexed[f,{a,b,c},-1]

Graphics3D[GeometricTransformation[Cone[{{0,0,0},{0,0,1}},.5],{{RotationMatrix[0Degree,{0,1,0}],{0,0,1}},{RotationMatrix[90Degree,{0,1,0}],{1,0,0}},
{RotationMatrix[180Degree,{0,1,0}],{0,0,-1}},{RotationMatrix[-90Degree,{0,1,0}],{-1,0,0}}}]]

(* Dieses Bild soll transformiert werden *)

Plot3D[Sin[x+Cos[y]],{x,0,2π},{y,0,2π},PlotRange->All]

Mathematica kernel function   GeometricTransformation

Plot3D[Sin[x+Cos[y]],{x,0,2π},{y,0,2π},PlotRange->All]/.Graphics3D[gr_,opts___]:>Graphics3D[GeometricTransformation[gr,{{1,0,1},{0,1,0},{0,0,1}}],opts]

The functionality of former  Shadow,ShadowPlot3D,and ListShadowPlot3D is now function Scale

Graphics[{Pink,Scale[Disk[],{1,1/2}]}]

Graphics3D[Scale[Cylinder[],{1/2,1,1},{0,0,0}],Boxed->False]

Plot3D[Sin[x y],{x,0,3},{y,0,3},PlotRange->All]/.Graphics3D[gr_,opts___]:>Graphics3D[{gr,Scale[gr,#,{-1,-1,-1}]&/@(1+10^-3-IdentityMatrix[3])},opts]

1+10^-3-IdentityMatrix[3]// N

Plot3D[Abs[Sqrt[x+I  y]],{x,-1,1},{y,-1,1},PlotRange->All]/.Graphics3D[gr_,opts___]:>Graphics3D[{gr,Scale[gr,#,{-1,-1,0}]&/@(1+10^-3-DiagonalMatrix[{1,1,0}])},opts]

1+10^-3-DiagonalMatrix[{1,1,0}] // N

Histogram3D[{{7,0},{0,8},{0,8},{3,7},{1,6},{1,10},{4,9},{1,5},{10,6},{0,2},{5,0},{7,6},{9,7},{0,9},{3,9}},BoxRatios->{1,1,1},ChartStyle->Directive[EdgeForm[Black],White],Lighting->Automatic]

(* Histogram zählt die Anzahl der vorkommenden Paare in {x,y} 
BarChart bildet die angegebenen Werte in einer Matrix ab *)

bild=BarChart3D[{{2,1,6,7,4},{7,9,1,0,4},{5,2,6,2,7},{4,3,0,0,10},{8,9,1,0,9}}//Transpose,BarSpacing->{0.1,0.1},ChartElementFunction->"Cube",ChartLayout->"Grid",ChartStyle->Directive[EdgeForm[Black],White],Lighting->Automatic]

Export["histo3D.eps",bild]

$ExportFormats

Export["histo3D.pdf",bild]

Import["histo3D.pdf"]