Maple Programme fuer Pruefung 4

lagrange:= proc(liste1, liste2) local funktion, summand, i , j: funktion := 0: summand := 0: for i from 1 to nops(liste1) do summand := op(i, liste2): for j from 1 to nops(liste1) do if (i <> j) then summand := summand * (x - op(j,liste1))/(op(i,liste1) - op(j,liste1)): end if: end do: funktion := funktion + summand: end do: end proc:

lagrange([x[0],x[1],x[2]],[f(x[0]),f(x[1]),f(x[2])]);

NiMsKCosLSUiZkc2IyYlInhHNiMiIiEiIiIsJkYpRiwmRik2I0YsISIiRiwsJkYoRixGLkYwRjAsJkYpRiwmRik2IyIiI0YwRiwsJkYoRixGM0YwRjBGLCosLUYmNiNGLkYsLCZGKUYsRihGMEYsLCZGLkYsRihGMEYwRjJGLCwmRi5GLEYzRjBGMEYsKiwtRiY2I0YzRixGOkYsLCZGM0YsRihGMEYwRi1GLCwmRjNGLEYuRjBGMEYs

simplify(evalf(lagrange([-Pi/4,0,Pi/4],[cos(-Pi/4),cos(0), cos(Pi/4)])));

NiMsJiomJCIrP2c/W1ohIzUiIiIpJSJ4RyIiI0YoISIiJCIrKysrKzUhIipGKA==

nevQ := proc(i,j) if j > 0 then return( sort( expand( ( (x-op(1+i-j,xp))*nevQ(i,j-1) - (x-op(1+i,xp))*nevQ(i-1,j-1) ) / ( op(1+i,xp)- op(1+i-j,xp) ) ))); else return( op(1+i,fp) ); end if; end proc:

f := x -> x*ln(x): xp := [8.0,8.2,8.5,8.6,8.8,9.0]: fp := map(f, xp):nevQ(5,5);

NiMsLiomJCIzU08keXIkUkREJiohI0IiIiIpJSJ4RyIiJkYoISIiKiYkIjRRPTUqUklsdDJhISNBRigpRioiIiVGKEYoKiYkIjQ7eS8weXM4NlEiISM/RigpRioiIiRGKEYsKiYkIjUhKWVFNzAtNXpdQkY2RigpRioiIiNGKEYoKiYkIjQzM3c7QzQoW2Q1ISM9RihGKkYoRigkIjR4blQqXCUqKTQ1cSJGQUYs

restart:

r := proc(x,i) if i > 0 then return evalf( 1/(r(x,i-1) - a(x,i-1)) ) else return evalf(x) end if; end proc: a := (x,i) -> trunc(r(x,i)):p := proc(x,i) if i=-2 then return 0 elif i=-1 then return 1 elif i=0 then return a(x,0) else return a(x,i)*p(x,i-1)+p(x,i-2) end if; end proc:q := proc(x,i) if i=-2 then return 1 elif i=-1 then return 0 elif i=0 then return 1 else return a(x,i)*q(x,i-1)+q(x,i-2) end if; end proc:

Approximation von Pim:=[ seq(p(Pi,k)/q(Pi,k), k=0..11)];

NiM+JSJtRzcuIiIkIyIjQSIiKCMiJEwkIiQxIiMiJGIkIiQ4IiMiJyQqUjUiJi1KJCMiJ1tWNSImOkskIyInVCQzIyImPGonIyInKm83JCImSyYqKiMiJz5QJCkiJyJRbCMjIigzazkiIic4XE8jIihWSEYlIig/LE8iIyIoXiQ+YSIoTF1zIg==

Fehler:abs(evalf(op(nops(m)-1,m))-evalf(Pi));

NiMkIkdLdGozXWdAcVlmczoxYyo9cDEvJSEjXQ==

restart:

irrZByStep := proc(x0, a, p, q, i) local xi, j, f: Digits:=20: xi := x0: f := (x) -> x**q - a**p: for j from 1 to i do xi := xi - (f(xi)/D(f)(xi)): printf("Iteration : %3d = %10.20f\tgenau = %10.20f\n", j, evalf(xi), evalf(a**(p/q))): end do: end proc:irrZByPrecision := proc(x0, a, p, q, k) local xi, j, f: Digits := abs(log[10](k))*2: xi := x0: j := 1: f := (x) -> x**q - a**p: while (abs(evalf(xi**p - a**(p/q))) > evalf(k)) do xi := xi - (f(xi)/D(f)(xi)): j := j + 1: printf("Iteration : %3d = %10.20f\t**p = %10.20f\tgenau = %10.20f\n",j, evalf(xi), evalf(xi**p), evalf(a**(p/q))): end do: printf("Genauigkeit %e erhalten nach %d Iterationsschriftten :\t10.50f", k, j, evalf(xi**p)): end proc:

sqrt(2);irrZByStep(1, 2, 1, 2, 10);

Iteration : 1 = 1.50000000000000000000 genau = 1.41421356237309504880Iteration : 2 = 1.41666666666666666670 genau = 1.41421356237309504880Iteration : 3 = 1.41421568627450980390 genau = 1.41421356237309504880Iteration : 4 = 1.41421356237468991060 genau = 1.41421356237309504880Iteration : 5 = 1.41421356237309504880 genau = 1.41421356237309504880Iteration : 6 = 1.41421356237309504880 genau = 1.41421356237309504880Iteration : 7 = 1.41421356237309504880 genau = 1.41421356237309504880Iteration : 8 = 1.41421356237309504880 genau = 1.41421356237309504880Iteration : 9 = 1.41421356237309504880 genau = 1.41421356237309504880Iteration : 10 = 1.41421356237309504880 genau = 1.41421356237309504880

irrZByPrecision(1, 2, 1, 2, 10**(-4));

Iteration : 2 = 1.50000000000000000000 **p = 1.50000000000000000000 genau = 1.41421360000000000000Iteration : 3 = 1.41666670000000000000 **p = 1.41666670000000000000 genau = 1.41421360000000000000Iteration : 4 = 1.41421570000000000000 **p = 1.41421570000000000000 genau = 1.41421360000000000000Genauigkeit 1.000000e-04 erhalten nach 4 Iterationsschriftten : 10.50f

hilb := proc ( f , gr, min , max ) local m1, i, j, a1, l1, k, m2, i2, j2, a2, l2, k2, h, g, res, loes, grad, a; with(LinearAlgebra): grad := gr+1; m2 := Matrix(grad); for i2 from 1 to grad do for j2 from 1 to grad do m2[i2,j2] := Int((x^(j2+i2-2)),x=min..max); end do; end do; a2 := Vector(grad,symbol=a); l2 := Matrix(grad,1); for k2 from 1 to grad do l2[k2,1] := Int(f(x)*x^(k2-1),x=min..max); end do; print(m2.a2=l2); m1 := Matrix(grad); for i from 1 to grad do for j from 1 to grad do m1[i,j] := int((x^(j+i-2)),x=min..max); end do; end do; a1 := Vector(grad,symbol=a); l1 := Vector(grad); for k from 1 to grad do l1[k] := int(f(x)*x^(k-1),x=min..max); end do; print(m1.a1=l1); for i from 1 to grad do h := 0; for j from 1 to grad do h := h + a[j]*m1[i,j]; end do; g[i] := h = l1[i]; print(g[i]); end do; res:=solve({seq(g[i],i=1..grad)},{seq(a[i],i=1..grad)}); loes := 0; for i from 1 to grad do loes := loes + a[i]*x^(i-1); end do; printf("\t\t\tDie Loesung lautet\n:"); print(eval(evalf(loes),evalf(res))); return (eval(loes,res)); end proc:

g := unapply(hilb(x->x*ln(x), 3, 1, 4),x);

NiMvLUknUlRBQkxFRzYiNiUiKkMiPVo4LUknTUFUUklYR0YmNiM3JjcjLCoqJi1JJEludEc2JEkqcHJvdGVjdGVkR0YzSShfc3lzbGliR0YmNiQiIiIvSSJ4R0YmO0Y2IiIlRjYmSSJhR0YmNiNGNkY2RjYqJi1GMTYkRjhGN0Y2JkY8NiMiIiNGNkY2KiYtRjE2JCokRjhGQ0Y3RjYmRjw2IyIiJEY2RjYqJi1GMTYkKiRGOEZKRjdGNiZGPDYjRjpGNkY2NyMsKiomRj9GNkY7RjZGNiomRkVGNkZBRjZGNiomRkxGNkZIRjZGNiomLUYxNiQqJEY4RjpGN0Y2Rk9GNkY2NyMsKiomRkVGNkY7RjZGNiomRkxGNkZBRjZGNiomRldGNkZIRjZGNiomLUYxNiQqJEY4IiImRjdGNkZPRjZGNjcjLCoqJkZMRjZGO0Y2RjYqJkZXRjZGQUY2RjYqJkZqbkY2RkhGNkY2KiYtRjE2JCokRjgiIidGN0Y2Rk9GNkY2JkknVmVjdG9yR0YyNiNJJ2NvbHVtbkdGJi1GJTYlIipbeHVNIi1GKjYjNyY3Iy1GMTYkKiZGOEY2LUkjbG5HRjI2I0Y4RjZGNzcjLUYxNiQqJkY4RkNGZnBGNkY3NyMtRjE2JComRjhGSkZmcEY2Rjc3Iy1GMTYkKiZGOEY6RmZwRjZGN0knTWF0cml4R0Yy

NiMvLUknUlRBQkxFRzYiNiUiKi8lPVo4LUknTUFUUklYR0YmNiM3JjcjLComSSJhR0YmNiMiIiIiIiQmRjA2IyIiIyMiIzpGNiZGMDYjRjMiI0AmRjA2IyIiJSMiJGIjRj43IywqRi9GN0Y0RjtGOUY/RjwjIiVCNSIiJjcjLCpGL0Y7RjRGP0Y5RkNGPCMiJWw4RjY3IywqRi9GP0Y0RkNGOUZIRjwjIiYkUTsiIigmSSdWZWN0b3JHNiRJKnByb3RlY3RlZEdGUkkoX3N5c2xpYkdGJjYjSSdjb2x1bW5HRiYtRiU2JSIqVyc9WjgtRio2IzcmNyMsJi1JI2xuR0ZRRjUiIzsjISM6Rj5GMjcjLCZGaG4jIiRHIkYzISIoRjI3IywmRmhuRmBvIyEkYiNGam5GMjcjLCZGaG4jIiVbP0ZFIyElQjUiI0RGMkZPNiMvLComSSJhRzYiNiMiIiIiIiQmRiY2IyIiIyMiIzpGLSZGJjYjRioiI0AmRiY2IyIiJSMiJGIjRjUsJi1JI2xuRzYkSSpwcm90ZWN0ZWRHRjxJKF9zeXNsaWJHRidGLCIjOyMhIzpGNUYpNiMvLComSSJhRzYiNiMiIiIjIiM6IiIjJkYmNiNGLCIjQCZGJjYjIiIkIyIkYiMiIiUmRiY2I0Y1IyIlQjUiIiYsJi1JI2xuRzYkSSpwcm90ZWN0ZWRHRj9JKF9zeXNsaWJHRidGLiMiJEciRjIhIihGKQ==NiMvLComSSJhRzYiNiMiIiIiI0AmRiY2IyIiIyMiJGIjIiIlJkYmNiMiIiQjIiVCNSIiJiZGJjYjRjAjIiVsOEYtLCYtSSNsbkc2JEkqcHJvdGVjdGVkR0Y/SShfc3lzbGliR0YnRiwiJEciIyEkYiMiIztGKQ==NiMvLComSSJhRzYiNiMiIiIjIiRiIyIiJSZGJjYjIiIjIyIlQjUiIiYmRiY2IyIiJCMiJWw4Ri8mRiY2I0YsIyImJFE7IiIoLCYtSSNsbkc2JEkqcHJvdGVjdGVkR0ZBSShfc3lzbGliR0YnRi4jIiVbP0YyIyElQjUiI0RGKQ== Die Loesung lautet :NiMsKiQhKWRcc3EhIikiIiJJInhHNiIkIikoWzkoR0YmKiRGKCIiIyQiKUV3MVdGJiokRigiIiQkISlTMF9JISIqNiM+SSJnRzYiZio2I0kieEdGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlLCwtSSNsbkc2JEkqcHJvdGVjdGVkR0YwSShfc3lzbGliR0YlNiMiIiMjIidXaDsiJSg9IyMhJi4qUSIkSCgiIiIqJiwmRi0jISYnSHJGOSMiJ2AzTCIlZ1tGOkY6OSRGOkY6KiYsJkYtIyImUyVIRjkjISUmcCciJFYjRjpGOkZCRjNGOiomLCZGLSMhJis3IkY2IyIlSl4iJWU5RjpGOkZCIiIkRjpGJUYlRiU=

restart;

tschebyschew := proc ( i , min , max ) return seq(1/2*((max-min)*cos((2*k-1)/(2*i)*Pi)+min+max),k=1..i); end proc:lagrange := proc( liste1 , liste2) local res, zaehler, nenner, laenge, i, n; Digits:=20; res := 0; if nops(liste1) = nops(liste2) then laenge := nops(liste1); for n from 1 to laenge do zaehler := 1; nenner := 1; for i from 1 to laenge do if i <> n then zaehler := zaehler * (x - op(i,liste1)); nenner := nenner * (op(n,liste1)-op(i,liste1)); end if; end do; res := res + ((zaehler/nenner)*op(n,liste2)); end do; else printf("Die Listen sind nicht gleich lang"); end if; res := sort(expand(res)); return res; end proc:

Funktion N\344hern:l1 := [1.0,2.0,3.0,4.0];

NiM+SSNsMUc2IjcmJCIjNSEiIiQiIz9GKSQiI0lGKSQiI1NGKQ==

l2 := map(x->x*ln(x),l1);

NiM+JSNsMkc3JiQiIiFGJyQiK2hWSCdRIiEiKiQiK25vJGVIJEYqJCIrV3U8WGJGKg==

fa:=lagrange(l1,l2);

NiM+JSNmYUcsKiomJCIzTExMTEw3XWRJISM+IiIiKSUieEciIiRGKiEiIiomJCIzKysrK2w5dV1XISM9RiopRiwiIiNGKkYqKiYkIjNNTExMeSsoNGwjRjJGKkYsRipGKiQiNCwrKysrVWhmeidGKUYu

N\344herung mit Tscherbyschlampel1 := [tschebyschew(4,1,4)];

NiM+JSNsMUc3JiwmKiYjIiIkIiIjIiIiLSUkY29zRzYjLCQqJiIiKSEiIiUjUGlHRitGK0YrRisjIiImRipGKywmKiZGKEYrLUYtNiMsJCooRilGK0YxRjJGM0YrRitGK0YrRjRGKywmRjdGMkY0RissJkYnRjJGNEYr

l2 := map(x->x*ln(x),l1);

