UserRPL HP 50G

[Mikkiz]

hey and thanks for your fast reply. the \\ are only comments for the forum, that people understand what it does if they want to. i thought the ? belongs to the code, its at least how i learned it.

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"} }

1 { } { } 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 ? n h T s1 s2


«


// Subroutines


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

« ? xi * 1 ? 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 »
»