Where are you surveying?

Part:2 Translate,Rotate and Scale :Coordinate Transformation

Here is the Hp 35s,it came out in 2007.This was introduced to commemorate the 35th anniversary of the

of the Hp 35,that came out in 1972 for 395 Dollars. This calculator only had 35 keys,hints the name Hp 35.This was the first scientific pocket calculator. now you can own this one for 60 dollars or even try it Free on your computer. And it has a lot more keys.

PART  2 :  Translate,Rotate and Scale:  Coordinate Transformation

https://www.educalc.net/2336231.page

Here is also a French Site: They will also work in English.

http://www.calculatrices-hp.com/index.php?page=emulateurs

Here is the manual:

http://www.hp.com/ctg/Manual/c01579350.pdf

And for those who like to try the HP 41 CX Program.
the Survey Pac, that has a program similar to this,
but is more advanced in programming. It will Transform
from Old to New or back vice versa. This is also
pre-programmed and does not need to be entered
into the memory of the calculator.
The Hp 41 cx is no longer made,but is a very advanced
calculator still by it's users,even by today's standards.
Thanks to this Arizona web site Surveyor Resource Page .
and how to install the survey pac and also
a copy of the Quick reference card for it.

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Here is Coordinate Transformation: Hp 35s

Formulas Used:

AZ r = Φ + tan -1  E 1 - Ep / N 1 - Np

HDs = S √ ( N1 - Np)² + ( E 1 - E p)²
or
HDs = S  SQRT( ( N1 - Np)² +( E1 - E p)² )

N = HDs  COS (AZr) +  Nt 1

E = HDs  SIN ( AZr) + Et 1

Tn =N t1 - Ep  (41 CX ) survey mod

Te = E t1 - Ep ( 41 CX ) survey mod

where: AZr =Rotated azimuth

Φ =  Rotation angle

N1, E1 =Northing,Easting of current point before transformation

Np, Ep = Original Northing, Easting of pivot point

HDs = Scaled horizontal distance

S =Scale Factor

N , E =Northing, Easting after transformation

Nt 1, Et 1 = Northing, Easting of pivot point after transformation

PROGRAM
Coordinate Transformation B4 HP 35s
Note: Titles and Input Titles may be shorten.

..............,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,61.PSE
..............,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,62.SF 10
..............,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,63.plus + = LT
1. LBL Q...................................64.PSE
2.CLx.......................................65.INPUT R
3.CLVARS................................66.HMS→
4.SF 10....................................67.STO I
5.COORDINATES......................68.SF 10
6.PSE......................................69.IS S FAC
7.TRANSFORMATION...............70. PSE
8.PSE......................................71.  1.0
9.ROTATION.............................72.R/S STOP
10.PSE....................................73.SF 10
11.POINT 1...............................74.SCALE
12.PSE....................................75.PSE
13.OLD NORTH........................76.FACTOR =F
14.PSE....................................77.PSE
15.OLD EAST...........................78.INPUT F
16.PSE....................................79.STO F
17.SF 10..................................80.SF 10
18.OLD NORTH.........................81.OLD NORTH
19.PSE....................................82.PSE
20.INPUT W..............................83.INPUT N
21.SF 10..................................84.STO N
22.OLD EAST...........................85.SF 10
23.PSE....................................86.OLD EAST
24.INPUT X...............................87.PSE
25.STO B.................................88.INPUT E
26.X<>Y...................................89.RCL B
27.STO A.................................90.minus -
28.STO P..................................91.RCL N
29.SF 10..................................92.RCL A
30.ROTATION...........................93.minus -
31.PSE....................................94.X<>Y
32.SF 10..................................95.  i
33.POINT 2..............................96.  x
34.PSE....................................97.  +
35.NEW NORTH = Y.................98.ARG
36.PSE....................................99.LASTx
37.NEW EAST =Z....................100.ABS
38.PSE...................................101.RCL F
39.SF 10.................................102.  x
40.NEW NORTH......................103.X<>Y
41.PSE...................................104.RCL I
42.INPUT Y..............................105.minus -
43.SF 10.................................106.X<>Y
44.NEW EAST.........................107.X<>Y
45.PSE...................................108.COS
46.INPUT Z..............................109.X<>Y
47.R ↨ DN...............................110.LASTx
48.minus -...............................111.SIN
49.STO C................................112.X<>Y
50.R ↨ DN...............................113.  x
51.X<>Y..................................114.X<>Y
52.minus -...............................115.LASTx
53.STO D................................116.  x
54.R/S,STOP...........................117.RCL A
55.SF 10.................................118.  +
56.ROTATION..........................119.RCL C
57.PSE...................................120.minus -
58.ANGLE = R ?......................121.X<>Y
59.PSE...................................122.RCL B
60.minus - = RT.......................123.  +