NiM+JSNsMkc3JiomLCYqJiMiIiQiIiMiIiItJSRjb3NHNiMsJComIiIpISIiJSNQaUdGLEYsRixGLCMiIiZGK0YsRiwtJSNsbkc2I0YnRiwqJiwmKiZGKUYsLUYuNiMsJCooRipGLEYyRjNGNEYsRixGLEYsRjVGLEYsLUY4NiNGO0YsKiYsJkY8RjNGNUYsRiwtRjg2I0ZERiwqJiwmRihGM0Y1RixGLC1GODYjRkhGLA==

fb:=sort(evalf(lagrange(l1,l2)));

NiM+SSNmYkc2Ii1JKWxhZ3JhbmdlR0YlNiRJI2wxR0YlSSNsMkdGJQ==

restart;lagrange:= proc(liste1, liste2) local funktion, summand, i , j: funktion := 0: summand := 0: for i from 1 to nops(liste1) do summand := op(i, liste2): for j from 1 to nops(liste1) do if (i <> j) then summand := summand * (x - op(j,liste1))/(op(i,liste1) - op(j,liste1)): end if: end do: funktion := funktion + summand: end do: end proc:li1:=[-2,-1,0,1,2];

NiM+SSRsaTFHNiI3JyEiIyEiIiIiISIiIiIiIw==

li2:=map(x->exp(abs(x)),li1);

NiM+SSRsaTJHNiI3Jy1JJGV4cEc2JEkqcHJvdGVjdGVkR0YqSShfc3lzbGliR0YlNiMiIiMtRig2IyIiIkYwRi5GJw==

g:=lagrange(li1,li2);

NiM+SSJnRzYiLCwqLC1JJGV4cEc2JEkqcHJvdGVjdGVkR0YrSShfc3lzbGliR0YlNiMiIiMiIiIsJkkieEdGJUYvRi9GL0YvRjFGLywmRjFGLyEiIkYvRi8sJkYxRi8hIiNGL0YvI0YvIiNDKiwtRik2I0YvRi8sJkYxRi9GLkYvRi9GMUYvRjJGL0Y0Ri8jRjMiIicqKiwmRjEjRi9GLkYvRi9GL0YwRi9GMkYvRjRGL0ZAKixGOUYvRjtGL0YwRi9GMUYvRjRGL0Y8KixGKEYvRjtGL0YwRi9GMUYvRjJGL0Y2

sort(simplify(expand(g)));

NiMsMComLUkkZXhwRzYkSSpwcm90ZWN0ZWRHRihJKF9zeXNsaWJHNiI2IyIiIyIiIkkieEdGKiIiJSNGLSIjNyomLUYmNiNGLUYtRi5GLyMhIiIiIiQqJEYuRi8jRi1GLyomRiVGLUYuRiwjRjZGMSomRjNGLUYuRiwjRi9GNyokRi5GLCMhIiZGL0YtRi0=

restart;tschebyschew := proc ( x , i ) if i = 0 then return 1; elif i = 1 then return x; else return 2*x*tschebyschew(x,i-1)-tschebyschew(x,i-2); end if; end proc:tschebyschewNull := proc ( i , min , max ) return seq(1/2*((max-min)*cos((2*k-1)/(2*i)*Pi)+min+max),k=1..i); end proc:

g:=expand(tschebyschew(x,7));

NiM+SSJnRzYiLCoqJEkieEdGJSIiKCIjayokRigiIiYhJDciKiRGKCIiJCIjY0YoISIo

nulls:=evalf(tschebyschewNull(7,-1,1));

NiM+SSZudWxsc0c2IjYpJCIrQSJ6I1woKiEjNSQiK0NbSj15RikkIislUlApUVZGKSQiIiFGLyQhKyVSUClRVkYpJCErQ1tKPXlGKSQhK0EieiNcKCpGKQ==

g:=expand(tschebyschew(x,4));

NiM+SSJnRzYiLCgqJEkieEdGJSIiJSIiKSokRigiIiMhIikiIiJGLg==

plot(g,x=-1..1);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JDdncDckJCEiIiIiISQiIiJGLDckJCEzJ3BtbSJIVSwiKikqISM9JCIzRDxBSlRoSy4kKUYyNyQkITMhUkxMJGUlRz95KkYyJCIzRVd1Knp5MCMqcCdGMjckJCEzdSoqKipcKG9VSW4qRjIkIjNqQTxNITQlPiY9JkYyNyQkITNwbW1tO3AwayYqRjIkIjNORihbb0d0KWVQRjI3JCQhMyRITDMtKSpHI3AlKkYyJCIzbCIpPiRmQ0B0ZSNGMjckJCEzRisrdlY1U3UkKkYyJCIzW01VYCJbKXl5OUYyNyQkITNebTtIMkpkeiMqRjIkIjM2KWY7SENDdEolISM+NyQkITN2S0wkMzxYWj0qRjIkITN2VndIJ3BSUGImRlM3JCQhMydmbVQmUTc1eSEqRjIkITNlRFVyWiVRZGYiRjI3JCQhMzoqKipcaUlkOSgqKUYyJCEzRVFLLjgsS2tERjI3JCQhM1lMJGVSUDhbJykpRjIkITNONENDWjBBak1GMjckJCEzbm1tbVQlcCJlKClGMiQhM0lkZC8pXDtYSCVGMjckJCEzJmVtbW13bk1hKUYyJCEzUCNcMFZtcDh4JkYyNyQkITM6bW1tIjRtKEckKUYyJCEza1Uuazt5JCopKnBGMjckJCEzKSoqKipcaSZbMzoiKUYyJCEzNlZbXjFGMCopekYyNyQkITMiUUxMM2kuOSF6RjIkITM5Sm0jb09GTncpRjI3JCQhMyczKytEdyRILnhGMiQhM3cyImUlKVEwP0kqRjI3JCQhMyJvbW1UIVI9MHZGMiQhMyI+N3M9MHQneicqRjI3JCQhM0srK11pIz1FUyhGMiQhM1V0dUVSYXg6KSpGMjckJCEzdEtMJDNpXytJKEYyJCEzKlFqMVB2bUwiKipGMjckJCEzQ21tO3pwWyg+KEYyJCEzdjtMWCwqcFIoKipGMjckJCEzdyoqKipcUDgjXDQoRjIkITNhcUNBVGwzKioqKkYyNyQkITMlb21tVCF5JSkpKXBGMiQhM1JhbDwlPjQkKikqKkYyNyQkITMkUkxMM0Z1RilvRjIkITM2JltwSVF0WiUqKkYyNyQkITMsLCtdUDJxd25GMiQhM0U7TTBlJW9xJykqRjI3JCQhMypwbW1UP0YxbidGMiQhMzEmKj1SaSVmeHYqRjI3JCQhM3RMTCRlXGciZmtGMiQhM3BWMWNFRmpeJSpGMjckJCEzXCsrXSh5JHBaaUYyJCEzYCUqbzQmPj16LipGMjckJCEzM0xMTCR5YUUiZUYyJCEzXzpfNVF2NCgqeUYyNyQkITNobW1tIj5zJUhhRjIkITNZUUI9Q1A7Sm1GMjckJCEzUysrK10kKjQpKlxGMiQhMydmSDVoJmZSIypcRjI3JCQhMzgrKytdXyZcYyVGMiQhMzEoKltaJSlIKyg+JEYyNyQkITMwKysrXTFhWlRGMiQhM1dcdi4vJ3lWUiJGMjckJCEzdm1tOy8jKVtvUEYyJCIzPzglbzQtKmVBREZTNyQkITNoTExMJD1leEokRjIkIjNNIWVuKHAkM0w7I0YyNyQkITMqUkxMTHRJZiRIRjIkIjMvJ0d1I0c0aylwJEYyNyQkITNdKytdUFl4IlwjRjIkIjNmI1xzZipbRFRgRjI3JCQhM0dNTExMN2kpNCNGMiQiM1RKKXBydDI9aidGMjckJCEzZCoqKipcUCdwc20iRjIkIjNzcyhlc0woKXokeUYyNyQkITMoKSoqKipcNzRfYzdGMiQiM00vKHBXO21vdilGMjckJCEzKTNMTEwzeCV6IylGUyQiM09dMFFGOE9iJSpGMjckJCEzZktMJGU5ZDtKJ0ZTJCIzMmF6JkdZdERvKkYyNyQkITNKTUxMM3MkUU0lRlMkIjNXaFlVYk1MXCkqRjI3JCQhM1QsK11pdkZAQUZTJCIzIylRPCpSKW9hZyoqRjI3JCQhM1xeb21tO3pyKSohI0AkIjMleVNmI1E/IyoqKioqRjI3JCQiMyZ5SyQzX05sLjVGUyQiM3c+WjhbQSU+KioqRjI3JCQiM0BDTCQzLURnNSNGUyQiM0h4YnAxSWBrKipGMjckJCIzZT9MZSpbJ1IzS0ZTJCIzbjhAcjBWdDwqKkYyNyQkIjMlcEpMJGV6dzVWRlMkIjNSWUgoM1w5OyYpKkYyNyQkIjNMYG1tbUorSWlGUyQiM2ksP3dSO3EhcCpGMjckJCIzciopKioqXFBRI1wiKUZTJCIzTHlzKTNiWkFaKkYyNyQkIjNHS0xMZSIqW0g3RjIkIjM8WSMqUWVjJyozKSlGMjckJCIzSSoqKioqKipwdnhsIkYyJCIzLVN2MitiJT0neUYyNyQkIjMkeioqKipcX3FuMiNGMiQiM0d6aThLTVYpcCdGMjckJCIzVikqKipcaSZwQFsjRjIkIjNSYyM0ajZaWlAmRjI3JCQiM0IpKioqKlwyJ0hLSEYyJCIzPDdWcHhodzdQRjI3JCQiM0VsbW1tWnZPTEYyJCIzeGA5UC0ocFgzI0YyNyQkIjNoKioqKioqXDJnb1BGMiQiM0tbQXIuL3Q8REZTNyQkIjNVS0wkZVI8KmZURjIkITN2KSopcEQ6XSNbOUYyNyQkIjNtKioqKioqXClIeGUlRjIkITN5YiNlKnBKIlJIJEYyNyQkIjNja207SCFvLSpcRjIkITNHRihvJnpWLmhcRjI3JCQiM3kpKioqXDdrLjZhRjIkITNIaWoyQ2RBbGxGMjckJCIzI2VtbW1UOUMjZUYyJCEzJz1nTDVHXmsjekYyNyQkIjMyKioqKlxpISozYGlGMiQhMyZ6XFUuImVyXCEqRjI3JCQiM1htbSJ6XCVbZ2tGMiQhMyszYjFNaipRWCpGMjckJCIzJVFMTEwkKnp5bSdGMiQhM3hzSU8tQ19hKCpGMjckJCIzZExMM0ZlI1J4J0YyJCEzJnlmZUZyL1knKSpGMjckJCIzSUxMJDNzcip6b0YyJCEzZHFOMjsrOVYqKkYyNyQkIjMuTExlOXcsJylwRjIkITMvUXZuSV5jKSkqKkYyNyQkIjN3S0xMM04xIzQoRjIkITNLN2hQJGYjSCoqKipGMjckJCIzZ2w7YSlHSnM+KEYyJCEzJz49KjM+ZzJ1KipGMjckJCIzYyoqKlwobyEqUi10RjIkITNdIyl6NipHYDoiKipGMjckJCIzXkwkZSpbb2MydUYyJCEzPDk2cyRIMCwiKSpGMjckJCIzTW1tO0hZdDd2RjIkITNAWEsiZlYqM28nKkYyNyQkIjMiSEwkZWs2LDF4RjIkITM5IyllakVMdCZIKkYyNyQkIjNZKioqKioqKnAoRyoqeUYyJCEzRWluInl1byx4KUYyNyQkIjMpSExMM1UvMzcpRjIkITNRdWI2QnFVbHpGMjckJCIzXW1tbVQ2S1UkKUYyJCEzTEEjZUtOKyZHcEYyNyQkIjNhKioqKlxQJFsvYSlGMiQhMyUzMmcxaEIueiZGMjckJCIzZktMTExiZFEoKUYyJCEzK0pdcChSaitXJUYyNyQkIjNgbW0ielc/KVwqKUYyJCEzWSdmblUkUUVfRkYyNyQkIjNbKytdaWAxaCIqRjIkITNyMkBPb2ohcCN6RlM3JCQiM1orK0RKJmZARSpGMiQiMzgpRyJ5PS89Z0NGUzckJCIzWCsrKytQRGokKkYyJCIzIzNyJFxFWGFfOEYyNyQkIjNYKyt2b3lNayUqRjIkIjMjPTFLUD5PKEdERjI3JCQiM1crK11QP1dsJipGMiQiMyMpeipHWFpna3gkRjI3JCQiM0wrXTdHOjN1JypGMiQiM01TQzRAeD8qPiZGMjckJCIzQisrdj01cyN5KkYyJCIzXSl6NmBFNyI0bkYyNyQkIjM3K11QNDBPIiopKkYyJCIzOSo0NiI0InAmMyQpRjI3JEYtRi0tJSZDT0xPUkc2JiUkUkdCRyQiIzVGKyRGLEYrRmBobC0lK0FYRVNMQUJFTFNHNiRRIng2IlEhRmVobC0lJVZJRVdHNiQ7JCEjNUYrRl5obDskITJPT0NYJXkjKlI1ISM7JCIyQXYnPSZlKSoqUjVGYGlsLSUlRk9OVEc2JCUqSEVMVkVUSUNBR0ZfaGw=

restart;liste := [seq(i+(i-1),i=1..100)];

NiM+SSZsaXN0ZUc2IjdgcSIiIiIiJCIiJiIiKCIiKiIjNiIjOCIjOiIjPCIjPiIjQCIjQiIjRCIjRiIjSCIjSiIjTCIjTiIjUCIjUiIjVCIjViIjWCIjWiIjXCIjXiIjYCIjYiIjZCIjZiIjaCIjaiIjbCIjbiIjcCIjciIjdCIjdiIjeCIjeiIjIikiIyQpIiMmKSIjKCkiIyopIiMiKiIjJCoiIyYqIiMoKiIjKioiJCwiIiQuIiIkMCIiJDIiIiQ0IiIkNiIiJDgiIiQ6IiIkPCIiJD4iIiRAIiIkQiIiJEQiIiRGIiIkSCIiJEoiIiRMIiIkTiIiJFAiIiRSIiIkVCIiJFYiIiRYIiIkWiIiJFwiIiReIiIkYCIiJGIiIiRkIiIkZiIiJGgiIiRqIiIkbCIiJG4iIiRwIiIkciIiJHQiIiR2IiIkeCIiJHoiIiQiPSIkJD0iJCY9IiQoPSIkKj0iJCI+IiQkPiIkJj4iJCg+IiQqPg==

nops(liste);

NiMiJCsi

restart;liste1:=[seq(sqrt(i),i=1..10)];

NiM+SSdsaXN0ZTFHNiI3LCIiIiokIiIjI0YnRikqJCIiJEYqRikqJCIiJkYqKiQiIidGKiokIiIoRiosJEYoRilGLCokIiM1Rio=

liste2:=map(x->1-abs(cos(x)),liste1);

