maxima : using load draw for data plot ( points are lines),version 1.0
peter.vlasschaert@gmail.com, 30/09/2020

load packages
============

load(draw)$

ref :https://people.richland.edu/james/spring15/m122/projects/draw.html
ref :https://stackoverflow.com/questions/7306784/maxima-2d-plot-how-to-set-axes-equal
ref :http://maxima.sourceforge.net/docs/manual/de/maxima_42.html
ref :https://themaximalist.org/2017/04/19/multiple-plots-in-a-single-maxima-figure/
ref:https://math.stackexchange.com/questions/3008876/plot-2-or-more-parametric-functions-maxima

Data plot 
=======

aspect ratio = 'principal :  proportional_axes = xy'
-------------------------------------------------------------------

wxdraw2d(
        color = green,
        transparent=true,/*default = false */
        ellipse(0,0,1,1,0,220),/* part of circle */
        transparent=true,
        color = blue,
        line_width = 4,
        ellipse(0,0,2,1/2,30,70)/* part of ellipse */
       ) $

wxdraw2d(
        ellipse(0,0,1,1,0,220),/* part of circle */
        transparent=true,
        color = blue,
        line_width = 4,
        ellipse(0,0,2,1/2,30,70),/* part of ellipse */
        proportional_axes = xy) $

proportional_axes = xy  'data points'
--------------------------------------------------

wxdraw2d(  line_width =3,
           color = green,
           point_type = filled_circle,/*default + */
           point_size = 1, 
           points_joined = false,
           points([[5,20],[9,3],[4,7],[7,8]]),
           point_size = 0.01,
           color = red,
           line_width =4,
           points_joined = true,    
        points(makelist(k,k,1,20),makelist(random(30),k,1,20)),
proportional_axes = xy)$

set draw defaults
------------------------
→ interaction between : 'proportional_axes = xy  & dimensions = [1000,1000]'

wxdraw2d(
    explicit(x*sin(x)^2,x,-2,2)
)$
set_draw_defaults(
    xaxis = true, xaxis_color = blue,
    xaxis_type = solid, xaxis_width = 1, xtics = 1,
    yaxis = true, yaxis_color = blue,
    yaxis_type = solid, yaxis_width = 1, ytics = 1,
    dimensions = [1000,1000],
    grid = true,
    nticks = 250,
    ip_grid = [200,200],
    font = Arial,
    font_size = 14,
    line_width = 4
)$
wxdraw2d(
    line_width =3,
          color = green,
           point_size = 0.01, 
     points_joined = true,
    points([[1,2],[2,3],[4,5],[7,8]]),
        point_size = 0.01,
        color = red,
     line_width =4,
        points(makelist(k,k,1,20),makelist(random(30),k,1,20)),
   proportional_axes = xy 
)$
wxdraw2d(
     line_width =3,
     color = green,
     point_size = 0.01, 
     points_joined = true,
     points([[1,2],[2,3],[4,5],[7,8]]),
     point_size = 0.01,
     color = red,
     line_width =4,
     points(makelist(k,k,1,20),makelist(random(30),k,1,20))
)$

rem:wx before draw is needed for graph inside the document.( otherwise outside)