Re: Funktion berechnen

[Thomas Hahn <hahn@XXXXXXX.de>]

> f(x) = ((sinx)^2) / (1 - cosx)         für x ungleich 2kPI, keZ
>         2                                      sonst
> 
> eingebe 

RTM.

f[x_] := 2 /; IntegerQ[Rationalize[x/2/Pi]]

f[x_] := Sin[x]^2/(1 - Cos[x])

NB. Das Rationalize ist für Fließkomma-Werte von x.

> und dann die werte f(10^ -i) i=0,1,2,... berechne.

tab[n_] := Table[ f[10^-i], {i, 0, n} ]


Gruß,

Thomas Hahn