f[x] := Sin[x]^2/(1 - Cos[x]);
N[Table[Limit[f[x], x -> 10^(-i)], {i, 0, 10}]]
{1.5403023058681398,
1.995004165278026,
1.9999500004166653,
1.999999500000042,
1.999999995, 1.99999999995,
1.9999999999995,
1.9999999999999951, 2., 2.,
2.}
mfg robert
> -----Ursprüngliche Nachricht-----
> Von: Heiko Kern [SMTP:kernheiko@XXXXXXX.de]
> Gesendet am: Wednesday, October 16, 2002 11:17 AM
> An: dmug@XXXXXXX.ch
> Betreff: Funktion berechnen
>
> hallo,
>
> ich blutiger anfänger in mathematica, kann mir jemand erklären wie ich die funktion
>
>
> f(x) = ((sinx)^2) / (1 - cosx) für x ungleich 2kPI, keZ
> 2 sonst
>
> eingebe und dann die werte f(10^ -i) i=0,1,2,... berechne.
>
> vielen danke
> heiko