NiM+SSdsaXN0ZTJHNiI3LCwmIiIiRigtSSRjb3NHNiRJKnByb3RlY3RlZEdGLEkoX3N5c2xpYkdGJTYjRighIiIsJkYoRigtRio2IyokIiIjI0YoRjRGLywmRihGKC1GKjYjKiQiIiRGNUYoLCZGKEYoLUYqNiNGNEYoLCZGKEYoLUYqNiMqJCIiJkY1RigsJkYoRigtRio2IyokIiInRjVGKCwmRihGKC1GKjYjKiQiIihGNUYoLCZGKEYoLUYqNiMsJEYzRjRGKCwmRihGKC1GKjYjRjpGKCwmRihGKC1GKjYjKiQiIzVGNUYo

restart;Sum(i^(3/2),i=10..50);

NiMtSSRTdW1HNiRJKnByb3RlY3RlZEdGJkkoX3N5c2xpYkc2IjYkKiRJImlHRigjIiIkIiIjL0YrOyIjNSIjXQ==

sum(i^(3/2),i=10..50);

NiMsXnAqJCIjNSMiIiIiIiNGJSokIiM2RiZGKiokIiM3RiZGLCokIiM4RiZGLiokIiM5RiZGMCokIiM6RiZGMiokIiM7RiZGNCokIiM8RiZGNiokIiM9RiZGOCokIiM+RiZGOiokIiM/RiZGPCokIiNARiZGPiokIiNBRiZGQCokIiNCRiZGQiokIiNDRiZGRCokIiNERiZGRiokIiNFRiZGSCokIiNGRiZGSiokIiNHRiZGTCokIiNIRiZGTiokIiNJRiZGUCokIiNKRiZGUiokIiNLRiZGVCokIiNMRiZGViokIiNNRiZGWCokIiNORiZGWiokIiNPRiZGZm4qJCIjUEYmRmhuKiQiI1FGJkZqbiokIiNSRiZGXG8qJCIjU0YmRl5vKiQiI1RGJkZgbyokIiNVRiZGYm8qJCIjVkYmRmRvKiQiI1dGJkZmbyokIiNYRiZGaG8qJCIjWUYmRmpvKiQiI1pGJkZccCokIiNbRiZGXnAqJCIjXEYmRmBwKiQiI11GJkZicA==

restart;g:=x*sqrt(x+1)+ln(sqrt(x+1));

NiM+SSJnRzYiLCYqJkkieEdGJSIiIiwmRihGKUYpRikjRikiIiNGKS1JI2xuRzYkSSpwcm90ZWN0ZWRHRjBJKF9zeXNsaWJHRiU2IyokRipGK0Yp

f:=unapply(g,x);

NiM+SSJmRzYiZio2I0kieEdGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlLCYqJjkkIiIiLCZGLkYvRi9GLyNGLyIiI0YvLUkjbG5HNiRJKnByb3RlY3RlZEdGNkkoX3N5c2xpYkdGJTYjKiRGMEYxRi9GJUYlRiU=

siehe aufgabe 2 definition von tschebyschew

gemeinsamkeit kann fuer verschiedene x-werte verwendet werdenunterschied einfache funktionen (ohne if, for, while) mit f:=x-> komplizierte mit f := proc(x) ...

restart;with(stats);

NiM3KkkmYW5vdmFHNiJJKWRlc2NyaWJlR0YlSSRmaXRHRiVJK2ltcG9ydGRhdGFHRiVJJ3JhbmRvbUdGJUkqc3RhdGV2YWxmR0YlSSpzdGF0cGxvdHNHRiVJKnRyYW5zZm9ybUdGJQ==

xp := [1940,1950,1960,1970,1980,1990,2000];

NiM+SSN4cEc2IjcpIiVTPiIlXT4iJWc+IiVxPiIlISk+IiUhKj4iJSs/

fp := [132165,151326,179323,203302,226542,249633,274882];

NiM+SSNmcEc2IjcpIidsQDgiJ0U4OiInQiR6IiInLUw/IidVbEEiJ0wnXCMiJyMpW0Y=

ff := fit[leastsquare[[x,y], y=a*x+b, {a,b}]]([xp,fp]);

NiM+SSNmZkc2Ii9JInlHRiUsJkkieEdGJSMiJikqUikiI04jISlSIXk7JCIiKCIiIg==

f :=unapply(evalf(rhs(ff)), x);

NiM+SSJmRzYiZio2I0kieEdGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlLCY5JCQiK2RHJSoqUiMhIickIStWVFZEWCEiJCIiIkYlRiVGJQ==

plot(f(x),x=1930..2010);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JDdTNyQkIiVJPiIiISQiM3MrKzU1ZGJrNSEjNzckJCIzRExMTHNQdUo+ISM5JCIzdW9obFxfUzE2Ri83JCQiM3dtbUo+NUVMPkYzJCIzRE1kRDUkPUc5IkYvNyQkIjNMTExCQXQnXCQ+RjMkIjMkZjBCX2dvUD0iRi83JCQiM0JMTGpOXG9PPkYzJCIzPElzS1guKlxBIkYvNyQkIjNzbW1eJlElUlE+RjMkIjMzIUcncGxoLG03Ri83JCQiM1ZMTFFrI3oqUj5GMyQiM09jKltHTl9TSSJGLzckJCIzJioqKipcWUo/OyU+RjMkIjM4KGYuOmlPTU0iRi83JCQiM0JMTD0iXDxMJT5GMyQiMyNHLCdbKSl5OyVRIkYvNyQkIjMsKysmW0E0XSU+RjMkIjNXVyd5KEgmb1pVIkYvNyQkIjNkbW0nM1FcbiU+RjMkIjNpKUcsKXo3YG05Ri83JCQiM05MTEI2QEdbPkYzJCIzQXpKdktmSi46Ri83JCQiMyQqKioqKmYtdytdPkYzJCIzKFFrYiZSbnNXOkYvNyQkIjMhKioqKioqKnksdV4+RjMkIjMkSF40SmUyamUiRi83JCQiMywrK1NQKTRNJj5GMyQiM1s4bWhJJXlqaSJGLzckJCIzUExMPVpnI1wmPkYzJCIzMmcpMyEqZm1GbSJGLzckJCIzZm1tRW4qR24mPkYzJCIzN0ppd11jLjE8Ri83JCQiM2dtbTF4aURlPkYzJCIzRCRmOktAIXBVPEYvNyQkIjMwKytYLEguZz5GMyQiM3A/Iio+JD1HYHkiRi83JCQiM2htbTE6YmdoPkYzJCIzQUMwTzYrMkI9Ri83JCQiMywrK1hANExqPkYzJCIzKD5iNid5KHlXJz1GLzckJCIzMysrTjtSKFwnPkYzJCIzUHpcTjwoNFIhPkYvNyQkIjNrbW07NCMpb20+RjMkIjMmPmpjYHdeXSU+Ri83JCQiM2ZtbTZsQ0VvPkYzJCIzIWZieiYzSSRHKT5GLzckJCIzRkxMJEdeZypwPkYzJCIzLFxUWSQ9JmVCP0YvNyQkIjNSTEw9MlZzcj5GMyQiM3hcInoqUl8iZjEjRi83JCQiMyEqKioqXGBwZksoPkYzJCIzayFHNyd5T3ctQEYvNyQkIjNCTExqY3oiXCg+RjMkIjM7UT8kPStoRDkjRi83JCQiMywrKyFHNUptKD5GMyQiM15BKikpM2B2Tz0jRi83JCQiMzcrKzUjMzIkeT5GMyQiMyZvMiVRdyEpKlFBI0YvNyQkIjMzKytEeSdHKno+RjMkIjNQKlFidFg6R0UjRi83JCQiMy8rK0klPUg8KT5GMyQiM2g6QXB0bC0xQkYvNyQkIjNwbW0xPnFNJCk+RjMkIjM4JypHaCRvYFtNI0YvNyQkIjMyKysrLlcyJik+RjMkIjMhcCpRJDQiKjRqUSNGLzckJCIzQUxMZXAnUm0pPkYzJCIzXDBPXDlhKFFVI0YvNyQkIjMyKytTPjROKSk+RjMkIjMhMzhNQVZXXFkjRi83JCQiM2ptbTZzNScqKik+RjMkIjNpZ1hNeHJlLkRGLzckJCIzIyoqKipcYzlXOyo+RjMkIjNtVmVRISkqelJhI0YvNyQkIjNxbW1tZCcqRyQqPkYzJCIzazs0XEc4WiRlI0YvNyQkIjMvKytEY0IsJio+RjMkIjNubSMqMzVeIltpI0YvNyQkIjNJTEx0PjpuJyo+RjMkIjMudk1mJjNNWW0jRi83JCQiM1NMTC5hI28kKSo+RjMkIjN4KWZHI1JaTjBGRi83JCQiM3ZtbV5RNDArP0YzJCIzRTFBSDAjUWR1I0YvNyQkIjMsKyshMzooZiw/RjMkIjMkejZTbFRZR3kjRi83JCQiM3BtbWMlR3BMKyNGMyQiM1pAKCpHOW1QREdGLzckJCIzUkxMOC1WJlwrI0YzJCIzVUhKO0loVGpHRi83JCQiMyQqKioqXDlFV20rI0YzJCIzRXQncCEpPXVSIUhGLzckJCIzMysrOm88RTM/RjMkIjN4Q3lkQ016VUhGLzckJCIlNT9GLCQiMyYpKioqKnAmKio0WClIRi8tJSZDT0xPUkc2JiUkUkdCRyQiIzUhIiIkRixGYVtsRmJbbC0lK0FYRVNMQUJFTFNHNiRRIng2IlEhRmdbbC0lJVZJRVdHNiQ7JCIkJD4iIiIkIjEsKysrKys1P0YvOyQiMi8rKVFDbTpFNSEjNiQiMikpKj5UIjM0SC0kRmVcbC0lJUZPTlRHNiQlKkhFTFZFVElDQUdGYFts

f1:=abs(132165-f(1940));

NiM+SSNmMUc2IiQiKCsrciIhIiQ=

f2:=abs(151326-f(1950));

NiM+SSNmMkc2IiQiKEclR0ohIiQ=

f3:=abs(179323-f(1960));

NiM+SSNmM0c2IiQiJ1YicCkhIiQ=

f4:=abs(203302-f(1970));

NiM+SSNmNEc2IiQiJzooWykhIiQ=

f5:=abs(226542-f(1980));

NiM+SSNmNUc2IiQiJidHKikhIiQ=

f6:=abs(249633-f(1990));

NiM+SSNmNkc2IiQiJ1UiPikhIiQ=

f7:=abs(274882-f(2000));

NiM+SSNmN0c2IiQiJ0gvViEiJA==

Fehler:=(f1+f2+f3+f4+f5+f6+f7)/7;

NiM+SSdGZWhsZXJHNiIkIitydih5NyIhIic=

f(2005);

NiMkIiomR15rRyEiJA==

restart;tschebyschew := proc ( i , min , max ) return seq(1/2*((max-min)*cos((2*k-1)/(2*i)*Pi)+min+max),k=1..i); end proc:Length := proc(ll) return nops(ll); end proc: Last := proc(ll) return op(-1, ll); end proc: Append := proc(ll, x) return [op(ll), x]; end proc: Member := proc(ll, p) return op(p, ll); end proc: Take := proc(ll, n) if n > 0 then return [ op(1..n, ll) ] elif n < 0 then return [ op(n..-1, ll) ] end if; end proc: with(plots, listplot):lagrange := proc(xl, fl) local i, j, l, ll, pol; ll := []: pol := 0: i := 1: while i <= Length(xl) do l := 1; j := 1; while j <= Length(xl) do if j <> i then l := l*(x-Member(xl, j))/(Member(xl, i) - Member(xl, j)); end if; j := j+1; end do; ll := Append(ll, l); pol := pol + l*Member(fl, i); i := i+1; end do: return( sort( expand( pol ) ) ); end proc:f:=(x)->1/2*cos(x)+1/3*sin(2*x);

NiM+SSJmRzYiZio2I0kieEdGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlLCYtSSRjb3NHRiU2IzkkIyIiIiIiIy1JJHNpbkdGJTYjLCRGMEYzI0YyIiIkRiVGJUYl

mini:=0;

NiM+SSVtaW5pRzYiIiIh

maxi:=3;

NiM+SSVtYXhpRzYiIiIk

plot(f(x),x=mini..maxi);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JDdTNyQkIiIhRiskIjMrKysrKysrK10hIz03JCQiM3MqKioqKipcaTlSbCEjPiQiM04xOCswXixDYUYuNyQkIjMvKyt2VkEpR0EiRi4kIjMwbmJodz0iKXBkRi43JCQiMysrK11QZXVpPUYuJCIzI1I+cCVHITNvNydGLjckJCIzQSsrXWkzJm9dI0YuJCIzJiopemBhRTBlVydGLjckJCIzJSkqKipcKG9YKnk5JEYuJCIzJypHMUxmJSopcHInRi43JCQiM3oqKipcUDlDQXUkRi4kIjMzblw3JD4lSEFwRi43JCQiMyEpKioqXFAqemhkVkYuJCIzJ2YpKltrd3lQMyhGLjckJCIzMysrdiQ+ZlMqXEYuJCIzbV1KJXpgKDQjPihGLjckJCIzJCkqKipcKD0kZiVHY0YuJCIzUXdlKkc3X3NCKEYuNyQkIjNRKysrRHksIkcnRi4kIjM6IUchelpNWTpzRi43JCQiMzMrK103PHpib0YuJCIzakd5I0dkIVJQckYuNyQkIjNgKysrdjQmR10oRi4kIjMkPT0jKkhzKmUjKXBGLjckJCIzISkqKioqKlw3bkQ6KUYuJCIzTShvIVI+JCp6Ym5GLjckJCIzWisrK0QhKm95KClGLiQiM3k7cD1ENlhxa0YuNyQkIjMpKSoqKlxQcG5zTSpGLiQiMyY+NiRvYmcnZjonRi43JCQiMywrK11zaUwtNSEjPCQiMyZwdSRwWjk6O2RGLjckJCIzLCsrKyFSNSdmNUZocCQiM0dSKSkzYiZcMEgmRi43JCQiMykqKipcUC9RQkU2RmhwJCIzJzNOU0BKPChRWkYuNyQkIjMiKioqKioqXCJvPyY9IkZocCQiM2N2ZGx4eHouVUYuNyQkIjMyK11QYSY0Klw3RmhwJCIzaXV5bVY2VnNORi43JCQiMzMrXTdqPV82OEZocCQiM3ElUmp5W2tSJEhGLjckJCIzNCsrdlZ5IWVQIkZocCQiMzN3I1FRKSkqKmZCI0YuNyQkIjM0K10oPVdVW1YiRmhwJCIzRjAzNSlHNEhkIkYuNyQkIjMpKioqKlw3Qj4mKVwiRmhwJCIzQnhSI0hrPUNUKUYyNyQkIjMpKioqXFA+Om1rOkZocCQiM2VyOjFtTTpkciEjPzckJCIzJyoqKlxpdiZRQWkiRmhwJCEzWTs+SDVWVCUqZkYyNyQkIjMxKyt2dExVJW8iRmhwJCEzIypbTSZ5ckJ6SiJGLjckJCIzISoqKioqKlxObSdbPEZocCQhM3Z6eCcpPWBoWD9GLjckJCIzIioqKipcKHliXjY9RmhwJCEzY2NicyVbQGJ0I0YuNyQkIjMpKioqXFBNYUtzPUZocCQhM0tUQm1TJ1xhUCRGLjckJCIzJioqKipcN1RXKVI+RmhwJCEzW18yVWdaZFlTRi43JCQiM3oqKioqKlxAODArI0ZocCQhM01eRjooR3h6ZyVGLjckJCIzMCsrXTcsSGw/RmhwJCEzanZ3JVsjMyR5OiZGLjckJCIzJykqKlxQNHcpUjcjRmhwJCEzNkNILkhxSTJjRi43JCQiMzwrK114JWYiKT0jRmhwJCEzKUcreW5FJkhUZ0YuNyQkIjMhKSoqXFAvLWFbQUZocCQhM0tZV0E3U2IiUidGLjckJCIzLytdKD1ZYjtKI0ZocCQhM1kvJUhweEZacCdGLjckJCIzKCkqKioqXGlAT3RCRmhwJCEzOS1pPXphMkZwRi43JCQiMycpKipcUGZMJ3pWI0ZocCQhM1ZPKCo9blBOLHJGLjckJCIzPisrKyEqPj0rREZocCQhMy40OlNxQ0wtc0YuNyQkIjMuKytERSY0UWMjRmhwJCEzKEdRRyE0ZlhRc0YuNyQkIjM9K11QJT41cGkjRmhwJCEzd3YlPUdGPSkzc0YuNyQkIjM5KysrYkoqW28jRmhwJCEzPUtQLno+PUVyRi43JCQiMzQrK0RyIls4diNGaHAkITN5Pl4xcU5dcHBGLjckJCIzKysrK0lqeTVHRmhwJCEzXXlEISlRMChveCdGLjckJCIzMitdUC8pZlQoR0ZocCQhM15eVlQnSFo4XydGLjckJCIzMStdaTBqIlskSEZocCQhM2hja2lmJFJJQidGLjckJCIiJEYrJCEzQ1knKSpwWlo4KWVGLi0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiRGK0ZiW2xGY1tsLSUrQVhFU0xBQkVMU0c2JFEieDYiUSFGaFtsLSUlVklFV0c2JDtGY1tsJCIjSUZiW2w7JCExb29tcCsoel8oISM7JCIxaVZgJEdtbl8oRmNcbC0lJUZPTlRHNiQlKkhFTFZFVElDQUdGYVts

