org-mode/testing/examples/ob-maxima-test.org

a collection of examples for ob-maxima tests

• Simple tests
• Graphic output
  • Use the draw package
• Output to a file
• List input
• Table input
• Construct a table from the output
• LaTeX output
• Batch

Simple tests

print(s);

Pass a string

print(diff(fun, x, q))$

Graphic output

Graphic output

plot2d(sin(a*x), [x, 0, 2*%pi])$

plot3d (2^(-u^2 + v^2), [u, -3, 3], [v, -2, 2])$

Use the draw package

This test exercises the :graphics-pkg header argument.

draw2d(explicit(cos(a*x), x, -%pi, %pi))$

Output to a file

Output to a file

for i:1 thru 10 do print(i)$

List input

Simple list as an input

print(a)$

print(a+1);

Table input

1.0

2.0

1.0

2.0

print(s+1.0);

print(s+1.0);

Matrix

1.0

1.0

ms: apply(matrix, s);
print(ms);

Construct a table from the output

with_stdout("/dev/null", load(numericalio))$
m: genmatrix (lambda([i,j], i+j-1), 3, 3)$
write_data(m, "/dev/stdout")$

LaTeX output

assume(x>0);
tex(ratsimp(diff(%e^(a*x), x)));

$$a\,e^{a\,x}$$

Batch

Exercise the :batch header argument. These tests are also defined in testing/lisp/test-ob-maxima.el. The test name is name of the ert test.

(assume(z>0),
integrate(exp(-t)*t^z, t, 0, inf));

(assume(z>0),
integrate(exp(-t)*t^z, t, 0, inf));

:lisp #$(assume(z>0),integrate(exp(-t)*t^z, t, 0, inf));#$

"";

" ";

;

x: