Lösungen/Solutions/I1S2AnUe/Ex2

L = Lektion/ Leçon   -- Sprechstunde / heures de consultation
W = Work / Arbeit / Travail
A=Anhang/Annexe/Appendice

Ueb/Ex 1

Remove[n, f, Δx, xGr, xIn, sGr, sIn]

f[x_] := x^2;

Plot[f[z], {z, 0, 1}];

Δx[n_] := 1/n;  
    xGr[k_, n_] := 
      k * 1/n;   xIn[k_, n_] := (k - 1) * 1/n ;

sGr[n_] := 
        Sum[f[ xGr[k, n]]*  Δx[n], {k, 1, 
            n}];
sIn[n_] := 
        Sum[f[ xIn[k, n]]*  Δx[n], {k, 1, n}];

sGr[2]

Table[sGr[n], {n, 1, 20}]

Table[sGr[n], {n, 1, 20}] // N

Table[sIn[n], {n, 1, 20}]

Table[sIn[n], {n, 1, 20}] // N

Table[sGr[n] - sIn[n], {n, 1, 100}] // N

sGr[10000] - sIn[10000]

sGr[n] - sIn[n] // Simplify