Lösungen/Solutions/I1S1Ue/Ex5

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

Ueb/Ex 1      L

f[x_] :=  Cos[x];  g[x_] := ArcCos[x];  h[x_] :=  E^x;

a

gof[x_] := g[f[x]];  gof[x]

b

fog[x_] := f[g[x]];  fog[x]

hog[x_] := h[g[x]];  hog[x]

c

hoogof[x_] := h[gof[x]];  
    hogoof[x]

d

hogoof[x_] := hog[f[x]];  
    hogoof[x]

hogoof[x] ==  hogoof[x]

Ueb/Ex 2      W

Remove[u]

Beachte die Definition der Funktion! / Considérer la définition de la fonction!

u[t_] := 
        ArcCos[t]  /;  (0 <  t  &&  
              t  <  Pi/2);
u[t_] := 
        Cos[t]           /;  ( 
            t  ≤  0);
u[t_] := E^t  /;  (+Pi/2 <=  t);

Lücke in D(f)! / Lacune (espace) dans D(f)!

Plot[u[x], {x, -Pi, 2}];

Lücke in D(f)! / Lacune (espace) dans D(f)!

Lücke in D (f)!/
        Lacune (espace) dans D (f)!

p1 = Plot[u[x], {x, -Pi, 1}];

p2 = Plot[u[x], {x, Pi/2, 2.2}];

Show[p1, p2];

Ueb/Ex 3      W

Remove[f]

a

Remove[f];

f[x_] := Sin[Cos[x]]

Plot[f[x], {x, -15, 15}];

Plot[{f[x], f[-x]}, {x, -15, 15}];

Plot[{f[x], -f[-x]}, {x, -15, 15}];

b

Remove[f];

f[x_] := Cos[E^x]

Plot[f[x], {x, -10, 4}];

Plot[{f[x], f[-x]}, {x, -10, 4}];

c

Remove[f];

f[x_] := (2 - x)/(x^2 - 3  x + 2)

Plot[f[x], {x, -2, 4}];

Plot[{f[x], f[-x]}, {x, -2, 4}];

Plot[{f[x], f[-(x - 1) + 1]}, {x, -2, 4}];

Plot[{f[x], f[-(-(x - 1)) + 1]}, {x, -2, 
          4}];

{Numerator[f[x]], Denominator[f[x]]}

solv = Solve[Denominator[f[x]] == 0, {x}]

solv[[1]]

solv[[2]]

f[x] /. x -> c

f[x] /. solv[[1]]

f[x] /. solv[[2]]