Retour

Source : qrepere.mp

qrepere.mp
 
u := 1cm;
 
qrepere.mp (figure 1)
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;
 
qrepere.mp (figure 2)
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;
 
qrepere.mp (figure 3)
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;
 
qrepere.mp (figure 4)
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