Changes between Version 80 and Version 81 of PolynomialExpansion


Ignore:
Timestamp:
01/27/16 17:36:36 (10 years ago)
Author:
sili
Comment:

--

Legend:

Unmodified
Added
Removed
Modified

  • PolynomialExpansion

    v80 v81  
    5656
    5757Step 8: r,,2,, = r,,1,, - alpha,,1,,*Ap,,1,,  ('''Need to expand for cancellation''')
    58   r,,2,,[0] = r,,1,,[0] - alpha,,1,,*(A[0][0]*p1[0]+A[0][1]*p1[1])
    59   r,,2,,[0] =
     58  r,,2,,[0] = r,,1,,[0] - alpha,,1,,*(A[0][0]*p1[0]+A[0][1]*p1[1])[[br]]
     59              =
    6060   m[b,,0,,m - (b,,0,,^2^+b,,1,,^2^)(a,,0,,b,,0,,+a,,1,,b,,1,,)][p,,1,,[0](a,,0,,p,,1,,[0]+a,,1,,p,,1,,[1]) + p,,1,,[1](a,,1,,p,,1,,[0]+a,,2,,p,,1,,[1])] - (a,,0,,p,,1,,[0]+a,,1,,p,,1,,[1]){[b,,0,,m - (b,,0,,^2^+b,,1,,^2^)(a,,0,,b,,0,,+a,,1,,b,,1,,)]^2^ + [b,,1,,m - (b,,0,,^2^+b,,1,,^2^)(a,,1,,b,,0,,+a,,2,,b,,1,,)]^2^}\\
    6161   ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\\