/usr/share/yacas/scripts/examples/series.ys is in yacas 1.3.6-2+b1.
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 22 23 24 25 26 | /* Generate a polynomial base1 + base2*x + ....*/
ArbPoly(_base,n_IsPositiveInteger) <-- Sum(MakeVector(base,n)*x^(0 .. (n-1)));
/*
SinTaylor and ExpTaylor: direct series for the taylor series expansions
of Sin and Exp.
Examples:
In> Simplify(SinTaylor(10) - Taylor(x,0,10)Sin(x))
Out> 0;
In> Simplify(ExpTaylor(10) - Taylor(x,0,10)Exp(x))
Out> 0;
*/
SinTaylor(n_IsPositiveInteger) <--
[
Local(m);
n:=((n-1)>>1);
m:=(1+2*(0 .. n));
Sum((-1)^(0 .. n)*x^m/(m!));
];
ExpTaylor(n_IsPositiveInteger) <--
[
Sum(x^(0 .. n)/((0 .. n)!));
];
|