The program splits into two parts: the first part uses a program in Mathematica, the second in Maple. Eventually the first part will be changed to Maple as well. Part 1: 1. Read into Mathematica the program "Inhomo" 2. Use "basic[6,1,1]" to compute a general function f of degree 6. 3. Read into Mathematica the program "Full". This will generate the set of linear equations "L" we will work with. 4. Reduce "L" by setting those variables zero which will vanish after parametrizing L and taking the derivative at t=0. Those variables can be found in "varDeg6". Then solve these equations and save answer as "solu". 5. Save solu into data.txt and f into f_data.txt. Part 2: 1. Convert L and f into Maple by the following procedure: For L use the following commands/procedures: cat data.txt | tr "\133\135c" "\050\051C" > data2.txt emacs search & replace -> to = and change = to := add ; at end and delete outside {} Then use Maple to run these commands: read(`data2.txt`); Solu6 := map(x->lhs(x)-rhs(x),solu6); read(`specific.txt`); L := PolyToList(Solu6); save(L,`specific_6_L.m`); For f use the following: cat f_data.txt | tr "\133\135c" "\050\051C" > f_data2.txt use an editor to change the = to := and to add a ; at the end Then use Maple to do: read(`specific.txt`); read(`f_data2.txt`); A := {op(expand(f))}; f := FPolyToList(A); save(f,`data_diff.m`); 2. Compute correlate.txt using specific_correlate.ms 3. Compute initial_data_6.m using specific_initial_6.ms 4. Compute specific_6_L2.m using fixNewL6.ms This requires specific_6_L.m, and is the program that adds the conjugate relationship for the real variable. 5. Compute ans6.m using current6.ms 6. Compute the dimension using finish.ms Note, these last two steps are combined into the file do6.txt