|
fact(1,1):-!.
fact(N,F):-N1 is N-1, fact(N1,F1),F is F1*N.
power(X,1,X):-!.
power(X,N,P):-N1 is N-1, power(X,N1,P1), P is P1*X.
element(X,1,X):-!.
element(X,N,E):-
N1 is N-1, element(X,N1,E1),
M is 2*N-1, power(X,M,Chislitel),
fact(M,Znamenatel),power(-1,N1,Mnozitel),
E is E1+Mnozitel*Chislitel/Znamenatel.
и запрос
?- element(0.15,10,E).
E = 0.149438.
Я знаю, что ничего не знаю, но многие не знают и этого |
Главная
Каталог файлов