li01:=[0,1,2,3];

NiM+SSVsaTAxRzYiNyYiIiEiIiIiIiMiIiQ=

li02:=evalf(map(f,li01));

NiM+SSVsaTAyRzYiNyYkIisrKysrXSEjNSQiK19IXUtkRikkISttIjRNZyVGKSQhK3h1TSIpZUYp

P04:=unapply(simplify(lagrange(li01,li02)),x);

NiM+SSRQMDRHNiJmKjYjSSJ4R0YlRiU2JEkpb3BlcmF0b3JHRiVJJmFycm93R0YlRiUsKiokOSQiIiQkIitZIilSYUwhIzUqJEYuIiIjJCErKD5TKGY6ISIqRi4kIit5MWIoSCJGNyQiKysrKytdRjIiIiJGJUYlRiU=

plot({f(x)-P04(x)},x=0..3);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JDdpbzckJCIiIUYrRio3JCQiMyQqKioqKlxpbHlNOyEjPiQhMzJGQypmOiIpcCcqKiEjPzckJCIzJykqKioqKlw3dCZwS0YvJCEzYyg+UXIhPlZEPkYvNyQkIjN6KioqKlwob2ZWIVxGLyQhMz9CJCo0YylRIyl5I0YvNyQkIjNzKioqKioqXGk5UmxGLyQhMypcLTFoUV1yZSRGLzckJCIzMisrdlZWKVJRKkYvJCEzRm9KVj0oeTUkW0YvNyQkIjMvKyt2VkEpR0EiISM9JCEzIVJOIUdqQEMpKmVGLzckJCIzOytdaVNTIkdhIkZKJCEzJFw0IWUsIXAtIXBGLzckJCIzKysrXVBldWk9RkokITMubHl4eSF5bnEoRi83JCQiMzcrKytdJCl6JT0jRkokITNNYjo1YFUpZUwpRi83JCQiM0ErK11pMyZvXSNGSiQhMzNmcCgqPmU8J3opRi83JCQiMy4rXWk6RlBGR0ZKJCEzNjhMZW0kPTM1KkYvNyQkIjMlKSoqKlwob1gqeTkkRkokITNDNSVRKT4hUWhFKkYvNyQkIjNxKipcaWxkPUFLRkokITM8NiIpSD16KmZHKkYvNyQkIjM3KytdaXBaJ0gkRkokITNHNk9nNCVlIypIKkYvNyQkIjMnKioqXFBmIm8yUCRGSiQhM0ZHIXk1UCMzMSQqRi83JCQiMyIpKioqXGlOZl1XJEZKJCEzK2B0ITNhSm1JKkYvNyQkIjNfKioqKioqXDxrJGYkRkokITM+Zy8kKVxtYSpHKkYvNyQkIjN6KioqXFA5Q0F1JEZKJCEzbGZ3cWJURlwjKkYvNyQkIjMhKSoqKlwobzUjKlxTRkokITNfImZVWTo+djQqRi83JCQiMyEpKioqXFAqemhkVkZKJCEzRXYiKXAneSlcaSkpRi83JCQiMzMrK3YkPmZTKlxGSiQhM0xELD0hR1dtOilGLzckJCIzJCkqKipcKD0kZiVHY0ZKJCEzeUAyPkZnJSlHc0YvNyQkIjNRKysrRHksIkcnRkokITNhS29bUihSSjcnRi83JCQiMzMrK103PHpib0ZKJCEzPSMqb0hURnoiMyZGLzckJCIzYCsrK3Y0JkddKEZKJCEzKUdhKFEkUjJHKlFGLzckJCIzISkqKioqKlw3bkQ6KUZKJCEzWjpAVyY0YVh0I0YvNyQkIjNaKysrRCEqb3koKUZKJCEzNy5WX2pnMSZwIkYvNyQkIjMpKSoqKlxQcG5zTSpGSiQhMzRMMnUjPj4rVylGMjckJCIzLCsrXXNpTC01ISM8JCIzO1wsKW8wTU50IyEjQDckJCIzLCsrKyFSNSdmNUZodCQiMzNKP0trInkqPWpGMjckJCIzKSoqKlxQL1FCRTZGaHQkIjNJencoKTQ/SXM2Ri83JCQiMyIqKioqKipcIm8/Jj0iRmh0JCIzTGdnJG8vRFFdIkYvNyQkIjMpKSpcKG8lPWV2QCJGaHQkIjNdJHBCJzRjc0c7Ri83JCQiMzIrXVBhJjQqXDdGaHQkIjNvYV8oM0EkKVxyIkYvNyQkIjMyKyt2M2RyIUciRmh0JCIzTD82I0c7dkd3IkYvNyQkIjMzK103aj1fNjhGaHQkIjMoSDRMOXV6I3o8Ri83JCQiMz4rdlZgW21WOEZodCQiMzcwMDtoeTxsPEYvNyQkIjM0Kyt2VnkhZVAiRmh0JCIzYiJ5Ym9vNj5zIkYvNyQkIjM0K10oPVdVW1YiRmh0JCIzIylHWipRb3dtZCJGLzckJCIzKSoqKipcN0I+JilcIkZodCQiMzUlUmJOSG1cTSJGLzckJCIzKSoqKlxQPjptazpGaHQkIjNeYS5eL2FGXjVGLzckJCIzJyoqKlxpdiZRQWkiRmh0JCIzZykqKWVbSXQpcHhGMjckJCIzMSsrdnRMVSVvIkZodCQiMyJvVUtXJyoqPXhbRjI3JCQiMyEqKioqKipcTm0nWzxGaHQkIjNiNCQqPiRcLTZDI0YyNyQkIjMiKioqKlwoeWJeNj1GaHQkIjMkXDVUYkNkU28jRlt1NyQkIjMmKipcaWxdPz4lPUZodCQhM1olPT5IY3pvLCVGW3U3JCQiMykqKipcUE1hS3M9Rmh0JCEzN1RdSylbIVJgJilGW3U3JCQiMzMrRCJHI1wzMT5GaHQkITNcLyd6biNwUyIzIkYyNyQkIjMmKioqKlw3VFcpUj5GaHQkITNJSmZ2YyZHI0gqKkZbdTckJCIzKioqKlw3OCl5LCg+Rmh0JCEzJyo9YnV2R2EmSCdGW3U3JCQiM3oqKioqKlxAODArI0ZodCQiM0ZNOVl3MStDOCEjQTckJCIzMCsrXTcsSGw/Rmh0JCIzIWZoMl15UyNbQkYyNyQkIjMnKSoqXFA0dylSNyNGaHQkIjNRdExiRWVfKGYmRjI3JCQiMzwrK114JWYiKT0jRmh0JCIzbj8lZWheUUAuIkYvNyQkIjMhKSoqXFAvLWFbQUZodCQiMzlwNVB6KnBhZCJGLzckJCIzLytdKD1ZYjtKI0ZodCQiM11IOUsjKSozVUEjRi83JCQiMygpKioqKlxpQE90QkZodCQiM1VWZDk2Ni40SEYvNyQkIjMnKSoqXFBmTCd6ViNGaHQkIjMrKXpMRCc+dVFPRi83JCQiMz4rKyshKj49K0RGaHQkIjNCK1UpKkd0dzBWRi83JCQiMy4rK0RFJjRRYyNGaHQkIjNRI3lWdSV5QyQqW0YvNyQkIjM1K0RKZylmYGYjRmh0JCIzeUgzej9OY0deRi83JCQiMz0rXVAlPjVwaSNGaHQkIjMiSExcWi9eWkomRi83JCQiMzsrdm91OyFmbCNGaHQkIjM3J2UjcDEmKUdNYUYvNyQkIjM5KysrYkoqW28jRmh0JCIzP1JqRzBiUydcJkYvNyQkIjM4K0QxNHBdLEZGaHQkIjNPKmZXIXpuKEhdJkYvNyQkIjM2K103ajE3PUZGaHQkIjMpKW95a0ciR2tbJkYvNyQkIjM1K3Y9PFd0TUZGaHQkIjMnW3Q2RzpRXlcmRi83JCQiMzQrK0RyIls4diNGaHQkIjNKSkk9UjpYeGBGLzckJCIzMCtdaV1zMSJ5I0ZodCQiMzt0WzZYMz4mPSZGLzckJCIzKysrK0lqeTVHRmh0JCIzOWMqSHIyREoqW0YvNyQkIjMuK3Y9bklaVUdGaHQkIjNnKnomXEtiRWdXRi83JCQiMzIrXVAvKWZUKEdGaHQkIjNeUm8+X0xiKilRRi83JCQiMyYpKioqKipcMClbL0hGaHQkIjMvYD1hIUgiNC1LRi83JCQiMzErXWkwaiJbJEhGaHQkIjNlKHo0XyVvYmtCRi83JCQiM0UrRCJHOjN1J0hGaHQkIjN4cTd3Wil6TUciRi83JCQiIiRGKyQhMyM+bGZYIVInKSoqRyEjRS0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiRGK0ZfZGxGYGRsLSUrQVhFU0xBQkVMU0c2JFEieDYiUSFGZWRsLSUlVklFV0c2JDtGYGRsJCIjSUZfZGw7JCExI1Ivc3FCR2cqRmh0JCIxUTtXWCpvIip6JkZodC0lJUZPTlRHNiQlKkhFTFZFVElDQUdGXmRs

fehler:=abs(evalf(f(x))-P04(x));

NiM+SSdmZWhsZXJHNiItSSRhYnNHSSpwcm90ZWN0ZWRHRig2IywuLUkkY29zRzYkRihJKF9zeXNsaWJHRiU2I0kieEdGJSQiKysrKytdISM1LUkkc2luR0YtNiMsJEYwJCIiIyIiISQiK0xMTExMRjMqJEYwIiIkJCErWSIpUmFMRjMqJEYwRjkkIisoPlMoZjohIipGMCQhK3kxYihIIkZEJCErKysrK11GMyIiIg==

