/usr/share/genius/examples/linapprox.gel is in genius-common 1.0.21-1.
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 27 28 29 30 31 32 33 34 35 36 37 | # Category: Calculus
# Name: Linear approximation by a tangent graphically
function f(x) = sin(ln(x+1))^2;
df = SymbolicDerivative(f);
# Where to approximate
a = 2;
# The approximation
function lf(x) = df(a)*(x-a)+f(a);
function DoGraph(x) = (
PlotCanvasFreeze();
LinePlot(f,lf,[-0.5,5,-0.1,2]);
LinePlotDrawLine([x,0,x,min(f(x),lf(x))],"color","orange");
LinePlotDrawLine([x,min(f(x),lf(x)),x,max(f(x),lf(x))],"color","red");
LinePlotDrawLine([-0.5,f(x),5,f(x)],"color","black","thickness",1);
LinePlotDrawLine([-0.5,lf(x),5,lf(x)],"color","purple","thickness",1);
PlotCanvasThaw();
print("at x=" + x + " error = |" + lf(x) + " - " + f(x) + "| = " + |lf(x)-f(x)|);
);
PlotWindowPresent(); # Make sure the window is raised
for x=2 to 5 by 0.0222 do (
DoGraph(x);
wait(0.003)
);
for x=5 to -0.5 by -0.0222 do (
DoGraph(x);
wait(0.06)
);
for x=-0.5 to 2 by 0.0222 do (
DoGraph(x);
wait(0.003)
);
|