/*
 * 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")
 * «.FIX-PS»	(to "FIX-PS")
*/

load_myqdraw();
load("~/myqdraw/mydraw3d.mac");
[topdf_a,topdf_b,topdf_c,topdf_n] : ["~/LATEX/", "2025-1-C3/", "P1-Q2", 0];
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("~/MAXIMA/2025-1-C3-P1-Q2.mac");
map(numerozinhos, [F,gradF]);
setrange(2)$
myqdrawp(xyrange(), item_b_grads())$
myqdrawp(xyrange(), item_b_grads(), item_b_curvas())$

*/



/* «FIX-PS»  (to ".FIX-PS")
** 2024dec18:
* (setq last-kbd-macro (kbd "C-a %M SPC C-a <down>"))
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
** (find-myqdraw "myqdraw3.mac")
load_myqdraw();
load("/usr/share/emacs/site-lisp/maxima/emaxima.lisp")$
:lisp (setf (get '$display2d 'assign) nil)
display2d:'emaxima$
load("~/MAXIMA/2025-1-C3-P1-Q2.mac");
myqdrawp_to_screen (); myps(s):=ps(s);
myqdrawp_to_new_pdf(); myps(s):=ps(s/5);
myPopts          (colr) := [pc(colr),ps(2)];
myPopts          (colr) := [pc(colr),myps(2)];
linel : 115;
linenum:0;
map(numerozinhos, [F,gradF]);
setrange(2)$
myqdrawp(xyrange(), item_b_grads());
myqdrawp(xyrange(), item_b_grads(), item_b_curvas());

** (find-fline "~/LATEX/2025-1-C3/" "P1-Q2_001.pdf")

*/