Tcl Library Source Code

Artifact 637fe54b2657eb165141a0daf48962f9ff584865:

Attachment "pdf_stat.tcl.diff" to ticket [a6d69107d5] added by gahr 2014-09-24 11:54:29. (unpublished)

---

--- modules/math/pdf_stat.tcl
+++ modules/math/pdf_stat.tcl
@@ -80,11 +80,11 @@
 	return -code error -errorcode ARG \
 		-errorinfo "Wrong order or zero range" \
 		"Wrong order or zero range"
     }
 
-    set prob [expr {1.0/($pmax-$min)}]
+    set prob [expr {1.0/($pmax-$pmin)}]
 
     if { $x < $pmin || $x > $pmax } { return 0.0 }
 
     return $prob
 }