Re: Re:_Sums,_Products:_Einfügen_weiterer_Underscripts

[Winfried Bilgic <4Winne@XXXXXXX.de>]

Hey Thomas, 

danke für die schnelle Hilfe, bin Neueinsteiger was Mathematica betrifft, deswegen verstehe ich nicht ganz, wie ich 
Deine Lösung lesen soll bzw. weiterverarbeiten kann... Gebe ich per Copy & Paste untiges ein, bekomme ich 
Fehlermeldungen "SetDelayed: "Tag Factor in (Factor[x_, {i_}]) is Protected."" (benutze Mathematica 4.2 auf Mac OS X-> 
könnte zu unterschiedlichen Ascii Ausgaben führen). Die Schreibweise habe ich zwar schonmal gesehen, bringe sie aber 
mit der Mathematica Programmierung in Verbindung, was auch falsch sein kann, einfacher ist es vielleicht, wenn Du mir 
dein entsprechendes Mathematica Notebook zugänglich machen könntest ? Mail, Web ? 

Gruß Winfried


Thomas Hahn <hahn@XXXXXXX.de> schrieb am 30.01.03 14:26:22:
> 
> > Lagrange'sche Interpolationsformel: 
> > p(x)=Sum (von i=0 über n) fi * Product(von k ungleich i UND k=0 über n) 
> > (x-xk) / (xi-xk)
> 
> 
> Sorry, war noch ein kleiner Bug drin:
> 
> factor[x_, {i_}] := (x - #)/(X[[i]] - #) &
> 
> p[x_] := Plus@@ MapIndexed[ #1 Times@@ factor[x, #2]/@ Drop[X, #2] &, Y ]
> 
> 
> TH
> 


______________________________________________________________________________
Wer kennt nicht das Problem des unvollstaendigen Adressbuches? Schluss
damit bei  - WEB.DE FreeMail - http://freemail.web.de/features/?mc=021133