Lösungen

1

a

f1[x_] := x^2/(1 + x^2 + Sin[x]^2);
Plot[f1[x], {x, -6, 6}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}, 
        PlotRange -> {0, 1}];

f1[x_] := x^2/(1 + x^2 + Sin[x^2]);
Plot[f1[x], {x, -6, 6}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}, 
        PlotRange -> {0, 1}];

b

f1[x_] := x^2/(1 + x^2 + Sin[x]^2); 
    Plot[{0.8, f1[x]}, {x, -4, 4}, 
      PlotRange -> {0.7, 0.9}];

FindRoot[0.8 == f1[x], {x, -3}]

FindRoot[0.8 == f1[x], {x, -2.5}]

FindRoot[0.8 == f1[x], {x, -1.8}]

FindRoot[0.8 == f1[x], {x, 3}]

FindRoot[0.8 == f1[x], {x, 2.5}]

FindRoot[0.8 == f1[x], {x, 1.8}]

c

f2[x_] := 2  Sin[Floor[x] - x];
Plot[f2[x], {x, -6, 6}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}];

d

f3[x_] := 2  Sin[Abs[Log[x]]];
Plot[f3[x], {x, 0.5, 3.5}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}];

e

Remove[φ, v, t]

φ[t_] := 
        Sqrt[2 + Sin[t] + Sin[2  t]/2 + 
            Sin[4  t]/3];
v[
          t_] := φ[t] {Cos[t], 
            Sin[t]};
ParametricPlot[Evaluate [v[t]], {t, 0, 2  Pi}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}, 
        AspectRatio -> Automatic];

2

Remove[x]

Solve[x == 5 + 5/x, {x}]

Solve[x == 5 + 5/x, {x}] // N

x not in Q !

3

Remove[f, p]

f[x_] := Cos[x];  p[x_] := Tan[x]

a

h[x_] := p[f[x]];  h[x]

Plot[h[x], {x, -10, 10}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}];

b

h[x_] := f[p[x]];  h[x]

Plot[h[x], {x, -6, 6}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}];

c

h[x_] := f[p[x]*f[x]];  h[x]

Plot[h[x], {x, -6, 6}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}];

4

Remove[f, p]

f[x_] := (x^2 - 25) (25 + x^2);  
    p[x_] := (4 - x)^2*(4 - x);
{Expand[f[x]], Expand[p[x]]}

a

h[x_] := f[x] p[x];  h[x]

h[x] // Expand

Solve[h[x] == 0, x]

Plot[h[x], {x, -6, 6}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}];

Plot[h[x], {x, 2, 5.3}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}];

b

u[x_] := f[x]/p[x]; u[x]

u[x] // Simplify

u[x] // ExpandAll // Together

Solve[Denominator[u[x]] == 0, x]

Solve[u[x] == 0, x]

u[x] // Apart

Plot[u[x], {x, -6, 6}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}];

Plot[u[x], {x, -3, 2.5}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}];

Plot[u[x], {x, -10, 1.1}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}];

Plot[u[x], {x, 5, 7}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}];

Plot[u[x], {x, 5, 20}, 
        PlotStyle -> {{Thickness[0.01], GrayLevel[0.1]}}];

5

Beispiel

Remove[p]

p[x_] := 0; p[x_ /; PrimeQ[x]] := x
tabP = Union[Table[p[x], {x, 0, 10000}]]; 
    Union[Table[
        If[tabP[[k + 1]] - tabP[[k]] == 2, {tabP[[k]], 
            tabP[[k + 1]]}, {}], {k, 1, Length[tabP] - 1}]]

p[x_] := 0; p[x_ /; PrimeQ[x]] := x
tabP = Union[Table[p[x], {x, 0, 10000}]]; 
    Union[Table[
        If[tabP[[k + 2]] == 
            tabP[[k]] + tabP[[k + 1]] + 1, {tabP[[k]], 
            tabP[[k + 1]], tabP[[k + 2]]}, {}], {k, 1, 
          Length[tabP] - 2}]]

p[x_] := 0; p[x_ /; PrimeQ[x]] := x
tabP = Union[Table[p[x], {x, 0, 10000}]]; 
    Union[Table[
        If[tabP[[k + 2]] == 
            tabP[[k]]*tabP[[k + 1]] + 2, {tabP[[k]], 
            tabP[[k + 1]], tabP[[k + 2]]}, {}], {k, 1, 
          Length[tabP] - 2}]]