/usr/share/yacas/scripts/statistics.rep/statistics.ys is in yacas 1.3.6-2.
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 | Mean(x) := Add(x)/Length(x);
GeometricMean(x) := Factorize(x)^(1/Length(x));
Median(x) :=
[
Local(sx,n,n2); // s[orted]x
sx := BubbleSort(x,"<");
n := Length(x);
n2 := (n>>1);
If(Mod(n,2) = 1, sx[n2+1], (sx[n2]+sx[n2+1])/2);
];
Variance(x) := Add((x-Mean(x))^2)/Length(x);
UnbiasedVariance(x) := Add((x-Mean(x))^2)/(Length(x)-1);
// stdev in Wester benchmark
StandardDeviation(x) := Sqrt(UnbiasedVariance(x));
// Why Sqrt(1.01) --> Sqrt(1.01) ?
|