plot(fehler,x=0..3);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JDdkcTckJCIiIUYrRio3JCQiM2wqKioqXDdHJFI8KSEjPyQiM040MVNPOXNwXUYvNyQkIjMkKioqKipcaWx5TTshIz4kIjMnNDYjM2Q2KXAnKipGLzckJCIzISoqKipcUCUpekBYI0Y1JCIzPmUkND8zTCVwOUY1NyQkIjMnKSoqKioqXDd0JnBLRjUkIjNLQmdOMj5WRD5GNTckJCIzeioqKipcKG9mViFcRjUkIjMzaWRVYylRIyl5I0Y1NyQkIjNzKioqKioqXGk5UmxGNSQiMyNHdFNsUV1yZSRGNTckJCIzZStdKG9IbDonekY1JCIzeTkjKTM2Mig9QiVGNTckJCIzMisrdlZWKVJRKkY1JCIzNi9eMD4oeTUkW0Y1NyQkIjMmKipcaSFSLmshMyIhIz0kIjMpb0JTRy4oNCdRJkY1NyQkIjMvKyt2VkEpR0EiRlkkIjNDM3Yza0BDKSplRjU3JCQiMygqKlwoPVUiW0dRIkZZJCIzOi0uJnk1OFlVJ0Y1NyQkIjM7K11pU1MiR2EiRlkkIjNHJ1IjZi0hcC0hcEY1NyQkIjMzK0QxUip6RnEiRlkkIjNiLCpwbiIqW3FLKEY1NyQkIjMrKytdUGV1aT1GWSQiM0VzNioqeiF5bnEoRjU3JCQiMzcrKytdJCl6JT0jRlkkIjNUckBeYVUpZUwpRjU3JCQiM0ErK11pMyZvXSNGWSQiM0tiIXo6I2U8J3opRjU3JCQiMy4rXWk6RlBGR0ZZJCIzSXQkcCRvJD0zNSpGNTckJCIzJSkqKipcKG9YKnk5JEZZJCIzImU0LD0tUWhFKkY1NyQkIjNxKipcaWxkPUFLRlkkIjNCKWYrLiN6KmZHKkY1NyQkIjM3KytdaXBaJ0gkRlkkIjMnelpYO1RlIypIKkY1NyQkIjMnKioqXFBmIm8yUCRGWSQiM1A+KWVKUCMzMSQqRjU3JCQiMyIpKioqXGlOZl1XJEZZJCIzQS1tI0hhSm1JKkY1NyQkIjNuKipcN2AwTj5ORlkkIjMhKXkjKj4sbDEsJCpGNTckJCIzXyoqKioqKlw8ayRmJEZZJCIzeUVfLV9tYSpHKkY1NyQkIjMlKioqXChvJUgkem0kRlkkIjMheTA/Xj9JQUYqRjU3JCQiM3oqKipcUDlDQXUkRlkkIjNpKilmKHo6dSNcIypGNTckJCIzISkqKipcKG81IypcU0ZZJCIzP1xvMGQiPnY0KkY1NyQkIjMhKSoqKlxQKnpoZFZGWSQiM1U3I1wjKnkpXGkpKUY1NyQkIjNBKyt2JGZRZW4lRlkkIjNtWid5PmFsSGEpRjU3JCQiMzMrK3YkPmZTKlxGWSQiM08kKUcpSEdXbTopRjU3JCQiM10rK0RjI2Y3SiZGWSQiM1k9PnpZaWs6eEY1NyQkIjMkKSoqKlwoPSRmJUdjRlkkIjN2cSMqPklnJSlHc0Y1NyQkIjM2K10oPWRRWiZmRlkkIjMjSGo9emtDLnAnRjU3JCQiM1ErKytEeSwiRydGWSQiMyplZWNFdVJKNydGNTckJCIzQysrdm9aU29sRlkkIjMheioqM0hXM3JnJkY1NyQkIjMzKytdNzx6Ym9GWSQiM0lNU2NXRnoiMyZGNTckJCIzSisrdlY4S3pyRlkkIjN0T2NqPCkzaFslRjU3JCQiM2ArKyt2NCZHXShGWSQiMyUzbTduUjJHKlFGNTckJCIzPCsrK10hNHgjeUZZJCIzaCVSKD1KPjcxTEY1NyQkIjMhKSoqKioqXDduRDopRlkkIjNIKVxwKCk0YVh0I0Y1NyQkIjM5KysrdiFHY1kpRlkkIjNzQFYqeig0Ny5BRjU3JCQiM1orKytEISpveSgpRlkkIjNJJHorbzFtXXAiRjU3JCQiMz0rXVBmJHlIMSpGWSQiMzsmeWpsI1w3ZDdGNTckJCIzKSkqKipcUHBuc00qRlkkIjN5I2UpZkMjPitXKUYvNyQkIjNlK11QNF9KJm8qRlkkIjNUd0pqeiwzelFGLzckJCIzLCsrXXNpTC01ISM8JCIzIUc+TFd2TE50IyEjQDckJCIzLCsrREpMKDQuIkZdeiQiM1VYYVMjZjNfWCRGLzckJCIzLCsrKyFSNSdmNUZdeiQiMyxIcyhlOHkqPWpGLzckJCIzKSoqKlxQL1FCRTZGXXokIjM4JEcqRzI/SXM2RjU3JCQiMyIqKioqKipcIm8/Jj0iRl16JCIzQWpGXlddI1FdIkY1NyQkIjMpKSpcKG8lPWV2QCJGXXokIjNVQylmdWdEKEc7RjU3JCQiMzIrXVBhJjQqXDdGXXokIjMvdCl6KT1LKVxyIkY1NyQkIjMyKyt2M2RyIUciRl16JCIzRzpSKjQ7dkd3IkY1NyQkIjMzK103aj1fNjhGXXokIjNxTzV5Uih6I3o8RjU3JCQiMz4rdlZgW21WOEZdeiQiMyFIJnlwZnk8bDxGNTckJCIzNCsrdlZ5IWVQIkZdeiQiMypIZCllJm82PnMiRjU3JCQiMykqKlw3RzlEYFMiRl16JCIzRz8ieS0ucSFmO0Y1NyQkIjM0K10oPVdVW1YiRl16JCIzekwmKipIb3dtZCJGNTckJCIzKSoqKipcN0I+JilcIkZdeiQiMyZbQ3ZJSG1cTSJGNTckJCIzKSoqKlxQPjptazpGXXokIjMqUVhwV1N2NzAiRjU3JCQiMycqKipcaXYmUUFpIkZdeiQiM0sjUSNHM0woKXB4Ri83JCQiMzErK3Z0TFUlbyJGXXokIjNfakclPigqKj14W0YvNyQkIjMhKioqKioqXE5tJ1s8Rl16JCIzd0wiNFtdLTZDI0YvNyQkIjMtK10obyc0NCF5IkZdeiQiM2ZPSklqTm1rNkYvNyQkIjMiKioqKlwoeWJeNj1GXXokIjNmIj4kKikqUmRTbyNGYHo3JCQiMyYqKlxpbF0/PiU9Rl16JCIzOSl5JyozUnpvLCVGYHo3JCQiMykqKipcUE1hS3M9Rl16JCIzZkI9RipIIVJgJilGYHo3JCQiMzMrRCJHI1wzMT5GXXokIjNJal0xMXBTIjMiRi83JCQiMyYqKioqXDdUVylSPkZdeiQiMzMlemZDTEcjSCoqRmB6NyQkIjMqKioqXDc4KXksKD5GXXokIjMjPk05cGpVYkgnRmB6NyQkIjN6KioqKipcQDgwKyNGXXokIjN6WF1QLEsrQzghI0E3JCQiM3EqKipcUG0sSC4jRl16JCIzO19rO1lxbjo1Ri83JCQiMzArK103LEhsP0ZdeiQiM0RdayZHIjNDW0JGLzckJCIzJykqKlxQNHcpUjcjRl16JCIzQytpTmNlXyhmJkYvNyQkIjM8KytdeCVmIik9I0ZdeiQiM2pEYEk+JlFALiJGNTckJCIzISkqKlxQLy1hW0FGXXokIjNdJ1tGRSkqcGFkIkY1NyQkIjMvK10oPVliO0ojRl16JCIzMT07ayYpKjNVQSNGNTckJCIzKCkqKioqXGlAT3RCRl16JCIzL0JyWjk2LjRIRjU3JCQiMycpKipcUGZMJ3pWI0ZdeiQiMyhRakFlJz51UU9GNTckJCIzPisrKyEqPj0rREZdeiQiM0Y1Lj1LdHcwVkY1NyQkIjMuKytERSY0UWMjRl16JCIzKWUoUVxdeUMkKltGNTckJCIzNStESmcpZmBmI0ZdeiQiM2tpK3ZCTmNHXkY1NyQkIjM9K11QJT41cGkjRl16JCIzTSMqZWdaNXY5YEY1NyQkIjNSXTdgTWZTVEVGXXokIjNfUVpXbSoqPiJRJkY1NyQkIjM7K3ZvdTshZmwjRl16JCIzZiV5VyU0JilHTWFGNTckJCIzIypcUCVbVChScUVGXXokIjM4WDR3JUdGSVomRjU3JCQiMzkrKytiSipbbyNGXXokIjNrUlwjel0wa1wmRjU3JCQiMzddNy5LKz8kcCNGXXokIjMiNENkZTkiWy1iRjU3JCQiMzgrRDE0cF0sRkZdeiQiM2AqNDk7eXdIXSZGNTckJCIzN11QNCd5OCk0RkZdeiQiM3E7M2J6SHAoXCZGNTckJCIzNitdN2oxNz1GRl16JCIzZ0VhOUoiR2tbJkY1NyQkIjM1K3Y9PFd0TUZGXXokIjMmel1NXzpRXlcmRjU3JCQiMzQrK0RyIls4diNGXXokIjMyVyVHOmFedVAmRjU3JCQiMzArXWldczEieSNGXXokIjMsQ2FKWjM+Jj0mRjU3JCQiMysrKytJank1R0ZdeiQiMyV6Ino8el03JCpbRjU3JCQiMy4rdj1uSVpVR0ZdeiQiM11gSVBNYkVnV0Y1NyQkIjMyK11QLylmVChHRl16JCIzI1sjZipRTmAmKilRRjU3JCQiMyYpKioqKipcMClbL0hGXXokIjNBOFMxI0giNC1LRjU3JCQiMzErXWkwaiJbJEhGXXokIjNGWyRcbCVvYmtCRjU3JCQiMyUqXCg9I0hBNl5IRl16JCIzJD1aaW0lPU9bPUY1NyQkIjNFK0QiRzozdSdIRl16JCIzTEYhKiopWyl6TUciRjU3JCQiMzhdaVN3U3EkKUhGXXokIjNhKlw7UlY2K28nRi83JCQiIiRGKyQiM1V3MWxsL2IhKkchI0UtJSZDT0xPUkc2JiUkUkdCRyQiIzUhIiIkRitGZlxtRmdcbS0lK0FYRVNMQUJFTFNHNiRRIng2IlEhRlxdbS0lJVZJRVdHNiQ7RmdcbSQiI0lGZlxtOyQhMi9LJmUzaktoPUY1JCIxTV55dFR3I1wqRl16LSUlRk9OVEc2JCUqSEVMVkVUSUNBR0ZlXG0=

li11:=[evalf(tschebyschew(4,mini,maxi))];

NiM+SSVsaTExRzYiNyYkIisqSD5lKUchIiokIitcXi11P0YpJCIrNyZbKGYjKiEjNSQiKiwyPTkiRik=

li12:=map(f,li11);

NiM+SSVsaTEyRzYiNyYkISsvWzRwayEjNSQhK1x6dkZfRikkIit2QnQyaUYpJCIrOiNbP3MmRik=

P4:=unapply(simplify(lagrange(li11,li12)),x);

NiM+SSNQNEc2ImYqNiNJInhHRiVGJTYkSSlvcGVyYXRvckdGJUkmYXJyb3dHRiVGJSwqKiQ5JCIiJCQiK2UqKTQnXCQhIzUqJEYuIiIjJCErayY+dmkiISIqRi4kIitFWFQ2OUY3JCIrSVdZPFZGMiIiIkYlRiVGJQ==

plot({f(x),P4(x)},x=mini..maxi);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JTdTNyQkIiIhRiskIjMhKSoqKioqKkhXWTxWISM9NyQkIjNzKioqKioqXGk5UmwhIz4kIjNoNCJvZTokenJeRi43JCQiMy8rK3ZWQSlHQSJGLiQiMyNwJjRtSmRZMWVGLjckJCIzKysrXVBldWk9Ri4kIjNvM2ZhNHRXL2tGLjckJCIzQSsrXWkzJm9dI0YuJCIzPTRjMSVwa3opb0YuNyQkIjMlKSoqKlwob1gqeTkkRi4kIjNhLyUzXSlcdmNzRi43JCQiM3oqKipcUDlDQXUkRi4kIjNIbloxTGpILnZGLjckJCIzISkqKipcUCp6aGRWRi4kIjNkdXIncEgpb213Ri43JCQiMzMrK3YkPmZTKlxGLiQiM1NMJ3ovdXNDdShGLjckJCIzJCkqKipcKD0kZiVHY0YuJCIzKD1cL21WQiFIeEYuNyQkIjNRKysrRHksIkcnRi4kIjMhKlJMREl3OEd3Ri43JCQiMzMrK103PHpib0YuJCIzPmBZQDVqdXF1Ri43JCQiM2ArKyt2NCZHXShGLiQiM0FwZlhgeCQ+QShGLjckJCIzISkqKioqKlw3bkQ6KUYuJCIzIz1cX2QnPkgscEYuNyQkIjNaKysrRCEqb3koKUYuJCIzXyQpKlF3Wj0wYCdGLjckJCIzKSkqKipcUHBuc00qRi4kIjMlSFZMNFV0YzknRi43JCQiMywrK11zaUwtNSEjPCQiMzF6d28iKkciUmomRi43JCQiMywrKyshUjUnZjVGaHAkIjMjUWAxTy81KmVeRi43JCQiMykqKipcUC9RQkU2RmhwJCIzJ29EQicpZUpTYyVGLjckJCIzIioqKioqKlwibz8mPSJGaHAkIjNdX1glKipHNFUrJUYuNyQkIjMyK11QYSY0Klw3RmhwJCIzeF8/QlBCUmZMRi43JCQiMzMrXTdqPV82OEZocCQiM1wtTyczP18xcyNGLjckJCIzNCsrdlZ5IWVQIkZocCQiMz01TGFWdShRLiNGLjckJCIzNCtdKD1XVVtWIkZocCQiM1tVM2ZYZmoqUSJGLjckJCIzKSoqKipcN0I+JilcIkZocCQiMycqXD5NKWYuRyZvRjI3JCQiMykqKipcUD46bWs6RmhwJCEzTk0qeW1KI28xXiEjPzckJCIzJyoqKlxpdiZRQWkiRmhwJCEzKm9nYz9OeEkicEYyNyQkIjMxKyt2dExVJW8iRmhwJCEzW3dTaXIlZnJQIkYuNyQkIjMhKioqKioqXE5tJ1s8RmhwJCEzJmZeJ0gmeV1WMiNGLjckJCIzIioqKipcKHliXjY9RmhwJCEzOz5dMTkjZSpSRkYuNyQkIjMpKioqXFBNYUtzPUZocCQhM3ExJVE1ckxOTyRGLjckJCIzJioqKipcN1RXKVI+RmhwJCEzNSdHZ25kcmwtJUYuNyQkIjN6KioqKipcQDgwKyNGaHAkITNLTiFwIjQzKDNmJUYuNyQkIjMwKytdNyxIbD9GaHAkITN5LnZRY24sYl5GLjckJCIzJykqKlxQNHcpUjcjRmhwJCEzJXkkekAjekx0aSZGLjckJCIzPCsrXXglZiIpPSNGaHAkITNNTUNJJkhGaTQnRi43JCQiMyEpKipcUC8tYVtBRmhwJCEzbSMqUVBZLksoWydGLjckJCIzLytdKD1ZYjtKI0ZocCQhM0QoUVA1VigzUm9GLjckJCIzKCkqKioqXGlAT3RCRmhwJCEzJUdfcSo9S2xAckYuNyQkIjMnKSoqXFBmTCd6ViNGaHAkITNFVnQ5M2wyWnRGLjckJCIzPisrKyEqPj0rREZocCQhM09uKkgxIyk0NFwoRi43JCQiMy4rK0RFJjRRYyNGaHAkITM7dEJQUyczJGV2Ri43JCQiMz0rXVAlPjVwaSNGaHAkITMxRE9sPzlHU3ZGLjckJCIzOSsrK2JKKltvI0ZocCQhM0VBV1JiNm5XdUYuNyQkIjM0KytEciJbOHYjRmhwJCEzb15jYTBaY09zRi43JCQiMysrKytJank1R0ZocCQhM0dyaXZZeVljcEYuNyQkIjMyK11QLylmVChHRmhwJCEzKCpRJCo9IUhWXGInRi43JCQiMzErXWkwaiJbJEhGaHAkITMscWUqcGJlajEnRi43JCQiIiRGKyQhMykqKioqKipSbyk9QWFGLjdTNyRGKiQiMysrKysrKysrXUYuNyRGMCQiM04xOCswXixDYUYuNyRGNiQiMzBuYmh3PSIpcGRGLjckRjskIjMjUj5wJUchM283J0YuNyRGQCQiMyYqKXpgYUUwZVcnRi43JEZFJCIzJypHMUxmJSopcHInRi43JEZKJCIzM25cNyQ+JUhBcEYuNyRGTyQiMydmKSpba3d5UDMoRi43JEZUJCIzbV1KJXpgKDQjPihGLjckRlkkIjNRd2UqRzdfc0IoRi43JEZobiQiMzohRyF6Wk1ZOnNGLjckRl1vJCIzakd5I0dkIVJQckYuNyRGYm8kIjMkPT0jKkhzKmUjKXBGLjckRmdvJCIzTShvIVI+JCp6Ym5GLjckRlxwJCIzeTtwPUQ2WHFrRi43JEZhcCQiMyY+NiRvYmcnZjonRi43JEZmcCQiMyZwdSRwWjk6O2RGLjckRlxxJCIzR1IpKTNiJlwwSCZGLjckRmFxJCIzJzNOU0BKPChRWkYuNyRGZnEkIjNjdmRseHh6LlVGLjckRltyJCIzaXV5bVY2VnNORi43JEZgciQiM3ElUmp5W2tSJEhGLjckRmVyJCIzM3cjUVEpKSoqZkIjRi43JEZqciQiM0YwMzUpRzRIZCJGLjckRl9zJCIzQnhSI0hrPUNUKUYyNyRGZHMkIjNlcjoxbU06ZHJGaHM3JEZqcyQhM1k7Pkg1VlQlKmZGMjckRl90JCEzIypbTSZ5ckJ6SiJGLjckRmR0JCEzdnp4Jyk9YGhYP0YuNyRGaXQkITNjY2JzJVtAYnQjRi43JEZedSQhM0tUQm1TJ1xhUCRGLjckRmN1JCEzW18yVWdaZFlTRi43JEZodSQhM01eRjooR3h6ZyVGLjckRl12JCEzanZ3JVsjMyR5OiZGLjckRmJ2JCEzNkNILkhxSTJjRi43JEZndiQhMylHK3luRSZIVGdGLjckRlx3JCEzS1lXQTdTYiJSJ0YuNyRGYXckITNZLyVIcHhGWnAnRi43JEZmdyQhMzktaT16YTJGcEYuNyRGW3gkITNWTygqPW5QTixyRi43JEZgeCQhMy40OlNxQ0wtc0YuNyRGZXgkITMoR1FHITRmWFFzRi43JEZqeCQhM3d2JT1HRj0pM3NGLjckRl95JCEzPUtQLno+PUVyRi43JEZkeSQhM3k+XjFxTl1wcEYuNyRGaXkkITNdeUQhKVEwKG94J0YuNyRGXnokITNeXlZUJ0haOF8nRi43JEZjeiQhM2hja2lmJFJJQidGLjckRmh6JCEzQ1knKSpwWlo4KWVGLi0lJkNPTE9SRzYpJSRSR0JHJCIjNSEiIiRGK0ZmZGxGZ2RsRmdkbEZkZGxGZ2RsLSUrQVhFU0xBQkVMU0c2JFEieDYiUSFGXGVsLSUlVklFV0c2JDtGZ2RsJCIjSUZmZGw7JCExOSUqKXpFQ1YneSEjOyQiMXVtNG8kKVtbISlGZ2VsLSUlRk9OVEc2JCUqSEVMVkVUSUNBR0ZlZGw=

