|
das Ersetzen von Werten von Variablen in Ausdrücken, die nicht evaluiert
werden (Wie Function[...], alias &), geht am elegantesten mit With[]:
Table[ With[{t0=t0}, If[ t0<#<t0+2, 2, 0]&], {t0, 0, 2, 0.5} ]
Out[2]= {If[0 < #1 < 0 + 2, 2, 0] & , If[0.5 < #1 < 0.5 + 2, 2, 0] & ,
> If[1. < #1 < 1. + 2, 2, 0] & , If[1.5 < #1 < 1.5 + 2, 2, 0] & ,
> If[2. < #1 < 2. + 2, 2, 0] & }
Roman Mäder
PS: UTF-8 ist (noch) kein gebräuchlicher Zeichensatz. Der dürfte bei
den wenigsten Empfängern richtig ankommen.
|