restart;
read(`/tawa/sd1e/tine/Todd/pde.1.txt`);
equ := basic(4,1,1):
equations := EndListToPoly(equ):
save(equations,`equations.txt`);
answer := solve(equations);
save(answer,`solution.txt`);
#Pos := simplex[feasible](answer,NONNEGATIVE,'answer_new','answer_trans');
#save(Pos,answer_new,answer_trans,`feasible.txt`);
done