diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Logtalk 2.30.7 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1973 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2007-11-06 01:50:09 +00:00
parent 6c3aee8c63
commit 42aabce1bb
320 changed files with 2252 additions and 1289 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Logtalk/examples/threads/functions/SCRIPT.txt
View File

@@ -1,6 +1,6 @@
================================================================
Logtalk - Open source object-oriented logic programming language
Release 2.30.2
Release 2.30.7
Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
================================================================
@@ -14,31 +14,31 @@ Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
% find the roots of some functions using each one of provided methods:
| ?- bisection::find_root(f1, 1.0, 2.3, 1e-15, Zero).
| ?- bisection::find_root(f1, 1.0, 2.3, 1.0e-15, Zero).
Zero = 2.0
yes
| ?- newton::find_root(f1, 1.0, 2.3, 1e-15, Zero).
| ?- newton::find_root(f1, 1.0, 2.3, 1.0e-15, Zero).
Zero = 2.0
yes
| ?- muller::find_root(f1, 1.0, 2.3, 1e-15, Zero).
| ?- muller::find_root(f1, 1.0, 2.3, 1.0e-15, Zero).
Zero = 2.0
yes
| ?- bisection::find_root(f2, 1.0, 1.3, 1e-15, Zero).
| ?- bisection::find_root(f2, 1.0, 1.3, 1.0e-15, Zero).
Zero = 1.25809265664599
yes
| ?- newton::find_root(f2, 1.0, 1.3, 1e-15, Zero).
| ?- newton::find_root(f2, 1.0, 1.3, 1.0e-15, Zero).
Zero = 1.25809265664599
yes
| ?- muller::find_root(f2, 1.0, 1.3, 1e-15, Zero).
| ?- muller::find_root(f2, 1.0, 1.3, 1.0e-15, Zero).
Zero = 1.25809265664599
yes
@@ -46,20 +46,26 @@ yes
% find the roots of some functions running all methods at once using multi-threading:
| ?- function_root::find_root(f1, 1.0, 2.3, 1e-15, Zero, Method).
| ?- function_root::find_root(f1, 1.0, 2.3, 1.0e-15, Zero, Method).
Zero = 2.0
Method = bisection
yes
| ?- function_root::find_root(f2, 1.0, 1.3, 1e-15, Zero, Method).
| ?- function_root::find_root(f2, 1.0, 1.3, 1.0e-15, Zero, Method).
Zero = 1.25809265664599
Method = newton
yes
| ?- function_root::find_root(f3, 0.0, 3.0, 1e-15, Zero, Method).
| ?- function_root::find_root(f3, 0.0, 3.0, 1.0e-15, Zero, Method).
Zero = 1.4142135623731
Method = newton
yes
| ?- function_root::find_root(f4, -1.0, 2.0, 1.0e-15, Zero, Method).
Zero = -8.88178419700125e-16
Method = bisection
yes