Hi Guys,
I am a surveyor and I got a brand new HP 35s. The problem is in the conversion from polar to rectangular coordinates.
Thanks for those two examples but I¡¯m not able to implement them into these two surveyor programs. Can you help me with this?
Thank you in advance.
Regards,
Samir
P001 LBL P
P002 FS? 10
P003 GTO P011
P004* Rv
P005 Rv
P006 (EQN) REGZ+i*REGT
P007 ARG
P008 LASTx
P009 ABS
P010 RTN
P011* CF 10
P012 XEQ P004
P013 SF 10
P014 RTN
___________________
R001 LBL R
R002 FS? 10
R003 GTO R012
R004* Rv
R005 Rv
R006 eqn [REGZ*SIN(REGT),REGZ*COS(REGT)]
R007 [1,0]
R008 x<>y
R009 *
R010 EQN LASTx*[0,1]
R011 RTN
R012* CF 10
R013 XEQ R004
R014 SF 10
R015 RTN
_______________
1.
LBL J
FIX 2
INPUT X
INPUT Y
LBL C
FIX 2
INPUT N
INPUT E
XEQ R
STOP
1
x=y?
GTO C
RCL N
STO X
RCL E
STO Y
GTO C
LBL R
RCL N
RCL X
-
RCL E
RCL Y
-
y,x¡ú¦È,r ???????????
x<>y
90
x<>y
-
x¡Ý0?
GTO D
360
+
LBL D
¡úHMS
FIX 4
STOP
R¡ý
FIX 3
RTN
______________
2.
LBL P
FIX 3
INPUT X
INPUT Y
LBLE
FIX 4
INPUT B
FIX 3
INPUT D
XEQ Q
FIX 3
RCL N
STOP
RCL E
STOP
1
x=y?
GTO E
RCL N
STO X
RCL E
STO Y
GTO E
LBL Q
RCL B
¡úHR
RCL D
¦È,r ¡úy,x ??????????
RCL X
+
STO N
R¡ý
RCL Y
+
STO E
RTN