% (find-LATEX "2024-2-C3-maxima-conics.tex")
% (defun c () (interactive) (find-LATEXsh "lualatex -record 2024-2-C3-maxima-conics.tex" :end))
% (defun C () (interactive) (find-LATEXsh "lualatex 2024-2-C3-maxima-conics.tex" "Success!!!"))
% (defun D () (interactive) (find-pdf-page      "~/LATEX/2024-2-C3-maxima-conics.pdf"))
% (defun d () (interactive) (find-pdftools-page "~/LATEX/2024-2-C3-maxima-conics.pdf"))
% (defun e () (interactive) (find-LATEX "2024-2-C3-maxima-conics.tex"))
% (defun o () (interactive) (find-LATEX "2024-2-C3-maxima-conics.tex"))
% (defun u () (interactive) (find-latex-upload-links "2024-2-C3-maxima-conics"))
% (defun v () (interactive) (find-2a '(e) '(d)))
% (defun d0 () (interactive) (find-ebuffer "2024-2-C3-maxima-conics.pdf"))
% (defun cv () (interactive) (C) (ee-kill-this-buffer) (v) (g))
%          (code-eec-LATEX "2024-2-C3-maxima-conics")
% (find-pdf-page   "~/LATEX/2024-2-C3-maxima-conics.pdf")
% (find-sh0 "cp -v  ~/LATEX/2024-2-C3-maxima-conics.pdf /tmp/")
% (find-sh0 "cp -v  ~/LATEX/2024-2-C3-maxima-conics.pdf /tmp/pen/")
%     (find-xournalpp "/tmp/2024-2-C3-maxima-conics.pdf")
%   file:///home/edrx/LATEX/2024-2-C3-maxima-conics.pdf
%               file:///tmp/2024-2-C3-maxima-conics.pdf
%           file:///tmp/pen/2024-2-C3-maxima-conics.pdf
%  http://anggtwu.net/LATEX/2024-2-C3-maxima-conics.pdf
% (find-LATEX "2019.mk")
% (find-Deps1-links "Caepro5 Piecewise2 Maxima2")
% (find-Deps1-cps   "Caepro5 Piecewise2 Maxima2")
% (find-Deps1-anggs "Caepro5 Piecewise2 Maxima2")
% (find-MM-aula-links "2024-2-C3-maxima-conics" "3" "c3m242maximaconics" "c3mc")

% «.defs»		(to "defs")
% «.defs-T-and-B»	(to "defs-T-and-B")
% «.defs-maxima»	(to "defs-maxima")
% «.title»		(to "title")
% «.M-blocks»		(to "M-blocks")



\documentclass[oneside,12pt]{article}
\usepackage[colorlinks,citecolor=DarkRed,urlcolor=DarkRed]{hyperref} % (find-es "tex" "hyperref")
\usepackage{amsmath}
\usepackage{amsfonts}
\usepackage{amssymb}
\usepackage{pict2e}
\usepackage[x11names,svgnames]{xcolor} % (find-es "tex" "xcolor")
\usepackage{colorweb}                  % (find-es "tex" "colorweb")
%\usepackage{tikz}
%
% (find-LATEX "dednat7-test1.tex")
%\usepackage{proof}   % For derivation trees ("%:" lines)
%\input diagxy        % For 2D diagrams ("%D" lines)
%\xyoption{curve}     % For the ".curve=" feature in 2D diagrams
%
\usepackage{edrx21}               % (find-LATEX "edrx21.sty")
\input edrxaccents.tex            % (find-LATEX "edrxaccents.tex")
\input edrx21chars.tex            % (find-LATEX "edrx21chars.tex")
\input edrxheadfoot.tex           % (find-LATEX "edrxheadfoot.tex")
\input edrxgac2.tex               % (find-LATEX "edrxgac2.tex")
%
% (find-es "tex" "geometry")
\usepackage[a6paper, landscape,
            top=1.5cm, bottom=.25cm, left=1cm, right=1cm, includefoot
           ]{geometry}
%
\begin{document}

% «defs»  (to ".defs")
% (find-LATEX "edrx21defs.tex" "colors")
% (find-LATEX "edrx21.sty")

