%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % 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