Lösungen/Solutions/F2S1Ue/Ex15

L = Lektion/ Leçon   -- Sprechstunde / heures de consultation
W = Work / Arbeit / Travail
A=Anhang/Annexe/Appendice

Ueb/Ex 1      W

<< Graphics`Graphics`

<< Statistics`DescriptiveStatistics`

tb = {{153, 1}, {154, 1}, {155, 2}, {156, 3}, {157, 3}, {158, 5}, {159, 
          6}, {160, 4}, {161, 5}, {162, 7}, {163, 5}, {164, 5}, {165, 
          6}, {166, 7}, {167, 5}, {168, 5}, {169, 6}, {170, 5}, {171, 
          6}, {172, 4}, {173, 3}, {174, 2}, {175, 3}, {176, 1}, {177, 
          1}, {178, 1}}

s = Sum[tb[[n]][[2]], {n, 1, Length[tb]}]

Table[
      freq[tb[[n]][[1]]] = tb[[n]][[2]], {n, 1, 
        Length[tb]}]

Table[freq[tb[[n]][[1]]], {n, 1, Length[tb]}]

freq[157]

Table[
      relfreq[tb[[n]][[1]]] = tb[[n]][[2]]/s, {n, 1, 
        Length[tb]}]

N[%]

μ = 
      Sum[tb[[n]][[1]] * 
          relfreq[tb[[n]][[1]]] , {n, 1, Length[tb]}]

N[%]

2

Remove[u, v, w]

tab21 = 
      Table[u + v + w, {u, 1, 6}, {v, 1, 6}, {w, 1, 6}] // Flatten

<< Statistics`DataManipulation`

freq = Frequencies[tab21]

newFreq = 
      Table[{freq[[n]][[2]], freq[[n]][[1]]}, {n, 1, 
          Length[freq]}]

s = 
      Sum[newFreq[[n]][[2]], {n, 1, Length[newFreq]}]

Table[
      fr[newFreq[[n]][[1]]] = newFreq[[n]][[2]], {n, 
        1, Length[newFreq]}]

Table[
      fr[newFreq[[n]][[1]]], {n, 1, Length[newFreq]}]

fr[12]

Table[
      relfr[newFreq[[n]][[1]]] = newFreq[[n]][[2]]/
          s, {n, 1, Length[newFreq]}]

N[%]

μ = 
      Sum[newFreq[[n]][[1]] * 
          relfr[newFreq[[n]][[1]]] , {n, 1, 
          Length[newFreq]}]

N[%]

3 + (18 - 3)/2

3

Remove[a, b, f, F, x]

f[x_] := a  (E^(-x^2) - b);  f[x]

{f[-7], f[7]}

s = Solve[f[7] == 0, {b}] // Flatten

f1[x_] := a  (E^(-x^2) - b) /. s;  f1[x]

F[x_] := Integrate[f[t], {t, -7, x}];  F[x]

F[-7]

F[7]

ss = Solve[F[7] == 1, {a}] // Flatten

f2[x_] := f1[x] /. ss;  f2[x]

Plot[f2[x], {x, -7, 7}, PlotRange -> {0, 1}];

F2[x_] := F[x] /. ss;  F2[x]

Plot[F2[x], {x, -7, 7}, PlotRange -> {0, 1}];