|Re: Not bad, Tom! But...|
Message #14 Posted by Valentin Albillo on 11 Nov 2003, 10:44 a.m.,
in response to message #13 by Nelson M. Sicuro (Brazil)
"The only 'complex' function is the one that you can enter a complex number, like the I on the 15C, using a complex stack (full 4 entry)..."
The HP-71B/Math ROM also does it quite well:
COMPLEX Z, V
Z = (2,3)*(4,5)/(6,7) + SIN((1,1)) - EXP((2,5)^(3,2))
V = SQR(Z) + SINH(Z) * LOG(Z)/TANH(Z) - ABS(Z)
PRINT POLAR(Z), RECT(Z), CONJ(Z), PROJ(Z)
By the way, "complex stack (full 4 entry)" should be " ... plus complex LastX"
COMPLEX SHORT A(10,10), B(10,10)
MAT A = ((2,5))
MAT B = A*A
MAT PRINT USING 'C(2D.D,2D.D,"i")'; A
COMPLEX X(40,40), Y(40,40), Z(40,40)
MAT X = SYS(Y,Z)
IF Z # (0,0) THEN CALL XREFINE(Z, (1E-5, 1E-5)) ELSE 'DONE'
DESTROY ALL @ OPTION BASE 1 @ DIM P(6) @ COMPLEX R(5)
MAT INPUT P
MAT DISP R
Best regards from V.