/usr/share/axiom-20120501/input/tutchap4.input is in axiom-test 20120501-8.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | --Copyright The Numerical Algorithms Group Limited 1996.
s := operator 's
solve(D(s(t),t,2) = -k^2*s(t), s, t)
solve(D(s(t),t,2) = -k^2*s(t), s, t=0, [A, 0])
DE := D(s(t),t,2) = -k^2*s(t) - c*D(s(t),t)
S := solve(DE, s, t=0, [A, 0])
S1 == eval(S,[A=1,k=1,c=3])
draw(S1, t=0..100)
S
kernels S
k3 := %.3
eval(S,k3,%i*sqrt(4*k^2 - c^2))
ST := trigs %
S2 == eval(ST,[A=1,k=1,c=0.1])
draw(S2::EXPR FLOAT,t=0..100)
S3==eval(S,[A=1,k=1,c=0.1])
draw(S3,t=0..100)
function(S1,'s1,'t)
s1(1)
function(S2,'s2,'t)
s2(0.1)
|