Lösungen / B2 S1 Ue3

1.

Psychologische Aspekte der Darstellung mündlich diskutieren...

2.

30!

ScientificForm[30! 1. ]

univerumAlterJahre = 13.5 10^9

ScientificForm[30! 1. /(60  60  24  365)]

(30! 1. /(60  60  24  365)) / 
      univerumAlterJahre

3.

ScientificForm[(2  10^6)^(10^3 10^3) 1.0]

univerumAlterSekunden = 13.5 10^9  60  60  24  365

Mathematica kann die Zahl exakt ausrechnen:

4.

Binomial[36, 9]

ScientificForm[Binomial[36, 9] 1.0]

5.

Remove["Global`*"]

M = {{-3, 1}, {-2, 0}, {-1, 2}, {0, -1}, {1, 2}, {2, 
          0}, {3, 1}, {4, 0}}

f1 = FindFit[M, c + d  x, {c, d}, x]

f[x_] := c + d x  /. f1;   f[x]

Prepend[Map[Point, M], PointSize[0.04]]

Plot[f[x], {x, -4, 5}, 
        Epilog -> Evaluate[Prepend[Map[Point, M], PointSize[0.04]]], 
        PlotRange -> {-3, 3}];

tab = 
      Table[{ M[[n]][[1]], M[[n]][[2]] - 
            f[ M[[n]][[1]]]}, {n, 1, Length[M]}]

Line[{{-3, 0}, {4, 0}}]

Show[
        Graphics[
          Prepend[Prepend[Map[Point, tab], PointSize[0.04]], 
            Line[{{-3, 0}, {4, 0}}]], 
          PlotRange -> {-3, 3}]];

Zu Aufgabe 3: Exakte Rechnung

(2  10^6)^(10^3 10^3)