has Mathematica gone bonkers?
- To: mathgroup at smc.vnet.net
- Subject: [mg67604] has Mathematica gone bonkers?
- From: "Chris Chiasson" <chris at chiasson.name>
- Date: Sat, 1 Jul 2006 05:13:43 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Table[Solve[
Equal@@MapThread[
Subtract,{f[X[1],X[2],X[3]],
Normal[Series[f[X[1],X[2],X[3]],{X[i],x0,2}]]}/.{{X[i]\[Rule]
x0+\[CapitalDelta]x},{X[i]\[Rule]x0-\[CapitalDelta]x}}],
ReplacePart[Derivative[0,0,0],1,i][f][
ReplacePart[Unevaluated[Sequence[X[1],X[2],X[3]]],x0,i]]][[1,
1]]/.x0\[Rule]X[i],{i,3}]
%/.Rule[der_,dif_]\[RuleDelayed]
Rule[der/.Thread[Map[X,Range[3]]\[Rule]{x1_,x2_,x3_}],
dif/.Thread[Map[X,Range[3]]\[Rule]{x1,x2,x3}]]
why did it place dollar sign scoping constructs in here?
--
http://chris.chiasson.name/