u := 1cm;

beginfig(1);

xmin := -10;
xmax := 10;
ymin := -10;
ymax := 10;

%quadrillage(gros)
for i=0 upto (ymax-ymin):
    draw (xmin*u,(ymin+i)*u)
	 --(xmax*u,(ymin+i)*u) 
	 withpen pencircle scaled 1pt;
endfor;
for i=0 upto (xmax-xmin):
    draw ((xmin+i)*u,ymin*u)
	 --((xmin+i)*u,ymax*u) 
	 withpen pencircle scaled 1pt;
endfor;
%fin du gros quadrillage

endfig;

u := 2cm;

beginfig(2);
pair O,I,J;

xmin := -5;
xmax := 5;
ymin := -5;
ymax := 5;

j = 10;	%subdivision du quadrillage fin

%quadrillage(fin)
for i=0 upto j*(ymax-ymin):
    draw (xmin*u,(ymin+i/j)*u)
         --(xmax*u,(ymin+i/j)*u) 
	 withpen pencircle scaled 1.5pt 
	 withcolor green+0.7white;
endfor;
for i=0 upto j*(xmax-xmin):
    draw ((xmin+i/j)*u,ymin*u)
	 --((xmin+i/j)*u,ymax*u) 
	 withpen pencircle scaled 1.5pt 
	 withcolor green+0.7white;
endfor;
%fin du petit quadrillage


%quadrillage(gros)
for i=0 upto (ymax-ymin):
    draw (xmin*u,(ymin+i)*u)
	 --(xmax*u,(ymin+i)*u) 
	 withpen pencircle scaled 2pt 
	 withcolor black;
endfor;
for i=0 upto (xmax-xmin):
    draw ((xmin+i)*u,ymin*u)
	 --((xmin+i)*u,ymax*u) 
	 withpen pencircle scaled 2pt 
	 withcolor black;
endfor;
%fin du gros quadrillage


%on trace le repère
O = (0,0);
I = (u,0);
J = (0,u);

drawarrow ((abs(xmin)+1)[I,O])--(xmax[O,I]) 
    withpen pencircle scaled 2pt 
    withcolor blue; %on part de I [I,O]
drawarrow O--I 
    withpen pencircle scaled 2.5pt 
    withcolor red;
label.bot(btex $\overrightarrow{\imath}$ etex scaled 2,(0.5*u,0));
drawarrow ((abs(ymin)+1)[J,O])--(ymax[O,J]) 
    withpen pencircle scaled 2pt 
    withcolor blue;
drawarrow O--J 
    withpen pencircle scaled 2.5pt 
    withcolor red;
label.lft(btex $\overrightarrow{\jmath}$ etex scaled 2, (0,0.5*u));
label.llft(btex $O$ etex scaled 2, O);
%fin du repère

endfig;

u := 1cm;

beginfig(3);
pair O,I,J;

xmin := -10;
xmax := 10;
ymin := -10;
ymax := 10;


%quadrillage(gros)
%horizontal
for i=0 upto (ymax-ymin):
    draw (xmin*u,(ymin+i)*u)--(xmax*u,(ymin+i)*u) 
	withpen pencircle scaled 1.5pt 
	withcolor 0.7blue;
endfor;
%vertical
for i=0 upto (xmax-xmin):
    draw ((xmin+i)*u,ymin*u)--((xmin+i)*u,ymax*u) 
	withpen pencircle scaled 1.5pt 
	withcolor 0.7blue;
endfor;
%fin du gros quadrillage


%on trace le repère
O = (0,0);
I = (u,0);
J = (0,u);

drawarrow ((abs(xmin)+1)[I,O])--(xmax[O,I]) 
    withpen pencircle scaled 2pt 
    withcolor black; %on part de I [I,O]
drawarrow O--I 
    withpen pencircle scaled 2.5pt 
    withcolor red;
label.bot(btex $\overrightarrow{\imath}$ etex scaled 1.5,(0.5*u,0));
drawarrow ((abs(ymin)+1)[J,O])--(ymax[O,J]) 
    withpen pencircle scaled 2pt 
    withcolor black;
drawarrow O--J 
    withpen pencircle scaled 2.5pt 
    withcolor red;
label.lft(btex $\overrightarrow{\jmath}$ etex scaled 1.5, (0,0.5*u));
label.llft(btex $O$ etex scaled 1.5, O);
%fin du repère

endfig;

u := 2cm;

beginfig(4);
pair O,I,J;

xmin := -5;
xmax := 5;
ymin := -5;
ymax := 5;

j := 10; %subdivision du quadrillage fin

%quadrillage(fin)
for i=0 upto j*(ymax-ymin):
    draw (xmin*u,(ymin+i/j)*u)--(xmax*u,(ymin+i/j)*u) 
	withpen pencircle scaled 1.5pt 
	withcolor green;
endfor;
for i=0 upto j*(xmax-xmin):
    draw ((xmin+i/j)*u,ymin*u)--((xmin+i/j)*u,ymax*u) 
	withpen pencircle scaled 1.5pt 
	withcolor green;
endfor;
%fin du petit quadrillage


%quadrillage(gros)
for i=0 upto (ymax-ymin):
    draw (xmin*u,(ymin+i)*u)--(xmax*u,(ymin+i)*u) 
	withpen pencircle scaled 2pt 
	withcolor black;
endfor;
for i=0 upto (xmax-xmin):
    draw ((xmin+i)*u,ymin*u)--((xmin+i)*u,ymax*u) 
	withpen pencircle scaled 2pt 
	withcolor black;
endfor;
%fin du gros quadrillage


%on trace le repère
O = (0,0);
I = (u,0);
J = (0,u);

drawarrow ((abs(xmin)+1)[I,O])--(xmax[O,I]) 
    withpen pencircle scaled 2pt 
    withcolor blue; % on part de I [I,O]
drawarrow O--I 
    withpen pencircle scaled 2.5pt 
    withcolor red;
label.bot(btex $\overrightarrow{\imath}$ etex scaled 2,(0.5*u,0));
drawarrow ((abs(ymin)+1)[J,O])--(ymax[O,J]) 
    withpen pencircle scaled 2pt 
    withcolor blue;
drawarrow O--J 
    withpen pencircle scaled 2.5pt 
    withcolor red;
label.lft(btex $\overrightarrow{\jmath}$ etex scaled 2, (0,0.5*u));
label.llft(btex $O$ etex scaled 2, O);
%fin du repère


endfig;
end