| % generated: 25 October 1989 |
| % option(s): |
| % |
| % (deriv) log10 |
| % |
| % David H. D. Warren |
| % |
| % symbolic derivative of log(log(log(log(log(log(log(log(log(log(x)))))))))) |
| |
| log10 :- d(log(log(log(log(log(log(log(log(log(log(x)))))))))),x,_). |
| |
| d(U+V,X,DU+DV) :- !, |
| d(U,X,DU), |
| d(V,X,DV). |
| d(U-V,X,DU-DV) :- !, |
| d(U,X,DU), |
| d(V,X,DV). |
| d(U*V,X,DU*V+U*DV) :- !, |
| d(U,X,DU), |
| d(V,X,DV). |
| d(U/V,X,(DU*V-U*DV)/(^(V,2))) :- !, |
| d(U,X,DU), |
| d(V,X,DV). |
| d(^(U,N),X,DU*N*(^(U,N1))) :- !, |
| integer(N), |
| N1 is N-1, |
| d(U,X,DU). |
| d(-U,X,-DU) :- !, |
| d(U,X,DU). |
| d(exp(U),X,exp(U)*DU) :- !, |
| d(U,X,DU). |
| d(log(U),X,DU/U) :- !, |
| d(U,X,DU). |
| d(X,X,1) :- !. |
| d(_,_,0). |
