new ex queries gauss_mean_est.pl

swi-to-yap · Jun 15, 2016 · 355deab · 355deab
1 parent 8837fc5
commit 355deab
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/examples/inference/gauss_mean_est.pl b/examples/inference/gauss_mean_est.pl
@@ -57,6 +57,10 @@
 ?- hist_uncond(10000,40,G).
 % plot an histogram of the density of the random variable before any
 % observations
+?-  mc_lw_expectation(value(0,X),(value(1,9),value(2,8)),1000,X,E).
+% E = 7.166960047178755
+?- mc_expectation(value(0,X),10000,X,E).
+% E = 0.9698875384639362.
 
 */