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]):
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 ):
color = blue, symbol = cross ):
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 = navy):
display([pkt89_96, pkt2006, logistK],
view = [0..36, 0..13],
thickness = 0,
symbolsize = 15,
labelfont = [COURIER, 12],
axesfont = [COURIER, 10],
size = [350, 320]);
logistK:= plot(n(t), t = 0..b,
style = line,
color = navy):
display([pkt89_96, pkt2006, logistK],
view = [0..36, 0..13],
thickness = 0,
symbolsize = 15,
labelfont = [COURIER, 12],
axesfont = [COURIER, 10],
size = [350, 320]);