"Martin Hammer" <HAMMER@XXXXXXX.de> wrote:
> Liebe Mathematica-Freunde,
>
> Der Versuch, eine stueckweise stetige Funktion in
> einer Schleife zu definieren, z.B.
>
> Do[F[t_]:=i/;i<=t<i+1, {i, 0, 3}]
>
> misslang mir wahrscheinlich wegen der nicht
> standardmaessigen Evaluierung in der Schleife.
> Auch die Verwendung von Evaluate[] hat nichts
> gebracht. Gibt es noch eine Moeglichkeit oder
> einen Trick?
>
> Beste Gruesse
>
> M. Hammer
In[1]:= Do[ReleaseHold[Hold[F[t_]:=i/;i<=t<i+1]/.i->j],{j,0,3}]
In[2]:= ??F
Global`F
F[t_] := 0 /; Inequality[0, LessEqual, t, Less, 0 + 1]
F[t_] := 1 /; Inequality[1, LessEqual, t, Less, 1 + 1]
F[t_] := 2 /; Inequality[2, LessEqual, t, Less, 2 + 1]
F[t_] := 3 /; Inequality[3, LessEqual, t, Less, 3 + 1]
In[3]:= F[.5]
Out[3]= 0
In[4]:= F[1.5]
Out[4]= 1
--
Rolf Mertig
http://www.mertig.com
|