Re: Sum[x[[i]]+a,{i,1,n}] => Sum[x[[i]],{i,1,n}]+a n

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

Hallo Peter,
wenn es elegant nicht mehr geht dann eben auf die harte Tour:


g[a_, b_, x_, y_] = \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(n\)]\(Expand@
\*SuperscriptBox[\((y[i] - \((a\ x[i] + b)\))\), \(2\)]\)\)
la = Distribute@\!\(
\*SubscriptBox[\(\[PartialD]\), \(a\)]\(g[a, b, x, y]\)\)
lb = Distribute@\!\(
\*SubscriptBox[\(\[PartialD]\), \(b\)]\(g[a, b, x, y]\)\)
{la == 0, lb == 0} /. {\!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(n\)]\(2\ b\ x[i]\)\) ->
    2 b \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(n\)]\ \(x[i]\)\), \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(n\)]\(2\ a\
\*SuperscriptBox[\(x[i]\), \(2\)]\)\) -> 2 a \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(n\)]\
\*SuperscriptBox[\(x[i]\), \(2\)]\), \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(n\)]\(2\ a\ x[i]\)\) ->
    2 a \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(n\)]\ \(x[i]\)\)} //
 Solve[#, {a, b}] &





Waren wir uns nicht schon einmal einig, dass bei deinem Problem []
anstelle [[]] zu verwenden ist  ;)

LG Robert




Am 20.10.2010 20:41, schrieb klamser:
> ClearAll[g]
> g[a_, b_, x_, y_] = \!\(
> \*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(n\)]\(Expand[
> \*SuperscriptBox[\((HoldForm@y[[i]] - \((a\ HoldForm@x[[i]] + b)\))\),
> \(2\)]]\)\)
> la=Distribute[\!\(
> \*SubscriptBox[\(\[PartialD]\), \(a\)]\(g[a, b, x, y]\)\)]
> lb=Distribute[\!\(
> \*SubscriptBox[\(\[PartialD]\), \(b\)]\(g[a, b, x, y]\)\)]
> Reduce[{la==0,lb==0}Element[i,Integer],{a,b}]


-- 
Dipl. Ing. (FH) Robert Nowak
IMS Nanofabrication AG
Phone: +43/12144894/32
Fax: +43/12144894/99

begin:vcard
fn:Robert Nowak
n:Nowak;Robert
org:IMS Nanofabrication AG;PGC
adr:;;Schreygasse 3;Wien;Wien;1020;Austria
email;internet:robert.nowak@XXXXXXX.at
title:Dipl. Ing. (FH)
tel;work:+43/12144894/32
tel;fax:+43/12144894/99
url:www.ims.co.at
version:2.1
end:vcard