124.RCL D
125.minus -
126.SF 10
127.NEW NORTH
128.PSE
129.NEW EAST
130.PSE
131.R/S STOP
132.GTO Q080

Note: Option in program, If you like Scale factor of 1
can be made to be default, then if you like changed the Scale factor at
Input ? 1.0000, then do so. I prefer Scale Factor of ? 0.0000 at Input , this makes you ENTER
a factor no matter what it is,1 or not. But If you like 1.0000 to be in display.
To change this simply add STO F on line  Q073,
this will change all of the next line numbers.
Line  132 GTO Q080,WILL BE LINE 133 GTO Q081.
Whatever you like.This is up to you.

Q001 thru Q132 =LN =541,CK =41FD
Q001 thru Q133 =LN =544, CK =5DC6

I kept this program as simple as I could, here is how to run it.
This program,will translate,rotate and scale coordinates.You must calculate,
the Rotation angle and Scale Factor you desire. Choose a translation,rotation point in both systems.
It must be the same point in both system and the same point for translation and rotation.
This is your pivot point in the old and new coordinate system.
First Enter,your OLD NORTH and OLD EAST then your NEW NORTH and NEW EAST.
Of the same pt in both systems. Your old will be moved to Your new.
This is also your rotation point. If no rotation 0.00 is your angle. If rotation desired then,
The rotation angle is entered as a negative value for clockwise rotation
or a positive value for a counterclockwise rotation. You will be REMINDED for your scale factor
of 1, at this time R/S will prompt you to enter, either a scale factor of 1 or a new scale factor.
If your old scale factor is not 1, this must be re-entered as you desire. This Defines what you are using,
1 or the same old scale factor or a completely New scale Factor. This is all the Data.
R/S will prompt to enter next point, old North and R/S, next old East, then R/S will RUN
and your New North and your New East, will be in display. Repeat for next points.

Examples : Given to check program

XEQ Q001, ENTER ,Q001 RUN

OLD NORTH,ROTATION POINT
W ?
150.000   R/S, RUN

OLD EAST
X ?
400.000   R/S,RUN

NEW NORTH ,ROTATION POINT
Y ?
100.00  R/S,RUN

NEW EAST,
Z ?
350.00  R/S, RUN

350.00= EAST
50.00 = DEP. R/S, RUN

ROTA ANG. + POS OR -NEG, POS =CCKW,NEG =CKW
R ?
3.0, +/- ,display, -3.0,HMS CLOCKWISE, R/S ,RUN

IS SCALE FACTOR
1.000  , reminder scale factor of 1.000

-3.0000  DOD   Rot Ang in decimals of a deg
1  ,  R/S ,RUN

CHANGE FACTOR OR NOT
1.00 OR NEW FACTOR

SCALE FACTOR  ?
F ? 0.0000 ,key in
1.0 , NO CHANGE R/S , RUN

PROMPT for OLD NORTH,next point
N ?
224.540 ,R/S, RUN

OLD EAST
E ?
561.673, R/S , RUN

NEW NORTH AND NEW EAST
N 165.9765
E 515.3526      , R/S FOR NEXT POINT

OLD NORTH
N ?.............R/S ,RUN
OLD EAST
E ?..............REPEAT,R/S, RUN
NEW NORTH AND NEW EAST

OLD  SYSTEM.......................NEW SYSTEM
.................ROTATION POINT
N 150.000...........................N 100.000
E 400.000...........................E 350.000
...................NEXT POINT
N 224.540...........................N 165.9765
E 561.673...........................E 515.3526
..................NEXT POINT
N 356.577...........................N 302.6979
E 468.710...........................E 429.4272
..................NEXT POINT
N 232.414...........................N 187.1512
E 307.327............................E 261.7672

Next,  This is a traverse,were the lat's. and dep's have been balance.
Point 1 is the assumed coordinates pivot point and transformation point.
The scale factor has been calculated to be at 0.9999204
The Rotation angle has been calculated at 24.24-45 HMS CCKW = +
So  I will move it, rotate it and scale it all at one time.

XEQ Q001,ENTER, Q001 RUN

OLD NORTH,ROTATION POINT
W ?
5,643.1285 R/S ,RUN

OLD EAST
X ?
4,489.1651  R/S,RUN

NEW NORTH ,ROTATION POINT
Y ?
732,467.6671  R/S,RUN

NEW EAST,
Z ?
3,011,791.9724 R/S, RUN

3,011,791.9724 = EAST
-3,007,302.8073 = DEP. R/S, RUN

ROTA ANG. + POS OR -NEG, POS =CCKW,NEG =CKW
R ?
24.2445 ,display, + 24.2445, CCKWISE, R/S ,RUN

IS SCALE FACTOR
1.000  , reminder scale factor of 1.000

