Die Lebensdauer von Fernsehröhren ist normalverteilt mit 
mu = 8.6 Jahren (Erwartungswert) und sig = 2.1 Jahren (Standardabweichung).

a) Stelle die Wahrscheinlichkeitsfunktion dar!
b) Wie groß ist die Wahrscheinlichkeit, dass eine Röhre höchstens 8 Jahre alt wird?
c) Wie groß ist die Wahrscheinlichkeit, dass eine Röhre mehr als 12 Jahre alt wird?
d) Wie groß ist die Wahrscheinlichkeit, dass eine Röhre zwsichen 5 und 15 Jahre alt wird?
x ... Lebensdauer von Fernsehröhren in Jahren!

load(distrib)$

[mu:8.6, sig:2.1]$

f(x):=pdf_normal(x,mu,sig)$

load(draw)$

Darstellung der Wahrscheinlichkeitsfunktion

wxdraw2d(
  grid = true,
  axis_top = false,
  axis_right = false,
  explicit(f,x,-2,20)
 );

g(x):=cdf_normal(x,mu,sig)$

höchstens 8 Jahre alt

g(8),numer;

mehr als 12 Jahre alt

1-g(12),numer;

zwischen 5 und 15 Jahre alt

(g(15)-g(5)),numer;

Darstellung: kleiner als 8 Jahre (dunkelblau), mehr als 12 Jahre (hellblau)

wxdraw2d(
  grid = true,
  axis_top = false,
  axis_right = false,
  filled_func = true,
  fill_color = "dark-blue",
    explicit(f,x,-2,8),
  fill_color = "light-blue",
    explicit(f,x,12,20),
  filled_func = false,
  color = red,  
    explicit(f,x,-2,20)
 );