Posts: 117
Threads: 31
Joined: Sep 2008
Here is a patch (I kind of tested it by building, flashing and trying).
Index: trunk/xrom/distributions/exponential.wp34s
===================================================================
--- trunk/xrom/distributions/exponential.wp34s (revision 3429)
+++ trunk/xrom/distributions/exponential.wp34s (working copy)
@@ -55,6 +55,8 @@
SPEC?
JMP cdf_infinite
[times]
+ x<0?
+ JMP ret_0
+/-
e[^x]-1
+/-
@@ -70,7 +72,6 @@
xOUT xOUT_NORMAL
expon_param:: RCL J
- GSB check_special_pos
- RTN
+ JMP check_special_pos
Posts: 117
Threads: 31
Joined: Sep 2008
Since I was there, I think that similar bug in Expon_u should also be fixed.
I tried this one in console emulator.
Index: trunk/xrom/distributions/exponential.wp34s
===================================================================
--- trunk/xrom/distributions/exponential.wp34s (revision 3429)
+++ trunk/xrom/distributions/exponential.wp34s (working copy)
@@ -43,6 +43,8 @@
SPEC?
JMP cdf_infinite
[times]
+ x<0?
+ JMP ret_1
+/-
e[^x]
xOUT xOUT_NORMAL
@@ -55,6 +57,8 @@
SPEC?
JMP cdf_infinite
[times]
+ x<0?
+ JMP ret_0
+/-
e[^x]-1
+/-
@@ -70,7 +74,6 @@
xOUT xOUT_NORMAL
expon_param:: RCL J
- GSB check_special_pos
- RTN
+ JMP check_special_pos
Edited: 13 July 2013, 5:01 p.m.