/*
 * This file:
 *   http://anggtwu.net/MAXIMA/2025-1-C3-geogebra.mac.html
 *   http://anggtwu.net/MAXIMA/2025-1-C3-geogebra.mac
 *          (find-angg "MAXIMA/2025-1-C3-geogebra.mac")
 * Author: Eduardo Ochs <eduardoochs@gmail.com>
 *
 * (defun e () (interactive) (find-angg "MAXIMA/2025-1-C3-geogebra.mac"))
 * (c3m251sga   "links-maxima")
 * (c3m251sgp 5 "traj-em-3-partes")
 * (c3m251sga   "traj-em-3-partes")
*/

/* (find-myqdraw "myqdraw3.mac")
*/
load_myqdraw();

Q1(t) := [1,1] +  t       *[2,0];
Q2(t) := [3,1] +  (t-1)   *[1,1];
Q3(t) := [4,2] + ((t-2)/2)*[0,1];
P (t) := if     t<1 then Q1(t)
         elseif t<2 then Q2(t)
         else            Q3(t);

ts : seqby(0,4, 1/2);
Ps : map(P, ts);

myqdraw(xyrange(), pts(Ps));

/*
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
load("2025-1-C3-geogebra.mac");

*/