HP 41 - branching to local label and return stack - FINAL RESULTS AND PROGRAMS
|
06-22-2019, 11:00 PM
Post: #40
|
|||
|
|||
RE: HP 41 - branching to local label and return stack
The third equation is like others I post. Just a small difference in test.
R - L/(u+uo.ur).A = 0 We can't have both u and ur at same time. So, we must use another function to make the XOR: XOR2, which tests just 2 values in stack (x,y) (in LOGIC program you will find others functions XOR3, XOR4, X#0?L (is X different of zero? Returning 1 or 0), X=0?L Well, let's put the fourth equation: H - (Fmm+NI)/L = 0 XOR(FMM; N*I) L <> 0 LBL 04 "IND" ASTO X "-^L^HÎ^FMM" XEQ "SFT1" "N" ............. here the second menu - very easy! XEQ "SFT2" RCL 15 RCL 06 RCL 14 * XEQ "XOR2" X=0? GTO 11 RCL 12 X=0? 1 STO 12 XEQ "SFT3" GTO 04 LBL 11 "ZERE FMM:N*I" XEQ "SFT4" GTO 04 LBL "IND" no finished ... ARTUR MARIO JUNIOR BRAZIL |
|||
« Next Oldest | Next Newest »
|
User(s) browsing this thread: 1 Guest(s)