Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!zaphod.mps.ohio-state.edu!van-bc!ubc-cs!fs1!fs1.ee.ubc.ca!jthornto
From: jthornto@fs1.ee.ubc.ca (THORNTON JOHAN A)
Newsgroups: comp.sys.handhelds
Subject: Vectored Enter example: direct phasor entry
Summary: Allows you to enter a phasor directly
Keywords: electrical, engineering, phasor, vectored
Message-ID: <1452@fs1.ee.ubc.ca>
Date: 25 Nov 90 04:34:39 GMT
Sender: root@fs1.ee.ubc.ca
Reply-To: jthornto@fs1.ee.ubc.ca (THORNTON JOHAN A)
Organization: Dept. of Electrical Engineering University of B.C.
Lines: 37

This is an example of using the Vectored Enter facility on a 48.
It may be of particular interest to electrical engineers.

If this program is somewhere in the directory tree above your working
directory (such as in HOME), flag -63 is set, and user mode is on, you can
enter a phasor directly as [magnitude]<[angle] where "<" is the phasor symbol
([blue]-[SPC]).

For example,

    10<90 [enter] 2<45 [enter] *

will return (20,<135) if polar mode is set.  Note that the phasor can be 
entered even if the HP is in rectangular mode, and that the mode is
preserved.

Save this program as '[alpha]ENTER'.  [alpha] is entered with [blue]-A.

%%HP: T(3)A(D)F(.);
\<< DUP "\<)" POS DUP
  IF
  THEN RCLF -19 SF
-16 SF 3 ROLLD DUP2
1 - 1 SWAP SUB OBJ\->
3 ROLLD 2 PICK SIZE
SWAP 1 + SWAP SUB
OBJ\-> \->V2 SWAP STOF
  ELSE DROP OBJ\->
  END
\>>
 -------  _/__/   -----------------------------------------------------
        _|  ___|    E l e c t r i c a l      |  Johan Thornton, Esq.
       | | |_/     E n g i n E E r i n g     |-------------------------
       |/|  __|     U n i v e r s i t y      |  jthornto@fs1.ee.ubc.ca
       |-| |/__     o f   B r i t i s h      |-------------------------
       | |_____|      C o l u m b i a        |   This space for rent
 ----  |__|/_|   ------------------------------------------------------