lprint(`Najdete "rozumnou" aproximaci nasledujicich dat:`);
lprint(`Uloha 213: Charakteristika diody KY 130/80 [V,mA]:`);
x:=evalf([-12, -5, -2, -1, 0, 0.5, 0.6, 0.629, 0.655, 0.677, 0.7, 0.713]);
y:=evalf([-0.0012, -0.0005, -0.0001, 0, 0, 0.09, 0.86, 2, 5, 10, 20, 28]);
lprint(`Pomoci teto aproximace odhadnete:`);
lprint(`diferencialni odpor pri napeti -2, 0 a 0.7 V`);
# ---------------------------------