(15C) Land Surveying Traverse Program

[emailtank57@gmail.com]

Determines, Azimuth, deltaN, deltaE, closing error, unadj.coordinates. Enter starting Azimuth, field angles and distances. Does not balance field angles.

Thanks Prof. George Anderson 1987 Red River College.

[Thomas Klemm]

Attached is a Nonpareil state-file which can be opened in the emulator.
Now I'm not sure how to use the program. Could you add a few examples?

Thanks in advance
Thomas

Code:

001 - 42,21,15  LBL E          
002 - 43, 5, 0  CF 0           
003 - 42,21, 8  LBL 8          
004 -    42 34  CLEAR REG      
005 -        1  1              
006 -        8  8              
007 -        0  0              
008 -    44 .4  STO .4         
009 -        2  2              
010 -       20  x              
011 -    44 .5  STO .5         
012 - 43, 6, 0  F? 0           
013 -    32  6  GSB 6          
014 -        1  1              
015 -    44 .6  STO .6         
016 - 42, 7, 0  FIX 0          
017 -       31  R/S            
018 - 42,21,13  LBL C          
019 -    43  2  ->H            
020 - 42,21, 0  LBL 0          
021 -    44 .1  STO .1         
022 -    42  2  ->H.MS         
023 - 42, 7, 4  FIX 4          
024 -       31  R/S            
025 - 44,40,.0  STO+ .0        
026 -    45 .1  RCL .1         
027 -       34  x<>y           
028 -    42  1  ->R            
029 - 42, 7, 3  FIX 3          
030 -       31  R/S            
031 - 44,40,.7  STO+ .7        
032 - 44,30,.2  STO- .2        
033 -       34  x<>y           
034 - 44,40,.8  STO+ .8        
035 - 44,30,.3  STO- .3        
036 -       31  R/S            
037 - 43, 6, 0  F? 0           
038 -    32  7  GSB 7          
039 -    43  2  ->H            
040 -       31  R/S            
041 -    32  1  GSB 1          
042 -    32  4  GSB 4          
043 -    22  0  GTO 0          
044 - 42,21, 1  LBL 1          
045 -    43 20  x=0            
046 -    22  2  GTO 2          
047 -       16  CHS            
048 -    45 .4  RCL .4         
049 -       40  +              
050 - 42,21, 3  LBL 3          
051 -    45 .1  RCL .1         
052 -       40  +              
053 -    43 32  RTN            
054 - 42,21, 2  LBL 2          
055 -       33  Rv             
056 -    45 .4  RCL .4         
057 -       30  -              
058 -    22  3  GTO 3          
059 - 42,21, 4  LBL 4          
060 - 43,30, 2  TEST 2         
061 -    22  5  GTO 5          
062 -    45 .5  RCL .5         
063 -       30  -              
064 -    22  4  GTO 4          
065 - 42,21, 5  LBL 5          
066 -    45 .5  RCL .5         
067 -       40  +              
068 -    43 32  RTN            
069 - 42,21,11  LBL A          
070 -    45 .3  RCL .3         
071 -    45 .2  RCL .2         
072 -    43  1  ->P            
073 -       36  ENTER          
074 -       36  ENTER          
075 -    45 .0  RCL .0         
076 -       34  x<>y           
077 -       10  /              
078 -    44 .9  STO .9         
079 -       33  Rv             
080 - 42, 7, 3  FIX 3          
081 -       31  R/S            
082 -       33  Rv             
083 -    32  4  GSB 4          
084 - 42, 7, 4  FIX 4          
085 -    42  2  ->H.MS         
086 -       31  R/S            
087 - 42, 7, 0  FIX 0          
088 -    45 .9  RCL .9         
089 -       31  R/S            
090 - 42,21,14  LBL D          
091 - 43, 4, 0  SF 0           
092 -    22  8  GTO 8          
093 - 42,21, 6  LBL 6          
094 - 42, 7, 3  FIX 3          
095 -    43 35  CLx            
096 -       31  R/S            
097 -    44 .7  STO .7         
098 -       31  R/S            
099 -    44 .8  STO .8         
100 -    43 32  RTN            
101 - 42,21, 7  LBL 7          
102 -        1  1              
103 - 44,40,.6  STO+ .6        
104 -    45 .6  RCL .6         
105 - 42, 7, 0  FIX 0          
106 -    42 31  PSE            
107 -    42 31  PSE            
108 - 42, 7, 3  FIX 3          
109 -    45 .7  RCL .7         
110 -       31  R/S            
111 -    45 .8  RCL .8         
112 -       31  R/S            
113 -    43 32  RTN            
114 - 42,21,12  LBL B          
115 -    43  2  ->H            
116 - 42, 7, 7  FIX 7          
117 -       31  R/S            
118 -    42  2  ->H.MS         
119 - 42, 7, 4  FIX 4          
120 -       31  R/S            
121 -    22 12  GTO B

The Nonpareil state-file was created using the Voyager program compiler.

[CosmicTruth]

(03-15-2014 11:45 AM)Thomas Klemm Wrote:  Attached is a Nonpareil state-file which can be opened in the emulator.
Now I'm not sure how to use the program. Could you add a few examples?

Thanks in advance
Thomas

Code:


(clipped)

The Nonpareil state-file was created using the Voyager program compiler.

This program is a bit much (for me) to port to a 50G, and the art of surveying cannot be explained in a single post. But basically you store a couple of x, y, z, coordinates. These are the locations of points north, east, elevation. Occupy one and back sight the other (with the program). then you input the horizontal angle, vertical angle and slope distance to other points as you traverse with the program.

[JCodyBryant]

I stumbled upon this wonderful site this week and felt compelled to join. I have attached a few programs that were written for the HP-11C and HP-15C-

Some of these I wrote myself, others were shared, and some handed down by a long line of surveyors. I haven't used them all, nor checked them all but I'm sure they are all accurate or layout the basics that would allow someone with the skill to provide some polish or tweaks.........

Horizontal Curve Programs
Vertical Curve Program

A Surveyors COGO Program that will Inverse, Traverse, Az-Az Intersection, Az-Dist. Intersection, Dist-Dist Intersection that is very handy on construction sites. Or it was back in the day. Also, is a separate Traverse/Inverse Program that is for the 11c. I entered it yesterday and it was working with the correct north east or azimuth/distance when I inversed or traversed between points but the display after you enter your setup location wasn't displaying correctly. I probably missed a keystroke..........

When time permits I'll redo them in a better format (word or excel) but for now here are the PDF's.

Enjoy.

[JCodyBryant]

I couldn't post them all but email me and I would be happy to share a Vertical Curve Program for roadwork, a different Horizontal Curve program.

Thanks,

Cody