feh4:=unapply(abs(evalf(f(x))-P4(x)),x);

NiM+SSVmZWg0RzYiZio2I0kieEdGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlLUkkYWJzR0kqcHJvdGVjdGVkR0YuNiMsLi1JJGNvc0c2JEYuSShfc3lzbGliR0YlNiM5JCQhKysrKytdISM1LUkkc2luR0YzNiMsJEY2JCIiIyIiISQhK0xMTExMRjkqJEY2IiIkJCIrZSopNCdcJEY5KiRGNkY/JCErayY+dmkiISIqRjYkIitFWFQ2OUZKJCIrSVdZPFZGOSIiIkYlRiVGJQ==

plot(feh4(x),x=mini..maxi);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JDdedDckJCIiIUYrJCIzLS0rKytkTkRvISM+NyQkIjNsKioqKlw3RyRSPCkhIz8kIjM8VjBsJDRrZEEnRi43JCQiMyQqKioqKlxpbHlNO0YuJCIzWFZvbEUoPlZrJkYuNyQkIjMhKioqKlxQJSl6QFgjRi4kIjMsQDAtIXppMjMmRi43JCQiMycpKioqKipcN3QmcEtGLiQiMyFSY05keExbYCVGLjckJCIzJCkqKipcaVNtcDMlRi4kIjMvYXVqOk5GMVNGLjckJCIzeioqKipcKG9mViFcRi4kIjNfc2c/P0sjW1wkRi43JCQiM3YqKipcKG9IdkBkRi4kIjMkKVFBSjxYQStJRi43JCQiM3MqKioqKipcaTlSbEYuJCIzMGxzKjNcPkFfI0YuNyQkIjM6K3ZWdGROXXNGLiQiM3Y1Xi11KDQnPkBGLjckJCIzZStdKG9IbDonekYuJCIzJWZZNCo0JSk+SDxGLjckJCIzLixESj9beHMnKUYuJCIzTzU5NCNbOzNOIkYuNyQkIjMyKyt2VlYpUlEqRi4kIjNWRGwnKXpUJkglKSpGMjckJCIzIipcKD1uUT4mNDUhIz0kIjM1OCYzJnorbiVIJ0YyNyQkIjMmKipcaSFSLmshMyJGaW8kIjNSPCUzSENNOydHRjI3JCQiMylcUE1fIjM/OzZGaW8kIjNGKFJISTA2eT0iRjI3JCQiMytdaVMiSGg8OiJGaW8kIjNbMltAeWZGeVghI0A3JCQiMyxEInl2d0B0PSJGaW8kIjNpdElzTi5cdj9GMjckJCIzLysrdlZBKUdBIkZpbyQiM2M+L2g3YlFsT0YyNyQkIjM5XShvSD5sR0kiRmlvJCIzMUAyVzJTK1RyRjI3JCQiMygqKlwoPVUiW0dRIkZpbyQiM0QpXCh6UGkmei8iRi43JCQiMzFdaVMiNEpHWSJGaW8kIjNrVipRIj46TW84Ri43JCQiMzsrXWlTUyJHYSJGaW8kIjN1W3IlRyE0XHY7Ri43JCQiMzMrRDFSKnpGcSJGaW8kIjNBUWIqcFQ7NUQjRi43JCQiMysrK11QZXVpPUZpbyQiM1JnLyk+IkdSd0ZGLjckJCIzMSsrdiQ0c1AtI0ZpbyQiM01DKTM1XnFrRCRGLjckJCIzNysrK10kKXolPSNGaW8kIjNFJXpwKilbbiUqbyRGLjckJCIzPCsrRDFZI2VNI0ZpbyQiMyczM3YyNktzMiVGLjckJCIzQSsrXWkzJm9dI0ZpbyQiM280LXMoRyVmQFdGLjckJCIzLitdaTpGUEZHRmlvJCIzZVQhKj4ncDldKVxGLjckJCIzJSkqKipcKG9YKnk5JEZpbyQiM0dJL3VlX2woUiZGLjckJCIzIikqKipcaU5mXVckRmlvJCIzVm1pSDdmWGRjRi43JCQiM3oqKipcUDlDQXUkRmlvJCIzX0VqbSw5LTVlRi43JCQiMyQqKioqKipcUFsiPlFGaW8kIjM5JnllQyZSSkxlRi43JCQiM18qKipcaWdzZypRRmlvJCIzSV8sOmsmKUddZUYuNyQkIjNsKioqKlxQbypIKFJGaW8kIjNcbydmbzs+NidlRi43JCQiMyEpKioqXChvNSMqXFNGaW8kIjN1cUZdOyN5ZidlRi43JCQiMyUqKioqKioqKkhYbzclRmlvJCIzZVxMLXZtLmxlRi43JCQiMzMrK0RKJnBQPyVGaW8kIjN3dDYmNCpSWWVlRi43JCQiM24qKioqXGlQcCFHJUZpbyQiMys9KSlHITNHayVlRi43JCQiMyEpKioqXFAqemhkVkZpbyQiMyQpR0h0MmA0SGVGLjckJCIzQSsrdiRmUWVuJUZpbyQiMzd0YVBsJW9ZcSZGLjckJCIzMysrdiQ+ZlMqXEZpbyQiM28nZm4iRz92LmJGLjckJCIzXSsrRGMjZjdKJkZpbyQiM1R5ZT8/Oz1RX0YuNyQkIjMkKSoqKlwoPSRmJUdjRmlvJCIzJVFxJTRTSnI8XEYuNyQkIjM2K10oPWRRWiZmRmlvJCIzYj9ocWQrM1RYRi43JCQiM1ErKytEeSwiRydGaW8kIjNRWC4heSM9dUVURi43JCQiM0MrK3ZvWlNvbEZpbyQiM1E1JylvTU8zUVBGLjckJCIzMysrXTc8emJvRmlvJCIzOSNRTnJQZE5MJEYuNyQkIjNKKyt2VjhLenJGaW8kIjN5OiVvZmpGaSdHRi43JCQiM2ArKyt2NCZHXShGaW8kIjMjSCtqekkhWyRSI0YuNyQkIjM8KysrXSE0eCN5RmlvJCIzcXR3eEhlRz8+Ri43JCQiMyEpKioqKipcN25EOilGaW8kIjNFV2ElcFlFXFgiRi43JCQiMzkrKyt2IUdjWSlGaW8kIjN2ejA+OW5BPjVGLjckJCIzWisrK0QhKm95KClGaW8kIjNYazkoekZObisnRjI3JCQiMz0rXVBmJHlIMSpGaW8kIjNKKjRRODwoRylRI0YyNyQkIjMpKSoqKlxQcG5zTSpGaW8kIjNuPC02Vk1FSDVGMjckJCIzZStdUDRfSiZvKkZpbyQiM1ciejcib3BTK1tGMjckJCIzLCsrXXNpTC01ISM8JCIzYVtAT3FiJlFBKUYyNyQkIjMsKytESkwoNC4iRlxebCQiMypmJ1IhUUtJTDMiRi43JCQiMywrKyshUjUnZjVGXF5sJCIzUnUmeT42JlI7OEYuNyQkIjMpKioqXFAvUUJFNkZcXmwkIjNBUURlS3Mmb3UiRi43JCQiMyYqKlwobzQuc2I2RlxebCQiM0gudyQ+UCl5Jyk9Ri43JCQiMyIqKioqKipcIm8/Jj0iRlxebCQiM3NiKil5dVspZSo+Ri43JCQiMykpKlwobyU9ZXZAIkZcXmwkIjNAcFoqSD8ieSEzI0YuNyQkIjMyK11QYSY0Klw3RlxebCQiMyV6JUdPaSEpUUlARi43JCQiMzIrRGNKRUpsN0ZcXmwkIjNaUSlbYiYpUj85I0YuNyQkIjMyKyt2M2RyIUciRlxebCQiM0lcTj5eTkJZQEYuNyQkIjMzK3YkZnk9aEgiRlxebCQiMyEqcCE9IyopUT1WQEYuNyQkIjMzK103aj1fNjhGXF5sJCIzYEtlTW9HN0xARi43JCQiMz4rdlZgW21WOEZcXmwkIjMhPVMjcE9XbCE0I0YuNyQkIjM0Kyt2VnkhZVAiRlxebCQiM1hEQ28sV0FAP0YuNyQkIjM0K10oPVdVW1YiRlxebCQiM00iUi9VVUxGJD1GLjckJCIzKSoqKipcN0I+JilcIkZcXmwkIjNwcD01V11oZjpGLjckJCIzKSoqKlxQPjptazpGXF5sJCIzbic9TCN5TlFFN0YuNyQkIjMnKioqXGl2JlFBaSJGXF5sJCIzQSZbcTVVSW09KkYyNyQkIjMxKyt2dExVJW8iRlxebCQiM0I1RWQlUXZOI2ZGMjckJCIzISoqKioqKlxObSdbPEZcXmwkIjNZJT4kW2FtYXRHRjI3JCQiMy0rXShvJzQ0IXkiRlxebCQiMz51O1ttTEp3OkYyNyQkIjMiKioqKlwoeWJeNj1GXF5sJCIzJ1JvOVFcSG5WJUZbcTckJCIzIls3LjIibzY+PUZcXmwkIjNBbnp1YGFDcz5GW3E3JCQiMyQqXGlsVSE9biM9RlxebCQiMyJcQkFiTmJBeSQhI0E3JCQiMzB2JDRZRj5WJD1GXF5sJCIzX1tRUHNlXjZFRltxNyQkIjMmKipcaWxdPz4lPUZcXmwkIjMqUjBPPFFcWHMlRltxNyQkIjMnKlwoby8oSDdkPUZcXmwkIjM8ZDRJa0oseSYpRltxNyQkIjMpKioqXFBNYUtzPUZcXmwkIjMzXiMpW1ZIZiI+IkYyNyQkIjMzK0QiRyNcMzE+RlxebCQiMzwvLElkPjhRPEYyNyQkIjMmKioqKlw3VFcpUj5GXF5sJCIzbk5yaFYkPS4rI0YyNyQkIjMzK3Y9NzssYj5GXF5sJCIzZVN0X21qQ0A/RjI3JCQiMyoqKipcNzgpeSwoPkZcXmwkIjM4RCsqKnB2XCEpPkYyNyQkIjMqKSpcaVMsWWApPkZcXmwkIjNpaVs3KFIpPXg9RjI3JCQiM3oqKioqKlxAODArI0ZcXmwkIjNfa0M3dHhrNTxGMjckJCIzcSoqKlxQbSxILiNGXF5sJCIzKik0NlNHdGBUNkYyNyQkIjMwKytdNyxIbD9GXF5sJCIzOVI9byI9b1MiR0ZbcTckJCIzSnYkNCcqSEZFMiNGXF5sJCIzWTJsUiVlKWVWWUZiZWw3JCQiMzddKD1uW2sqej9GXF5sJCIzOGtqdkhyLUs/RltxNyQkIjMkXDdHUW4sdDMjRlxebCQiM1srVSR6QURUbiVGW3E3JCQiM3UqXFA0JylRWTQjRlxebCQiMzNNJ28jXEEkM1koRltxNyQkIjMhKVxpOk5LSjRARlxebCQiM2EzaT5kZkhZOEYyNyQkIjMnKSoqXFA0dylSNyNGXF5sJCIzTWJVSVtqbi0/RjI3JCQiMzwrK114JWYiKT0jRlxebCQiMylSKD4iUilHPyRcJkYyNyQkIjMhKSoqXFAvLWFbQUZcXmwkIjMnKTMpM3ZXTG1kKkYyNyQkIjMvK10oPVliO0ojRlxebCQiM1diKipSV2xmVjlGLjckJCIzKCkqKioqXGlAT3RCRlxebCQiM1xPWTwsdXhYPkYuNyQkIjMnKSoqXFBmTCd6ViNGXF5sJCIzSUVcJ0dURnNYI0YuNyQkIjM+KysrISo+PStERlxebCQiM3gpcCFbME54JilHRi43JCQiM0wrXTdlZCo+YCNGXF5sJCIzY1dGXClwUUAxJEYuNyQkIjMuKytERSY0UWMjRlxebCQiMyU9MCFcO3RfKT4kRi43JCQiMyUpXDdHJHAlZXpERlxebCQiM0FRPWw7YWJbS0YuNyQkIjM1K0RKZylmYGYjRlxebCQiMytlSTstIXpgRyRGLjckJCIzLEQiR1FXWktnI0ZcXmwkIjMjKVI9dEQkcCUpSCRGLjckJCIzT11QTUZdODZFRlxebCQiMypRVkRueDV5SSRGLjckJCIzRnYkZjNoQSE+RUZcXmwkIjMqXCNwTV8qXEtKJEYuNyQkIjM9K11QJT41cGkjRlxebCQiM0lUITM3W0pZSiRGLjckJCIzR0RKWGshZVRqI0ZcXmwkIjNAMXMleW8pPTdMRi43JCQiM1JdN2BNZlNURUZcXmwkIjN1Rl1tNU0xMUxGLjckJCIzMHYkNFkhUWxbRUZcXmwkIjM9bChbKXAyOCdIJEYuNyQkIjM7K3ZvdTshZmwjRlxebCQiMzFeWyFlX2tBRyRGLjckJCIzIypcUCVbVChScUVGXF5sJCIzW0k5MVEmPkFDJEYuNyQkIjM5KysrYkoqW28jRlxebCQiM3ljYUNtPCpbPSRGLjckJCIzNitdN2oxNz1GRlxebCQiM1UuMl9WXl8jKUhGLjckJCIzNCsrRHIiWzh2I0ZcXmwkIjNbZjI6ZDhocUVGLjckJCIzMCtdaV1zMSJ5I0ZcXmwkIjM5Jyp5PUssbChHI0YuNyQkIjMrKysrSWp5NUdGXF5sJCIzX1JcZSIzdGZ6IkYuNyQkIjMtXVBmKXBIbSNHRlxebCQiMy9YITQsa09lWyJGLjckJCIzLit2PW5JWlVHRlxebCQiMz4nM3p1ej4tOSJGLjckJCIzMF03eU5rSmVHRlxebCQiM3MsaCVbJXoiW2QoRjI3JCQiMzIrXVAvKWZUKEdGXF5sJCIzJyo0IypbJVIqZmZMRjI3JCQiMzpESnFOMyZ6KEdGXF5sJCIzNUFcVCFSNTtII0YyNyQkIjNCXTcubj11IilHRlxebCQiM1cxdi45KT4tPyJGMjckJCIzYjdgcCNRUE8pR0ZcXmwkIjN2J3A+OUVoblgnRltxNyQkIjMoW1BmJCkqR2AmKUdGXF5sJCIzZEAmekY+ZiU+JilGYmVsNyQkIjNrUE0tOSVHdSlHRlxebCQiMzYyTDNRLWE3W0ZbcTckJCIzJyoqXChvSFJLKilHRlxebCQiM1suOEMnKiopcGA1RjI3JCQiM29cUE0jKmYhcCpHRlxebCQiM0FCKT5NTUhTUyRGMjckJCIzJikqKioqKlwwKVsvSEZcXmwkIjMjb2w5WmxgRSZlRjI3JCQiMz0rREohPV8nPkhGXF5sJCIzQSM+KWUzakIwNkYuNyQkIjMxK11pMGoiWyRIRlxebCQiM2hbaidcLTNvbSJGLjckJCIzeXU9VW5VJ0glSEZcXmwkIjN1Q3pqdClwaSk+Ri43JCQiMyUqXCg9I0hBNl5IRlxebCQiM1cwJ2Y0RkYlPUJGLjckJCIzNURjLCI+ZyNmSEZcXmwkIjMjNENGMiM+X2pFRi43JCQiM0UrRCJHOjN1J0hGXF5sJCIzOk1JNTxtekBJRi43JCQiM1V2JDRZNmNiKEhGXF5sJCIzT15CRjRfXCRSJEYuNyQkIjM4XWlTd1NxJClIRlxebCQiM2xTI29lY2kpeVBGLjckJCIzJVs3LiNRPyY9KkhGXF5sJCIzKCl6WTtSWDl5VEYuNyQkIiIkRiskIjMjNDliIUh6ZSJmJUYuLSUmQ09MT1JHNiYlJFJHQkckIiM1ISIiJEYrRmlpbUZqaW0tJStBWEVTTEFCRUxTRzYkUSJ4NiJRIUZfam0tJSVWSUVXRzYkO0ZqaW0kIiNJRmlpbTskITJRbnRgOCNcRThGLiQiMSMqRyopb3J5aHBGXF5sLSUlRk9OVEc2JCUqSEVMVkVUSUNBR0ZoaW0=

