Question about solvequad



Hallo!

I'm trying to build a "step-by-step-output" version of some Maxima functions


In the case of simple equation we have such thing
solve(x^2+3*x-2,x);
a 1
b 3
c -2
I called $tex In the function solvequad:
(setq disc_out `((MPLUS SIMP) ((MEXPT SIMP) ,b 2.) ((MMINUS SIMP) ((MTIMES
SIMP) 4. ((MTIMES SIMP) ,a ,c)))))
(mfuncall '$tex '((MEQUAL SIMP) 'upper_d ((MEQUAL SIMP)
((MPLUS SIMP) ((MEXPT SIMP) 'b 2.) ((MMINUS SIMP) ((MTIMES SIMP) 4. ((MTIMES
SIMP) 'a c))))
disc_out)))

The output was ok
$${\it upper\_d}=\left(b^2-4\,a\,c=17\right)$$

I tried a more complex equation
solve(sin(x)^2-(a+1/2)*sin(x)+a*1/2=0,x);

There was a variable substition somewhere, and in solvequad I got:
a 2
b (G21359 1 -2 0 -1)
c (G21359 1 1)

And in TeX function I've got such errors

Maxima encountered a Lisp error:
CAR: #:G21359 is not a list

or

merror(~:M evaluates to ~M~%Improper name or value in functional position.,
g21359, 1)

Maybe it is a silly question, but I'm not a lisp exrert.
What is G21359 and how to make the output work with it?


Andrew Yeltsin

???????? nigma.ru