UserRPL HP 50G

[Mikkiz]

Thanks guys!!!!!

i've got the program working, the solution of the calculation isnt right, i think the "h" is the problem, the solution should be 7,65 but it is 6,05 with n = 5 >.<
I'll start to learn RPN soon as i got more time, exams are incoming >.< My previous calculator used the algebraic mode so i hoped it would be easier to calculate/program with that until i'll learn RPN.

(07-01-2014 05:35 PM)HP67 Wrote:  

(07-01-2014 05:25 PM)Mikkiz Wrote:  are there better programs than HpUserEdit?

I have no idea what you are trying to do, and I have no idea what HpUserEdit is.
If you can explain what you want to do, I'm sure somebody here can help.

Its just a programming environment to write write your program, it got an Emulator to check it before you put it on your real Calculator. but i'll check debug4x maybe it fits better to me. Thanks for the links for the manuals i just had the "little" user manual with no programming in it.

Code:

%%HP: T(0)A(D)F(.);
«

@ Input box, T = Sum

"NTU Kopf"

{ { "xf" "Lower Limit"}

{ "xd" "Upper Limit"}

{ "v" "Reflux Ratio"}

{ "a" "Segregation Factor"}

{ "n" "Partitions"} }

2 { } { } INFORM

IF 0 == THEN KILL END

OBJ-> DROP

@ Calculate h and store 0 in T, s1, and s2

4 PICK 6 PICK - 2 PICK /

0 DUP DUP

@ Store local variables

-> xf xd v a n h T s1 s2

«

@ Subroutines

« v xi * xd + v 1 + / » 'y' STO

« a xi * 1 a 1 - xi * + / » 'ys' STO

« ys ->NUM y ->NUM - INV » 'F' STO

@ Endpoints

xf 'xi' STO F 'T' STO+

xd 'xi' STO F 'T' STO+

@ Inner terms of the Simpson Rule

0 n 2 / 1 - FOR K

2 K * 1 + h * xf + 'xi' STO

F 's1' STO+ NEXT


0 n 2 / 1 - FOR K

2 K * h * xf + 'xi' STO

F 's2' STO+ NEXT

@ Calculating the integral

s1 4 * 'T' STO+

s2 2 * 'T' STO+

T h 3 / *

@ Finalizing

v DUP 1 + / * 'T' STO

@ Display T and purge outstanding variables

T 'Result' ->TAG { xi, F, ys, y } PURGE »

thanks in advance, again