\def\drafturl{http://anggtwu.net/LATEX/2024-2-C3.pdf}
\def\drafturl{http://anggtwu.net/2024.2-C3.html}
\def\drafturl{http://anggtwu.net/eev-qdraw.html}
\def\draftfooter{\tiny \href{\drafturl}{\jobname{}} \ColorBrown{\shorttoday{} \hours}}

% (find-LATEX "2024-1-C2-carro.tex" "defs-caepro")
% (find-LATEX "2024-1-C2-carro.tex" "defs-pict2e")

\catcode`\^^J=10
\directlua{dofile "dednat7load.lua"}  % (find-LATEX "dednat7load.lua")
\directlua{dednat7preamble()}         % (find-angg "LUA/DednatPreamble1.lua")
%\directlua{dednat7oldheads()}         % (find-angg "LUA/Dednat7oldheads.lua")

% «defs-T-and-B»  (to ".defs-T-and-B")
\long\def\ColorDarkOrange#1{{\color{orange!90!black}#1}}
\def\T(Total: #1 pts){{\bf(Total: #1)}}
\def\T(Total: #1 pts){{\bf(Total: #1 pts)}}
\def\T(Total: #1 pts){\ColorRed{\bf(Total: #1 pts)}}
\def\B       (#1 pts){\ColorDarkOrange{\bf(#1 pts)}}

% «defs-maxima»  (to ".defs-maxima")
%L dofile "Maxima2.lua"              -- (find-angg "LUA/Maxima2.lua")
\pu



%  _____ _ _   _                               
% |_   _(_) |_| | ___   _ __   __ _  __ _  ___ 
%   | | | | __| |/ _ \ | '_ \ / _` |/ _` |/ _ \
%   | | | | |_| |  __/ | |_) | (_| | (_| |  __/
%   |_| |_|\__|_|\___| | .__/ \__,_|\__, |\___|
%                      |_|          |___/      
%
% «title»  (to ".title")
% (c3m242maximaconicsp 1 "title")
% (c3m242maximaconicsa   "title")

\thispagestyle{empty}

\begin{center}

\vspace*{1.2cm}

{\bf \Large A demo of Maxima2.lua}

\ssk

\footnotesize{
\url{http://anggtwu.net/eev-qdraw.html}
}

\ssk

Eduardo Ochs

%\ssk

November 3, 2024


\end{center}

\newpage

% «M-blocks»  (to ".M-blocks")
% (c3m242maximaconicsp 2 "M-blocks")
% (c3m242maximaconicsa   "M-blocks")

%M (%i1) [xmin,ymin, xmax,ymax] : [-2,-2, 2,2]$
%M (%i2) [color[-2], color[-1], color[0], color[1], color[2]] :
%M   [blue, forest_green, gold, orange, red]$
%M (%i3) arrayinfo(color);
%M (%o3) \left[ \mathrm{hashed} , 1 , \left[ -2 \right]  , \left[ -1 \right]  , \left[ 0 \right]  , \left[ 1 \right]  , \left[ 2 \right]  \right] 
%M (%i4) conic    (a,b)    := (x^2 + a*y + b*y^2 = 1)$
%M (%i5) draw_abck(a,b,c)  := myimp1(conic(a,b), lc(color[c]), lk(conic(a,b)))$
%M (%i6) draw_abc (a,b,c)  := myimp1(conic(a,b), lc(color[c]))$
%M (%i7) draw_abk (a,b)    := draw_abck(a,b,b)$
%M (%i8) draw_ab  (a,b)    := draw_abc (a,b,b)$
%M (%i9) draw_a   (a)      := makelist(draw_ab(a,b), b, [2,1,0,-1,-2])$
%M (%i10) makeM1() := matrix([      "",      "", f(0,1),     "",      ""],
%M                    [      "", f(-1,0), f(0,0), f(1,0),      ""],
%M                    [f(-2,-1),      "",     "",     "", f(2,-1)])$
%M (%i11) makeM2() := matrix([g(-2),    g(-1),   g(0),   g(1),   g(2)   ])$
%M (%i12) f(a,b) := myqdrawp(xyrange(), draw_abk(a,b))$
%M (%i13) g(a)   := myqdrawp(xyrange(), draw_a(a))$
%M (%i14) M1 : makeM1()$
%M (%i15) M2 : makeM2()$
%M (%i16) stringdisp : false$
%L maximahead:sa("conics", "")
\pu

%M (%i17) M1;
%M (%o17) \begin{pmatrix}&&\includegraphics[height=2cm]{2024-2-C3/test_001.pdf}&&\cr &\includegraphics[height=2cm]{2024-2-C3/test_002.pdf}&\includegraphics[height=2cm]{2024-2-C3/test_003.pdf}&\includegraphics[height=2cm]{2024-2-C3/test_004.pdf}&\cr \includegraphics[height=2cm]{2024-2-C3/test_005.pdf}&&&&\includegraphics[height=2cm]{2024-2-C3/test_006.pdf}\cr \end{pmatrix}
%M (%i18) M2;
%M (%o18) \begin{pmatrix}\includegraphics[height=2cm]{2024-2-C3/test_007.pdf}&\includegraphics[height=2cm]{2024-2-C3/test_008.pdf}&\includegraphics[height=2cm]{2024-2-C3/test_009.pdf}&\includegraphics[height=2cm]{2024-2-C3/test_010.pdf}&\includegraphics[height=2cm]{2024-2-C3/test_011.pdf}\cr \end{pmatrix}
%M (%i19) 
%L maximahead:sa("conics 2", "")
\pu

% %L maximahead:sa("conics 3", "")
% \pu

\vspace*{0cm}
\def\hboxthreewidth {17.5cm}

{\bf Some conics}

\scalebox{0.33}{\def\colwidth{17.5cm}\firstcol{

\vspace*{0cm}
\ga{conics}

}\anothercol{

\vspace*{0cm}
\ga{conics 2}

}}


\newpage

\scalebox{0.6}{\def\colwidth{9cm}\firstcol{

\vspace*{0cm}
\ga{conics 2}

}\anothercol{
}}




\GenericWarning{Success:}{Success!!!}  % Used by `M-x cv'

\end{document}

% (find-pdfpages2-links "~/LATEX/" "2024-2-C3-maxima-conics")


% Local Variables:
% coding: utf-8-unix
% ee-tla: "c3mc"
% ee-tla: "c3m242maximaconics"
% End:
