Any Surveyors?

[buffalo]

(03-22-2016 02:25 AM)BrendanJ Wrote:  hey i am currently in the process of writing a basic program for the hp50g to calculate the co-ordinates from one mark to the next knowing the northing and easting a (point A) and having a distance and bearing.
so for this is what i have got so any help will be appreciated i am a bit stuck
<<RECT
"ENTER N1 AND E1"
PROMPT ->V2 -> NE
<< CYLIN
"ENTER DIST AND BRG"
PROMPT HMS-> ->V2 RECT >>
>>
(I symbolising the arrow as cant do on keyboard ->)
so once it has converted the distance and bearing to rect i need it to add to the northing and easting of the station entered first and give me answer
i am capable of doing this all manually but i just want to write my own program as i am doing this on a daily basis in the field to check things cheers Help greatly needed.

My Post
---------
Hey Brendan (here is yet another way)

ENTER Northing then Easting

STACK
4:
3:
2: 100.000 (remember that northing is here)
1: 100.000 (remember that easting is here )

ENTER Distance then Bearing

STACK
4: 100.000 (nth)
3: 100.000 (est)
2: 555.555 (dist is here)
1: 55.5555 (brg is here)

<< HMS-> P->R >> 'start' STO (note start is lower case)

start (press VAR then the key u just made)

STACK
4: 100
3: 100
2: 311.209 (change in nth)
1: 460.207 (change in est)

<< SWAP DEPTH ROLL + DEPTH ROLLD + >> 'finish' STO (again lower case)

finish (press VAR then the key u just made)

STACK (and the answer)
4:
3:
2: 411.209 (nth)
1: 560.207 (est)

(make this var beforehand, it is used above)
<< ->V2 CYLIN V-> RECT >> 'P->R' STO

(u could have made the 'start' & 'finish' vars beforehand also)