HP Forum Archive 14

[ Return to Index | Top of Index ]

chowchow for HP-42S Message #1 Posted by Mike (Stgt) on 4 Nov 2004, 5:43 a.m. Nearly 3 weeks ago one hard disk of my PC died away, with all back-up of my 200LX and the M$-OS and and and... At least I am able again to modifiy my site and like to advertize a little routine for the HP-42S, nothing earth-shattering, just slick and fast. RPN at it's best. Ciao.....Mike

Re: chowchow for HP-42S Message #2 Posted by Robin (CH) on 4 Nov 2004, 4:07 p.m., in response to message #1 by Mike (Stgt) I've written something similar. It doesn't check for "Divide by 0" nor if there only are real numbers, but you can enter the numbers in any order. ----------------------------------------------------------------------------------------- 06.05.2004/RL XMOD: Zum berechnen des ggT(GCD), kgV(LCM) und gleichzeitigem Kürzen der zwei Werte im X- und Y-Stack USAGE: a ENTER b XEQ"XMOD" DISPLAY: ------------------------- | a/b c d | | as/bs | ------------------------- DESCRIPTION: a= value entered in Y-stack b= value entered in X-stack c= GCD d= LCM as/bs=(a/b)/GCD EXAMPLE: 488 ENTER 12 or alternatively 12 ENTER 488 OUTPUT: 488/12 4 1464 12/488 4 1464 122/3 3/122 ------------------------------------------------------------------------------- 01 LBL "XMOD" 02 X<>Y // SWAP, to get Y 1st one into ALHA 03 CLA 04 AIP 05 ¬"/" 06 STO "Y" 07 X<>Y 08 STO "X" 09 AIP 10 ¬" " // add space in ALPHA between original fraction and GCD 11 X>Y? // if X ST is greater then Y ST then SWAP in prepare to the MOD-command in LBL 00 12 X<>Y 13 LBL 00 // GCD routine 14 MOD 15 X=0? 16 GTO 01 17 LAST X 18 X<>Y 19 GTO 00 20 LBL 01 21 LAST X 22 AIP 23 ¬" " 24 STO "GCD" // store GCD 25 RCL "X" // evaluate LCM 26 RCL* "Y" 27 RCL÷ "GCD" 28 AIP 29 STO "LCM" // store LCM 30 RCL "Y" // evaluate simplified fraction 31 RCL÷ "GCD" 32 ¬"LF" // Line Feed, next line shows simplified fraction 33 AIP 34 ¬"/" 35 RCL "X" 36 RCL÷ "GCD" 37 AIP 38 AVIEW 39 RCL "Y" // not necessary, Restores original y-value 40 RCL "X" // not necessary, Restores original X-value 41 CLV "LCM" // not necessary, deletes variable 42 CLV "GCD" // not necessary, deletes variable 43 END -----------------------------------------------------------------------------------------

Re: chowchow for HP-42S Message #3 Posted by Mike (Stgt) on 5 Nov 2004, 6:11 a.m., in response to message #2 by Robin (CH) Hi Robin! Tnx a lot 4 your routine. Reminds me that I should dig out mine for calculating with fractions on the HP-41. There is one in the PPC-ROM, but - you know - re-invent a wheel is great fun when it works as designed <VBG> Ciao.....Mike BTW - see you in Allschwil?

Re: chowchow for HP-42S Message #4 Posted by Robin (CH) on 5 Nov 2004, 5:33 p.m., in response to message #3 by Mike (Stgt) You're welcome :-) I'm not familar with the HP-41, but I'm sure it's a great calc according to what I've read about it several places. Conc. Allschwil: No, it's my birthday on the 27th, and I've already fully planed this day.

[ Return to Index | Top of Index ]

Go back to the main exhibit hall