Hallo,
ich habe Schwierigkeiten mit den Sonderzeichen Deiner mail;
deshalb als Beispiel mit einer einfacheren Funktion x*t,
auch mit Parameter t. Wie waere es mit
fcts = Table[(# * tt) & /. tt -> t, {t, 1, 10}]
oder
fcts = Function[x, x * #]& /@ Table[t, {t, 1, 10}]
Gruesse
Clemens
Simon Stingelin wrote:
>
> Hallo zusammen,
>
> ich hatte gerade ein Problem, das vielleicht auch andere schon hatten:
>
> Man will einen Table von Funktionen automatisch erstellen:
>
> S = Table[(If[#1 â?¥ t0, If[# â?¤ t0 + 2, 2, 0], 0] &), {t0, 0, 2, .5}]
>
> Das geht jedoch nicht, da t0 nicht ersetzt wird. Nun wie weiter? Ich
> habe das Problem wie folgt gelöst:
>
> S = Table[Evaluate[(If[#1 â?¥ #2, If[# â?¤ #2 + 2, 2, 0], 0] &)[#, t0]] &,
> {t0, 0, 2, .5}]
>
> finde jedoch die Lösung etwas verzwickt. Hat jemand eine bessere Idee
> wie man mit Aufgaben dieser Art umgeht?
>
> Mit freundlichen Grüssen
>
> Simon Stingelin.
>
> ---
> mail: simon.stingelin@XXXXXXX.ch
> web: http://www.diax.ch/users/stingelin
--
----------------------------------------------------------
Clemens Frey
Darmstadt University of Technology
Mathematical Institute, AG 10
Schloßgartenstraße 7
D-64289 Darmstadt (Germany)
phone : +49-6151-164706
fax : +49-170-137703191
cellular : +49-170-7703191
email : frey@XXXXXXX.de
www : http://www.mathematik.tu-darmstadt.de/~frey/
----------------------------------------------------------