$dist_erlang needs to use rtl_dist_erlang.
The erlang distribution calltf routine was incorrectly using the
normal distribution.
(cherry picked from commit 26b95b94f7)
This commit is contained in:
parent
c781db5779
commit
d3f60a2a98
|
|
@ -877,7 +877,7 @@ static PLI_INT32 sys_dist_erlang_calltf(PLI_BYTE8 *name)
|
|||
i_mean = val.value.integer;
|
||||
|
||||
/* Calculate and return the result. */
|
||||
val.value.integer = rtl_dist_normal(&i_seed, i_k, i_mean);
|
||||
val.value.integer = rtl_dist_erlang(&i_seed, i_k, i_mean);
|
||||
vpi_put_value(callh, &val, 0, vpiNoDelay);
|
||||
|
||||
/* Return the seed. */
|
||||
|
|
|
|||
Loading…
Reference in New Issue