Am Montag, den 14.09.2009, 14:26 -0500 schrieb Barton Willis:
> Thanks--the testsuite ran OK without locally setting limitp to false. Let
> me experiment a bit more with this simpsignum extension.
> But likely, I'll locally set limitp to false:
>
> defmfun simpsignum (x y z)
> (oneargcheck x)
> (setq y (simpcheck (cadr x) z))
> (setq z (let ((limitp nil)) ($csign y)))
Hello Barton,
thanks that you take into account the functionality of $csign.
A hint:
I have switched off limitp already in $csign itself. So it is not
necessary to switch off the flag when calling the function.
A question:
Because I have worked on the functions for the complex components I have
thought about a signum function which allows complex values too. A
possible definition is:
signum(z) = z/abs(z) for z # 0
I think with this definition the relations between the functions abs,
carg, rectform, and conjugate can be implemented more completely.
Dieter Kaiser