Mathematika Beispiele 3

Needs["Graphics`Graphics`"]
PolarPlot[Sin[x],{x,0,2Pi},GridLines->Automatic];
Beispiel36
PolarPlot[1+Cos[x],{x, 0, 2Pi}]; Beispiel37
PolarPlot[Cos[x],{x, 0, 2Pi}]; Beispiel38
PolarPlot[Sqrt[(Pi/3)^2-x^2],{x, 0, 1.5}]; Beispiel39
PolarPlot[Sin[2x],{x, 0, 2Pi}]; Beispiel40
PolarPlot[x,{x, 0, 2Pi}]; Beispiel41
PolarPlot[Sqrt[Cos[2x]],{x, 0, 2Pi}]; Beispiel42
PolarPlot[1+Sin[x],{x, 0, 2Pi}]; Beispiel43
PolarPlot[Sin[3x],{x, 0, 2Pi}]; Beispiel44
Needs["Graphics`ComplexMap`"]
CartesianMap[ Cos,{0.2, Pi-0.2 },{-2,2}];
Beispiel45

GebietBeispiel46

ParametricPlot3D[{(1+Tan[t/2])Cos[t], (1+Tan[t/2])Sin[t], u}, {t, 0, Pi/2}, {u, 0, 1}];

Beispiel46

BereichBeispiel47

ParametricPlot[{t-Sin[t], 1-Cos[t]}, {t, 0, 2Pi}];

Beispiel47

KurveBeispiel48

ParametricPlot[{t^2, (t-1)^5+t}, {t, 0, 1}];

Beispiel48

KurveBeispiel49

ParametricPlot[{Cos[t], Sin[t]}, {t, -Pi, Pi}];

Beispiel49

VektorfeldBeispiel50

Needs["Graphics`PlotField`"]

PlotVectorField[ {y/(1+x^2), ArcTan[x]}, {x, 0, Pi}, {y, -1/4, 1/4}];

Beispiel50

VektorfeldBeispiel51

PlotVectorField[ {2x+y, x}, {x, -10, 10}, {y, -10, 10}];

Beispiel51

VektorfeldBeispiel52

PlotVectorField[ {y, x^2+y^2}, {x, -10, 10}, {y, -10, 10}]

Beispiel52

VektorfeldBeispiel53

PlotVectorField[ {y, 0}, {x, -10, 10}, {y, -10, 10}]

Beispiel53

ÄquipotentiallinienBeispiel54

ContourPlot[x/(Sqrt[x^2+y^2]^3), {x, -3.5, 3.5}, {y, -3, 3},

ContourShading -> False,

ContourSmoothing -> Automatic];

Beispiel54

ÄquipotentiallinienBeispiel55

ContourPlot[1/(x^2+y^2), {x, -3, 3}, {y, -3, 3},

ContourShading -> False,

ContourSmoothing -> Automatic];

Beispiel55

ÄquipotentiallinienBeispiel56

ContourPlot[(x-1)^2+4y^2, {x, -3, 3}, {y, -3, 3},

ContourShading -> False,

ContourSmoothing -> Automatic];

Beispiel56