%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Coded by Ebert Brea, 2023
%
% The GCLC is available at http://poincare.matf.bg.ac.rs/~janicic/gclc/
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Parameters
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
number HEIGHT 180
number WIDTH 200
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Function Parameters
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
dim WIDTH HEIGHT
linethickness 0.16
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Function Parameters
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
number LLCornerX 10
number LLCornerY 114
number URCornerX 180
number URCornerY 160
number Ox 40
number Oy 120
number Unit 8
ang_picture LLCornerX LLCornerY URCornerX URCornerY
ang_origin Ox Oy
ang_unit Unit
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% GRID
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ang_scale 1 1
number G 220
color G G G
number i -10
while {i<=20}
{
ang_point A i -20
ang_point B i 16
drawsegment A B
expression i {i+1}
}
number j -20
while {j<=40}
{
ang_point A -10 j
ang_point B 20 j
drawsegment A B
expression j {j+1}
}
color 0 0 0
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ang_drawsystem_p 2 2 6 2 2
ang_scale 1 6
ang_point fx 0.5 0.75
printat fx {h(w)}
fontsize 10
ang_point L1 3.2 0.25
printat L1 {a(1-w/6)}
fontsize 8
circleprecision 200
linethickness 0.32
color 0 0 0
linethickness 0.36
number Xo 0
number Xf 6
number dx 0.025
color 0 0 240
ang_draw_parametric_curve x {Xo;x