/*
 * This file:
 *   http://anggtwu.net/MAXIMA/2025-1-C3-P1-Q2.mac.html
 *   http://anggtwu.net/MAXIMA/2025-1-C3-P1-Q2.mac
 *          (find-angg "MAXIMA/2025-1-C3-P1-Q2.mac")
 * Author: Eduardo Ochs <eduardoochs@gmail.com>
 *
 * (defun e () (interactive) (find-angg "MAXIMA/2025-1-C3-P1-Q2.mac"))
 * (find-myqdraw "myqdraw3.mac")
 * (find-myqdraw "mydraw3d.mac")
 *
 * «.gab»	(to "gab")
*/

load_myqdraw();
load("~/myqdraw/mydraw3d.mac");
linel : 110;
[xmin,ymin, xmax,ymax] : [-2,-2, 2,2];
setrange(e) := [xmin,ymin, xmax,ymax] : [-2-e,-2-e, 2+e,2+e];

Fx     : x+2;
Fd     : x-y;
Fy     : y+2;
F      : Fx * Fd * Fy;
gradF  : [diff(F,x), diff(F,y)];
item_a : map(numerozinhos, [F,gradF]);

define(gradF(x,y), gradF);

setrange(1/32);
item_b_curvas : [myimp1(F=12,  lc(red)),
                 myimp1(F=6,   lc(orange)),
                 myimp1(F=0,   lc(forest_green)),
                 myimp1(F=-6,  lc(blue)),
                 myimp1(F=-12, lc(violet))];
setrange(0);

/* (find-angg "MAXIMA/2024-2-C3-P2.mac")
 * (find-myqdraw "myqdraw3.mac")
*/
drawgrad(x,y) := myPv_c([x,y], gradF(x,y)/10, gray);
item_b_grads : create_list(drawgrad(x,y), x,seq(-2,2), y,seq(-2,2));

/*
** (c3m251p1p 4 "questao-2a")
** (c3m251p1a   "questao-2a")
** (find-myqdraw "mydraw3d.mac" "numerozinhos-tests")
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
load("2025-1-C3-P1-Q2.mac");

item_a;
setrange(2)$
myqdraw(xyrange(), item_b_grads, item_b_curvas)$
myqdraw(xyrange(),               item_b_curvas)$

myPopts          (colr) := [pc(c7olr),ps(0.1)];
drawgrad(2,-1);
myqdraw(xyrange(), grads, item_b_curvas);

F;
gradF;

map(numerozinhos, [F]);
map(numerozinhos, [Fx,Fy,Fx*Fy]);
map(numerozinhos, [Fd,Fx*Fd*Fy]);
map(numerozinhos, [Fd,F]);

gradF;
map(numerozinhos, [Fd*Fy,Fx*Fy,gradF[1]]);
map(numerozinhos, [Fd*Fx,Fx*Fy,gradF[2]]);
map(numerozinhos, [gradF]);
map(numerozinhos, [F,gradF]);

*/


/* «gab»  (to ".gab")
** (c3m251p1p 4 "questao-2")
** (c3m251p1a   "questao-2")
** (c3m251p1p 7 "gab-2")
** (c3m251p1a   "gab-2")
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
load("2025-1-C3-P1-Q2.mac");
map(numerozinhos, [F,gradF]);
setrange(2)$
myqdraw(xyrange(), item_b_grads)$
myqdraw(xyrange(), item_b_grads, item_b_curvas)$

*/