dh-Materialien
Einführung in Maple    
Anwendungen
 

T-Net-ISDN-Anschlüsse in Deutschland

> restart; with(plots);

Messdaten:
     1 Zeitschritt entspricht einem halben Jahr;
     Zeitraum: Dezember 1989 (t = 0) bis Juni 1996 (t = 13);
     Anzahl der Anschlüsse (n) in Millionen;

> P[ 1]:= [ 0, 0.00]:   P[ 2]:= [ 1, 0.04]:
  P[ 3]:= [ 2, 0.11]:   P[ 4]:= [ 3, 0.20]:
  P[ 5]:= [ 4, 0.33]:   P[ 6]:= [ 5, 0.43]:
  P[ 7]:= [ 6, 0.61]:   P[ 8]:= [ 7, 0.98]:
  P[ 9]:= [ 8, 1.17]:   P[10]:= [ 9, 1.44]:
  P[11]:= [10, 1.89]:   P[12]:= [11, 2.33]:
  P[13]:= [12, 3.00]:   P[14]:= [13, 4.56]:

  pkt89_96:= plot({seq(P[i], i = 1..14)}, t = 0..14,
    style = point, symbol = cross,
    color = red, labels = [t, n]):

Ende 2006 gab es in Deutschland 12,65 Millionen T-ISDN-Anschlüsse:

> P:= [34, 12.65];

  pkt2006:= plot ([P], style = point,
    color = blue, symbol = cross ):

P

Approximation der Messdaten im Jahr 1996 durch eine logistische Kurve:

> a:= 0.07:  S:= 12:  k:= 0.029:  b:= 36:

  n(t):= a*S/(a + (S-a)*exp(-S*k*t));
  logistK:= plot(n(t), t = 0..b, style = line, color = red):

  display([pkt89_96, pkt2006, logistK],
    view = [0..36, 0..13],
    labelfont = [COURIER, 16],
    axesfont = [COURIER, 12]);

n(t)
logistische Kurve


 Home   Back   Top