Re: Table von Funktionen

["Robert Nowak" <robert.nowak@XXXXXXX.at>]

und gleich noch eine "geht am elegantesten" Loesung

Table[(If[#1 = t, If[# = t + 2, 2, 0], 0] &) /. t -> t0, {t0, 0, 5, .5}]

Robert
---
Robert Nowak (robert.nowak@XXXXXXX.at)
IMS Nanofabrication GmbH
A-1020 Wien, Schreygasse 3, Austria
Phone: (+43 1)2144894-32, Fax: (+43 1)2144894-99

----- Original Message -----
From: Simon Stingelin <simon.stingelin@XXXXXXX.ch>
To: <dmug@XXXXXXX.ch>
Sent: Friday, October 19, 2001 8:34 AM
Subject: Table von Funktionen


> 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
>