UserRPL HP 50G

[Mikkiz]

Hey,

thanks for the replies!!!

First i have to say, i am new to the HP 50G and new to RPN so sorry for my mistakes. I've tried to program the Simpson Rule like in this video Simpson Rule on Youtube, i just tried to change the input mode that i dont have to write 'F(x)=...' and so on.

i've changed the code abit the most ? are gone, sadly i dont have the code on my pc here due to a pc crash, so i had to remake it again. I've also attached a picture which displays what i want to calculate, if there are some questions.

any1 here programs in Algebraic mode? (i cant find good tutorials >.<)
are there better programs than HpUserEdit?

Thanks in advance

Quote:%%HP: T(0)A(D)F(.);
@ Argumentos:
@ Author:
@ E-mail:
@ Version:
@ Created using HPUserEdit 5 [www.unparche.com]

@ %NAME%=
@ %DIR%=

«

@ Input box, T = Sum


{ {"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 / @ that ? confuses me abit

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 xi 1 a - * + / » 'ys' STO

« ys -> NUM y -> NUM ? INV » 'F' STO @ Do i have to change ? with F or with 1






@ 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 »
»