Mathematika Beispiele 1

b = 2;
func = (Pi-2b)/2 + 2/Pi Sum[((-1)^n-1)/n^2 Cos[n x], {n, 1, 50}];
Plot[func, {x, -Pi, Pi}];
Beispiel1
func = 2/Pi Sum[((-1)^(n+1))/n Sin[n x], {n, 1, 1000}];
Plot[func, {x, -Pi, Pi}];
Beispiel2
func = Pi/4 + 1/Pi Sum[((-1)^n-1)/n^2 Cos[n x], {n, 1, 50}] +
Sum[((-1)^n)/n Sin[n x], {n, 1, 50}];
Plot[func, {x, -Pi, Pi}];
Beispiel3
aprox = (2-E)/E + Sum[2((-1)^n-E)/(E(1+n^2 Pi^2)) Cos[n x], {n,1,100}];
Plot[{(*1/E-Exp[-Abs[x/Pi]],*) aprox}, {x, -Pi, Pi}(*, PlotRange->{0,Pi}*)];
Beispiel4
ebene = Plot3D[Sqrt[3]-x-y, {x, -1, 1}, {y, -1, 1}]; Beispiel5
kugel = Plot3D[Sqrt[1-x^2-y^2], {x, -1, 1}, {y, -1, 1}]; Beispiel6
Show[ebene, kugel, ViewPoint->{0.628,-3.257,0.669}] Beispiel7
ContourPlot[ Sin[ x + Sin[y] ], {x, -2, 2}, {y, -2, 2} ]; Beispiel8
Fourierreihe für y = x, n = 20
a=Sum[(2/(Pi n)-2(-1)^n/n)Sin[n x],{n,1,20}];
Plot[a,{x,-4Pi,4Pi}];
Beispiel9
Fourierreihe für y = x, n = 100
a=Sum[(2/(Pi n)-2(-1)^n/n)Sin[n x],{n,1,100}];
Plot[a,{x,-4Pi,4Pi}];
Beispiel10
Fourierreihe für y = x, n = 1000
a=Sum[(2/(Pi n)-2(-1)^n/n)Sin[n x],{n,1,1000}];
Plot[a,{x,-4Pi,4Pi}];
Beispiel11
ParametricPlot[{Sin[x],Log[x^2]},{x,-10,10}]; Beispiel12
ParametricPlot[{Sin[2x],Cos[x/2]},{x,-10,10},AspectRatio->Automatic]; Beispiel13
a=10;
b=7;
ParametricPlot3D[{2a^2 t,3a b t^2,3b^2 t^3},{t,0,1}];
Beispiel14
ParametricPlot[{-4Sin[t]^2Cos[t],-4Sin[t]^3},{t,-Pi,Pi}]; Beispiel15
ParametricPlot3D[ { x Sin[y], x Cos[y], y/3 }, {x, -1, 1}, {y, 0, 15} ]; Beispiel16
ParametricPlot3D[ { Sin[y], Sin[2y] Sin[x], Sin[2y] Cos[x] },
{x, 0, 2Pi}, {y, -Pi/2, Pi/2}, Ticks -> None ];
Beispiel17