Hätte man tun können:
In[16]:= (* Patrick Scheibe 25.10.2019
Ich hätte den letzten Wert ja an das Symbol f
gebunden *)
Clear[f2]
f2[x_ /; x < -0.8 || x > 3.2] := f2[] = 10*Sign[x];
f2[_] := f2[]
In[19]:= f2 /@ {-1, 0, 3, 4, 3, 0, -1}
Out[19]= {-10, -10, -10, 10, 10, 10, -10}
In[20]:= f2[] = "jabber"
Out[20]= "jabber"
In[21]:= f2[0]
Out[21]= "jabber"
Grüsse
Udo.
Am 25.10.2019 um 00:31 schrieb Patrick Scheibe via demug:
f[x_ /; x < -0.8 || x > 3.2] := f[] = 10*Sign[x];
f[_] := f[]
_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html