Earth's Largest Surveyor Network

# 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-e89...

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.

This Content Originally Published by a land surveyor to Land Surveyors United Network

Views: 339

### Replies to This Discussion

Thank you Mr.Billy

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

Thank you!

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

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.

yes Mr.Billy thank you very much...

Where Thousands of Professional Land Surveyors, Students of Surveying and Educators are United through Collaborative Knowledge and Purpose.

## Tools,Apps and Quick Guides

+LandSurveyorsUnitedon

## Dedicated to the Memory of Skip Farrow (1953-2015)

Drag Button to bookmark bar and view submitted links here.Will soon be moved to a directory

## Location Based Surveying Practices

Land Surveyors United is the world's FIRST Global Social Network for geospatial professionals. We have dedicated, geolocated support groups for practically every country, continent and state on earth, for you to utilize for building your personal network. We are all essentially concerned with the same issues, no matter where we are located on earth. However, surveying practices and methods vary depending on the geographic location where we work. If you have noticed similarities and differences between the conditions, laws and practices between two or more areas of the world,discuss it in this forum. Build your reputation online by posting relevant discussions in your local group below.

### Join and Introduce Yourself in Your Local Geosocial Forum:

Not based in the US? Here are other groups for surveyors around the world to join and contribute knowledge and experiences as a land surveyor:

And more... Find your group forum based on location.

what where
job title, keywords or company
 city, state or zip

PLEASE DONATE TODAY. Your generosity preserves surveying and mapping knowledge for future generations. Thank you.