s:=[0, 0.4, 0.3, 0.15, 0.05, 1];

t:=[0, 2.5743, 2.201, 1.502, 0.922, 3.987];

dt:=[infinity, 0.05357, 0.06141, 0.08728, 0.1585, 0.03452];

ds:=0.0173;

s[i]/t[i]^2 $ i=2..nops(t);

k := stats::mean(%);

punkteP := plot::Point2d(t[i],s[i]) $ i=1..nops(t):

graphP  := plot::Function2d(k*x^2, x = 0..4):

plot(punkteP,graphP);

v:=map(map(dt,_invert),_mult,ds);

v[i]/t[i] $i=2..nops(t);

a := stats::mean(%);

plotPunkte := plot::Point2d(t[i],v[i]) $ i=1..nops(t):

plotGraph  := plot::Function2d(a*x, x = 0..4):

plot(plotPunkte,plotGraph);