Programs for 15C and 35S - Printable Version +- HP Forums ( https://archived.hpcalc.org/museumforum)+-- Forum: HP Museum Forums ( https://archived.hpcalc.org/museumforum/forum-1.html)+--- Forum: Old HP Forum Archives ( https://archived.hpcalc.org/museumforum/forum-2.html)+--- Thread: Programs for 15C and 35S ( /thread-243838.html) |

Programs for 15C and 35S - Eddie W. Shore - 05-19-2013
HP 35S Horizontal Curve: Radius, Chord Length, Arc Length given Tangent Length and Radius HP 35S Vertical Curve: Point of Peak and Elevation at Peak Point and Length HP 35S Air Density and Density Altitude
HP 35S: Approximate Length of Sunlight
Re: Programs for 15C and 35S - LMMT - 05-20-2013
Thank you, very useful!
Re: Programs for 15C and 35S - Walter B - 05-20-2013
+1. BTW, is anybody collecting such programs in a program library of some kind? The collective knowledge of RPN programmers shouldn't vanish in time IMHO. I know the RPL folks have their place at hpcalc.org. Is there anything alike for RPN? If true, where?
d:-)
Re: Programs for 15C and 35S - Thomas Klemm - 05-20-2013
HP-35S Vertical Curve: Elevation at Peak and at End Point - Thomas Klemm - 05-20-2013
Quote:
G = (1,030.469 - 1,000) / 870.545 = 0.035
So it seems a factor 2 is missing somewhere. As I'm not an engineer I wonder why the length L is divided into two parts similar to G:H (or rather |G|:|H|) to determine the peak. Why would somebody want to do that? What's the real world application of it?
Kind regards Re: Programs for 15C and 35S - Dieter - 05-20-2013
Eddie, I tried the Julian date program and noticed that it will work only for dates since the introduction of the Gregorian calendar on October 15, 1582 (JD 2299161). Every date before produces a JD result that is off by some days, simply because the rules for leap years introduced with the Gregorian calendar did not apply earlier.
Example: date Julian Day 15C program errorIn other words, the 15C program assumes a proleptic (perpetual) Gregorian calendar, so that even dates before Oct 15, 1582 are assumed Gregorian. This means that even dates in medieval times are assumed to be given in a calendar system introduced many centuries later. This is at least not very common, so that either the program should be modified or a respective note should be added.
Dieter
Re: Programs for 15C and 35S - Torsten - 05-20-2013
I have some programs on my HP-15C simulator page and some of Eddie's programs are part of the simulator distributions.
I am looking forward to receiving more HP-15C programs to be published and included with the simulator. Preferably already as .15c program file with the documentation included.
Re: Programs for 15C and 35S - Thomas Klemm - 05-20-2013
The listings that your simulator creates are very nice! Congratulations! Just had a glimpse at Little Gauss. Here's a third variant: LBL C
In the article
Kind regards
Re: Programs for 15C and 35S - Gerson W. Barbosa - 05-21-2013
Quote:More computational effort, I think, but a record for conciseness! Increasing the constants by one will give the sum of the first n triangular numbers. Increasing them by one again will give the sum of the latter, and so on it appears. Cheers,
Gerson.
Re: Programs for 15C and 35S - Thomas Klemm - 05-21-2013
If you define as the - = 1 (identity)
- C
_{n,k}= C_{n,k-1}
- C
_{n,k}= C_{n,k+1}
k of the binomial coefficient up and down.
This is similar to how differentiation and integration operate upon the functions f
Cheers Re: HP-35S Vertical Curve: Elevation at Peak and at End Point - Eddie W. Shore - 05-23-2013
Quote: I am looking into this. I got the formulas from the Fundamental of Engineering Handbook reference book, if it helps. You determination for G and H are straight forward. Update: It seems to be a factor of 2 at peak point. Vertical curves, to my understanding, are symmetrical in a sense of tangent lines: one created from the beginning of the curve and on at the end of the curve. If a line is drawn at the intersection of the tangent line perpendicular to the base, that line bisects the length of the base. The grade is determined from where the tangent lines meet. In a perfectly symmetrical vertical curves the tangent lines meet at the curve's peak elevation. For this case: G = (y0 - I)/(L/2) and H = (I - y0)/(L/2) where y0 is the peak elevation. Some more information is provided here: http://www.wsdot.wa.gov/publications/manuals/fulltext/M22-23/Vertical.pdf http://www.iowadot.gov/design/dmanual/02b-01.pdf I am not an engineer either, I just have an interest in the subject. Hope this helps, Eddie
Re: Programs for 15C and 35S - Eddie W. Shore - 05-23-2013
Quote: Dieter, I will do the note. Thanks for pointing this out. Always appreciated. Eddie
Re: HP-35S Vertical Curve: Elevation at Peak and at End Point - Thomas Klemm - 05-25-2013
I completely mixed up the peak point of the curve and the Thanks for providing the links to the papers. It clarified a lot.
Cheers Re: HP-35S Vertical Curve: Elevation at Peak and at End Point - Eddie W. Shore - 05-29-2013
Quote: Thomas,
Thanks for posting the question - you helped me become clearer on the subject. Much appreciated.
Re: HP-35S Vertical Curve: Elevation at Peak and at End Point - Thomas Klemm - 05-29-2013
Just compare these two images:
## VERTICAL CURVE EQUATIONS
## HP35S Vertical Curve: Elevation at Peak and at End Point
## LEGENDg
## EQUATIONSX = g_{1}{L/A}
Your sketch suggest that Vertical Point of Intersection where instead it is the peak of the curve. I recommend to change the sketch.
Kind regards Re: Programs for 15C and 35S - Gerson W. Barbosa - 06-03-2013
On the HP-42S Little Gauss can be made the same size in bytes without using COMB. One step longer, however:
00 { 13-Byte Prgm }
Since we're at it, here is Gauss Little (Inverse Little Gauss :-) 00 { 21-Byte Prgm } Cheers, Gerson.
Re: Programs for 15C and 35S - Thomas Klemm - 06-04-2013
Very nice! Do you still remember that thread: Short Quadratic Solver (HP-42S)
This solution is based on it: 00 { 17-Byte Prgm }
Best regards
The port to HP-15C is straight forward: 001 - 42,21,11 LBL A
Re: Programs for 15C and 35S - Thomas Klemm - 06-04-2013
For those interested in the math behind it: Quadratic equation:
Solution:
Logarithmic representation of inverse hyperbolic function:
This implies:
Try to bring the solution of the quadratic equation to this form:
Substitution:
Move the negative sign through
Use
Re: Programs for 15C and 35S - Gerson W. Barbosa - 06-04-2013
Quote: Great saving, more than I expected!
Just an interesting result: 2 SQRT 23 + XEQ GL XEQ GL Cheers, Gerson. [sub]Edited to fix a typo per Thomas's observation below[/pre]
Re: Programs for 15C and 35S - Thomas Klemm - 06-04-2013
How on earth did you stumble upon this? That's amazing! But it took me a while to figure out that
Best regards Re: Programs for 15C and 35S - Thomas Klemm - 06-04-2013
Okay, I guess I figured it out:
#!/usr/bin/python 6.505598527340 I'm still impressed.
Cheers Re: Programs for 15C and 35S - Gerson W. Barbosa - 06-04-2013
Quote: PI XEQ LG XEQ LG 2 SQRT - --> 22.9999918008Cheers,
Gerson.
Re: Programs for 15C and 35S - Gerson W. Barbosa - 06-04-2013
Quote:How accurate should that be? On the WP34S I get679065481033757312.000000000000 679065481033757541.1897711439112775
Another interesting near-integer, not related to the above: pi^34 = 8.000or pi^34*10
Yet another one involving sqrt(2) and pi: 1/2*pi^34 = Whether these are a coincidence or not, I don't know. Best regards, Gerson
Re: Programs for 15C and 35S - Thomas Klemm - 06-04-2013
Also, I hear the 4th root of (9^2 + 19^2/22) is pi.
Re: Programs for 15C and 35S - Gerson W. Barbosa - 06-04-2013
Quote:http://jsmarkovitch.files.wordpress.com/2009/11/coincidence-data-compression-and-mach_s-concept-of-economy-of-thought-j-s-markovitch.pdf
Quote: This is a bit closer, but still too far away:
Re: Programs for 15C and 35S - Thomas Klemm - 06-05-2013
That's an interesting paper. Both cases are handled. Thanks a lot for posting the link.
Kind regards |