Einführung in Mathematica III

Listen, Tabellen und Schleifen

© Jürgen Schnack, 2016/04/14

Listen I

A={a,b,c}

B={b,c,a}

Listen sind geordnet, siehe skript von Prof. Spindler, Osnabrück

a=1;b=2;c=3;A==B

a=.;b=.;c=.;

Listen II

Part[A,2]

A[[2]]

G={{x,y},{a,b,c}};
Part[G,1]

Part[G,1,2]

G[[1,2]]

G[[2,2]]

Listen III

Attributes[Sin]

Sin[A]

Listen IV

xWerte=Table[x,{x,0,4,0.5}]

yWerte=Sin[xWerte]

Listen V

SinusTabelle1=Table[{x,Sin[x]},{x,0,4,0.5}]

SinusTabelle2=Table[{xWerte[[n]],yWerte[[n]]},{n,1,Length[xWerte]}]

TableForm[SinusTabelle2]

Listen VI

LP1=ListPlot[SinusTabelle2,PlotStyle->{Hue[0.0],PointSize[0.03]},BaseStyle->{FontFamily->"Helvetica",FontSize->18},PlotLabel->"Sin",AxesLabel->{"x","y"}]

LP2=Plot[Sin[x],{x,0,4},PlotStyle->{Hue[0.6],Thick},BaseStyle->{FontFamily->"Helvetica",FontSize->18},PlotLabel->"Sin",AxesLabel->{"x","y"}]

Show[LP1,LP2]

Vektoren und Matrizen I

Eingabe über "Insert"

M1=(({{-1, 2}, {5, -1}}))

M2=({{-1, 3}, {4, -1}})

M1[[1,2]]

Vektoren und Matrizen II

MA=(({{a, b}, {c, d}}));MB=(({{f, g}, {h, j}}));

MatrixForm[MA.MB]

MatrixForm[MB.MA]

Vektoren und Matrizen III

V1=(({{x}, {y}}))

MA.V1

V1.MA

Transpose[V1].MA

Vektoren und Matrizen IV

Eigenvalues[MA]

Eigenvectors[MA]

Eigensystem[MA]

Vektoren und Matrizen V

ES1=Eigensystem[{{1,2,3},{4,5,6},{7,8,9}}]

N[ES1]

Eigenvalues and eigenvectors computed with numerical methods:

Eigensystem[N[{{1,2,3},{4,5,6},{7,8,9}}]]

Schleifen I

For[i=1,i<10,i++,
ti=0.1*(i-1);
Print["i = ",i,", ti = ",ti]];

Schleifen II

GaussPaket[x_,t_]=E^(-((x-t)^2/2));
Plot1=Plot[GaussPaket[x,0],{x,-5,5},PlotStyle->{Red},BaseStyle->{FontFamily->Helvetica,FontSize->18}]

ZahlDerFrames=50;
ColFrames=Table[Plot1,{i,1,ZahlDerFrames}];
For[i=1,i<ZahlDerFrames+1,i++,
ti=0.1*(i-1);
ColFrames[[i]]=Plot[GaussPaket[x,ti],{x,-5,15},PlotRange->{0,1},PlotStyle->{Red},BaseStyle->{FontFamily->Helvetica,FontSize->18}]];

ListAnimate[ColFrames]

... und Schluss.