lprint(`Najdete "rozumnou" aproximaci nasledujicich dat:`);
lprint(`Uloha 225: Prechodova charakteristika derivacniho clanku RC [ms,mV]:`);
y:=evalf([-60, -56, -52, -50, -47, -45, -44, -41, -39, -38, -35, -34, -33,
-31, -30, -28, -28, -26, -26, -25, -23, -22, -21, -20, -20, -19, -19,
-18, -17, -16, -17, -16, -15, -14, -14, -14, -13, -13, -13, -12, -12,
-11, -10, -10, -10, -10, -10, -10, -10, -9, -9, -10, -8, -8, -8, -8, -8,
-8, -7, -8, -7, -7, -7, -7, -7, -7, -6, -6, -6, -6, -6, -5, -6, -6, -5,
-5, -5, -5, -5]);
x:=evalf([$1..nops(y)]);
lprint(`Pomoci teto aproximace odhadnete:`);
lprint(`derivaci v casech 5 a 50 ms`);
# ---------------------------------