feh4(0);

NiMkIipxYmAjbyEjNQ==

li21:=[tschebyschew(8,mini,maxi)];

NiM+SSVsaTIxRzYiNyosJi1JJGNvc0c2JEkqcHJvdGVjdGVkR0YrSShfc3lzbGliR0YlNiMsJEkjUGlHRisjIiIiIiM7IyIiJCIiI0YzRjEsJi1GKTYjLCRGLyNGNEYyRjNGM0YxLCYtRik2IywkRi8jIiImRjJGM0YzRjEsJi1GKTYjLCRGLyMiIihGMkYzRjNGMSwmRkIjISIkRjVGM0YxLCZGPEZIRjNGMSwmRjdGSEYzRjEsJkYoRkhGM0Yx

li22:=evalf(map(f,li21));

NiM+SSVsaTIyRzYiNyokIStfQyE9LychIzUkISstNDgiKXBGKSQhK0JucyR5J0YpJCErKj0tNWAjRikkIitCc14jKlJGKSQiK1tHRXByRikkIitaMl1ia0YpJCIrbFQnKio9JkYp

P8:=unapply(sort(simplify(lagrange(li21,li22))),x);

NiM+SSNQOEc2ImYqNiNJInhHRiVGJTYkSSlvcGVyYXRvckdGJUkmYXJyb3dHRiVGJSwyKiQ5JCIiKCQiKyZvIikqKWYnISM3KiRGLiIiJyQhKyVlalVCKCEjNiokRi4iIiYkIitSSnknXCMhIzUqJEYuIiIlJCErJkd4RnoiRjwqJEYuIiIkJCErJVszQjEkRjwqJEYuIiIjJCErcEQ9IylIRjxGLiQiKykzcUZ0J0Y8JCIrO1RZKSpcRjwiIiJGJUYlRiU=

feh8:=unapply(abs(evalf(f(x))-P8(x)),x);

NiM+SSVmZWg4RzYiZio2I0kieEdGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlLUkkYWJzR0kqcHJvdGVjdGVkR0YuNiMsNi1JJGNvc0c2JEYuSShfc3lzbGliR0YlNiM5JCQhKysrKytdISM1LUkkc2luR0YzNiMsJEY2JCIiIyIiISQhK0xMTExMRjkqJEY2IiIoJCIrJm8iKSopZichIzcqJEY2IiInJCErJWVqVUIoISM2KiRGNiIiJiQiK1JKeSdcI0Y5KiRGNiIiJSQhKyZHeEZ6IkY5KiRGNiIiJCQhKyVbM0IxJEY5KiRGNkY/JCErcEQ9IylIRjlGNiQiKykzcUZ0J0Y5JCIrO1RZKSpcRjkiIiJGJUYlRiU=

