Lösungen/Solutions 04

Ueb/Ex 1      W

a

Plot[{Sinh[x], Cosh[x], Tanh[x], Coth[x]}, {x, -3, 
          3}];

b

Plot[{0.5^x, 1^x, 2^x, E^x}, {x, -2, 2}];

c

Plot[{0.5^-x, 1^-x, 2^-x, E^-x}, {x, -2, 
          2}];

d

?Log

Plot[{Log[0.5, x], Log[2, x], Log[3, x], Log[x]}, {x, 0.1, 
          2}];

Ueb/Ex 2      W

a

Plot[Sinh[Sin[x]], {x, -2 Pi, 4  Pi}];

b

Plot[Sin[Sinh[x]], {x, -5.5, 5.5}];

c

Plot[Sinh[Cos[x]], {x, -4 Pi, 4  Pi}];

d

Plot[Sinh[ArcCos[x]], {x, -1, 1}];

Ueb/Ex 3

===>             x + 1 == 2 + (1/(x  +  1))

s = Solve[x + 1 == 2 + 1/(1 + x), {x}]

s=Solve[x+1==2+1/(1+x),{x}]//Flatten

s=Solve[x+1==2+1/(1+x),{x}]//Flatten//N