display of relational operators

[andrejv]

Converted from SourceForge issue 1303877, submitted by willisbl

Consider

(defun $compare (a b)
(let ((sgn))
(cond
((or (not ($featurep a '$real)) (not ($featurep
b '$real))) '$notcomparable)
((eq (setq sgn (csign ($limit ($ratsimp (sub a
b))))) '$neg) 'mlessp)
((eq sgn '$nz) 'mleqp)
((eq sgn '$zero) 'mequal)
((eq sgn '$pz) 'mgeqp)
((eq sgn '$pos) 'mgreaterp)
((eq sgn '$pnz) '$unknown)
(t '$unknown))))

With xmaxima:

(%i8) compare(5,6);
(%o8) "<"
(%i9) compare(x,x+abs(x));
(%o9) "<="

With wxmaxima:

(%i2) compare(5,6);
(%o2) MLESSP
(%i3) compare(x,x+abs(x));
(%o3) MLEQP

I could change $compare to return &< instead of mlessp
and etc. That way xmaxima and wxmaxima would
both show the same result. Or maybe you could
change wxmaxima to display mlessp as "<".

Barton

[andrejv]

Submitted by andrejv

Logged In: YES
user_id=1179910

The display in cvs wxmaxima now matches the display in xmaxima.

Andrej