(50g) Probability distributions

[peacecalc]

Hello HP 50g fans,

The 50g supports the UTPX commands. They are "commands" that means, they are programable but not useable as functions (in ALG-Mode). They all calculate the upper tail (from x -> infinity). You get by inputting the degrees of freedom (or variance) and the value of the random variable the value of the probability.

UTPC: the chi-square distribution

UTPN: the normal distribution

UTPS: the student distribution

UTPF: the F distribution

For my personal liking I put them into little programs that there are useable as functions and they calculate the lower tail (-infinity -> x). And I made little programs for the random variable value (you put in the the degrees of freedom (or variance) and the probabilitiy value) with the help of the ROOT command. The setting or clearing of flag -105 is obliged to my personal flavour to work normaly in exact mode.

The program names are self-explanatory.
If you want more details about this little programs, let me know or any extended proposals are welcome.

Code:


CHI:
%%HP: T(3)A(R)F(,);
\<< \-> N X
  \<< -105, SF 1, N X UTPC - -105, CF
  \>>
\>>

ICHI
%%HP: T(3)A(R)F(,);
\<< \-> N X
  \<< -105, SF '(CHI(N;AG)-X)=0,' 'AG' 1, ROOT -105, CF 'AG' PURGE
  \>>
\>>

NORM:
%%HP: T(3)A(R)F(,);
\<< \-> M V X
  \<< -105, SF 1, M, V X UTPN - -105, CF
  \>>
\>>

INORM:
%%HP: T(3)A(R)F(,);
\<< \-> M V X
  \<< -105, SF '(NORM(M;V;AG)-X)=0,' 'AG' 1, ROOT -105, CF 'AG' PURGE
  \>>
\>>

STUD:
%%HP: T(3)A(R)F(,);
\<< \-> N X
  \<< -105, SF 1, N X UTPT - -105, CF
  \>>
\>>

ISTUD:
%%HP: T(3)A(R)F(,);
\<< \-> N X
  \<< -105, SF '(STUD(N;AG)-X)=0,' 'AG' 1, ROOT -105, CF 'AG' PURGE
  \>>
\>>

FVERT:
%%HP: T(3)A(R)F(,);
\<< \-> N1 N2 X
  \<< -105, SF 1, N1 N2 X UTPF - -105, CF
  \>>
\>>

IFVRT:
%%HP: T(3)A(R)F(,);
\<< \-> N1 N2 X
  \<< -105, SF '(FVERT(N1;N2;AG)-X)=0,' 'AG' 1, ROOT -105, CF 'AG' PURGE
  \>>
\>>

Enjoy!