Equation of Tangent

[roadrunner]

This one might work better, but it's more complicated:

Code:


EXPORT TANGENT()
BEGIN
 LOCAL a, f, df, b, fn, ff, sf;
 PRINT;
 INPUT (fn, "Function:", "f (X) =", "Enter the algebraic expression");
 CASE
  IF fn==1 THEN
   F1▶f;
   diff(F1(X),'X',1)▶df;
  END;
  IF fn==2 THEN
   F2▶f;
   diff(F2(X),'X',1)▶df;
  END;
  IF fn==3 THEN
   F3▶f;
   diff(F3(X),'X',1)▶df;
  END;
  IF fn==4 THEN
   F4▶f;
   diff(F4(X),'X',1)▶df;
  END;
  IF fn==5 THEN
   F5▶f;
   diff(F5(X),'X',1)▶df;
  END;
  IF fn==6 THEN
   F6▶f;
   diff(F6(X),'X',1)▶df;
  END;
  IF fn==7 THEN
   F7▶f;
   diff(F7(X),'X',1)▶df;
  END;
  IF fn==8 THEN
   F8▶f;
   diff(F8(X),'X',1)▶df;
  END;
  IF fn==9 THEN
   F9▶f;
   diff(F9(X),'X',1)▶df;
  END;
  IF fn==0 THEN
   F0▶f;
   diff(F0(X),'X',1)▶df;
  END;
 DEFAULT
  RETURN "error";
 END;
 INPUT (a, "Study of the tangent at x =?", " X =");
 PRINT ("f (X) =" + f);
 PRINT ("Equation of the tangent at " + a + " :");
 EXPR(REPLACE(STRING(df), "X", STRING(a)))▶sf;
 EXPR(REPLACE(STRING(f), "X", STRING(a)))▶ff;
 PRINT ("Y =" + sf + "(X -" + a + ") +" + ff);
 −sf * a + ff ▶ b;
 PRINT ("that is: Y =" + sf + IFTE(b<0,"X -","X +") + ABS(b));
END;

-road