24.4125  DOD, Rot Ang in decimals of a deg
1  ,  R/S ,RUN

CHANGE FACTOR OR NOT
1.00 OR NEW FACTOR

SCALE FACTOR ?
F ? 0.0000 ,key in
0.9999204, NEW ,  R/S , RUN

OLD NORTH
N ?.............R/S ,RUN
OLD EAST
E ?..............REPEAT,R/S, RUN
NEW NORTH AND NEW EAST

OLD SYSTEM......................... NEW SYSTEM
....................Rotation Point
N 5643.1285.........................732467.6671
E 4489.1651.........................3011791.9724
.....................NEXT POINT
N 5974.1649.........................732955.7759
E 4940.9113..........................3012066.4893
.....................NEXT POINT
N 6389.5079.........................733231.1026
E 4692.0382.........................3011668.2363
.....................NEXT POINT
N 6079.2723.........................732861.1737
E 4480.4263..........................3011603.7703
.....................NEXT POINT
N 5975.8837..........................732645.5700
E 4186.5114...........................3011378.8820
......................CLOSING POINT
N 5643.1285...........................732467.6671
E 4489.1651...........................3011791.9724

Grid Azimuth..........Surface Dist. ...........Grid Dist.
Az- 29.21-14 ..........560.0533' ...............560.0087'
AZ-304.39-27 .........484.1979' ...............484.1593'
AZ-189.53-08 .........375.5339' ...............375.5040'
AZ-226.12-27 ..........311.5689' ..............311.5441'
Az- 113.17-59 ..........449.8058' ..............449.7701'

Grid area by coordinate method = 5.6708 acres

Surface area =5.6708 /(0.9999204)² =5.6717 acres

As you can see ,not intended for the modern world,
but at one time it was. But it still works.
This program is HP 35s version.

Here are Dr. Bill Hazelton's HP 35s Programs

pdf drive .net
http://www.pdfdrive.net/hp-35s-closure-1-central-valley-chapter-e8969545.html

Co-ordinate Systems and Related Programs
Wollindina Media ,with Associated Material for programs.
and much more avaible.

http://www.wollindina.com/index.php/hp-calculators/hp-35s-calculator

http://www.wollindina.com/images/HP-33S_PDF/TM_Notes.pdf

http://www.wollindina.com/images/HP-33S_PDF/Lambert_Notes.pdf

Geodetic Computations

http://www.wollindina.com/images/HP-35S_PDF/HP-35s_OM_1.pdf

( 1. ) 7.Traverse Prog. using latitude and longitude and the Gauss mid -latitude Formulae.

( 2. ) 11.Convert latitude and longitude to Lambert Conformal conic projection coordinates (SPCS).

( 3. ) 12.Convert Lambert Conformal conic projection coordinates (SPSC) to latitude and longitude.

( 4. ) 16.Convert Latitude and Longitude to Transverse Mercator coordinates (UTM,SPCS,etc.).

( 5. ) 17.Converts Transverse Mercator coordinates (UTM,SPCS, etc)to latitude and longitude.

( 6. ) 25.Convert latitude ,longitude and height on any Ellipsoid  to XYZ Geocentric coordinates.

( 7. ) 26.Convert XYZ Geocentric coordinates  on and Ellipsoid to  latitude and longitude and height.

Happy programming.

Although these programs are for HP 35s and Hp 41 Cx. I promote the use of any Brand
of programmable calculator used today in surveying.

You need to be a member of Land Surveyors United - Survey Earth to add thoughts!

Replies

• Hello Raymond,

I show my Line to offset program on page three of The little Big calculator that calculated I think I can.There are also some more  programs on that page that you might want to have. My Line to offset uses no coordinates ,which can be calculated if needed from this Data.

• Land Surveyor

Hello Mr.Billy need a program of line and offset with simple codeing

• Land Surveyor

Thank you!

• Land Surveyor

Thank you Mr.Billy

• Thank you , Raymond and thank you Survenator for the Fav.

Survey Legend

Land Surveyor

How to Utilize Surveyor Forums

How to use Forums
Our forums on Land Surveyors United are here to be used as much for finding help with problems in the field as the are for you to express your opinions on anything that has to do with land surveying in general. Feel free to share anything that is on your mind, as long as it isn't meant to damage another member's reputation. Please keep it clean and help insure that everyone has the opportunity to enjoy the benefits of being part of a community that grows together.

We are committed to allowing freedom of expression for all of our members, and that includes maintaining a safe space for people with opposing views to express themselves. We get posts from all over the country and even the globe, so needless to say, people come with different viewpoints on lad surveying practices and processes. We see this diversity and variety as a real strength-- dialogue and debate are an integral part of the educational process, as well as an important tool in exploring different sides of complex issues.

All Community Hubs inside the community have their own forum for asking specific questions to other surveyors, by location, equipment type, etc.