| | | Home | | | Back | | | < > | | |
Einführung in Maple |
| Hinweise |
| Übersicht |
| Übungen |
| Anwendungen |
| Stichworte |
| Download |
T-Net-ISDN-Anschlüsse in Deutschland
> |
restart; with (plots); Warning, the name changecoords has been redefined |
Messdaten:
1 Zeitschritt entspricht einem halben Jahr;
Zeitraum: Dezember 1989 (t = 0) bis Juni 1996 (t = 13);
Anzahl der Anschlüsse (y) 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]: |
Approximation der Messdaten ...
> |
Punkte:= plot ({seq (P[i], i = 1..14)}, t = 0..14, style = point, symbol = cross, color = red, labels = [t, y]): b:= 16; ... durch eine Parabel: f(t):= 0.02*t^2; Parabel:= plot (f(t), t = 0..b, style = line, color = blue): ... durch ein exponentielles Schaubild: g(t):= 0.05*2^(t/2); expGraph:= plot (g(t), t = 0..b, style = line, color = black): ... durch eine logistische Kurve: a:= 0.07: S:= 12: k:= 0.029: h(t):= a*S/(a + (S-a)*exp(-S*k*t)); logistK:= plot (h(t), t = 0..b, style = line, color = red): display ([Punkte, Parabel, expGraph, logistK]); |
| | | Home | | | Back | | | Top | | |