Plotten von selbstdef. Funktionen

["P. Büttiker" <p.buettiker@XXXXXXX.de>]

Liebe Mathematica-Experten

Wenn ich eine Funktion II[s,t,t1,t2], welche mit Hilfe einer Module-Umgebung
definiert wurde (siehe unten), plotten will, kaempfe ich mit einem Problem
(ich verwende Mathematica 4.0 unter AIX): waehrend  z. B. der Aufruf
II[5,55/10,4,88] ein von Null verschiedenes Resultat liefert, tut Plot so, als
sei die Funktion identisch Null. Zur Kontrolle erzeugte ich deshalb eine
Wertetabelle der Funktion II (sie Variable "tabelle1", unten) mit Hilfe von
"Table" => die Funktion ist mit nichten identisch Null. Weiter erzeute ich mit
Hilfe von "Plot" eine weitere Wertetabelle derselben Funktion (sie tabelle2,
unten), aus welcher ersichtlich ist, dass nun die Funktionswerte
(faelschlicherweise) identisch Null sind.

Habe ich da 'was bezueglich "Hold", "Evaluate" et al. uebersehen?

Kann jemand aus der Mathematica-Gemeinde mich Blinden wieder sehend machen?

Vielen Dank!I
Paul

------------- Mein Mma-Script ------------------------------

II::usage = "Eine Funktion";
Begin["Private`"];

KK[s_, t_, t1_, t2_] := 
    t^2 + t1^2 + t2^2 - 2(t t1 + t t2 + t1 t2) - t t1 t2 / ((s - 4)/4);

II[s_, t_, t1_, t2_] := Module[{ns1, ns2, aux, int1, int2, tbar, tt},
    aux = Solve[KK[s, tt, t1, t2] == 0, tt];
    ns1 = Min[tt /. aux];
    ns2 = Max[tt /. aux];
    aux = Simplify[KK[s, tbar, t1, t2]^(-1/2)/(tbar - t)];
    (* ... *)
    
    int2 = Integrate[aux, {tbar, ns2, Infinity}];
    int2
    ]
End[];

Plot[II[5, t, 4, 88], {t, 5, 6}];

tabelle1=N[Table[{t, II[5, t, 4, 88]}, {t, 5, 6, 1/10}]];
Print[tabelle1];

tabelle2 = { };
Plot[AppendTo[tabelle2, {t, II[5, t, 4, 88]}]; II[5, t, 4, 88], {t, 5, 6}, 
  Compiled -> False];
Print[N[tabelle2]];

---------------- Ende Mma-Script ---------------------------

--
================================================================================ 
Paul Büttiker
Institut für Kernphysik (Theorie)               Tel. :     +49 (0)2461 61 44 00
Forschungszentrum Jülich                 Email: p.buettiker@XXXXXXX.de
D-52425 Jülich
================================================================================