Darstellen mit Mathematica

1. Funktionen definiren und graphisch darstellen

f[x_] := Cos[x]*Exp[-x^2/4]
g[x_] := 1 - Sqrt[Abs[x/10]]

Plot[f[x], {x, -10, 10}]

Plot[{f[x], g[x]}, {x, -10, 10}, PlotRange -> {-1, 1},  
      PlotStyle -> {{}, {Dashing[{0.05}]}}]

2. Animierte Graphiken

v = 1;
frames = 10;
Do[
        Plot[Cos[2 Pi (x - v t)], {x, -2, 2}, 
          PlotRange -> {-2, 2}], {t, 0, 1 - 1/frames, 
          1/frames}];

<< Graphics`Animation`
Animate[
      Plot[Cos[2 Pi (x - v t)], {x, -2, 2}, 
        PlotRange -> {-2, 2}], {t, 0, 1, 0.1}]

3. Vektorfelder

Needs["Graphics`PlotField`"];

vector = {x, y}/(x^2 + y^2 + 1)^(3/2)

PlotVectorField[
        vector, {x, -5, 5, 1}, {y, -5, 5
, 1}, 
        Graphics`PlotField`ScaleFunction -> (1 &) ];

PlotGradientField[
      1/Sqrt[x^2 + y^2 + 0.00001], {x, -5, 5, 1}, {y, -5, 5, 1}, 
      ScaleFunction -> (1 &)]

4. 3D Plots

Needs["Graphics`PlotField3D`"];

Plot3D[Sin[x]*Cos[y], {x, -10, 10}, {y, -10, 10}]

Plot3D[Sin[x]*Cos[y], {x, -10, 10}, {y, -10, 10},  
      PlotPoints -> 50,  AspectRatio -> 0.6,  Boxed -> False,  
      Axes -> None]