removed old files

dune/geometry/quadraturerules/gausslobatto_old.mac

-/*
- * Run `maxima --batch gausslobatto.mac'.
- */
-
-/* adjust search path */
-file_search_maxima: append(["$$$.{mac,max}"],file_search_maxima);
-
-load(orthopoly)$
-load(stringproc)$
-load(writequad_old)$
-
-orthopoly_returns_intervals : false;
-
-fpprec: 120$
-fpprintprec: 100$
-maxp: 30$
-/* float2bf: false$ */
-
-/* points are given as the roots of (x^2-1)*L_p(x) */
-point(n) := (x^2-1)*diff(legendre_p(n,x),x)$
-weight(n,xx) := at(ratsimp(2/((n*(n+1))*legendre_p(n,x)^2)), x=xx)$
-
-/*
-  write files
-*/
-
-/* num-points 4 */
-write_quad("gausslobatto_imp_old.hh", "GaussLobatto", "gausslobatto.mac",
-		   lambda([i],point(i)),
-           lambda([i,p],weight(i,p)),
-		   maxp)$
-
-/*
- * Local variables:
- * mode: maxima
- * compile-command: "maxima --batch gausslobatto.mac"
- * End:
- */

dune/geometry/quadraturerules/jacobian_old.mac

-/*
- * Run `maxima --batch jacobian.mac'.
- */
-
-/* adjust search path */
-file_search_maxima: append(["$$$.{mac,max}"],file_search_maxima);
-
-load(orthopoly)$
-load(stringproc)$
-load(writequad_old)$
-
-fpprec: 100$
-maxp: 61$
-/* float2bf: false$ */
-
-jacobi(p,a,b) := jacobi_p(p,a,b,x)$
-
-/*
-  d/dx jacobi_p
-  see http://mathworld.wolfram.com/JacobiPolynomial.html
-*/
-jacobi_p_x(p,a,b,x) := 1/2*(p+a+b+1)*jacobi_p(p-1,a+1,b+1,x)$
-
-A(n,a,b) := gamma(2*n+a+b+1)/(2^n*n!*gamma(n+a+b+1))$
-
-gamma_n(n,a,b) := 1/(2^(2*n)*(n!)^2)*(2^(2*n+a+b+1)*n!)/(2*n+a+b+1)*(gamma(n+a+1)*gamma(n+b+1))/gamma(n+a+b+1)$
-
-weight(n,a,b,xx) := A(n,a,b)/A(n-1,a,b)*gamma_n(n-1,a,b)/(at(ratexpand(jacobi_p(n-1,a,b,x)*jacobi_p_x(n,a,b,x)), x=xx))$
-
-/*
-  write files
-*/
-
-write_quad("jacobi_1_0_imp_old.hh", "Jacobi1", "jacobian.mac",
-		   lambda([i],jacobi(i,1,0)),
-           lambda([i,p],weight(i,1,0,p)),
-		   maxp)$
-write_quad("jacobi_2_0_imp_old.hh", "Jacobi2", "jacobian.mac",
-		   lambda([i],jacobi(i,2,0)),
-           lambda([i,p],weight(i,2,0,p)),
-           maxp)$
-write_quad("gauss_imp_old.hh", "Gauss", "jacobian.mac",
-		   lambda([i],jacobi(i,0,0)),
-           lambda([i,p],weight(i,0,0,p)),
-           maxp)$
-
-/*
- * Local variables:
- * mode: maxima
- * compile-command: "maxima --batch jacobian.mac"
- * End:
- */