Barton Willis <willisb at unk.edu> writes:
> For askequal, here is a hastily written function
>
> (defun $askequal (a b)
> (let ((answer (meqp a b)))
> (setq answer
> (cond ((eq answer t) '$yes)
> ((eq answer nil) '$no)
> (t
> (retrieve `((mtext) "Is " ,a "equal to " ,b "?") nil))))
>
> (cond ((eq answer '$no)
> (assume (take '($notequal) a b))
> answer)
> ((eq answer '$yes)
> (assume (take '($equal) a b))
> answer)
> (t
> (mtell "Please answer either yes or no.")
> ($askequal a b)))))
Just because this is still in my head: This behaves rather differently
From $asksign, since it doesn't remember what it's been told. I guess
you also want a call to tdzero or tdpn with the difference between the
two terms?
Rupert
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 315 bytes
Desc: not available
URL: <http://www.math.utexas.edu/pipermail/maxima/attachments/20130522/36e9c2c8/attachment.pgp>;