42 lines
811 B
Prolog
42 lines
811 B
Prolog
/*
|
|
$Header$
|
|
@author Nikolai van Kempen
|
|
|
|
Testing file for derivation examples.
|
|
|
|
*/
|
|
testDC(1, 1, _).
|
|
testDC(2, 100, _).
|
|
testDC(3, -200, _).
|
|
testDC(4, X, X).
|
|
testDC(5, _, _). % Means testDC(5, Y, X).
|
|
testDC(6, 1/X, X).
|
|
testDC(7, ln(X), X).
|
|
|
|
% More complex functions
|
|
testDC(10, ln(1/X), X).
|
|
testDC(11, ln(1/(X**10)), X).
|
|
testDC(12, ln((X**2+X**4+X**9)/(X**10)), X).
|
|
|
|
% derivation with more than one variable is currently not implemented
|
|
testDC(21, 20000-X+10000-(_/X), X).
|
|
|
|
% Test the functions of the test.pl file.
|
|
testDC(X, F, DV) :-
|
|
testMA(Y, VarList, F),
|
|
X is 1000+Y,
|
|
VarList=[DV|_].
|
|
|
|
testDC(No) :-
|
|
testDC(No, F, DVar) ,
|
|
derivate(F, DVar, DF),
|
|
nl,
|
|
write_list(['No: ', No, ' D: ', DVar, ' F: ', F, '\n']),
|
|
write_list(['Derivative: ', DF, '\n']).
|
|
|
|
testDC :-
|
|
testDC(_),
|
|
fail.
|
|
|
|
% eof
|