Advanced Search

Question: Maple TA - indexing

Question:Maple TA - indexing

Linda A. 73
July 19 2007
0
This code works fine in Maple. When transferred to TA, the $i on the index in the coef:= command line will not compile. TA thinks the $ is naming a constant. Any other ideas on how to double index within the solve(op commands? with(powseries); powcreate(Ys(n) = a[n]); tpsform(Ys, x, 5); dy:= powdiff(Ys); ddy:= powdiff(dy); c1 := powpoly($d1, x); c2 := powpoly($d2, x); tpsform(c1, x); tpsform(c2, x); slnp := powadd(multiply(ddy, c1), multiply(Ys, c2)); slnnp := tpsform(slnp, x, 6); coef:=solve({(op(2*i+1,slnnp),$i = 0 .. 3)}, {(a[i],$i= 1 .. 6)}); soln := subs(coef, tpsform(Ys, x, 6)); solna := convert(soln, polynom); gsoln := sort(collect(solna, {a[0], a[5]}), x, ascending); par := solve(subs(x = $equals, {gsoln = $y, diff(gsoln, x) = $yprime}), {a[0], a[5]}); fsoln := sort(convert(subs(par, gsoln), polynom), x, ascending); Thanks, Linda
Please Wait...