HP PRIME: step 2,In to the Time Machine,Part 2 - Land Surveyors United2018-02-18T08:20:25Zhttp://landsurveyorsunited.com/forum/topics/hp-prime-step-2-in-to-the-time-machine-part-2?feed=yes&xn_auth=noHi everyone,
I thought I woul…tag:landsurveyorsunited.com,2017-08-18:544331:Comment:3924092017-08-18T23:09:29.352ZBilly Brookshttp://landsurveyorsunited.com/profile/billybrooks
<p><span>Hi everyone,</span></p>
<p><span>I thought I would touch base on my Polar Angles,if you had a chance to run my Inverse Bearing with Area, then you may still not understand what my polar angles are.They are not intended to be use as part of the answer of the inverse,although they can be useful .This is only a part of the math of the program that determines what quadrant the bearing is in.They are also in Decimal of a Degree,because they are being used in the math.My Polar Angles to the…</span></p>
<p><span>Hi everyone,</span></p>
<p><span>I thought I would touch base on my Polar Angles,if you had a chance to run my Inverse Bearing with Area, then you may still not understand what my polar angles are.They are not intended to be use as part of the answer of the inverse,although they can be useful .This is only a part of the math of the program that determines what quadrant the bearing is in.They are also in Decimal of a Degree,because they are being used in the math.My Polar Angles to the right are true angle right N Azimuths 0 Degrees to 180 Degrees, Polar angles to the left or true angle left 0 degrees to 180 Degrees,but not true Right N Azimuth.You must subtract them from 360 Degrees to calculate the Angle right true N Azimuth,but they are still in Decimals of a Degree, no matter which way the angle is being calculated they must stay in Decimals of a Degree i see no reason to change this in the program. These are not true Polar angles,as</span></p>
<p><span>defined as "Polar Angles",They are part of my <span>algorithms in this program to solve Quadrants,you may never see this in any other program this is just my solution to solve the Quadrants. 0 Degrees is North and 180 is South. Angles are measured as ( - 0°+ ) North to ( -180 + ) South.</span></span></p>
<p></p>
<p>Polar Angles in the program,Inverse Bearing with Area or angles base on MY, RPN logic Programming.they are measured from the Y axis,positive to the right and negative to the left to 180 Degrees.These are only polar angles in My RPN Programming .True polar angles can be defined as measured from the X axis in a counterclockwise motion.In a <a rel="nofollow" href="http://mathworld.wolfram.com/SphericalCoordinates.html" target="_blank">spherical coordinates</a> a polar angle is measured from the Z axis. Just wanted to make this clear.</p>
<p></p>
<p><a rel="nofollow" href="http://mathworld.wolfram.com/PolarAngle.html" target="_blank">http://mathworld.wolfram.com/PolarAngle.html</a></p>
<p></p>
<p>The polar angles in my program,are mine,this is how I input the program lines in or order, to make my program work,with Bearings and Quadrants , this is not HP special, angles, this solutions is mine .HP 35 calculators have there on special Angle system,but here is a little help by Jason Foose PS</p>
<p> In this he is talking about the HP 35. but this information goes over HP special Azimuth circle of +/- 180 Degrees. Note: HP Azimuth starts with 0 ̊ as east or the equivalent 90 ̊ in <br/>earth based units. Positive angles represent counterclockwise rota-tion north of the equatorial zero whereas negative angles represent clockwise rotation south of the equatorial zero to 180 ̊ or west.</p>
<p></p>
<p>Mine start at O° North go clock wise right +90° to clockwise +180°,then go back to ,0° North,then go counter clock wise left - 90° to -180°., +180° means angle was to the right, ,- 180° means angle was to the left,in bearings these quadrants or - SW and +SE, 0° and that's how mine work Do not confuse the other two with mine.Just wanted to make this clear.Most Inverse program are in Azimuth only I chose to write this one using Bearings and Quadrants plus to calculate Area at the same time.</p>
<p></p>
<p><a rel="nofollow" href="http://www.amerisurv.com/PDF/TheAmericanSurveyor_Foose-35sCalculatorPrograms_August2014.pdf" target="_blank">http://www.amerisurv.com/PDF/TheAmericanSurveyor_Foose-35sCalculato...</a></p>
<p></p>
<p>This program is by Mark Hays Harris,( R to P and P to R combined) ,choice input on the program</p>
<p>less than zero (default) R<>P X in x, Y in y. Very unique, so choose 1 or -1 . at R/S input.</p>
<p>So -1= Go Polar ,1= Go Rectangular</p>
<p></p>
<p>P001 LBL P<br/>P002 x<> F................... ; parameter for determining R<>P vs P<>R<br/>P003 CLx<br/>P004 -1..........................; less than zero (default) R<>P X in x, Y in y<br/>P005 STOP....................; give the operator a chance to change the parm use [+/-] key<br/>P006 x>0?.................... ; branch around R<>P routine<br/>P007 GTO P023<br/>P008 x<> F<br/>P009 STO X..................; Entry Point for R<>P routine<br/>P010 x^2..................... ; compute R value to be placed in y Y<br/>P011 x<>y<br/>P012 STO Y<br/>P013 x^2<br/>P014 +<br/>P015 √.......................; use square root key <br/>P016 STO R........... ...; save R to R<br/>P017 RCL Y............... ; compute theta , R is lifted to y<br/>P018 RCL X............... ;<br/>P019 /<br/>P020 ATAN<br/>P021 STO A............. ;save theta in A (P y holds R, x holds theta<br/>P022 RTN................ ; END R<>P routine<br/>P023 x<> F............. ;might have been able to use REGx REGy here...</p>
<p>P025 STO R............ ; save R from y<br/>P026 x<>y................;<br/>P027 STO A.............; Save A (theta) from x<br/>P028 SIN<br/>P029 *......................; multiply compute y<br/>P030 STO Y<br/>P031 RCL R............. ;<br/>P032 RCL A ............ ;<br/>P033 COS<br/>P034 *..................... ; multiply compute x<br/>P035 STO X<br/>P036 RTN.................; END P<>R routine y holds Y, x holds X</p>
<p>LN=110 CK=0E3B</p>
<p></p>
<p>Thanks to Mr. Harris for sharing this program. This program is using the [True] First Method</p>
<p>without Complex numbers, B=ATAN ( X / Y ) ,and <span>d = SQRT( ΔE² + ΔN²) or d= √ΔE² + ΔN² .</span></p>
<p><span>And Dist x COS (B )= LAT, and Dist x SIN (B) = DEP</span></p>
<p></p> Thanks Jaybird,
It would shoc…tag:landsurveyorsunited.com,2017-08-16:544331:Comment:3922772017-08-16T04:56:07.107ZBilly Brookshttp://landsurveyorsunited.com/profile/billybrooks
<p>Thanks Jaybird,</p>
<p>It would shock them if they went to ebay,and priced one. A HP 48 cost more</p>
<p>used than a new HP Prime.It is also a testimony of how many of them still work and are being used and surveyors still looking to buy them. The cards costs as much as they did new.</p>
<p> I have seen HP 48Gx from 300 to 600 dollars and Survey Pro TDS and 1mb Ram cards</p>
<p>400 to 500 each,(Survey Pro can cost up to 800 Dollars.) They may belong in a museum for those who never used them…</p>
<p>Thanks Jaybird,</p>
<p>It would shock them if they went to ebay,and priced one. A HP 48 cost more</p>
<p>used than a new HP Prime.It is also a testimony of how many of them still work and are being used and surveyors still looking to buy them. The cards costs as much as they did new.</p>
<p> I have seen HP 48Gx from 300 to 600 dollars and Survey Pro TDS and 1mb Ram cards</p>
<p>400 to 500 each,(Survey Pro can cost up to 800 Dollars.) They may belong in a museum for those who never used them and it sad that HP does not make a calculator / data collector device,but I still love my HP Prime.</p>
<p>Hp for Life: Billy</p> saw this post ...thought you…tag:landsurveyorsunited.com,2017-08-16:544331:Comment:3920342017-08-16T03:53:55.545ZJaybirdhttp://landsurveyorsunited.com/profile/LandSurveyorUnitedAdmin
<p>saw this post ...thought you might like the comments</p>
<p><iframe width="500" height="507" src="https://www.facebook.com/plugins/post.php?href=https%3A%2F%2Fwww.facebook.com%2Flandsurveyorsunited%2Fposts%2F10156530115562586&width=500" frameborder="0"></iframe>
</p>
<p>saw this post ...thought you might like the comments</p>
<p><iframe width="500" height="507" src="https://www.facebook.com/plugins/post.php?href=https%3A%2F%2Fwww.facebook.com%2Flandsurveyorsunited%2Fposts%2F10156530115562586&width=500" frameborder="0"></iframe>
</p> Hi Everyone,I have not said m…tag:landsurveyorsunited.com,2017-08-16:544331:Comment:3921972017-08-16T02:48:42.323ZBilly Brookshttp://landsurveyorsunited.com/profile/billybrooks
<p>Hi Everyone,<br></br>I have not said much about RPL,( Reverse Polish Lisp.) programming.This in any case,it is still being used by a lot of calculator users.At this time HP does not have a RPL calculator for sale. I have seen plenty places to buy a new one though.The calculator will run a lot of HP 48 Keystroke RPL programs, this includes the 48,49 and the 50. System RPL is a different story The 48 GX used HP program cards and Ram cards, while the 50G uses SD cards up to 2 GB. these can be used…</p>
<p>Hi Everyone,<br/>I have not said much about RPL,( Reverse Polish Lisp.) programming.This in any case,it is still being used by a lot of calculator users.At this time HP does not have a RPL calculator for sale. I have seen plenty places to buy a new one though.The calculator will run a lot of HP 48 Keystroke RPL programs, this includes the 48,49 and the 50. System RPL is a different story The 48 GX used HP program cards and Ram cards, while the 50G uses SD cards up to 2 GB. these can be used for programs or extra memory. Jacob Wall from SGS and a few others sell the calculators and the survey programs to go with them. With out showing big programs I will just touch base on them,this is still( Reverse Polish) (Lisp.) the calculator will run in RPN,<br/>it can not be program in RPN ,only RPL and System RPL.</p>
<p>Rectangular to polar, vice versa ,however you want to write it ,R→P, P→R, →Θ,r , → y,x , X i Y, r Θ a , is more of a part of the routine of B= ATAN( D ÷ L ) and √ ( a² + b² ) just a different way of doing it.Simple is always Gold when you find it.I will show how to do this on the HP 50G as BRG,,◄◄ d l / ATAN ►► and DIST,, ◄◄dsq lsq + √ ►► ,Now here is one more way HP 50G RTP,,◄◄ DUP ARG SWAP ABS ►► name it RTP.<br/>Now here is PTR ,,◄◄ DUP DUP RE SWAP IM SIN * SWAP DUP RE SWAP IM COS * ►► name it PTR, Now how they work, EX.RTP=(3,4) <br/>Enter if you like, or press PTR 5 in level 1 and 53.1301 level 2. Now PTR (5,53.1301) Enter if you like or press PTR, 3 in level 1 and 4 in level 2.</p>
<p></p>
<p>Now reversal of equations and programs to RPL,<br/>BRG and DIST,so to go along with these,◄◄ d L / ATAN ►► and ◄◄ dsq Lsq + √ ►►<br/>I used Caps L just to make sure it was seen as a L, lower case is my intent. But now to reverse these two,If you have the Bearing and Distance which is Polar,to now go Rectangular.<br/>LAT. = DIST. x COS BEARING, AND DEP, =DIST. x SIN BEARING<br/>RPL program, ◄◄ d b SIN x ►►, name it lower case, dep<br/>now for LAT., ◄◄ d b COS x ►►, name it lower case, lat</p>
<p>Now write a combine program and name it lower case pnr<br/>Write like this ◄◄ d b SIN x , d b COS x►►, when you press ENTER the program<br/>will not contain the coma , it will look like this◄◄ d b SIN x d b COS x ►►, then press Prime,delimiters (algebraic/Name) key<br/>and name it ' ' , ' pnr ' , sto , all you have to do is sto distance in d and bearing in b then press the vars dep, lat, or pnr that is three more programs. For the HP 50G.</p>
<p><br/>The 50G loves complex numbers. But back to the HP 35s,even though it does not have P→R or R→P or any other way , →Θ,r and →x,y that it, has been label on a calculator. It can be done like i said with programs or in display and complex mode.Lets do R→ P, First you would press left shift, Display [.] decimal 0,this sets the calculator in complex mode for R→P ,then key in 3 i 4,then ENTER,results in display are 5.0000Θ53.1301</p>
<p>Now lets do P→R, left shift Display 9, this sets the calculator in complex mode for P→R,key in 5.0000, right shift theta, Θ 53.1301,then <br/>ENTER, result in display 3.0000 i 4.0000. That is one more way. And that is how the HP 35 s works .But It also can be done like this on a HP 50G ,just (3.0000,4.0000) and you can use space in place of the coma,if you like,then ENTER,ENTER, then press left shift ABS,answer <br/>is 5.0000, then Delete,this drop (3.0000,4.0000) down on display, then right shift ARG ,answer 53.1301,that is one more way. This can also be done in complex soft keys on this calculator, and all the way back to the HP 48gx.<br/>So not having these two keys is nothing new, when it comes to the HP 35s or the HP 50G.</p>
<p><br/>Here in HP PPL is ATAN2</p>
<p>EXPORT ATAN2(x,y)<br/>BEGIN<br/>LOCAL r:=ARG(x+y*i);<br/>IF (r < 0) THEN<br/>IF (HAngle) THEN<br/>r := r + 360;<br/>ELSE<br/>r := r + 2*π;<br/>END;<br/>END;<br/>RETURN r;<br/>END;</p>
<p></p>
<p>ATAN2, is used in computer programs.</p>
<p>At first glance tells me this is closer to Pascal than BASIC or other languages (and I've been through a lot of them). The challenge is always keeping them in sync, and also making sure you don't drag the other languages way behind.Pascal most likely as pointed out. Really, I tried to make it so it would feel pretty universal and if you'd used any programming languages it will make sense just looking at it.One important difference: Pascal is a strongly typed language, PPL is not.</p>
<p></p>
<p>so in PPL:</p>
<p>Local i;<br/>i:=1;<br/>i:=1.2;<br/>i:="abc";</p>
<p>are all legal and ok to do.</p>
<p></p>
<p>In Pascal:</p>
<p>var i:int; //defines i as an integer variable<br/>i:=1; //ok 1 is an integer<br/>i:=1.1; //error 1.1 is a real number<br/>i:="abc"; //error "abc" is a string</p>
<p></p>
<p>So when looking at program examples in Pascal keep this in mind. Strongly typed languages will tend to reduce programming errors, on the other hand you have to do type casts if you need to go from one thing to the other e.g. from a real to an integer, in PPL they are the same thing. It can be useful when writing non trivial programs in a PPL like language to adopt conventions such as appending something like _i to all variables that are supposed to be integers; _r to all variables that are supposed to be real; _s to all variables that are supposed to be stings, then if you find yourself doing something like pi_r:="3.14" than you need to ask yourself why you are assigning a string to something that is supposed to hold a real number.<br/>For what it's worth, you can obtain the benefit of typed variables in PPL by using the built-in variables (which are strongly typed) instead of creating your own. For example:</p>
<p><br/>A through Z can only contain real numbers<br/>Z0 through Z9 can only contain complex numbers<br/>G0 through G9 can only contain graphics<br/>L0 through L9 can only contain lists<br/>M0 through M9 can only contain arrays (vectors or matrices)</p>
<p></p>
<p>So if you really do want strongly typed variables, they are available in PPL .<br/>They are global variables which entails problems too also the names are not very intuitive, of course in small programs it makes little difference.Overall PPL does look like a highly structured language or can it be, one would never really expected one in a calculator or should you. Pascal most likely as pointed out. Really, I tried to make it so it would feel pretty universal like I already said,and if you'd used any programming language it will make sense just looking at it. You should have based on C/C++/Java/C#/javascript style syntax then, all of which are very similar syntactically. Pascal is pretty much dead or not, to Pascal being dead, don't tell the Free Pascal, Lazarus and Delphi communities where programs can and are being written in Pascal...Long live Pascal. I wish PPL had more features from it, pointers would be nice, not to mention stack manipulation commands...and some good documentation too the full PDF manual seems to leave a lot out.But where ever it came from,I think it is here to stay and how strange is it comparing a Computer language to one you are using in your Calculator.</p>
<p>Back to calculator languages, here is my Inverse,in RPN ,what makes this one special,it will also calculate the AREA of your inverse. It will work like any other Inverse program,but if points are inverse like a traverse loop, POB to POB,does not matter what direction, Clock wise or counter Clockwise then the Area is also calculated. It also uses Bearings and quadrants in the answers instead of Azimuth.</p>
<p><br/>BRG INVERSE WITH AREA HP 35s</p>
<p>I001.LBL I........................ I051.SF 10<br/>I002. CLx..........................I052. POLAR ANGLE<br/>I003.CLVARS.....................I053.PSE<br/>I004.SF 10........................I054.SF 10<br/>I005.BRG INV....................I055.H DIST<br/>I006.PSE..........................I056.PSE<br/>I007.AND AREA................I057.STOP R/S<br/>I008.PSE..........................I058.SF 10<br/>I009.SF 10........................I059.QUADRANT<br/>I010.POB NORTH..............I060.PSE<br/>I011.PSE..........................I061.BEARING <br/>I012.INPUT N....................I062.PSE<br/>I013.SF 10........................I063.X<>Y<br/>I014.POB EAST.................I064.X > 0? <br/>I015.PSE..........................I065.GTO I068<br/>I016.INPUT E....................I066. 360<br/>I017.STO B.......................I067. + plus<br/>I018.X<>Y.........................I068.ENTER<br/>I019.STO Z.......................I069.ENTER<br/>I020.STO A.......................I070. 90<br/>I021.STOP R/S..................I071. ÷ divide<br/>I022.SF 10........................I072. 1<br/>I023.NORTH NXT PT...........I073. + plus<br/>I024.PSE..........................I074. I P<br/>I025.INPUT N....................I075.X<>Y<br/>026.SF 10.........................I076.SIN<br/>I027.EAST NXT PT.............I077. ASIN<br/>I028.PSE..........................I078.X< 0?<br/>I029.INPUT E....................I079. +/- chn sgn<br/>I030.RCL B.......................I080.>>>HMS <br/>I031.- minus......................I081.RCL Z<br/>I032.STO +B.....................I082.RCL A<br/>I033.STO C.......................I083.STO Z<br/>I034.X<>Y.........................I084. +plus<br/>I035.RCL A.......................I085.RCL C<br/>I036.-minus.......................I086. x times<br/>I037.STO + A....................I087. 2<br/>I038.CF 10........................I088. ÷ divide<br/>I039.ABS..........................I089. STO + G<br/>I040.CLx...........................I090. RD roll down<br/>I041.LAST x......................I091.GTO IO21<br/>I042.RD roll down...............I092. RTN<br/>I043.RD roll down<br/>I044.(EQN) REGZ + i x REGT<br/>I045.ENTER<br/>I046.RD roll down<br/>I047.RD roll down<br/>I048.(EQN) ARG ( REGT )<br/>I049.(EQN) ABS (REGT ) <br/>I050.STO + H</p>
<p></p>
<p>RCL H FOR ACCU. H DISTANCE<br/>RCL G FOR ACCU.SQ.FT. AREA ignore +/- sign</p>
<p></p>
<p>Lines I038. thru I049 is a nested subroutine R to P<br/>The R to P subroutine in this program was written and credited by Hp Museum of Calculators. It has also been modified by Jason E. <br/>Foose,PS for the Hp 35s,there are many more version like this routine. I chose to use this one for this program, it does not change the content of the stack.<br/>I have slightly modified the listing to use only the R to P routine, with out the Global label and the end RTN command.This shorten it to 12 lines. I used this routine to show equations in the program and how it works with them.This program I001 will work with the P program in this discussions that i wrote, that has no equations and does not use any storage registers so if you like, you can substitute it, in this <br/>program lines,but this will change the final line numbers ,but will not affect the GTO instruction on line I091 it will change that line number, because mine is only 7 lines, it will shorten the program by 5 lines. But this does not change that command line instruction. <br/>Because it is before this subroutine.However line I060.then will be I060.GTO I063 instead of line I065 GTO I068,This all in learning how to change code.In some cases changing the lines this calculator will automatically change line numbers and GTO instructions and labeling of the program lines.<br/>So here is alter. sub program P</p>
<p></p>
<p>I037. STO + A<br/>I038.X<>Y.............Start here<br/>I039. i<br/>I040. x times<br/>I041. + plus<br/>I042.ARG<br/>I043.LAST x<br/>I044.ABS.............End Here<br/>I045.STO + H</p>
<p></p>
<p>And this is my complete program when this is used.You can see mine is a lot more simpler and still does the same math.No matter what the stack does.<br/>So lets run the program.First I clear all data stored in my calculator for this program. I have wrote a short program to do this ,I use letter Z for this program.</p>
<p></p>
<p>Z001. LBL Z<br/>Z002.CL x<br/>Z003.CLVARS<br/>Z004.RTN</p>
<p></p>
<p>you can also add accumulate key if you like.Be sure before you do this,all stored data in REGs memory A thru Z will be lost.</p>
<p><br/>Or you can do this manually.<br/> So now we will run program "I".</p>
<p></p>
<p>XEQ I ,ENTER I001. program runs, NORTH,ask N ?, 5000, R/S program runs,EAST, ask E ?<br/>5000, R/S, display 5000 on top 5000 on bottom,R/S, program runs,north nxt pt. ,ask N ? 5000<br/>R/S, east nxt pt. ask E ?, 5208.7103, R/S, program runs, polar angle and distance,90 on top,<br/>and 208.7103 on bottom, R/S, quadrant and bearing,quad 2 on top and 90 bear. on bottom, R/S, <br/>north nxt pt. N? 5208.7103, R/S, east nxt pt. E? 5208.7103, R/S, polar angle and dist.0.000 on top and 208.7103 on bottom, R/S quad 5 on top and bear.0.000 on bottom,remember quad 5 is due north bearing N-0.0000-E R/S, runs north nxt pt. N? 5208.7103, R/S,runs east nxt pt. E ? 5000.00, R/S runs polar angle - 90.0 on top and dist. 208.7103 on bottom,notice - 90 is negative. R/S, quad.4 on top, bear.90.0 on bottom,R/S runs north nxt pt. N ? 5000.00R/S, east nxt pt. E?, 5000.00, R/S, polar angle 180 on top and dist. 208.7103 on bottom ,R/S, quad 3 on top and bear.0.0000 on bottom. this completes a traverse inverse of one acre.<br/>Note: Quadrant 5, will only appear if the bearing is due North 0 Degrees.</p>
<p></p>
<p>So now RCL H =total HD traveled =834.8412 ft.<br/>So now RCL G =total SQFT in AREA= - 43599.9893, IGNORE the +/- sign. And thats how this program works And make sure your calculator is in DEGREE MODE.</p>
<p>Until next Time.</p> Hi Everyone,
I will pick up…tag:landsurveyorsunited.com,2017-08-14:544331:Comment:3918372017-08-14T05:18:21.974ZBilly Brookshttp://landsurveyorsunited.com/profile/billybrooks
<p>Hi Everyone,</p>
<p> I will pick up where i left off with the Time Machine.I think back to the first day I saw a HP 48 GX and I took a look ,after just using my HP 41cx, so this is the new calculator. I looked but I could not find, P to R or R to P keys nowhere and there was no HMS or HR keys to be found. Thats no problem may be they were alpha keys. Then I was told there was no RPN programming,it was in RPL.</p>
<p>Why do they always change things. First we had to learn RPN,then RPL and now…</p>
<p>Hi Everyone,</p>
<p> I will pick up where i left off with the Time Machine.I think back to the first day I saw a HP 48 GX and I took a look ,after just using my HP 41cx, so this is the new calculator. I looked but I could not find, P to R or R to P keys nowhere and there was no HMS or HR keys to be found. Thats no problem may be they were alpha keys. Then I was told there was no RPN programming,it was in RPL.</p>
<p>Why do they always change things. First we had to learn RPN,then RPL and now HP PPL or just PPL.</p>
<p>And even now a new RPN born as a macro of PPL and this is just the tip of what this calculator is capable of. So we looked at HP PPL Inverse and a macro RPN Inverse, a RPN Inverse in RPN complex and a RPN in RECT and POLAR rpn now back to PPL using complex numbers.</p>
<p>Make your own programs,you get to choose.You can add to or take off what you need and like and don't like. Just like I said on the first PPL Inverse you can add too or take off,use Feet or meters.</p>
<p>Here in PPL Inverse,using complex equations.</p>
<p>Using Program Parameters,{ N1,E1,N2,E2,ELEV2,ELEV1 }</p>
<p></p>
<p>EXPORT azdistcplex1(N1,E1,N2,E2,ELEV2,ELEV1)</p>
<p>BEGIN</p>
<p></p>
<p>// 2016-09-06 BB</p>
<p></p>
<p>// SET DEGREE MODE</p>
<p>HAngle:=1;</p>
<p></p>
<p>// Algebraic Order Quad(+/-)Sign</p>
<p>//1=(+/+),2=(−/+),3=(−/−),4=(+/−)</p>
<p></p>
<p>LOCAL ΔY:=(N2-N1);</p>
<p>LOCAL ΔX:=(E2-E1);</p>
<p></p>
<p>// Horiz.Dist.</p>
<p>LOCAL D:=ABS(ΔX+ΔY*i);</p>
<p></p>
<p>// Elev. Diff.</p>
<p>LOCAL DN:=(ELEV2-ELEV1);</p>
<p></p>
<p>LOCAL Bears1:=ARG(ΔX+ΔY*i);</p>
<p>LOCAL Bears2:=ABS(ATAN(ΔX/ΔY));</p>
<p></p>
<p>//Bears2</p>
<p>LOCAL BEARNE:=(Bears2);</p>
<p>LOCAL BEARSE:=(Bears2);</p>
<p>LOCAL BEARSW:=(Bears2);</p>
<p>LOCAL BEARNW:=(Bears2);</p>
<p></p>
<p>PRINT();</p>
<p>PRINT("DISTANCE (FT)");</p>
<p>PRINT(D);</p>
<p></p>
<p>//Bearing Quadants</p>
<p>LOCAL Q1:="NE";</p>
<p>LOCAL Q2:="SE";</p>
<p>LOCAL Q3:="SW";</p>
<p>LOCAL Q4:="NW";</p>
<p></p>
<p>//BEARING DEGMINSEC</p>
<p>LOCAL QD1:=→HMS(BEARNE);</p>
<p>LOCAL QD2:=→HMS(BEARSE);</p>
<p>LOCAL QD3:=→HMS(BEARSW);</p>
<p>LOCAL QD4:=→HMS(BEARNW);</p>
<p></p>
<p>PRINT("BEARING FORWARD");</p>
<p>IF ΔY>0 AND ΔX>0 THEN PRINT(QD1);PRINT(Q1);END;</p>
<p>IF ΔY<0 AND ΔX>0 THEN PRINT(QD2);PRINT(Q2);END;</p>
<p>IF ΔY<0 AND ΔX<0 THEN PRINT(QD3);PRINT(Q3);END;</p>
<p>IF ΔY>0 AND ΔX<0 THEN PRINT(QD4);PRINT(Q4);END;</p>
<p></p>
<p>//Bears1</p>
<p>LOCAL Bears2:=ARG(ΔX+ΔY*i);</p>
<p>LOCAL Bears1:=ABS(ATAN(ΔX/ΔY));</p>
<p></p>
<p>//AZIMUTH QUADRANTS</p>
<p>LOCAL AZinve1:=(Bears1);</p>
<p>LOCAL AZinve2:=(180-Bears1);</p>
<p>LOCAL AZinve3:=(180+Bears1);</p>
<p>LOCAL AZinve4:=(360-Bears1);</p>
<p></p>
<p>//AZIMUTH DEGMINSEC</p>
<p>LOCAL AZ1:=→HMS(AZinve1);</p>
<p>LOCAL AZ2:=→HMS(AZinve2);</p>
<p>LOCAL AZ3:=→HMS(AZinve3);</p>
<p>LOCAL AZ4:=→HMS(AZinve4);</p>
<p></p>
<p></p>
<p>PRINT("AZIMUTH FORWARD");</p>
<p>IF ΔY>0 AND ΔX>0 THEN PRINT(AZ1);END;</p>
<p>IF ΔY<0 AND ΔX>0 THEN PRINT(AZ2);END;</p>
<p>IF ΔY<0 AND ΔX<0 THEN PRINT(AZ3);END;</p>
<p>IF ΔY>0 AND ΔX<0 THEN PRINT(AZ4);END;</p>
<p></p>
<p></p>
<p>PRINT("Diference in elev (FT)");</p>
<p>PRINT(DN);</p>
<p>PRINT("Elevation of Pt2(FT)");</p>
<p>PRINT(ELEV2);</p>
<p>PRINT("Elevation of Pt1(FT)");</p>
<p>print(ELEV1);</p>
<p></p>
<p>END;</p>
<p></p>
<p>Go to Program Catalog, select azdistcplex1,then RUN.</p>
<p></p>
<p>you will see, <span>Program Parameters</span></p>
<p></p>
<p>N1. 0.0000...........E1 .0.0000</p>
<p>N2. 0.0000..........E2. 0.0000</p>
<p>ELEV2 0.0000....ELEV1 0.0000</p>
<p></p>
<p>Input or Enter all and press OK after each to enter,then OK</p>
<p>for program to RUN.</p>
<p>The SCREEN you will see</p>
<p>DISTANCE (FT)</p>
<p>0.0000</p>
<p>BEARING FORWARD</p>
<p>0°.00' 00"</p>
<p>NE</p>
<p>AZIMUTH FORWARD</p>
<p>0°.00' 00"</p>
<p>Difference in elev(FT)</p>
<p>0.00</p>
<p>Elevation of Pt2(FT)</p>
<p>0.0000</p>
<p>Elevation of Pt1(FT)</p>
<p>0.0000</p>
<p></p>
<p>This is just a simple Inverse program, a lot more can be done to it. This is just one more</p>
<p>way to write Inverse in PPL. So add this one to your list, I have quite a list of surveying</p>
<p>programs in PPL and macro RPN and it keeps growing every day.</p>
<p></p>
<p></p> Thank you,
Survenator for th…tag:landsurveyorsunited.com,2017-08-07:544331:Comment:3907432017-08-07T04:14:22.098ZBilly Brookshttp://landsurveyorsunited.com/profile/billybrooks
<p> Thank you,</p>
<p>Survenator for the fav,Glad you like it.</p>
<p> Thank you,</p>
<p>Survenator for the fav,Glad you like it.</p> Hi Everyone,Before I move on…tag:landsurveyorsunited.com,2017-08-07:544331:Comment:3909752017-08-07T03:02:54.639ZBilly Brookshttp://landsurveyorsunited.com/profile/billybrooks
<p>Hi Everyone,<br></br>Before I move on to Traverse, Lets look at Inverse just a little more. With different type of RPN programming.<br></br> <br></br>Theory, If the coordinates of two points are given, there are two ways by which the azimuth and distance between them may be derived. These are equivalent, and will produce the same result. This HP- 35s program uses the second method, viz., vectors stored as complex numbers. The Hp 33s Is different. It uses the first method but in a different way ,the HP…</p>
<p>Hi Everyone,<br/>Before I move on to Traverse, Lets look at Inverse just a little more. With different type of RPN programming.<br/> <br/>Theory, If the coordinates of two points are given, there are two ways by which the azimuth and distance between them may be derived. These are equivalent, and will produce the same result. This HP- 35s program uses the second method, viz., vectors stored as complex numbers. The Hp 33s Is different. It uses the first method but in a different way ,the HP 35s can use the second with complex numbers or the first using a R to P subroutine in the program this is also nested or can be,not always. It can also be used as a calling routine.</p>
<p></p>
<p>This program is designed to hide completely the complex number work that the calculator<br/>performs to compute the azimuth and distance from the coordinates. All values entered and<br/>returned are presented in much the same manner as with the equivalent operation (Rectangular to Polar) in the HP-33S calculator. So now here is a Inverse Program in Saturn RPN written for the HP 35s.<br/>It using complex numbers without using (Rectangular to Polar). Using Coordinates alone, the differences between the easting coordinates of the points (ΔE) and difference between the northing coordinates of the two points (ΔN) are obtained. The point from which the azimuth is desired to come is termed the ‘near’ point, while the point to which the azimuth points is termed the ‘far’ point. So You could also say POB near and POE far.</p>
<p></p>
<p>1.First Method<br/>ΔE = Eƒ – En<br/>ΔN = Nƒ – Nn</p>
<p>The distance, d, between the two points is computed using:<br/>d = SQRT( ΔE² + ΔN²) or d= √ΔE² + ΔN²</p>
<p></p>
<p>The azimuth, θ, between the two points is computed using:<br/>θ = arctan(Δ E/Δ N)</p>
<p></p>
<p>The ATAN2 function (in some programming languages and Excel) takes the two components, ΔE and ΔN, as separate arguments, and returns an azimuth in the range –180° to +180°. This is easily converted to an azimuth in the range 0° to 360° The HP calculator function R→P performed a similar process, but it is not present on the HP-35s, so the angle must be put into its correct quadrant manually, as the ATAN function returns a value between –90° and +90°.</p>
<p></p>
<p>2.Second Method</p>
<p><br/>Using Vectors, the coordinates of each point are entered as<br/>the components of a pair of 2-D vectors. In the HP-35s, 2-D vectors are best handled as complex numbers, so that the coordinates are stored as the two vectors from the origin, vf and vn, as follows:</p>
<p><br/>vf = Nƒ + i Eƒ<br/>vn = Nn + i En</p>
<p><br/>The vector from the near point to the far point, vx, is then the difference between the two vectors:<br/>vx = vf – vn</p>
<p><br/>This calculation is handled by a simple vector (albeit using complex numbers) subtraction in the<br/>HP-35s.</p>
<p><br/>To obtain the length of the vector vx, its absolute value must be taken (using the ABS function):</p>
<p><br/>d = |vx|</p>
<p></p>
<p>The azimuth of the vector vx is calculated as the argument of the vector, using the ARG function:</p>
<p><br/>θ = arg(vx)</p>
<p><br/>The HP-35s returns the azimuth in the units in which the calculator us currently set, usually<br/>degrees. The value will be in the range –180° to +180°. The program brings this value into the<br/>range 0° to 360°, and converts it to degrees, minutes and seconds, in HP notation (i.e.,<br/>HHH.MMSSsss).</p>
<p></p>
<p>So, here is Inverse in Saturn RPN using Complex Numbers in the<br/>HP 35s ,Base on Dr. Bill Hazelton Routine <span>algorithms </span> , Inverse with complex numbers.</p>
<p>Notice: Dr Bill Hazelton,Enters, Point 2 First, Far Pt., POE,then Pt. 1, Near, This is still 1.0 looking at 2.0. Do not let this confused you, this is just algebraic order.</p>
<p><br/>Line Instruction,,,,,,,,,,,,,,,,,,Display User Instructions</p>
<p>I001 LBL I,,,,,,,,,,,,,,,,,,,,,,,,, LBL I<br/>I002 CLSTK ,,,,,,,,,,,,,,,,,,,,,,,CLEAR 5<br/>I003 SF 10 ,,,,,,,,,,,,,,,,,,,,,,,,FLAGS 1 .0<br/>I004 COORD INVERSE,,,,,, (Key in as EQN RCL C, RCL O, etc.; ENTER to end)<br/>I005 PSE,,,,,,,,,,,,,,,,,,,,,,,,,, PSE<br/>I006 PT2 FAR POE,,,,,,,,,,,,,(Key in as EQN RCL P, RCL T, etc.; ENTER to end)<br/>I007 PSE,,,,,,,,,,,,,,,,,,,,,,,,,, PSE<br/>I008 XEQ I029<br/>I009 RCL P,,,,,,,,,,,,,,,,,,,,,,,,RCL P<br/>I010 STO F,,,,,,,,,,,,,,,,,,,,,,, STO F<br/>I011 PT1 NEAR POB,,,,,,, (Key in as EQN RCL P, RCL T, etc.; ENTER to end)<br/>I012 PSE,,,,,,,,,,,,,,,,,,,,,,,,, PSE<br/>I013 XEQ I029<br/>I014 RCL P,,,,,,,,,,,,,,,,,,,,,,,RCL P<br/>I015 STO N,,,,,,,,,,,,,,,,,,,,,, STO N<br/>I016 RCL F,,,,,,,,,,,,,,,,,,,,,,,RCL F<br/>I017 RCL– N,,,,,,,,,,,,,,,,,,,,,RCL - N<br/>I018 STO V,,,,,,,,,,,,,,,,,,,,,, STO V<br/>I019 ARG,,,,,,,,,,,,,,,,,,,,,,,, ARG<br/>I020 x ≥ 0?,,,,,,,,,,,,,,,,,,,,, x ? 0 5<br/>I021 GTO I024<br/>I022 360<br/>I023 +,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,plus<br/>I024 →HMS ,,,,,,,,,,,,,,,,,,→HMS<br/>I025 RCL V,,,,,,,,,,,,,,,,,,,,,,,RCL V<br/>I026 ABS,,,,,,,,,,,,,,,,,,,,,,,,, ABS<br/>I027 STOP,,,,,,,,,,,,,,,,,,,,,, ,Press R/S<br/>I028 GTO I006<br/>I029 CLx,,,,,,,,,,,,,,,,,,,,,,,,, CLEAR 1<br/>I030 STO N,,,,,,,,,,,,,,,,,,,,, ,STO N<br/>I031 STO E,,,,,,,,,,,,,,,,,,,, ,,STO E<br/>I032 KEY IN N ,,,,,,,,,,,,,,,,(Key in as EQN RCL K, RCL E, etc.; ENTER to end)<br/>I033 PSE,,,,,,,,,,,,,,,,,,,,,,,, PSE<br/>I034 INPUT N,,,,,,,,,,,,,,,, ,INPUT N<br/>I035 KEY IN E,,,,,,,,,,,,,, ,,(Key in as EQN RCL K, RCL E, etc.; ENTER to end)<br/>I036 PSE,,,,,,,,,,,,,,,,,,,,,, ,,PSE<br/>I037 INPUT E,,,,,,,,,,,,,,,, ,,INPUT E<br/>I038 RCL E,,,,,,,,,,,,,,,,,,,,,,RCL E<br/>I039 0 i 1,,,,,,,,,,,,,,,,,,,,,,,,0 i 1<br/>I040 ×,,,,,,,,,,,,,,,,,,,,,,,,,,,,,times<br/>I041 RCL+ N,,,,,,,,,,,,,,,,,,,RCL + N<br/>I042 STO P,,,,,,,,,,,,,,,,,,, ,,STO P<br/>I043 RTN,,,,,,,,,,,,,,,,,,,,,,,,RTN</p>
<p></p>
<p>1) Set the calculator into DEGREES mode (press MODE 1) before starting, to make<br/>sure that you get degrees, minutes and seconds for the azimuth.</p>
<p></p>
<p>(2) This is a basic coordinate ‘inverse’ program that computes the azimuth and<br/>distance between two points whose coordinates are supplied. While the program<br/>works with complex number representations internally, this is hidden from the<br/>user.</p>
<p></p>
<p>(3) Azimuths are by themselves in HP notation, i.e., DDD.MMSSss.</p>
<p></p>
<p>(4) In order to display the prompts, this program sets Flag 10. However, the program<br/>never formally ends, because it is up to the user to decide when to stop and move<br/>control elsewhere. So the program never clears Flag 10. If you require Flag 10 to<br/>be clear, in order to process equations, you must do this manually.</p>
<p></p>
<p>Here is AZ Inverse, same calculator HP 35s, First Method,not using complex numbers??? ,but still not the same as using <span>θ = arctan(Δ E/Δ N), it is a complex subroutine mimic of R to P</span><br/>with Rectangular to Polar subroutine in the program lines.</p>
<p><br/> AZ Inverse is base on my HP 33s Routine with added R to P subroutine nested.<br/> It is also Hidden from the User.</p>
<p>Notice In this program Pt. 1.0 Is Enter First, Then Pt 2.0. This is PT 1.0 ,Looking at PT 2.0</p>
<p> Pt.1.0 is Near and Pt 2.0 is Far, this is in the <span>algorithms between these two different programs. It's just the Input order. This is RPN order of programming. </span><br/> AZ INVERSE<br/>I001. LBL I<br/>I002.SF 10<br/>I003. AZ INVERSE<br/>I004. PSE<br/>I005. P O B N PT 1<br/>I006.PSE<br/>I007.INPUT N<br/>I008. SF 10<br/>I009. POB E PT 1<br/>I010. PSE<br/>I011. INPUT E<br/>I012. SF 10<br/>I013 NORTH PT 2<br/>I014. PSE<br/>I015. INPUT Y<br/>I016. SF 10<br/>I017. EAST PT 2<br/>I018. PSE<br/>I019. INPUT X<br/>I020. RCL E<br/>I021. RCL X<br/>I022. ─<br/>I023. RCL N<br/>I024. RCL Y<br/>I025. ─<br/>I026. X<>Y<br/>I027. i<br/>I028. x times<br/>I029. + plus<br/>I030. ARG<br/>I031. LASTx<br/>I032. ABS<br/>I033. STO D<br/>I034. X<>Y<br/>I035. 180<br/>I036. + plus<br/>I037. >>>HMS<br/>I038. STO A<br/>I039. SF 10<br/>I040 HD DIST<br/>I041. PSE<br/>I042. AZIMUTH<br/>I043. PSE<br/>I044. R /S STOP<br/>I045. GTO I001<br/>I046. RTN</p>
<p></p>
<p>There are many HP calculators that did not come with P to R and R to P keys, so the lack of them on the HP 35s was not the first time we a surveyors faced this. Using programs and complex number we have adapted and moved on in our ever changing world of surveying.</p> I have seen the time when all…tag:landsurveyorsunited.com,2017-08-04:544331:Comment:3905282017-08-04T03:30:16.495ZBilly Brookshttp://landsurveyorsunited.com/profile/billybrooks
<p>I have seen the time when all we had was a slide rule to do the math. What a welcoming site the first</p>
<p>pocket scientific calculator the HP 35. Then they were programmable,now we have computers, so who needs a calculator. Everyone of us, I hate to see the day surveyors stop having a calculator with them.</p>
<p>Hello everyone ,Here are two examples of P to R and R to P simple programs with out equations and not using a storage Regs. These are written in Saturn assembly RPN or Keystroke,…</p>
<p>I have seen the time when all we had was a slide rule to do the math. What a welcoming site the first</p>
<p>pocket scientific calculator the HP 35. Then they were programmable,now we have computers, so who needs a calculator. Everyone of us, I hate to see the day surveyors stop having a calculator with them.</p>
<p>Hello everyone ,Here are two examples of P to R and R to P simple programs with out equations and not using a storage Regs. These are written in Saturn assembly RPN or Keystroke, for the HP 35s.</p>
<p> This is Go Polar and GO Rectangular or R to P and P to R.</p>
<p>LBL P LBL R</p>
<p>x to y x to y</p>
<p>i COS</p>
<p>x times x to y</p>
<p>+ plus LASTx</p>
<p>ARG SIN</p>
<p>LAST x x to y</p>
<p>ABS x times</p>
<p>RTN x to y</p>
<p> LASTx</p>
<p> x times</p>
<p> RTN</p>
<p></p>
<p>These 2 programs will solve P to R and R to P without any EQU. or data storage reg. being used .they work like the 2 keys on the HP 33s.., HP 32s are any other HP RPN calculator that has these keys.</p>
<p>Surveyors for many years had come to rely on there calculators having these two keys. The Hp 35s did not come with them so we had to adapt to not having them on the key board of the calculator.There are many versions of these two programs.</p>
<p> But here are these in macro RPN using the Prime.</p>
<p></p>
<p>Now lets write P→R and R→P,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,</p>
<p>name them ptor and rtop .</p>
<p>,,,,,,,,ptor,,,,,,,,,,,,,,,,,,,,,,,,,,,rtop,,,,,</p>
<p>1."DEG",,,,,,,,,,,,,,,,,,,,,,,1."DEG"</p>
<p>2."INPUT",,,//BRG,,,,,,,,,2."INPUT".......DEP</p>
<p>3."INPUT",,,//DIST,,,,,,,,,3."INPUT"........LAT</p>
<p>4."RECT",,,,,,,,,,,,,,,,,,,,,,4."POLAR"</p>
<p>5."END",,,,,,,,,,,,,,,,,,,,,,,,5."END"</p>
<p>These will work just like the two keys on a HP calculator. The Hp 35s does not have them.</p>
<p></p>
<p>Now i will write a inverse program like you would use on a RPN calculator say like the HP 35s.</p>
<p>So here is macro (invp) in the HP Prime in macro RPN.</p>
<p></p>
<p>1."DEG",,,,,,,,,,,,,,,,,15."RCL 3"</p>
<p>2."INPUT",,,,,,,,,,,,,,,16. "- ",,,,,,,,,,// input on line 2 is north 1</p>
<p>3."STO 1",,,,,,,,,,,,,,,17. "STO 6"</p>
<p>4."INPUT",,,,,,,,,,,,,,,18."RCL 5",,,,,// input on line 4 is east 1</p>
<p>5."STO 2",,,,,,,,,,,,,,,19.RCL 6"</p>
<p>6."INPUT",,,,,,,,,,,,,,,,20."POLAR",,,,,,// input on line 6 is north 2</p>
<p>7."STO 3",,,,,,,,,,,,,,,,21."SWAP"</p>
<p>8."INPUT",,,,,,,,,,,,,,,,22. 180,,,,,,,,,,,,,// input on line 8 is east 2</p>
<p>9."STO 4",,,,,,,,,,,,,,,,23. " + "</p>
<p>10."RCL 2",,,,,,,,,,,,,,,24." >DMS"</p>
<p>11."RCL 4",,,,,,,,,,,,,,,25."PAUSE"</p>
<p>12. " - ",,,,,,,,,,,,,,,,,,26."RTN"</p>
<p>13."STO 5",,,,,,,,,,,,,,,27."END"</p>
<p>14."RCL 1"</p>
<p></p>
<p>If you notice i added >DMS to the program,if you do not wish your answer to be in HMS,then remove line 24,and your answer will be in Decimals of a Degree, " >D"</p>
<p>To start new calculations ,just press ENTER,and you will be asked for line 2 input again etc.</p>
<p>I called this program invp, it will work as good as any program in a RPN calculator.</p>
<p>This program was wrote by Billy Brooks,for macro RPN in the HP Prime.as of this date 09-02-2016.</p>
<p></p>
<p>Now to compare a macro RPN to a simple, no title lines or labels, just algorithms in a RPN program.</p>
<p> These programs are shorter if written for the HP 33s because of those two little keys. But the HP 35s being able to use program line addressing takes away this short coming when compared to the HP 33s being able to only use Global labels in the alpha string.So here is a Inverse to go with Traverse not using those two little keys. or any equations or any storage Regs. First give it a name . I if you like.</p>
<p></p>
<p>Inverse program in Saturn RPN</p>
<p></p>
<p>I001. LBL I</p>
<p>I002. INPUT N</p>
<p>I003. INPUT E</p>
<p>I004. INPUT Y</p>
<p>I005. INPUT X</p>
<p>I006. RCL E</p>
<p>I007. RCL X</p>
<p>I008. - minus</p>
<p>I009. RCL N</p>
<p>I010. RCL Y</p>
<p>I011. - minus</p>
<p>I012. X<>Y</p>
<p>I013. i</p>
<p>I014. x times</p>
<p>I015. + plus</p>
<p>I016. ARG</p>
<p>I017. LASTx</p>
<p>I018. ABS</p>
<p>I019. STO D</p>
<p>I020. X<>Y</p>
<p>I021. 180</p>
<p>I022. + plus</p>
<p>I023. >> HMS</p>
<p>I024. STO A</p>
<p>I025. R / S, STOP</p>
<p>I026. GTO I001</p>
<p>I027 RTN</p>
<p></p>
<p>Your LN =85</p>
<p> Always check your program lines. Very simple to run XEQ I input N= n1 and E=e 1 then Y and X Y= n 2 , X=e 2 R /S = az R /S= dist .</p>
<p>So there, you now have a simple inverse program that will work as good as any.There is a lot that can be done to these programs you can add input labels and viewing labels using VIEW and using SF 10 , flag 10 controls your equation functions in program line labeling it as not a equation , so a message can be enter in to program lines i will talk about this another time.</p>
<p></p>
<p>Now I have showed you, Inverse in HP PPL, macro RPN, and Saturn RPN. the first two can be programed in the HP Prime the third is to compare both RPN's Next I will compare Traverse programs.</p>
<p>Calculators are not being used as much in the field. Students have to use them.There will always be a time when any surveyor will need or wish they had one with them. I have seen many times crews come in just because the data collector quit working. There are plenty jobs and work, that all you needed was a good calculator to keep working.And there always plan B with a calculator.</p> Hi Everyone,
All of this is…tag:landsurveyorsunited.com,2017-08-03:544331:Comment:3901492017-08-03T00:42:09.103ZBilly Brookshttp://landsurveyorsunited.com/profile/billybrooks
<p> Hi Everyone,</p>
<p>All of this is the Future of what calculators are starting to become,they are now more like Math Computers ,than they are calculators.They are just evolving with the times,in some cases they are moving into the Future .So how can this calculator take you into the past,Like what has already been pointed out above,that this calculator programming is not compatible with RPL or RPL system or with programming in Saturn or ARMv4T assembly languages that includes RPN. Just like…</p>
<p> Hi Everyone,</p>
<p>All of this is the Future of what calculators are starting to become,they are now more like Math Computers ,than they are calculators.They are just evolving with the times,in some cases they are moving into the Future .So how can this calculator take you into the past,Like what has already been pointed out above,that this calculator programming is not compatible with RPL or RPL system or with programming in Saturn or ARMv4T assembly languages that includes RPN. Just like the RPL calculators that Ran in RPN mode,they still could not do RPN programming ,also the Prime can Run in RPN mode, but cannot do RPN programming. RPN Keystroke programming ,“Keystroke” is the HP equivalent to Microsoft’s “macro”.So with the help of Eddie Shore, He has wrote in HP PPL, Two programs that work in “program” mode. This mode enables the Prime to write and store a series of keystrokes for future use. It’s like a macro in Microsoft Excel. To access programs You use Tool Box,then User Program Function . To write the macro you use editmacro in ***Edit Mode***, to Run the programs you use Tool Box, user Program functions, runmacro (macro name) ,These are like keystoke RPN Programs that has been used in the Past .The RPL calculators could not do this. So with these two Macro programs <br/>you can write and run Two different calculator languages. on the HP Prime, So the language of the Future,will take you back to the Past. <br/>Although This is familiar type RPN language,there are some differences.The label is the macro name,LBL 1,2,3 etc. are use as path ways and GTO instructions, You press Enter before you type the constants,Your answers will end on the 4 level stack RPN that you are use to <br/>,but you will see all 4 levels, T,Z,Y,X, so you write the program to end with the possibility of 4 answers at one time,(your option) there is no Run/Stop key. What you come up with is a program language that looks like a mixture of RPN from Friden logic system,up to present day. I call it <br/>ESN,Eddie Shore Notation, I am sure Eddie would like that, Eddie Shores has been good enough to write these two HP PPL programs and include instructions on how to use them and with your keystrokes and commands.To get these Two programs you must go to MOHPC and <br/>view there HP Prime Software Library, page 3, and find Eddie Shore, editmacro,runmacro, 3,9,2015 update, then down load the file. In this file is three folders a Read me,editmacro and runmacro The Read me is where you will find instructions and example's and everything else you need,you must be a member to download these files.So if you are not ,then apply for membership. Then you are on <br/>your way to the future and the Past,with this Time Machine.These are not survey programs,they let you write your own RPN programs no matter what they are. So all you old timers step into the Future and you new Surveyors come out of the future and step into the past.With this amazing calculator. HP PRIME.</p>
<p>These programs must be downloaded and installed with the Prime HP Connectivity Kit.</p>
<p>Here are some links that you will need.</p>
<p><a rel="nofollow" href="http://www.hpmuseum.org/forum/forum-15.html?order=asc&datecut=9999" target="_blank">http://www.hpmuseum.org/forum/forum-15.html?order=asc&datecut=9999</a></p>
<p><a rel="nofollow" href="http://www.hpmuseum.org/forum/forum-15-page-3.html?order=asc&da" target="_blank">http://www.hpmuseum.org/forum/forum-15-page-3.html?order=asc&da</a>...</p>
<p><a rel="nofollow" href="http://www.hpmuseum.org/forum/thread-3301.html" target="_blank">http://www.hpmuseum.org/forum/thread-3301.html</a></p>
<p>And you may able to just download from here,but advise to read Eddie page for this download @MOHPC</p>
<p><a rel="nofollow" href="https://drive.google.com/file/d/0B7R8x9Yi26yGNE5GMGlnYXFaT2s/view?u" target="_blank">https://drive.google.com/file/d/0B7R8x9Yi26yGNE5GMGlnYXFaT2s/view?u</a>...</p>
<p><a rel="nofollow" href="https://drive.google.com/file/d/0B7R8x9Yi26yGNE5GMGlnYXFaT2s/view?p" target="_blank">https://drive.google.com/file/d/0B7R8x9Yi26yGNE5GMGlnYXFaT2s/view?p</a>...</p>
<p>Once you have the programs on the calculator , you can then start to write macro RPN programs. Like I said above,there is aread me file<br/>that gives Instructions on how to being learning how to write these macro programs lines they are in strings but numbes are not.</p>
<p><br/> This is editmacro this progran is for writing or editing your program.<br/> This program is 349 lines long, but here is the first 45 lines, you can view the program after you have installed it in the Hp connectivity Kit. Or in your Prime. You can Install the Emulator on your computer and see and have both in the Kit. Programs will drag and drop or copy and paste from each, the Emulator or the real calculator and your computers prime program files also. All of this can be backed up.<br/>This allows you to Clone your calculator or your Emulator to each other,or kept each other different if you like.</p>
<p></p>
<p>EXPORT editmacro()</p>
<p>BEGIN</p>
<p>// Rev. 2015-03-09 EWS</p>
<p><br/>// Bring up working macro<br/>LOCAL macro:={}; // set up macro<br/>LOCAL k:=1; // set up pointer<br/>LOCAL temp; // temp list<br/>LOCAL key; // for getkey<br/>LOCAL ch,reg; // for choices<br/>LOCAL shift:=0; // shift key flag<br/>LOCAL s; // size of macro<br/>RECT();<br/>TEXTOUT_P("*** Edit Mode ***",</p>
<p>1,1,4,#8000h);</p>
<p>// Getkey loop<br/>REPEAT<br/>key:=GETKEY;</p>
<p></p>
<p>// turn shift key on and off<br/>IF key==41 THEN <br/>IF shift==0 THEN<br/>shift:=1; <br/>TEXTOUT_P("Shift",10,25,4,#FFh);<br/>ELSE shift:=0;<br/>RECT_P(10,25,318,48); END; END;</p>
<p></p>
<p>// Help<br/>IF key==3 THEN <br/>RECT();<br/>TEXTOUT_P("Esc: Exit, Enter: Constant",<br/>1,1,4);<br/>TEXTOUT_P("Vars: Memory, Toolbox: Math/<br/>Cmds",1,25,4);<br/>TEXTOUT_P("Template: GTO, xtθn: XEQ, a b/c: LBL",<br/>1,49,4);<br/>TEXTOUT_P("Shift Keys:",1,73,4,#FFh);<br/>TEXTOUT_P("1: FIX, 2: , 3: π, 6: MOD,<br/>9: x!",1,97,4,#FFh);<br/>WAIT(0);<br/>RECT();<br/>shift:=0;<br/>END;</p>
<p></p>
<p>This is runmacro, here are the first 45 lines, this program is 456 lines ,so it is to big to show . You can view it also after you have installed it. Notice the dates of each HP PPL programs this helps to be sure you have the correct vers. of it. This program will run your macro RPN, also known as keystroke programming. These two programs will let you write and run the Keystroke programs on the Prime.<br/>So now this allows you to use HP PPL and a macro RPN on the same calculator. This macro RPN is different, but those you that have used RPN Notation Logic will catch on quick. and yes we are taking about a calculator . I do not know any other calculator that will do this.</p>
<p><br/>EXPORT runmacro(macro)<br/>BEGIN<br/>// Rev. 2015-03-09 EWS</p>
<p></p>
<p>LOCAL stack:={0,0,0,0};<br/>LOCAL n:=SIZE(macro);<br/>LOCAL k, temp, t1, t2, last:=0, <br/>rtn:=0;<br/>// Registers (temporary)<br/>LOCAL reg:=MAKELIST(0,X,1,20);<br/>// Labels <br/>LOCAL w,s,labels:={0,0,0,0,0,0,0,0,0};<br/>FOR w FROM 1 TO 9 DO<br/>s:="LBL "+w;<br/>s:=POS(macro,s);<br/>labels[w]:=s;<br/>END;</p>
<p><br/>// Clear the terminal<br/>PRINT();</p>
<p></p>
<p>// Operation<br/>FOR k FROM 1 TO n DO</p>
<p></p>
<p>// Display Line Pointer<br/>PRINT("Line "+k+": "+macro(k));</p>
<p></p>
<p>CASE</p>
<p></p>
<p>IF TYPE(macro(k))==0 THEN<br/>stack:={macro(k),stack(1),stack(2),<br/>stack(3)}; END;</p>
<p></p>
<p><br/>// Prompt for numbers<br/>IF macro(k)=="INPUT" THEN<br/>INPUT(X,"Input Number: Line "+k);<br/>stack:={X,stack(1),stack(2),stack(3)};<br/>END;</p>
<p></p>
<p>IF macro(k)=="PI" THEN<br/>stack:={π,stack(1),stack(2),stack(3)};<br/>END;</p>
<p></p>
<p></p>
<p>Once you have the programs on the calculator you are ready the to start,Learning how this New RPN works in macro. So go to Eddie's Read me and look at the first program you will write. These programs will not run in RPN mode, I use Textbook,when doing these programs, that seems to work best but I have seen some that also work in Algebraic mode but textbook all will work. The first macro is area of a circle, these program lines are wrote in "string", but number input is not entered as a"string",So remember this, numbers are not in "strings".then run from program catalog editmacro or from tool box, user program function, select edit macro Enter, then you will be in ***Edit Mode*** and you can start your program. most of my program i also use DEG mode for my angles, so i set the program in DEG mode,by making it my <br/>first line. If your solution needs to be in Radians then do not do this, this is just to make sure i am in Degree mode. So your first line will be 1. "DEG" this program looks like this. as you will see.</p>
<p><br/>1."DEG"<br/>2."INPUT"<br/>3."X^2"<br/>4. "PI"<br/>5."*"<br/>6."END"</p>
<p>END will be automatically added to the last line (similar to HP 41). So when you reach the last line then press Esc</p>
<p>Now you have to name it, so type macro01:= high light the program line and press ENTER,ENTER,and you will be asked do you want to create a variable in this name, then press OK, and you just made your first macro name macro 01, Now how to run it, Go tool box,user program functions,runmacro, then to vars, user variables macro01 and it will look like this runmacro(marco01) ,then ENTER ,your program will start,you will see a input line ,type 15 then OK, then you will see the <br/>*** STACK***,T,Z,Y,X, in X line your answer 706.858347058, and that is the area of that circle. So stay tune, were I will go over inverse using macro RPN and plenty more programs that you will use in surveying.</p> Hi Survenator,as always tha…tag:landsurveyorsunited.com,2017-07-30:544331:Comment:3901602017-07-30T19:39:27.892ZBilly Brookshttp://landsurveyorsunited.com/profile/billybrooks
<p> Hi Survenator,as always thank you back.</p>
<p> Hi Survenator,as always thank you back.</p>