b697f3d34e
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1781 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
66 lines
1.3 KiB
Plaintext
66 lines
1.3 KiB
Plaintext
=================================================================
|
|
Logtalk - Object oriented extension to Prolog
|
|
Release 2.29.3
|
|
|
|
Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
|
=================================================================
|
|
|
|
|
|
% start by loading the loading the example:
|
|
|
|
| ?- logtalk_load(functions(loader)).
|
|
...
|
|
|
|
|
|
% find the roots of some functions using each one of provided methods:
|
|
|
|
| ?- bisection::find_root(f1, 1.0, 2.3, 1e-15, Zero).
|
|
|
|
Zero = 2.0
|
|
yes
|
|
|
|
| ?- newton::find_root(f1, 1.0, 2.3, 1e-15, Zero).
|
|
|
|
Zero = 2.0
|
|
yes
|
|
| ?- muller::find_root(f1, 1.0, 2.3, 1e-15, Zero).
|
|
|
|
Zero = 2.0
|
|
yes
|
|
|
|
| ?- bisection::find_root(f2, 1.0, 1.3, 1e-15, Zero).
|
|
|
|
Zero = 1.25809265664599
|
|
yes
|
|
|
|
| ?- newton::find_root(f2, 1.0, 1.3, 1e-15, Zero).
|
|
|
|
Zero = 1.25809265664599
|
|
yes
|
|
|
|
| ?- muller::find_root(f2, 1.0, 1.3, 1e-15, Zero).
|
|
|
|
Zero = 1.25809265664599
|
|
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).
|
|
|
|
Zero = 2.0
|
|
Method = bisection
|
|
yes
|
|
|
|
| ?- function_root::find_root(f2, 1.0, 1.3, 1e-15, Zero, Method).
|
|
|
|
Zero = 1.25809265664599
|
|
Method = newton
|
|
yes
|
|
|
|
| ?- function_root::find_root(f3, 0.0, 3.0, 1e-15, Zero, Method).
|
|
|
|
Zero = 1.4142135623731
|
|
Method = newton
|
|
yes
|