Post Reply 
HP-41: Formula Evaluation ROM
06-12-2017, 07:36 AM (This post was last modified: 06-12-2017 08:40 AM by Ángel Martin.)
Post: #19
RE: HP-41: Formula Evaluation ROM
Well, here's a shorter version that only requires calling EVAL$ once - I should have remember those pesky precedence rules ;-)

This version also adds the rounding to avoid the oscillations.

Code:
1    LBL "WL$
2    FIX 9
3    STO Z
4    LN1+X
5    "X-(X*E(X)-Z)/(1"
6    "|- +X)/E(X)"  - append
7    LBL 00
8    STO Y
9    EVAL$
10    FS? 10
11    VIEW X
12    X<>Y
13    RND
14    X<>Y
15    RND
16    X#Y?
17    GTO 00
18    END

"To live or die by your own sword one must first learn to wield it aptly."
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: HP-41: Formula Evaluation ROM - Namir - 06-06-2017, 05:38 PM
RE: HP-41: Formula Evaluation ROM - pier4r - 06-06-2017, 10:05 PM
RE: HP-41: Formula Evaluation ROM - Gene - 06-06-2017, 06:12 PM
RE: HP-41: Formula Evaluation ROM - Gene - 06-07-2017, 02:33 AM
RE: HP-41: Formula Evaluation ROM - Gene - 06-11-2017, 03:47 PM
RE: HP-41: Formula Evaluation ROM - Ángel Martin - 06-12-2017 07:36 AM



User(s) browsing this thread: 1 Guest(s)