lprint(`Najdete "rozumnou" aproximaci nasledujicich dat:`);
lprint(`Uloha 223: Charakteristika diody [V,A]:`);
x:=evalf([0.000000, 0.010101, 0.020202, 0.030303, 0.040404, 0.050505,
0.060606, 0.070707, 0.080808, 0.090909, 0.101010, 0.111111, 0.121212,
0.131313, 0.141414, 0.151515, 0.161616, 0.171717, 0.181818, 0.191919,
0.202020, 0.212121, 0.222222, 0.232323, 0.242424, 0.252525, 0.262626,
0.272727, 0.282828, 0.292929, 0.303030, 0.313131, 0.323232, 0.333333,
0.343434, 0.353535, 0.363636, 0.373737, 0.383838, 0.393939, 0.404040,
0.414141, 0.424242, 0.434343, 0.444444, 0.454545, 0.464646, 0.474747,
0.484848, 0.494949, 0.505051, 0.515152, 0.525253, 0.535354, 0.545455,
0.555556, 0.565657, 0.575758, 0.585859, 0.595960, 0.606061, 0.616162,
0.626263, 0.636364, 0.646465, 0.656566, 0.666667, 0.676768, 0.686869,
0.696970, 0.707071, 0.717172, 0.727273, 0.737374, 0.747475, 0.757576,
0.767677, 0.777778, 0.787879, 0.797980, 0.808081, 0.818182, 0.828283,
0.838384, 0.848485, 0.858586, 0.868687, 0.878788, 0.888889, 0.898990]);
y:=evalf([0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
10.0E-7, 10.0E-7, 10.0E-7, 10.0E-7, 10.0E-7, 10.0E-7, 20.0E-7, 20.0E-7,
20.0E-7, 20.0E-7, 30.0E-7, 30.0E-7, 40.0E-7, 40.0E-7, 40.0E-7, 40.0E-7,
50.0E-7, 60.0E-7, 70.0E-7, 80.0E-7, 80.0E-7, 90.0E-7, 11.0E-6, 11.0E-6,
12.0E-6, 13.0E-6, 14.0E-6, 16.0E-6, 17.0E-6, 18.0E-6, 19.0E-6, 20.0E-6,
21.0E-6, 22.0E-6, 24.0E-6, 25.0E-6, 26.0E-6, 28.0E-6, 30.0E-6, 31.0E-6,
32.0E-6, 33.0E-6, 34.0E-6, 36.0E-6, 38.0E-6, 38.0E-6]);
lprint(`Pomoci teto aproximace odhadnete:`);
lprint(`diferencialni odpor pri napeti 0.7 a 0.9 V`);