From a54c83201999845d835dc29cea9e98e54f18bea0 Mon Sep 17 00:00:00 2001 From: Observatorio-de-Matematica <141172160+Observatorio-de-Matematica@users.noreply.github.com> Date: Mon, 7 Oct 2024 12:32:58 -0500 Subject: [PATCH] File extension changed and some load related editions The two files with .wxmx file extensions were changed to .wxm file extension, to be read in GitHub. Some editions were made to test the packages in my system, other users can do similar editions. --- intdei.wxm | 96 +++++++++++++++++++++++++++++++++++++++ intdei2.wxm | 126 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 222 insertions(+) create mode 100644 intdei.wxm create mode 100644 intdei2.wxm diff --git a/intdei.wxm b/intdei.wxm new file mode 100644 index 0000000..dc19927 --- /dev/null +++ b/intdei.wxm @@ -0,0 +1,96 @@ +/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ +/* [ Created with wxMaxima version 22.04.0 ] */ +/* [wxMaxima: input start ] */ +/* Every user must handle this by itself */ +file_search_lisp:append([sconcat("C:/Users/Usuario/Downloads/quadde-main","/$$$.{fasl,lisp,lsp}")],file_search_lisp)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +load(intde1)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +load(quadde)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +:lisp (atan 1.0d0 1) +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +atan(1),numer; +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ + :lisp(defun f (x) (/ 1 (sqrt x))); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ + :lisp(defun f1 (x) (/ 1 (* x x))); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +:lisp(quadde::intde #'f 0.0d0 1.0d0 1.0d-15 0.0d0); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +:lisp(quadde::intdei #'f1 1.0d0 1.0d-15 0.0d0); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +quad_intde(1/sqrt(x),x,0,1, 'epsrel=1e-15); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +quad_intde(sin(x),x,0,%pi, 'epsrel=1e-15); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +integrate(sin(x),x,0, %pi); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +quad_intdei(exp(-x)/sqrt(x),x,0, 'epsrel=1e-15); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +gamma(1/2),numer; +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +quad_intdeo(sin(x)/x,x,0, 1, 'epsrel=1e-15); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +integrate(sin(x)/x,x,0, inf); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +quad_intdeo(bessel_j(0,x)/(x^2+1)*x,x,0, 1, 'epsrel=1e-15); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +bessel_k(0,1),numer; +/* [wxMaxima: input end ] */ + + + +/* Old versions of Maxima abort on loading files that end in a comment. */ +"Created with wxMaxima 22.04.0"$ diff --git a/intdei2.wxm b/intdei2.wxm new file mode 100644 index 0000000..36f75f6 --- /dev/null +++ b/intdei2.wxm @@ -0,0 +1,126 @@ +/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ +/* [ Created with wxMaxima version 22.04.0 ] */ +/* [wxMaxima: input start ] */ +/* Every user must handle this by itself */ +file_search_lisp:append([sconcat("C:/Users/Usuario/Downloads/quadde-main","/$$$.{fasl,lisp,lsp}")],file_search_lisp)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +load(intde1)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +load(quadde)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +:lisp (atan 1.0d0 1) +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +atan(1),numer; +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ + :lisp(defun f (x) (/ 1 (sqrt x))); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ + :lisp(defun f1 (x) (/ 1 (* x x))); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +:lisp(quadde::intde #'f 0.0d0 1.0d0 1.0d-15 0.0d0); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +:lisp(quadde::intdei #'f1 1.0d0 1.0d-15 0.0d0); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +quad_intde(1/sqrt(x),x,0,1, 'epsrel=1e-15); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +(quad_intde(1/sqrt(x),x^2,0,1, 'epsrel=1e-15)); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +quad_intde(1/sqrt(x),z,0,1, 'epsrel=1e-15); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +quad_intde(1/sqrt(x),x[k],0,1, 'epsrel=1e-15); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +quad_intde(1/sqrt(x),1,0,1, 'epsrel=1e-15); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +quad_intde(sin(x),x,x,%pi, 'epsrel=1e-15); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +quad_intde(sin(x),x,0,'Q, 'epsrel=1e-15); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +integrate(sin(x),x,0, %pi); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +fe(expr,v):= (freeof( expr, var)); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +quad_intdei(exp(-x)/sqrt(x),x,0, 'epsrel=1e-15); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +gamma(1/2),numer; +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +quad_intdeo(2*sin(x)/x,x,0, 1, 'epsrel=1e-15); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +integrate(2*sin(x)/x,x,0, inf); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +quad_intdeo(bessel_j(0,x)/(x^2+1)*x,x,0, 1, 'epsrel=1e-15); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +bessel_k(0,1),numer; +/* [wxMaxima: input end ] */ + + + +/* Old versions of Maxima abort on loading files that end in a comment. */ +"Created with wxMaxima 22.04.0"$