plot(feh8(x),x=mini..maxi);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JDdbeDckJCIiIUYrJCIzIVI6KysrJSllYCIhI0A3JCQiMyIqKipcNy5LW1Y/ISM/JCIzOkBeZTxYIUdTIkYuNyQkIjMjKSoqKlxpU21wMyVGMiQiM1UneThpeCJvdDdGLjckJCIzdCoqXFA0J1wvOCdGMiQiMyopW0YwZmlXWzZGLjckJCIzbCoqKipcN0ckUjwpRjIkIjN2eHowdCNIcS0iRi43JCQiMycqKlxpOmdUPC0iISM+JCIzY0grM0ElSE80KiEjQTckJCIzJioqKlwoPSMqKjNFN0ZHJCIzNHk0WjI/IVEmekZKNyQkIjMlKipcKD1VI1EvViJGRyQiMyhHLGlaJ3k5XW9GSjckJCIzJCoqKioqXGlseU07RkckIjNAYU4lNE03P3kmRko3JCQiMzQrRCJHKVs4Uj1GRyQiM3I2TmQmb1soW1pGSjckJEYxRkckIjMqNEtfWil6clxQRko3JCQiM3QqXFBNX0p5QyNGRyQiM1taM28mNCpHJXkjRko3JCQiMyEqKioqXFAlKXpAWCNGRyQiM1BUUUEiZVE9Jj1GSjckJCIzMStEMWsiR2xsI0ZHJCIzQihSaD9YMXZeKiEjQjckJCIzKCkqKlxQJVt3MydHRkckIjMrLy1hKHkxPE0pISNDNyQkIjNxKlwoby9bQWxJRkckIjNncy9fJGVHd2AoRlxwNyQkIjMnKSoqKioqXDd0JnBLRkckIjM1MjliI1IjUWc6Rko3JCQiMy4rREpYOSNSWiRGRyQiMzxoaiIpM3UtUEJGSjckJCIzPitdaWwocCN5T0ZHJCIzcWwpcCJma0YlMyRGSjckJCIzTit2JGYzPUUpUUZHJCIzLTEkcGwkM3EtUUZKNyQkIjMkKSoqKlxpU21wMyVGRyQiMzlSZSVvamtHXCVGSjckJCIzVyoqXChvL2pjXCVGRyQiMzc/XTJ4N2oheiZGSjckJCIzeioqKipcKG9mViFcRkckIjNOYyMqUWN2JT4pcEZKNyQkIjM3K103R2owOGBGRyQiMyhHaE8/VnQ1MilGSjckJCIzdioqKlwob0h2QGRGRyQiM2MtPDV2JmZAMSpGSjckJCIzUSoqXFA0J1wvOCdGRyQiM0koKXBkIkdcI2YqKkZKNyQkIjNzKioqKioqXGk5UmxGRyQiMzMjNCo0TyFHbTIiRi43JCQiMzordlZ0ZE5dc0ZHJCIzI1slby9JKUduPiJGLjckJCIzZStdKG9IbDonekZHJCIzT1cmKjRbNG0jSCJGLjckJCIzLixESj9beHMnKUZHJCIzdCo+PlBaIkdtOEYuNyQkIjMyKyt2VlYpUlEqRkckIjMlb29GaikpZiQ+OUYuNyQkIjMiKlwoPW5RPiY0NSEjPSQiMypmUyRRUjNlYDlGLjckJCIzJioqXGkhUi5rITMiRmZ1JCIzak4xQSEpb2FxOUYuNyQkIjMpXFBNXyIzPzs2RmZ1JCIzJVInMy81JFFJWiJGLjckJCIzK11pUyJIaDw6IkZmdSQiMy1HRkk3NnlyOUYuNyQkIjMsRCJ5dndAdD0iRmZ1JCIzREJPRypvYHBZIkYuNyQkIjMvKyt2VkEpR0EiRmZ1JCIzZyRwJWYrKUgoZTlGLjckJCIzKCoqXCg9VSJbR1EiRmZ1JCIzdTEvaT8jZlRRIkYuNyQkIjM7K11pU1MiR2EiRmZ1JCIzOidwcW15WyVlN0YuNyQkIjMpKlxQJSkqKXB6QTtGZnUkIjMjcGhtRTo/Lz0iRi43JCQiMzMrRDFSKnpGcSJGZnUkIjMxIyozJnpiNVU0IkYuNyQkIjM9XTdHKSlHdyN5IkZmdSQiM251eSQzW182KyJGLjckJCIzKysrXVBldWk9RmZ1JCIzVVUvN0RCKVstKkZKNyQkIjMqKSoqXGlsKmVLJT5GZnUkIjM1MSVlUih5eCcpekZKNyQkIjMxKyt2JDRzUC0jRmZ1JCIzLkJWLkQ2XzlwRko3JCQiM0ErXSg9QSZHL0BGZnUkIjNWTEQiW0RVIz1lRko3JCQiMzcrKytdJCl6JT0jRmZ1JCIzJUg+L0YkUkgyWkZKNyQkIjMrK103eTlKbEFGZnUkIjNhYCZSXisnRyFmJEZKNyQkIjM8KytEMVkjZU0jRmZ1JCIzS3k8aS0jPl5aI0ZKNyQkIjNMK11QTXhMRUNGZnUkIjNUMER4JSl5LHA4Rko3JCQiM0ErK11pMyZvXSNGZnUkIjNxXj48KFI9Y3kjRlxwNyQkIjM8XTd5RDgpcGUjRmZ1JCIzNiN5V2Q9RUUmeUZccDckJCIzNytEMSp5NnJtI0ZmdSQiM0NpP1NaSFBBPUZKNyQkIjMzXVBNX0FDWkZGZnUkIjMrQmBzWGkrR0dGSjckJCIzLitdaTpGUEZHRmZ1JCIzd2gxYWBrInp6JEZKNyQkIjMqKlxpISp5Sl0ySEZmdSQiM19QTj8jb1okR1pGSjckJCIzJCoqXCg9VU9qKClIRmZ1JCIzT3hCYHQkM2doJkZKNyQkIjMqKVwob2E1a3gxJEZmdSQiM2lKI1FTRlkhZWtGSjckJCIzJSkqKipcKG9YKnk5JEZmdSQiMzFwZSMpM1UtX3NGSjckJCIzNysrXWlwWidIJEZmdSQiM1MmKm9vWHRSIWYpRko3JCQiMyIpKioqXGlOZl1XJEZmdSQiM09XPGs+TClwdSpGSjckJCIzXyoqKioqKlw8ayRmJEZmdSQiMyk0YCI9PDBmcjVGLjckJCIzeioqKlxQOUNBdSRGZnUkIjM7XiJ6ZlN0JVw2Ri43JCQiM18qKipcaWdzZypRRmZ1JCIzPVdQQXI8OjU3Ri43JCQiMyEpKioqXChvNSMqXFNGZnUkIjMuclJhazYpM0QiRi43JCQiMyUqKioqKioqKkhYbzclRmZ1JCIzKClIQWlXOyZSRSJGLjckJCIzMysrREomcFA/JUZmdSQiM10pKilIJGV6R3M3Ri43JCQiM24qKioqXGlQcCFHJUZmdSQiMytFJWVVby1nRiJGLjckJCIzISkqKipcUCp6aGRWRmZ1JCIzV2hvKnAiKj5fRiJGLjckJCIzQSsrdiRmUWVuJUZmdSQiMzk0Q0tFSEZGN0YuNyQkIjMzKyt2JD5mUypcRmZ1JCIzZDNuZi8jUWU2IkYuNyQkIjNHKysrRCNmRTomRmZ1JCIzaUx0QCZIei8vIkYuNyQkIjNdKytEYyNmN0omRmZ1JCIzbTldKm8kM0FUJipGSjckJCIzcysrXShHZilwYUZmdSQiM1cmKioqPiUqPk0lZSlGSjckJCIzJCkqKipcKD0kZiVHY0ZmdSQiMzU5czpEZSEzYihGSjckJCIzVSpcN2AlKilmInomRmZ1JCIzYz0qKSpbZzNdVSdGSjckJCIzNitdKD1kUVomZkZmdSQiMz0/MnhyKEhIRCZGSjckJCIzITNdUCUpPnl5NidGZnUkIjM0QTdtR25TXlNGSjckJCIzUSsrK0R5LCJHJ0ZmdSQiM2VxM05cOV9PR0ZKNyQkIjMoMyt2b0g2WlUnRmZ1JCIzJCpmMC1MbVxuPEZKNyQkIjNDKyt2b1pTb2xGZnUkIjNrWiFSJj5PdSc0KEZccDckJCIzMl0oPW44R1ZnJ0ZmdSQiMy9mdyJHJClIMFslRlxwNyQkIjMjKipcKG8vOkRTbUZmdSQiM2hPYiNcWDkleT1GXHA3JCQiM1J2PW4pPTgjZW1GZnUkIjNGJ1JOIXl4aEllRmJwNyQkIjN3XGlsc1s8d21GZnUkIjMmXD0nUWciekUzKEZicDckJCIzN0Mxa2NsOCVwJ0ZmdSQiMyVHKilIVCs3YSo+RlxwNyQkIjNnKipcaVMjKTQ3bkZmdSQiM2UzXCcpZiY0I3lLRlxwNyQkIjNHKlxpbChcJVJ5J0ZmdSQiMzt1XmpDZHhpJClGXHA3JCQiMzMrK103PHpib0ZmdSQiMyopb3pSR3BgTzhGSjckJCIzayoqXDdHbGI8cUZmdSQiM1Y7TigzK1IhR0NGSjckJCIzSisrdlY4S3pyRmZ1JCIzclZaRixeSGpNRko3JCQiMyk0K3YkZmgzVHRGZnUkIjMwd113V2peTFdGSjckJCIzYCsrK3Y0JkddKEZmdSQiM216d3JsRTVKYEZKNyQkIjN6KioqKlw3K0dsd0ZmdSQiMzhnNjZgNiRHOidGSjckJCIzPCsrK10hNHgjeUZmdSQiM10oUnMiKW9mJiopb0ZKNyQkIjNfKytdKDNRLCp6RmZ1JCIzIj4oRyRRMGNyYChGSjckJCIzISkqKioqKlw3bkQ6KUZmdSQiM1tfel1wYWkjNClGSjckJCIzOSsrK3YhR2NZKUZmdSQiMzcwIyoqW206cyopKUZKNyQkIjNaKysrRCEqb3koKUZmdSQiMz5ZVCcqKkhkME4qRko3JCQiM29dUGZlOHdcKSlGZnUkIjNKa0MkZj1pYFMqRko3JCQiM3kqXCg9I3BMMyMqKUZmdSQiM15hWFMpSFZGVypGSjckJCIzKSpcN3lEZyE+KiopRmZ1JCIzImYsNDhvTEhZKkZKNyQkIjM9K11QZiR5SDEqRmZ1JCIzUHInXDI3JT5tJSpGSjckJCIzUl0ob0hwXVM4KkZmdSQiM14nPTkiND8iR1gqRko3JCQiM2YrRGNFSTcwIypGZnUkIjN2I1s7Wj4rSlUqRko3JCQiM29caTpnYD53IypGZnUkIjMzdFImKT5lUngkKkZKNyQkIjMpKSoqKlxQcG5zTSpGZnUkIjM0JipcKilbImZnSipGSjckJCIzZStdUDRfSiZvKkZmdSQiM2pJL3FRNW9BKSlGSjckJCIzLCsrXXNpTC01ISM8JCIzcDIlb3cyMT8uKUZKNyQkIjMsKytESkwoNC4iRmhdbSQiMygqZXchKUg9KSpwckZKNyQkIjMsKysrIVI1J2Y1RmhdbSQiMylbP2B5QWcocGhGSjckJCIzKyt2PSg0QUg0IkZoXW0kIjMlKWVuciRcLD8pW0ZKNyQkIjMpKioqXFAvUUJFNkZoXW0kIjNuZy5NVUApb14kRko3JCQiMyYqKlwobzQuc2I2RmhdbSQiM1VNVXVKOCoqKkcjRko3JCQiMyIqKioqKipcIm8/Jj0iRmhdbSQiM1IxWGMhXFNaMyJGSjckJCIzISpcUCUpKlwjUSw3RmhdbSQiM0d5IylvOClbQlglRlxwNyQkIjMpKSpcKG8lPWV2QCJGaF1tJCIzejpkWU06YUE8RlxwNyQkIjM0XTdgcFF0TDdGaF1tJCIzISpvZid6ZSlmSHdGXHA3JCQiMzIrXVBhJjQqXDdGaF1tJCIzPi9Lc3EzYEE4Rko3JCQiMzIrK3YzZHIhRyJGaF1tJCIzcnEtX3M8UilHI0ZKNyQkIjMzK103aj1fNjhGaF1tJCIzbGMoKXBCVTQwSkZKNyQkIjM+K3ZWYFttVjhGaF1tJCIzQUNUMFwvJzN5JEZKNyQkIjM0Kyt2VnkhZVAiRmhdbSQiM0cnNG8zKSopemxVRko3JCQiMy9dN0ckXG0wUiJGaF1tJCIzPUonZm5FL0xVJUZKNyQkIjMpKipcN0c5RGBTIkZoXW0kIjMhZk4sMWg0KlJYRko3JCQiMzJEInl2WS9GVCJGaF1tJCIzbylSSy9qNkllJUZKNyQkIjM6XVBNI3okMz85RmhdbSQiMyUpb1pORSs0O1lGSjckJCIzLHYkNHI2anVVIkZoXW0kIjNYKzQvRipcI1JZRko3JCQiMzQrXSg9V1VbViJGaF1tJCIzKnAqMyR5JVJoX1lGSjckJCIzNnZvYVM/IUdXIkZoXW0kIjNfbk9kWCMzaWwlRko3JCQiMyEqXCg9I1I7d105RmhdbSQiM3RmVycpZVx3W1lGSjckJCIzIlxpISp5QkAoZTlGaF1tJCIzOS9TNldDXUlZRko3JCQiMyQqKlxpbCQzb205RmhdbSQiMyJwNywxKClmO2clRko3JCQiMyYqXGkhUi4rRVsiRmhdbSQiM0g7RGgxLkg4WEZKNyQkIjMpKioqKlw3Qj4mKVwiRmhdbSQiM293bTlkUCZmUSVGSjckJCIzKCoqXDdgUCFmSjpGaF1tJCIzYSh5JzNYQUwzU0ZKNyQkIjMpKioqXFA+Om1rOkZoXW0kIjM/WjVGJ0ckPitORko3JCQiMycqKipcaXYmUUFpIkZoXW0kIjN3ST9nKGVnS1IjRko3JCQiMzErK3Z0TFUlbyJGaF1tJCIzKlt3SksrLnovIkZKNyQkIjMoKipcaSE+VFsrPEZoXW0kIjMvQSJSKDM2dyoqcEZccDckJCIzKCkqKlxQa1thOzxGaF1tJCIzTEM3REh1KlxlJEZccDckJCIzJCpcNy5QX2RDPEZoXW0kIjNnRDE3Q0hnNj5GXHA3JCQiMysrdm80Y2dLPEZoXW0kIjNMYkZXMUdSZUVGYnA3JCQiMzFdUE0jKWZqUzxGaF1tJCIzb0snPWFUUChbOEZccDckJCIzISoqKioqKlxObSdbPEZoXW0kIjNwIlFjVnk+KEdIRlxwNyQkIjMtK10obyc0NCF5IkZoXW0kIjNaMCIqNEUoeic+KClGXHA3JCQiMyIqKioqXCh5Yl42PUZoXW0kIjNxNGBNKTMkXHc4Rko3JCQiMyYqKlxpbF0/PiU9RmhdbSQiM29cS0pOJW89eSJGSjckJCIzKSoqKlxQTWFLcz1GaF1tJCIzd2IxKkdySigpNCNGSjckJCIzMytEIkcjXDMxPkZoXW0kIjNadForPTApUk0jRko3JCQiMyYqKioqXDdUVylSPkZoXW0kIjNVTSJbeno7LlsjRko3JCQiMzMrdj03OyxiPkZoXW0kIjM4cyFITyNHXjNERko3JCQiMyoqKipcNzgpeSwoPkZoXW0kIjM9YidIKlsicHpeI0ZKNyQkIjMqKSpcaVMsWWApPkZoXW0kIjNnNXQkeTRiLV4jRko3JCQiM3oqKioqKlxAODArI0ZoXW0kIjMmZUloSCcqb3JbI0ZKNyQkIjNxKioqXFBtLEguI0ZoXW0kIjNDT1kpeTVJZlIjRko3JCQiMzArK103LEhsP0ZoXW0kIjMqb040XyI0SG1BRko3JCQiMycpKipcUDR3KVI3I0ZoXW0kIjMhZiJ6X1M5Lzs/Rko3JCQiMztdaVN3MC5TQEZoXW0kIjNrbkpKeS07aD5GSjckJCIzLSt2VlZOMmNARmhdbSQiM01GV1JmIUgjPT5GSjckJCIzKClcKG8vXjtAPCNGaF1tJCIzXyZIKDQlW2suKj1GSjckJCIzPCsrXXglZiIpPSNGaF1tJCIzQiUpZiV6W0IwKT1GSjckJCIzM10oPSNmWUQuQUZoXW0kIjNXXjNQV1k9ISo9Rko3JCQiMykqKlxQNCUpXCQ9QUZoXW0kIjNbMCc0PGo9LiM+Rko3JCQiMyopXGlsQV1XTEFGaF1tJCIzKlJKVF5pbkYoPkZKNyQkIjMhKSoqXFAvLWFbQUZoXW0kIjMmekI9IjQlKjRcP0ZKNyQkIjNxKipcN0x5NCFHI0ZoXW0kIjMlW0FPbkhsNEgjRko3JCQiMy8rXSg9WWI7SiNGaF1tJCIzMj1vXDA5dFtFRko3JCQiMygpKioqKlxpQE90QkZoXW0kIjNwNSlIXDwxMG4kRko3JCQiMycpKipcUGZMJ3pWI0ZoXW0kIjM9XixjXyJ6QDMmRko3JCQiMz4rKyshKj49K0RGaF1tJCIzKEdPTG8nKT4/XidGSjckJCIzTCtdN2VkKj5gI0ZoXW0kIjMlND90SGgmSF1yRko3JCQiMy4rK0RFJjRRYyNGaF1tJCIzeldSOTpHSl13Rko3JCQiMyUpXDdHJHAlZXpERmhdbSQiMzw3LzRfaXNHeUZKNyQkIjM1K0RKZylmYGYjRmhdbSQiMzsqPlA+KCozPCZ6Rko3JCQiMyxEIkdRV1pLZyNGaF1tJCIzK3d0IXAkZU8hKnpGSjckJCIzT11QTUZdODZFRmhdbSQiM2xhQSZSb3hGLClGSjckJCIzRnYkZjNoQSE+RUZoXW0kIjNzKFEmPVJMQj0hKUZKNyQkIjM9K11QJT41cGkjRmhdbSQiM2g/anpQVjIxISlGSjckJCIzUl03YE1mU1RFRmhdbSQiM3QjMyRvT3YlZSR6Rko3JCQiMzsrdm91OyFmbCNGaF1tJCIzO1UmZUNebzUheUZKNyQkIjMjKlxQJVtUKFJxRUZoXW0kIjNzTUNXcnpnKmYoRko3JCQiMzkrKytiSipbbyNGaF1tJCIzJVxJNkYvJVtJdEZKNyQkIjM2K103ajE3PUZGaF1tJCIzImUmNHFtUDRqa0ZKNyQkIjM0KytEciJbOHYjRmhdbSQiM2g7Rlc9SkQlRyZGSjckJCIzMCtdaV1zMSJ5I0ZoXW0kIjNxQCplNC5ZZS8lRko3JCQiMysrKytJank1R0ZoXW0kIjNwT1o6JUhQOncjRko3JCQiMy4rdj1uSVpVR0ZoXW0kIjM3J2ZVJlI5O2I6Rko3JCQiMzIrXVAvKWZUKEdGaF1tJCIzJz4lW1dvKXksUilGXHA3JCQiM0JdNy5uPXUiKUdGaF1tJCIzUTdUSjg4W3R5RlxwNyQkIjMnKipcKG9IUksqKUdGaF1tJCIzdXM7MDpzKUcnekZccDckJCIzb1xQTSMqZiFwKkdGaF1tJCIzLkAoKUdHcD9QKClGXHA3JCQiMyYpKioqKipcMClbL0hGaF1tJCIzT1xeSzUnZiFHNUZKNyQkIjM9K0RKIT1fJz5IRmhdbSQiM3dBUFVaQSRSZyJGSjckJCIzMStdaTBqIlskSEZoXW0kIjNfQ00hUlk5R2cjRko3JCQiM3l1PVVuVSdIJUhGaF1tJCIzO0UxV3MvIVxNJEZKNyQkIjMlKlwoPSNIQTZeSEZoXW0kIjNkL3dnNS1yXFVGSjckJCIzNURjLCI+ZyNmSEZoXW0kIjNmak1SKnl6S0wmRko3JCQiM0UrRCJHOjN1J0hGaF1tJCIzQjI9IVxuTUVoJ0ZKNyQkIjMleSQ0ckxAW3JIRmhdbSQiM1xVa1NrRUxKdEZKNyQkIjNVdiQ0WTZjYihIRmhdbSQiM3NwO3IxMiRlNSlGSjckJCIzYjd5XSY0SSd6SEZoXW0kIjNuJUgxPXBgJlEqKUZKNyQkIjM4XWlTd1NxJClIRmhdbSQiM0JOQlxPaSo+JCkqRko3JCQiM3Ioby90MHl4KUhGaF1tJCIzVC87QzFDKCl5NUYuNyQkIjMlWzcuI1E/Jj0qSEZoXW0kIjN3SzwoKlJ2OCI9IkYuNyQkIjNXaTo1PmcjZipIRmhdbSQiM2V6ZGxSaUUhSCJGLjckJCIiJEYrJCIzYCIqXF1ic2AxOUYuLSUmQ09MT1JHNiYlJFJHQkckIiM1ISIiJEYrRltdb0ZcXW8tJStBWEVTTEFCRUxTRzYkUSJ4NiJRIUZhXW8tJSVWSUVXRzYkO0ZcXW8kIiNJRltdbzskIS9KdUw+aCtHRkckIjInR1M5NyZbbGMiRjItJSVGT05URzYkJSpIRUxWRVRJQ0FHRmpcbw==

feh8(0.1);

NiMkIihPK1giISM1

fehler:=proc(f,mini,maxi,step) local i,res; res := 0; for i from mini by step to maxi do if f(i) > res then res := f(i); end if; end do; return res; end proc:fehler(feh8,mini,maxi,0.01);

NiMkIiglKWVgIiEjNQ==

fehler(feh8,mini,maxi,0.001);

NiMkIiglKWVgIiEjNQ==

fehler(feh8,mini,maxi,0.0001);

NiMkIiglKWVgIiEjNQ==