Lösungen/Solutions/B2S1Ue/Ex4

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

Ueb/Ex 1   L

Ueb/Ex 2   W

a

f[1, x_] := x - Floor[x];
p[1] = 
        Plot[f[1, x],  {x, -2.5, 2.5}, 
          AspectRatio -> 1/5];

f[2, x_] := f[1, x - 0.5];
p[2] = 
        Plot[f[2, x],  {x, -2.5, 2.5}, 
          AspectRatio -> 1/5];

f[3, x_] := f[2, -x];
p[3] = 
        Plot[f[3, x],  {x, -2.5, 2.5}, 
          AspectRatio -> 1/5];

f[4, x_] := f[3, x + 0.5];
p[4] = 
        Plot[f[4, x],  {x, -2.5, 2.5}, 
          AspectRatio -> 1/5];

f[5, x_] := 2 f[4, 1/2 x];
p[5] = 
        Plot[f[5, x],  {x, -2.5, 2.5}, 
          AspectRatio -> 2/5];

f[6, x_] := f[5, x] - 1;
p[6] = 
        Plot[f[6, x],  {x, -2.5, 2.5}, 
          AspectRatio -> 2/5];

Show[p[6], p[1]];

f[7, x_] := f[1, x] + f[6, x]; 
    p[7] = Plot[f[7, x],  {x, -2.5, 2.5}, 
        AspectRatio -> 1/5];

f[8, x_] := 2 f[7, x] - 1;
p[8] = 
        Plot[f[8, x],  {x, -4.5, 4.5}, 
          PlotStyle -> Thickness[0.01], 
          AspectRatio -> 2/5 ];

b

Plot[Sign[Sin[x Pi]], {x, -4, 4}, 
        PlotPoints -> 100];