> 1 <

Автор Сообщение

Leprikon4eg

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст:

#7607   2015-04-20 15:54 GMT+3 часа(ов)      
Здравствуйте!
Помогите пожалуйста написать программу для нахоождения символического дифференцирования.
На данный момент у меняесть только код на прологе и я не могу его портировать на лисп.
p(N,0):-number(N).
p(x,1).
p(x^N,N*x^N1):-!,N1 is N-1.
p(sin(x),cos(x)):-!.
p(cos(x),-sin(x)):-!.
p(exp(x),exp(x)):-!.
p(-F,-Fp):-p(F,Fp).
p(N*F,N*Fp):-p(F,Fp).
p(F^N,(N*F^N1)*Fp):-p(F,Fp),N1 is N-1.
p(A+B,Ap+Bp):-p(A,Ap),p(B,Bp).
p(A-B,Ap-Bp):-p(A,Ap),p(B,Bp).
p(A*B,Ap*B+A*Bp):-p(A,Ap),p(B,Bp).
p(A/B,(Ap*B-A*Bp)/(B)^2):-p(A,Ap),p(B,Bp).
p(sin(F),cos(F)*Fp):-p(F,Fp).
p(cos(F),-sin(F)*Fp):-p(F,Fp).
p(exp(F),exp(F)*Fp):-p(F,Fp).

antares0

Members


Статус

174 сообщений

Где: Russia
Род занятий:
Возраст:

#7609   2015-04-20 23:45 GMT+3 часа(ов)      
В PAIP-е этот вопрос подробно разбирался. Но вот насколько сможете понять ...
Исходники там можно скачать свободно http://www.norvig.com/paip/README.html
> 1 <


Онлайн :

0 пользователь(ей), 6 гость(ей) :




Реклама на сайте: