09fa0abef9
es.cpl into es.cpl esapprox.cpl into exapprox.cpl esrange.cpl into exrange.cpl git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1996 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
18 lines
178 B
Plaintext
18 lines
178 B
Plaintext
/*
|
|
|
|
set(ground_body,true).
|
|
s([a],P).
|
|
Variables: [(1,[]),(2,[]),(3,[])]
|
|
P = 0.1719 ? ;
|
|
|
|
set(ground_body,false).
|
|
?- s([a],P).
|
|
P = 0.099 ?
|
|
*/
|
|
|
|
a:0.1:-p(X).
|
|
|
|
p(1):0.9.
|
|
|
|
p(2):0.9.
|