Fichier suites-rec.mp (figure 16) — Modifié le 20 Juin 2008 à 22 h 56
verbatimtex
%&latex
\documentclass{article}
\usepackage[latin1]{inputenc}
\usepackage[frenchb]{babel}
\usepackage{amsmath}
\begin{document}
etex
%%
%prologues:=2;
input courbescp11;
vardef titre(expr pos,largeur,hauteur,texte)=
save $;
picture $;
$=image(
fill ((pos shifted(-largeur/2*x.u,-hauteur/2*y.u))--(pos shifted(largeur/2*x.u,-hauteur/2*y.u))--(pos shifted(largeur/2*x.u,hauteur/2*y.u))--(pos shifted(-largeur/2*x.u,hauteur/2*y.u))--cycle) withcolor jaune;
draw ((pos shifted(-largeur/2*x.u,-hauteur/2*y.u))--(pos shifted(largeur/2*x.u,-hauteur/2*y.u))--(pos shifted(largeur/2*x.u,hauteur/2*y.u))--(pos shifted(-largeur/2*x.u,hauteur/2*y.u))--cycle);
label(texte,pos);
);
$
enddef;
string marque_c;
marque_c="non";
vardef representation[](expr a,b,nb)(text texte)=
save $;
path $;
if marque_c="cartesienne":
$=courbe@(a,b,nb,texte)
elseif marque_c="polaire":
$=polaire@(a,b,nb,texte)
elseif marque_c="param":
$=param@(a,b,nb,texte)
elseif marque_c="polaireparam":
$=polaireparam@(a,b,nb,texte)
fi;
$
enddef;
%%%%%%%%%%%%%%%%%%%%%%
%% DEBUT DES FIGURES
%%%%%%%%%%%%%%%%%%%%%%
beginfig(1);
numeric u[];
pair A[], B[];
depart((-1,-1),(4,4),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x);
vardef F(expr t) = 0.31*(t+1)**2+0.5 enddef;
draw courbe2(-1,4,100,F(x));% withcolor bleu;
labelise1(btex $y=x$ etex,0.83);
labelise2(btex $C_f$ etex,0.1);
%construction de la toile d'araignée
u0=3.7;
%u1=F(u0);
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
%A1:=pointcourbe2(u1);
%B1:=pointcourbe1(u1);
drawarrow (u0*cm,0)--A0 dashed evenly;
%drawarrow A0--B1;
%drawarrow B1--A1;
for i:=1 step 1 until 5 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
label.bot(btex $u_1$ etex,(u[1]*cm,0));
label.bot(btex $u_2$ etex,(u[2]*cm,0));
label.bot(btex $u_3$ etex,(u[3]*cm,0));
endfig;
%%____________________________________________________
beginfig(2);
numeric u[];
pair A[], B[];
depart((-1,-1),(4,4),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x); %y=x
vardef F(expr t) =0.25* t*(7.6-t) enddef; %Def la fonction
draw courbe2(-1,4,100,F(x));% withcolor bleu;
labelise1(btex $y=x$ etex,0.1);
labelise2(btex $C_f$ etex,0.5);
%construction de la toile d'araignée
%Initialisation
u0=0.45;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
for i:=1 step 1 until 7 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
label.bot(btex $u_1$ etex,(u[1]*cm,0));
label.bot(btex $u_2$ etex,(u[2]*cm,0));
label.bot(btex $u_3$ etex,(u[3]*cm,0));
label.bot(btex $u_4$ etex,(u[4]*cm,0));
endfig;
%%____________________________________________________
beginfig(3); %Convergence en spirale
numeric u[];
pair A[], B[];
depart((-1,-1),(4,4),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x); %y=x
vardef F(expr t) =3.3-0.8*t enddef; %Def la fonction
draw courbe2(-1,4,100,F(x));% withcolor bleu;
labelise1(btex $y=x$ etex,0.8);
labelise2(btex $C_f$ etex,0.25);
%construction de la toile d'araignée
%Initialisation
u0=-0.55;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
for i:=1 step 1 until 15 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
label.bot(btex $u_1$ etex,(u[1]*cm,0));
label.bot(btex $u_2$ etex,(u[2]*cm,0));
label.bot(btex $u_3$ etex,(u[3]*cm,0));
label.bot(btex $u_4$ etex,(u[4]*cm,0));
label.bot(btex $u_5$ etex,(u[5]*cm,0));
label.bot(btex $u_6$ etex,(u[6]*cm,0));
endfig;
%%____________________________________________________
beginfig(4); %Divergence en spirale
numeric u[];
pair A[], B[];
depart((-1,-1),(4,4),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x); %y=x
vardef F(expr t) =3.4-1.2*t enddef; %Def la fonction
draw courbe2(-1,4,100,F(x));% withcolor bleu;
labelise1(btex $y=x$ etex,0.8);
labelise2(btex $C_f$ etex,0.25);
%construction de la toile d'araignée
%Initialisation
u0=1.35;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
for i:=1 step 1 until 10 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
label.bot(btex $u_1$ etex,(u[1]*cm,0));
% label.bot(btex $u_2$ etex,(u[2]*cm,0));
% label.bot(btex $u_3$ etex,(u[3]*cm,0));
% label.bot(btex $u_4$ etex,(u[4]*cm,0));
% label.bot(btex $u_5$ etex,(u[5]*cm,0));
% label.bot(btex $u_6$ etex,(u[6]*cm,0));
label.bot(btex $u_8$ etex,(u[8]*cm,0));
label.bot(btex $u_9$ etex,(u[9]*cm,0));
label.bot(btex $u_{10}$ etex,(u[10]*cm,0));
endfig;
%%____________________________________________________
beginfig(5); %Divergence croissante
numeric u[];
pair A[], B[];
depart((-1,-1),(4,4),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x); %y=x
vardef F(expr t) =0.5*(t+2.5)**2-1.5 enddef; %Def la fonction
draw courbe2(-1,4,100,F(x));% withcolor bleu;
labelise1(btex $y=x$ etex,0.8);
labelise2(btex $C_f$ etex,0.5);
%construction de la toile d'araignée
%Initialisation
u0=0.2;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
for i:=1 step 1 until 6 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
% label.bot(btex $u_1$ etex,(u[1]*cm,0));
% label.bot(btex $u_2$ etex,(u[2]*cm,0));
label.bot(btex $u_3$ etex,(u[3]*cm,0));
% label.bot(btex $u_4$ etex,(u[4]*cm,0));
label.bot(btex $u_5$ etex,(u[5]*cm,0));
label.bot(btex $u_6$ etex,(u[6]*cm,0));
% label.bot(btex $u_8$ etex,(u[8]*cm,0));
% label.bot(btex $u_9$ etex,(u[9]*cm,0));
% label.bot(btex $u_{10}$ etex,(u[10]*cm,0));
endfig;
beginfig(6); %Fonction logistique 4-cycle
numeric u[];
pair A[], B[];
depart((-1,-1),(4,4),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x); %y=x
vardef F(expr t) =0.885*t*(4-t) enddef; %Def la fonction
draw courbe2(0,4,100,F(x));% withcolor bleu;
%labelise1(btex $y=x$ etex,0.86);
labelise2(btex $C_f$ etex,0.4);
%construction de la toile d'araignée
%Initialisation
u0=0.26;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
pickup pencircle scaled 0.3;
for i:=1 step 1 until 95 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
%draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
pickup pencircle scaled 1.5;
for i:=91 step 1 until 95 :
draw A[i-1]--B[i];
draw B[i]--A[i];
%draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
pickup pencircle scaled 0.3;
draw ((u[1]*cm,0)--A[1]) dashed evenly;
draw ((u[91]*cm,0)--A[91]) dashed evenly;
draw ((u[92]*cm,0)--A[92]) dashed evenly;
draw ((u[93]*cm,-0.3cm)--A[93]) dashed evenly;
draw ((u[94]*cm,0)--A[94]) dashed evenly;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
label.bot(btex $u_1$ etex,(u[1]*cm,0));
label.bot(btex $u_{91}$ etex,(u[91]*cm,0));
label.bot(btex $u_{92}$ etex,(u[92]*cm,0));
label.bot(btex $u_{93}$ etex,(u[93]*cm,-0.3cm));
label.bot(btex $u_{94}$ etex,(u[94]*cm,0));
label.bot(btex $u_{95}$ etex,(u[95]*cm,-0.6cm));
endfig;
beginfig(7); %Fonction logistique 2-cycle
numeric u[];
pair A[], B[];
depart((-1,-1),(4,4),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x); %y=x
vardef F(expr t) =0.78*t*(4-t) enddef; %Def la fonction
draw courbe2(0,4,100,F(x));% withcolor bleu;
%labelise1(btex $y=x$ etex,0.86);
labelise2(btex $C_f$ etex,0.4);
%construction de la toile d'araignée
%Initialisation
u0=0.26;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
pickup pencircle scaled 0.3;
for i:=1 step 1 until 95 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
%draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
draw ((u[1]*cm,0)--A[1]) dashed evenly;
draw ((u[91]*cm,0)--A[91]) dashed evenly;
draw ((u[92]*cm,0)--A[92]) dashed evenly;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
label.bot(btex $u_1$ etex,(u[1]*cm,0));
label.bot(btex $u_{91}$ etex,(u[91]*cm,0));
label.bot(btex $u_{92}$ etex,(u[92]*cm,0));
label.bot(btex $u_{93}$ etex,(u[93]*cm,-0.3cm));
label.bot(btex $u_{94}$ etex,(u[94]*cm,-0.3cm));
endfig;
%%________________________________
beginfig(8); %Fonction logistique 2 cycle attracteur
numeric u[];
pair A[], B[];
depart((-1,-1),(4,4),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x); %y=x
vardef F(expr t) =0.85*t*(4-t) enddef; %Def la fonction
draw courbe2(0,4,100,F(x));% withcolor bleu;
%labelise1(btex $y=x$ etex,0.86);
labelise2(btex $C_f$ etex,0.3);
%construction de la toile d'araignée
%Initialisation
u0=0.25;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
for i:=1 step 1 until 12 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
%draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
% label.bot(btex $u_1$ etex,(u[1]*cm,0));
% label.bot(btex $u_2$ etex,(u[2]*cm,0));
% label.bot(btex $u_3$ etex,(u[3]*cm,0));
% label.bot(btex $u_4$ etex,(u[4]*cm,0));
% label.bot(btex $u_5$ etex,(u[5]*cm,0));
% label.bot(btex $u_6$ etex,(u[6]*cm,0));
% label.bot(btex $u_8$ etex,(u[8]*cm,0));
% label.bot(btex $u_9$ etex,(u[9]*cm,0));
% label.bot(btex $u_{10}$ etex,(u[10]*cm,0));
endfig;
%______________________
beginfig(9); %Fonction logistique 6-cycle
numeric u[];
pair A[], B[];
depart((-1,-1),(4,4),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x); %y=x
vardef F(expr t) =0.908*t*(4-t) enddef; %Def la fonction
draw courbe2(0,4,100,F(x));% withcolor bleu;
%labelise1(btex $y=x$ etex,0.86);
labelise2(btex $C_f$ etex,0.3);
%construction de la toile d'araignée
%Initialisation
u0=0.27;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
pickup pencircle scaled 0.3;
for i:=1 step 1 until 120 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
%draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
% label.bot(btex $u_1$ etex,(u[1]*cm,0));
% label.bot(btex $u_2$ etex,(u[2]*cm,0));
% label.bot(btex $u_3$ etex,(u[3]*cm,0));
% label.bot(btex $u_4$ etex,(u[4]*cm,0));
% label.bot(btex $u_5$ etex,(u[5]*cm,0));
% label.bot(btex $u_6$ etex,(u[6]*cm,0));
% label.bot(btex $u_8$ etex,(u[8]*cm,0));
% label.bot(btex $u_9$ etex,(u[9]*cm,0));
for i:=90 step 1 until 95 :
draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
label.bot(btex $u_{90}$ etex,(u[90]*cm,0));
label.bot(btex $u_{91}$ etex,(u[91]*cm,0));
label.bot(btex $u_{92}$ etex,(u[92]*cm,0));
label.bot(btex $u_{93}$ etex,(u[93]*cm,-0.3cm));
label.bot(btex $u_{94}$ etex,(u[94]*cm,0));
label.bot(btex $u_{95}$ etex,(u[95]*cm,0));
label.bot(btex $u_{96}$ etex,(u[96]*cm,-0.3cm));
endfig;
beginfig(10); %Fonction logistique 3 cycle
numeric u[];
pair A[], B[];
depart((-1,-1),(4,4),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x); %y=x
vardef F(expr t) =0.958*t*(4-t) enddef; %Def la fonction
draw courbe2(0,4,100,F(x));% withcolor bleu;
%labelise1(btex $y=x$ etex,0.86);
labelise2(btex $C_f$ etex,0.3);
%construction de la toile d'araignée
%Initialisation
u0=1.1;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
for i:=1 step 1 until 120 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
%draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
% label.bot(btex $u_1$ etex,(u[1]*cm,0));
% label.bot(btex $u_2$ etex,(u[2]*cm,0));
% label.bot(btex $u_3$ etex,(u[3]*cm,0));
% label.bot(btex $u_4$ etex,(u[4]*cm,0));
% label.bot(btex $u_5$ etex,(u[5]*cm,0));
% label.bot(btex $u_6$ etex,(u[6]*cm,0));
% label.bot(btex $u_8$ etex,(u[8]*cm,0));
% label.bot(btex $u_9$ etex,(u[9]*cm,0));
for i:=80 step 1 until 85 :
draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
label.bot(btex $u_{80}$ etex,(u[80]*cm,0));
label.bot(btex $u_{81}$ etex,(u[81]*cm,0));
label.bot(btex $u_{82}$ etex,(u[82]*cm,0));
label.bot(btex $u_{83}$ etex,(u[83]*cm,-0.3cm));
label.bot(btex $u_{84}$ etex,(u[84]*cm,-0.3cm));
label.bot(btex $u_{85}$ etex,(u[85]*cm,-0.3cm));
endfig;
%%__________________________
beginfig(11); %Fonction logistique 0 attracteur
numeric u[];
pair A[], B[];
depart((-1,-1),(4,4),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x); %y=x
vardef F(expr t) =0.2*t*(4-t) enddef; %Def la fonction
draw courbe2(0,4,100,F(x));% withcolor bleu;
%labelise1(btex $y=x$ etex,0.86);
labelise2(btex $C_f$ etex,0.6);
%construction de la toile d'araignée
%Initialisation
u0=2;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
pickup pencircle scaled 0.3;
for i:=1 step 1 until 8 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
label.bot(btex $u_1$ etex,(u[1]*cm,0));
% label.bot(btex $u_2$ etex,(u[2]*cm,0));
% label.bot(btex $u_3$ etex,(u[3]*cm,0));
% label.bot(btex $u_4$ etex,(u[4]*cm,0));
% label.bot(btex $u_5$ etex,(u[5]*cm,0));
% label.bot(btex $u_6$ etex,(u[6]*cm,0));
% label.bot(btex $u_8$ etex,(u[8]*cm,0));
% label.bot(btex $u_9$ etex,(u[9]*cm,0));
endfig;
%%______________________
beginfig(12); %Fonction logistique cv lente
numeric u[];
pair A[], B[];
depart((-1,-1),(4,4),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x); %y=x
vardef F(expr t) =0.72*t*(4-t) enddef; %Def la fonction
draw courbe2(0,4,100,F(x));% withcolor bleu;
%labelise1(btex $y=x$ etex,0.86);
labelise2(btex $C_f$ etex,0.4);
%construction de la toile d'araignée
%Initialisation
u0=0.26;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
pickup pencircle scaled 0.3;
for i:=1 step 1 until 15 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
%draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
draw ((u[1]*cm,0)--A[1]) dashed evenly;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
label.bot(btex $u_1$ etex,(u[1]*cm,0));
endfig;
%__________________
beginfig(13); %Fonction logistique cv
numeric u[];
pair A[], B[];
depart((-1,-1),(4,4),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x); %y=x
vardef F(expr t) =0.66*t*(4-t) enddef; %Def la fonction
draw courbe2(0,4,100,F(x));% withcolor bleu;
%labelise1(btex $y=x$ etex,0.86);
labelise2(btex $C_f$ etex,0.4);
%construction de la toile d'araignée
%Initialisation
u0=0.26;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
pickup pencircle scaled 0.3;
for i:=1 step 1 until 15 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
%draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
draw ((u[1]*cm,0)--A[1]) dashed evenly;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
label.bot(btex $u_1$ etex,(u[1]*cm,0));
endfig;
beginfig(14); %Fonction logistique Chaos
numeric u[];
pair A[], B[];
depart((-1,-1),(4,4),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x); %y=x
vardef F(expr t) =1*t*(4-t) enddef; %Def la fonction
draw courbe2(0,4,100,F(x));% withcolor bleu;
%labelise1(btex $y=x$ etex,0.86);
labelise2(btex $C_f$ etex,0.2);
%construction de la toile d'araignée
%Initialisation
u0=0.27;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
pickup pencircle scaled 0.2;
for i:=1 step 1 until 200 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
%draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
draw ((u[1]*cm,0)--A[1]) dashed evenly;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
label.bot(btex $u_1$ etex,(u[1]*cm,0));
endfig;
%%_______________
beginfig(15); %Fonction logistique 3 cycle
numeric u[];
pair A[], B[];
depart((-1,-1),(4.2,4.2),(0,0),1,1);
grille(1);
axes;
draw courbe1(-1,4,10,x); %y=x
vardef F(expr t) =0.96*t*(4-t) enddef; %Def la fonction
draw courbe2(0,4,100,F(x));% withcolor bleu;
%labelise1(btex $y=x$ etex,0.86);
labelise2(btex $C_f$ etex,0.3);
%construction de la toile d'araignée
%Initialisation
u0=0.25;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
for i:=1 step 1 until 120 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
%draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
dotlabel.bot(btex $u_0$ etex,(u[0]*cm,0));
% label.bot(btex $u_1$ etex,(u[1]*cm,0));
% label.bot(btex $u_2$ etex,(u[2]*cm,0));
% label.bot(btex $u_3$ etex,(u[3]*cm,0));
% label.bot(btex $u_4$ etex,(u[4]*cm,0));
% label.bot(btex $u_5$ etex,(u[5]*cm,0));
% label.bot(btex $u_6$ etex,(u[6]*cm,0));
% label.bot(btex $u_8$ etex,(u[8]*cm,0));
% label.bot(btex $u_9$ etex,(u[9]*cm,0));
for i:=80 step 1 until 85 :
draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
label.bot(btex $u_{80}$ etex,(u[80]*cm,0));
label.bot(btex $u_{81}$ etex,(u[81]*cm,0));
label.bot(btex $u_{82}$ etex,(u[82]*cm,0));
label.bot(btex $u_{83}$ etex,(u[83]*cm,-0.3cm));
label.bot(btex $u_{84}$ etex,(u[84]*cm,-0.3cm));
label.bot(btex $u_{85}$ etex,(u[85]*cm,-0.3cm));
endfig;
beginfig(16); %y=x pour un+1=un/2-1 %Pour DS
depart((-2.75,-2.75),(3.5,3.25),(0,0),1,1);
grille(0.25);
axes;
graduantx.bot;
graduanty.lft;
draw courbe1(-2.75,3,5,x) withcolor bleu;
labelise1(btex $y=x$ etex,0.85);
%draw courbe2(0.2,4.2,100,1/(x)) withcolor bleu;
endfig;
beginfig(17); %y=x pour un+1=un/2-1 %Pour DS CORR
numeric u[];
pair A[], B[];
depart((-2.75,-2.75),(3.5,3.25),(0,0),1,1);
grille(0.25);
axes;
graduantx.bot;
graduanty.lft;
draw courbe1(-2.75,3,5,x) withcolor bleu;
labelise1(btex $y=x$ etex,0.85);
%draw courbe2(0.2,4.2,100,1/(x)) withcolor bleu;
vardef F(expr t) =0.5*t-1 enddef; %Def la fonction
draw courbe2(-2.75,3.5,10,F(x));% withcolor bleu;
%labelise1(btex $y=x$ etex,0.8);
labelise2(btex $C_f$ etex,0.08);
%construction de la toile d'araignée
%Initialisation
u0:=3;
A0:=pointcourbe2(u0);
B0:=pointcourbe1(u0);
drawarrow (u0*cm,0)--A0 dashed evenly;
%Boucle
for i:=1 step 1 until 10 :
u[i]:=F(u[i-1]);
A[i]:=pointcourbe2(u[i]);
B[i]:=pointcourbe1(u[i]);
draw A[i-1]--B[i];
draw B[i]--A[i];
%draw ((u[i]*cm,0)--A[i]) dashed evenly;
endfor;
draw ((u[2]*cm,0)--A[2]) dashed evenly;
draw ((-2cm,0)--(-2cm,-2cm)--(0,-2cm)) dashed evenly;
dotlabel.lrt(btex $u_0$ etex,(u[0]*cm,0));
dotlabel.urt(btex $u_1$ etex,(u[1]*cm,0));
dotlabel.top(btex $u_2$ etex,(u[2]*cm,0));
% label.bot(btex $u_3$ etex,(u[3]*cm,0));
% label.bot(btex $u_4$ etex,(u[4]*cm,0));
% label.bot(btex $u_5$ etex,(u[5]*cm,0));
% label.bot(btex $u_6$ etex,(u[6]*cm,0));
% label.bot(btex $u_8$ etex,(u[8]*cm,0));
% label.bot(btex $u_9$ etex,(u[9]*cm,0));
% label.bot(btex $u_{10}$ etex,(u[10]*cm,0));
endfig;
%__________________
%%#################_________
end %_________
%%#################
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Exemples de NewCourbe ci-dessous
beginfig(2);%ln
depart((-0.4,-4.2),(6,2.6),(0,0),1,1);
grille(0.2);
axes;
graduantx.bot;
graduanty.lft;
draw courbe1(0.02,6,100,ln(x)) withcolor bleu;
labelise1(btex $y=\ln x$ etex,0.85);
draw Projection(pointcourbe1(e));
label.bot(btex e etex,(2.718,0)*1cm);
endfig;
%%%%%%% %%
beginfig(3);%cos
depart((-6.5,-1.5),(6.5,1.5),(0,0),1,1);
grille(0.2);
axes;
graduantx.bot;
graduanty.ulft;
draw courbe2(-10,10,100,cos(x)) withcolor bleu;
draw titre(placepoint(-2,1),2,0.5,btex $y=\cos(x)$ etex);
endfig;
beginfig(4); %ln et aire
depart((0,0),(8,8),(1,4),1,1);
grille(0.5);
axes;
graduantx.bot;
graduanty.llft;
draw courbe1(0.02,7,100,ln(x)) withcolor violet;
labelise1(btex $y=\ln x$ etex,0.9);
marque_re:="hachure";
draw airesouscourbe1(1,5.6);
endfig;
% beginfig(4);%ln
% depart((-0.5,-3.5),(6.5,2),(0,0),2,1);
% grille(0.5);
% axes;
% graduantx.bot;
% graduanty.ulft;
% draw courbe2(0.025,10,100,ln(x)) withcolor bleu;
% draw titre(placepoint(0.75,1),1,0.5,btex $y=\ln x$ etex);
% endfig;
% beginfig(5);%Cardioide
% depart((0,0),(9,10),(1,5),3,3);
% grille(1);
% axes;
% graduantx.bot;
% graduanty.ulft;
% marque_c:="polaire";
% draw representation2(0,2*pi,100,1+cos(theta)) withcolor orange;
% draw titre(placepoint(2,4/3),2/3,1/3,btex Cardioïde etex);
% endfig;
beginfig(5);%expo et tangente
depart((-4,-0.4),(2.8,4.8),(0,0),1,1);
grille(0.2);
axes;
graduantx.bot;
graduanty.lft;
draw courbe1(-4,3,100,exp(x)) withcolor bleu;
labelise1(btex $y=\text{e}^x$ etex,0.4);
draw Projection(pointcourbe1(1));
label.lft(btex e etex,(0,e)*1cm);
draw courbe2(-4,3,100,x+1) dashed evenly scaled 2;
labelise2(btex $y=x+1$ etex,0.83);
endfig;
beginfig(6); %fonction tan
depart((-3.2,-3.6),(4.8,3.6),(0,0),1,1);
grille(0.2);
axes;
graduantx.bot;
graduanty.lft;
draw courbe1(-1.6,1.5,100,tan(x)) withcolor bleu;
draw courbe2(-3.2,-1.7,100,tan(x)) withcolor bleu;
draw courbe3(1.7,4.6,100,tan(x)) withcolor bleu;
draw (pi/2,-3.6)*1cm--(pi/2,3.6)*1cm dashed evenly scaled 2;
draw (-pi/2,-3.6)*1cm--(-pi/2,3.6)*1cm dashed evenly scaled 2;
draw (3*pi/2,-3.6)*1cm--(3*pi/2,3.6)*1cm dashed evenly scaled 2;
labelise3(btex $y=\tan x$ etex,0.75);
label.bot(btex $\pi$ etex, (pi,0)*1cm);
endfig;
%Astroide
% depart((-5,-5),(5,5),(0,0),4,4);
% grille(1);
% axes;
% graduantx.bot;
% graduanty.ulft;
% marque_c:="param";
% draw representation3(0,2*pi,100,((cos(t))**3,(sin(t))**3)) withcolor violet;
% draw titre(placepoint(3/4,1),1/2,1/4,btex Astroïde etex);
beginfig(7); %inv
depart((-4.25,-4.25),(4.25,4.25),(0,0),1,1);
grille(0.25);
axes;
graduantx.bot;
graduanty.lft;
draw courbe1(-4.2,-0.2,100,1/(x)) withcolor bleu;
draw courbe2(0.2,4.2,100,1/(x)) withcolor bleu;
% depart((-5,-5),(5,6),(0,0),2,2);
% grille(1);
% axes;
% graduantx.bot;
% graduanty.ulft;
% marque_c:="polaireparam";
% draw representation4(0,2*pi,100,((pi/2)*cos(t),sin(t))) withcolor jaune;
% draw titre(placepoint(1,2.5),1.5,3/4,btex $\left\{\begin{array}{l}
% \theta(t)=\dfrac{\pi}{2}\cos t\\
% \rho(t)=\sin t\\
% \end{array}
% \right.$ etex);
endfig;
beginfig(8);% inv et carré
depart((-4.25,-4.25),(4.25,4.25),(0,0),1,1);
grille(0.25);
axes;
graduantx.bot;
graduanty.lft;
draw courbe1(-4.2,-0.2,100,1/(x)) withcolor bleu;
draw courbe2(0.2,4.2,100,1/(x)) withcolor bleu;
draw courbe3(-2.3,2.3,100,x**2) dashed evenly;%withcolor bleu;
labelise2(btex $y=\frac{1}{x}$ etex,0.8);
labelise3(btex $y=x^2$ etex,0.85);
%points à placer sur la parabole
marqueplus(pointcourbe3(-2));
marqueplus(pointcourbe3(-1));
marqueplus(pointcourbe3(-0.5));
marqueplus(pointcourbe3(2));
marqueplus(pointcourbe3(1));
marqueplus(pointcourbe3(0.5));
marqueplus(pointcourbe3(0));
%points à placer sur l'hyperbole
marqueplus(pointcourbe1(-4));
marqueplus(pointcourbe1(-2));
marqueplus(pointcourbe1(-1));
marqueplus(pointcourbe1(-0.5));
marqueplus(pointcourbe1(-0.25));
%%
marqueplus(pointcourbe2(4));
marqueplus(pointcourbe2(2));
marqueplus(pointcourbe2(1));
marqueplus(pointcourbe2(0.5));
marqueplus(pointcourbe2(0.25));
% depart((0,0),(8,6),(1,3),2,2);
% grille(1);
% axes;
% graduantx.bot;
% graduanty.ulft;
% draw polaire1(-pi,pi,100,3*cos(theta)*cos(2*theta)) withcolor bleu;
% draw titre(placepoint(5/4,1),3/2,1/3,btex $\rho=3\cos\theta\cos(2\theta)$ etex);
endfig;
beginfig(9);
%lnx /x
depart((-0.5,-2.75),(7.25,2.25),(0,0),1,2);
grille(0.25);
axes;
graduantx.bot;
graduanty.lft;
draw courbe1(0.02,7.2,100,ln(x)/x) withcolor bleu;
labelise1(btex $y=\frac{\ln x}{x}$ etex,0.85);
draw Projection(pointcourbe1(e));
label.bot(btex e etex,(2.718,0)*1cm);
label.lft(btex $\frac{1}{\text{e}}$ etex,(0,1/e)*2cm);
% depart((0,0),(14,16),(10,7),3,3);
% axes;
% grille(1);
% graduantx.bot;
% graduanty.ulft;
% draw polaire1(0,2*pi,200,(5/3)*cos(2*theta)-cos(theta)) dashed evenly withcolor bleu;
% pair I,A,O;
% O=z.origine*cm;
% A=point(0.5*length Cpo1) of Cpo1;
% I=1/2[z.origine*cm,A];
% dotlabel.llft(btex A etex,A);
% dotlabel.top(btex I etex,I);
% pair m[],M[];
% vues=100;
% for j=0 upto vues:
% m[j]=point(j*length Cpo1/vues) of Cpo1;
% M[j]=((distance(A,I)**2)/(distance(I,m[j])**2))*(m[j]-I);
% endfor;
% path courbeinv;
% courbeinv=M0
% for j=1 upto vues:
% ..M[j]
% endfor;
% draw courbeinv shifted I withcolor rouge;
% draw titre(placepoint(-5/3,2.5),3,1/3,btex Le scarabée (en bleu) et sa courbe inverse (rouge) etex);
endfig;
beginfig(10);
%x/lnx
depart((-0.5,-4.25),(7.25,6.25),(0,0),1,1);
grille(0.25);
axes;
graduantx.bot;
graduanty.lft;
draw courbe1(0.02,0.98,100,x/(ln(x))) withcolor bleu;
draw courbe2(1.02,7.25,100,x/(ln(x))) withcolor bleu;
labelise2(btex $y=\frac{x}{\ln x}$ etex,0.85);
draw Projection(pointcourbe2(e));
label.bot(btex e etex,(e,0)*1cm);
label.lft(btex e etex,(0,e)*1cm);
% depart((0,0),(9,10),(1,5),1,1);
% axes;
% grille(1);
% graduantx.bot;
% graduanty.ulft;
% draw polaire1(-pi/2+0.01,pi/2-0.01,100,(2*(sin(theta))**2)/(cos(theta))) withcolor orange;
% draw titre(placepoint(5,4),3,1,btex Cissoïde droite etex);
% draw titre(placepoint(5,3),2,1,btex $\rho=2\dfrac{\sin^2\theta}{\cos\theta}$ etex);
endfig;
beginfig(11);
depart((-1,-0.5),(13,13.5),(0,0),2,0.1);
grille(0.25);
grilleprincipale(2) ;
axes;
graduextousles(1); %ici même effet que graduantx.bot;
gradueytousles(10); %Macro perso.
%%%%
%graduanty.lft;
draw courbe1(0,6,100,(6-x)**2*4*x) ;
% depart((3,0),(12,10),(5,5),1,1);
% axes;
% grille(1);
% graduantx.bot;
% graduanty.ulft;
% draw polaire1(-pi/2+0.01,pi/2-0.01,100,(2*cos(2*theta))/(cos(theta))) withcolor orange;
% draw titre(placepoint(3.5,4),6,1,btex Strophoïde droite : $\rho=2\dfrac{\cos2\theta}{\cos\theta}$ etex);
endfig;
beginfig(12);
depart((-1,-0.5),(12.5,13.5),(0,0),2,0.1);
grille(0.2);
grilleprincipale(2) ;
axes;
graduextousles(1); %ici même effet que graduantx.bot;
gradueytousles(10); %Macro perso.
%%%%
%graduanty.lft;
draw courbe1(0,6,100,(6-x)**2*4*x) ;
%draw tangente1(0);
draw demitangente1(0,8);
draw tangentevp1(2,1);
draw tangentevp1(4,6);
% depart((0,0),(9,10),(3,5),1,0.5);
% axes;
% grille(1);
% graduantx.bot;
% graduanty.ulft;
% draw polaire1(-pi/2+0.01,pi/2-0.01,100,(8*cos(theta))-2/(cos(theta))) withcolor orange;
% draw titre(placepoint(3,6),4,4,btex\begin{minipage}{3cm} Trisectrice de\\ Mac-Laurin\\$\rho=8\cos\theta-\dfrac{2}{\cos\theta}$\end{minipage} etex);
endfig;
beginfig(13);%Fonction affine cours seconde
depart((-2,-2),(2,2),(0,0),1,1);
axes;
grille(1);
draw courbe1(-2,2,20,0.5*x-1);
% depart((0,0),(9,10),(4,5),1,2);
% axes;
% grille(1);
% graduantx.bot;
% graduanty.ulft;
% draw courbe1(-5,5,100,4*x/(x**2+1)) withcolor orange;
% draw titre(placepoint(-2,1.5),4,0.5,btex Anguinéa : $y=\dfrac{4x}{x^2+1}$ etex);
endfig;
beginfig(14);%Fonction affine cours seconde
depart((-2,-2),(2,2),(0,0),1,1);
axes;
grille(1);
draw courbe1(-2,2,20,-x+1);
% depart((0,0),(9,10),(1,5),2,1);
% axes;
% grille(1);
% graduantx.bot;
% graduanty.ulft;
% draw courbe1(0.001,1.9999,100,sqrt((4*(2-x))/x)) withcolor orange;
% draw courbe2(0.001,1.9999,100,-sqrt((4*(2-x))/x)) withcolor orange;
% draw titre(placepoint(2.5,3),3,0.5,btex Cubique d'Agnesi : $xy^2=4(2-x)$ etex);
endfig;
beginfig(15);%Fonction affine cours seconde
depart((-2,-2),(2,2),(0,0),1,1);
axes;
grille(1);
draw courbe1(-2,2,20,1.5);
% depart((0,0),(9,10),(3,5),1.5,1.5);
% axes;
% grille(1);
% graduantx.bot;
% graduanty.ulft;
% draw param1(0,2*pi,100,(2*cos(t)+cos(2*t),2*sin(t)-sin(2*t))) withcolor orange;
% draw titre(placepoint(2,2),4,1,btex\begin{minipage}{6cm}Hypocycloïde à trois rebroussements\\$\left\{\begin{tabular}{l} $x(t)=2\cos t+\cos2t$\\ $y(t)=2\sin t-\sin2t$\\ \end{tabular} \right.$ \end{minipage} etex);
endfig;
%%%%%%%%%%
beginfig(16); %Parabole aire rectangle périm 12
depart((-0.5,-0.5),(7,10),(0,0),1,1);
%%coins en bas à g et en haut à d, centre du repère,
%%long unités en x puis en y en cm
%grille(0.5);
grilleprincipale(1);
axes;
%graduantx.bot;
graduationx("1");
graduationy("1");
%graduanty.lft;
draw courbe1(0,6,100,x*(6-x)) withcolor violet;
labelise1(btex $y=x(6-x)$ etex,0.5);
endfig;
beginfig(17); %Maurice Sotaski
path sap, sapp, sapsym, sapent;
numeric ux, uy;
ux:=1.5; uy:=0.5;
depart((-0.5,-0.5),(8.3334*ux,21*uy),(0,0),ux,uy);
%%coins en bas à g et en haut à d, centre du repère,
%%long unités en x puis en y en cm
grilleprincipale(0.5) ;
%axes;
%graduantx.bot;
%graduationx("1");
graduationy("1");
%graduanty.lft;
draw courbe1(0,3,20,x*x*x-4*x*x+20);% withcolor bleu;
draw courbe2(0,5,2,3*x+2) dashed evenly; %withcolor bleu;
dotlabel.urt(btex $A$ etex,(0,20*uy*cm));
dotlabel.top(btex $B$ etex,(3*ux*cm,11*uy*cm));
label.ulft(btex $T$ etex,(5*ux*cm,17*uy*cm));
%label.urt(btex $\mathscr{C}_f$ etex,(1.5*ux*cm,15*uy*cm));
%%pied des sapins
pickup pencircle scaled 8bp;
linecap:=butt;
draw ((0,0)shifted (4*ux*cm,0)--(0, 2*uy*cm) shifted (4*ux*cm,0)) withcolor .5white;
pickup pencircle scaled 6bp;
draw ((0,0)shifted (5.5*ux*cm,0)--(0, 2*0.75*uy*cm) shifted (5.5*ux*cm,0)) withcolor .5white;
pickup pencircle scaled 1bp;
%Sapins
uxx:=0.6*ux;
sap= (0,2*uy*cm)--(1*uxx*cm,2*uy*cm)--(0.7*uxx*cm,5*uy*cm)--(0.9*uxx*cm,4.8*uy*cm)--(0.4*uxx*cm,8*uy*cm)--(0.6*uxx*cm,7.7*uy*cm)--(0,12*uy*cm) ;
%sapsym=buildcycle(sap, sap reflectedabout((0,1),(0,-1)));
sapsym= (0,2*uy*cm)--(1*uxx*cm,2*uy*cm)--(0.7*uxx*cm,5*uy*cm)--(0.9*uxx*cm,4.8*uy*cm)--(0.4*uxx*cm,8*uy*cm)--(0.6*uxx*cm,7.7*uy*cm)--(0,12*uy*cm)--cycle ;
fill sapsym shifted (4*ux*cm,0) withcolor .7white ;
sapsym:= (0,2*uy*cm)--(1*uxx*cm,2*uy*cm)--(0.7*uxx*cm,5*uy*cm)--(0.9*uxx*cm,4.8*uy*cm)--(0.4*uxx*cm,8*uy*cm)--(0.6*uxx*cm,7.7*uy*cm)--(0,12*uy*cm)--cycle ;
fill sapsym reflectedabout((0,1),(0,-1)) shifted (4*ux*cm,0) withcolor .7white ;
draw sap shifted (4*ux*cm,0) ;
draw sap reflectedabout((0,1),(0,-1)) shifted (4*ux*cm,0) ;
sapsym:= (0,2*uy*cm)--(1*uxx*cm,2*uy*cm)--(0.7*uxx*cm,5*uy*cm)--(0.9*uxx*cm,4.8*uy*cm)--(0.4*uxx*cm,8*uy*cm)--(0.6*uxx*cm,7.7*uy*cm)--(0,12*uy*cm)--cycle ;
fill sapsym scaled 0.75 shifted (5.5*ux*cm,0) withcolor .7white ;
sapsym:= (0,2*uy*cm)--(1*uxx*cm,2*uy*cm)--(0.7*uxx*cm,5*uy*cm)--(0.9*uxx*cm,4.8*uy*cm)--(0.4*uxx*cm,8*uy*cm)--(0.6*uxx*cm,7.7*uy*cm)--(0,12*uy*cm)--cycle ;
fill sapsym scaled 0.75 reflectedabout((0,1),(0,-1)) shifted (5.5*ux*cm,0) withcolor .7white ;
draw sap scaled 0.75 shifted (5.5*ux*cm,0) ;
draw sap scaled 0.75 reflectedabout((0,1),(0,-1)) shifted (5.5*ux*cm,0) ;
linecap:=rounded;
axes;
graduextousles(1); %ici même effet que graduantx.bot;
gradueytousles(5);
%sapent= sapsym shifted (4*ux*cm,0) ;
%draw sapent;% withcolor .8white;
endfig;
beginfig(18); %Maurice Sotaski Corrigé
path sap, sapp, sapsym, sapent;
numeric ux, uy;
ux:=1.5; uy:=0.5;
depart((-0.5,-0.5),(8.3334*ux,21*uy),(0,0),ux,uy);
%%coins en bas à g et en haut à d, centre du repère,
%%long unités en x puis en y en cm
grilleprincipale(0.5) ;
%axes;
%graduantx.bot;
%graduationx("1");
graduationy("1");
%graduanty.lft;
draw courbe1(0,3,20,x*x*x-4*x*x+20);% withcolor bleu;
draw courbe2(0,5,2,3*x+2) dashed evenly; %withcolor bleu;
draw courbe3(3,7,2,-3*x+26) dashed evenly; %withcolor bleu;
draw courbe4(3,6.88,20,-1.5*x*x+12*x-11.5);
dotlabel.urt(btex $A$ etex,(0,20*uy*cm));
dotlabel.top(btex $B$ etex,(3*ux*cm,11*uy*cm));
dotlabel.top(btex $$ etex,(5*ux*cm,11*uy*cm));
label.ulft(btex $T$ etex,(5*ux*cm,17*uy*cm));
%label.urt(btex $\mathscr{C}_f$ etex,(1.5*ux*cm,15*uy*cm));
%%pied des sapins
pickup pencircle scaled 8bp;
linecap:=butt;
draw ((0,0)shifted (4*ux*cm,0)--(0, 2*uy*cm) shifted (4*ux*cm,0)) withcolor .5white;
pickup pencircle scaled 6bp;
draw ((0,0)shifted (5.5*ux*cm,0)--(0, 2*0.75*uy*cm) shifted (5.5*ux*cm,0)) withcolor .5white;
pickup pencircle scaled 1bp;
%Sapins
uxx:=0.6*ux;
sap= (0,2*uy*cm)--(1*uxx*cm,2*uy*cm)--(0.7*uxx*cm,5*uy*cm)--(0.9*uxx*cm,4.8*uy*cm)--(0.4*uxx*cm,8*uy*cm)--(0.6*uxx*cm,7.7*uy*cm)--(0,12*uy*cm) ;
%sapsym=buildcycle(sap, sap reflectedabout((0,1),(0,-1)));
sapsym= (0,2*uy*cm)--(1*uxx*cm,2*uy*cm)--(0.7*uxx*cm,5*uy*cm)--(0.9*uxx*cm,4.8*uy*cm)--(0.4*uxx*cm,8*uy*cm)--(0.6*uxx*cm,7.7*uy*cm)--(0,12*uy*cm)--cycle ;
fill sapsym shifted (4*ux*cm,0) withcolor .7white ;
sapsym:= (0,2*uy*cm)--(1*uxx*cm,2*uy*cm)--(0.7*uxx*cm,5*uy*cm)--(0.9*uxx*cm,4.8*uy*cm)--(0.4*uxx*cm,8*uy*cm)--(0.6*uxx*cm,7.7*uy*cm)--(0,12*uy*cm)--cycle ;
fill sapsym reflectedabout((0,1),(0,-1)) shifted (4*ux*cm,0) withcolor .7white ;
draw sap shifted (4*ux*cm,0) ;
draw sap reflectedabout((0,1),(0,-1)) shifted (4*ux*cm,0) ;
sapsym:= (0,2*uy*cm)--(1*uxx*cm,2*uy*cm)--(0.7*uxx*cm,5*uy*cm)--(0.9*uxx*cm,4.8*uy*cm)--(0.4*uxx*cm,8*uy*cm)--(0.6*uxx*cm,7.7*uy*cm)--(0,12*uy*cm)--cycle ;
fill sapsym scaled 0.75 shifted (5.5*ux*cm,0) withcolor .7white ;
sapsym:= (0,2*uy*cm)--(1*uxx*cm,2*uy*cm)--(0.7*uxx*cm,5*uy*cm)--(0.9*uxx*cm,4.8*uy*cm)--(0.4*uxx*cm,8*uy*cm)--(0.6*uxx*cm,7.7*uy*cm)--(0,12*uy*cm)--cycle ;
fill sapsym scaled 0.75 reflectedabout((0,1),(0,-1)) shifted (5.5*ux*cm,0) withcolor .7white ;
draw sap scaled 0.75 shifted (5.5*ux*cm,0) ;
draw sap scaled 0.75 reflectedabout((0,1),(0,-1)) shifted (5.5*ux*cm,0) ;
linecap:=rounded;
axes;
graduextousles(1); %ici même effet que graduantx.bot;
gradueytousles(5);
%sapent= sapsym shifted (4*ux*cm,0) ;
%draw sapent;% withcolor .8white;
endfig;
beginfig(19);
depart((-1,-0.5),(2.5,3.5),(0,0),1,1);
grille(0.5);
axes;
graduationx("1");
graduationy("1");
draw courbe1(-1,2,100,(x-0.5)**2+0.75);% withcolor bleu;
%labelise1(btex $y=\text{e}^x$ etex,0.4);
%draw Projection(pointcourbe1(1));
%draw courbe2(-4,3,100,x+1) dashed evenly scaled 2;
%labelise2(btex $y=x+1$ etex,0.83);
endfig;
beginfig(20); %Discont.1
path dc, ac;
depart((-1,-0.5),(2.5,3.5),(0,0),1,1);
grille(0.5);
axes;
graduationx("1");
graduationy("1");
draw courbe1(-1,1,100,(x-0.5)**2+0.75);% withcolor bleu;
draw courbe2(1,2,100,((x-2)**2)*(-1)+3);% withcolor bleu;
dotlabel(btex $$ etex , pointcourbe2(1));
dc=halfcircle rotated 90 scaled 0.1cm shifted (0.05cm,0);
ac= dc rotated 45 shifted pointcourbe1(1); draw ac;
endfig;
beginfig(21); %Discont.2
path dc, ac;
depart((-1,-0.5),(2.5,3.5),(0,0),1,1);
grille(0.5);
axes;
graduationx("1");
graduationy("1");
draw courbe1(-1,1,100,(x-0.5)**2+0.75);% withcolor bleu;
draw courbe2(1,2,100,((x-2)**2)*(-1)+3);% withcolor bleu;
dotlabel(btex $$ etex , (1cm,1.5cm));%pointcourbe2(1));
dc=halfcircle rotated 90 scaled 0.1cm shifted (0.05cm,0);
ac= dc rotated 45 shifted pointcourbe1(1); draw ac;
ac:= dc rotated -116 shifted pointcourbe2(1); draw ac;
endfig;
beginfig(22); %Discont.3
depart((-1,-0.5),(2.5,3.5),(0,0),1,1);
grille(0.5);
axes;
graduationx("1");
graduationy("1");
draw courbe1(-1,2,100,(x-0.5)**2+0.75);% withcolor bleu;
%dotlabel(btex $$ etex , (1cm,1.5cm));%pointcourbe2(1));
fill fullcircle scaled 0.1cm shifted pointcourbe1(1) withcolor white;
draw fullcircle scaled 0.1cm shifted pointcourbe1(1);
endfig;
beginfig(23); %Discont.4
depart((-1,-0.5),(2.5,3.5),(0,0),1,1);
grille(0.5);
axes;
graduationx("1");
graduationy("1");
draw courbe1(-1,2,100,(x-0.5)**2+0.75);% withcolor bleu;
dotlabel(btex $$ etex , (1cm,2cm));%pointcourbe2(1));
fill fullcircle scaled 0.1cm shifted pointcourbe1(1) withcolor white;
draw fullcircle scaled 0.1cm shifted pointcourbe1(1);
endfig;
beginfig(24); %Grille pour la fonction Pi
depart((-0.5,-0.5),(14.4,4.5),(0,0),0.3,0.3);
grilleprincipale(0.3);
axes;
graduextousles(5); %ici même effet que graduantx.bot;
gradueytousles(2);
%graduationx("1");
%graduationy("1");
endfig;
%%%#####################################"
beginfig(25); %Fonction cube CC1 TS 2007
depart((-6,-8.5),(6,8.5),(0,0),2.5,1);
%%coins en bas à g et en haut à d, centre du repère,
%%long unités en x puis en y en cm
% millimetrecentreorigine ;%(orange);
%millimetrepourcourbe;
millimetrecentreorigine;
%grille(0.5);
%grilleprincipale(1);
axes;
draw courbe1(-2.5,2.5,100,x**3);% withcolor bleu;
graduantx.bot;
graduanty.lft;
endfig;
beginfig(26);% DL2 TS 2007
depart((-5.5,-16.5),(5.5,7),(0,0),1,1);
grille(0.5);
axes;
graduantx.bot;
gradueytousles(5);
%graduanty.lft;
draw courbe1(-5.5,-0.1,100,4/(x)) withcolor bleu;
draw courbe2(0.1,5.5,100,4/(x)) withcolor bleu;
draw courbe3(-5,5,100,x**2-15) withcolor rouge;%dashed evenly;%withcolor bleu;
labelise2(btex $y=\frac{4}{x}$ etex,0.5);
labelise3(btex $y=x^2-15$ etex,0.75);
draw Projection(pointcourbe2(4));
draw Projection(pointcourbe3(-0.26795));
draw Projection(pointcourbe3(-3.73205));
label.top(btex $\alpha$ etex,(-3.73205,0)*1cm);
label.top(btex $\beta$ etex,(-0.26795,0)*1cm);
%points à placer sur la parabole
marqueplus(pointcourbe3(-2));
marqueplus(pointcourbe3(-1));
marqueplus(pointcourbe3(-0.5));
marqueplus(pointcourbe3(2));
marqueplus(pointcourbe3(1));
marqueplus(pointcourbe3(0.5));
marqueplus(pointcourbe3(0));
%points à placer sur l'hyperbole
marqueplus(pointcourbe1(-4));
marqueplus(pointcourbe1(-2));
marqueplus(pointcourbe1(-1));
marqueplus(pointcourbe1(-0.5));
marqueplus(pointcourbe1(-0.25));
%%
marqueplus(pointcourbe2(4));
marqueplus(pointcourbe2(2));
marqueplus(pointcourbe2(1));
marqueplus(pointcourbe2(0.5));
marqueplus(pointcourbe2(0.25));
endfig;
beginfig(27);% DL2 TS 2007
depart((-4.5,-6.5),(5.5,6.5),(0,0),1,0.2);
grille(0.5);
axes;
graduantx.bot;
gradueytousles(5);
%graduanty.lft;
draw courbe1(-4.5,5.25,100,x**3-15x-4) withcolor bleu;%dashed evenly;%withcolor bleu;
draw tangente1(5**0.5);
draw tangente1(-(5**0.5));
labelise1(btex $y=x^3-15x-4$ etex,0.92);
%draw Projection(pointcourbe1(4));
%draw Projection(pointcourbe1(-0.27));
%draw Projection(pointcourbe1(-3.735));
%points à placer sur la parabole
endfig;
beginfig(28); %Fonction cube CC1 TS 2007 CORRIGé
depart((-5.5,-5.5),(5.5,7.5),(0,0),2.5,1);
millimetrecentreorigine;
axes;
draw courbe1(-2.5,2.5,100,x**3);% withcolor bleu;
draw courbe2(-2.5,2.5,100,3*x+1);
%entrecourbes(courbe1,courbe2,-2.5,2.5);
%buildcycle(courbe1,courbe2);
draw Projection(pointcourbe2(-1.53));
draw Projection(pointcourbe2(-0.35));
draw Projection(pointcourbe2(1.88));
label.top(btex $\alpha$ etex,(-1.53,0)*2.5cm);
label.top(btex $\beta$ etex,(-0.35,0)*2.5cm);
label.bot(btex $\gamma$ etex,(1.88,0)*2.5cm);
labelise1(btex $y=x^3$ etex,0.72);
labelise2(btex $\Delta : \ y=3x+1$ etex,0.62);
graduantx.bot;
graduanty.lft;
endfig;
beginfig(29); %Fonction CC2 TS 2007
depart((-6,-1),(9,6),(0,0),2.5,5);
millimetrecentreorigine;
axes;
drawarrow (0,0)--(2.5cm,0) withpen pencircle scaled 1bp;
drawarrow (0,0)--(0,5cm) withpen pencircle scaled 1bp;
graduantx.bot;
graduanty.lft;
endfig;
beginfig(30); %Fonction CC2 TS 2007
depart((-6,-1),(9,6),(0,0),2.5,5);
millimetrecentreorigine;
axes;
draw courbe1(-6,8.5,100,1/(1+e**(-x)));% withcolor bleu;
draw courbe2(-6,8.5,100,0.25*x+0.5);% withcolor bleu;
draw courbe3(-6,8.5,100,1);% withcolor bleu;
graduantx.bot;
graduanty.lft;
drawarrow (0,0)--(2.5cm,0) withpen pencircle scaled 1bp;
drawarrow (0,0)--(0,5cm) withpen pencircle scaled 1bp;
endfig;
%%---------------------
beginfig(31); % exp_a
depart((-3,-1),(3,8),(0,0),1,1);
%%coins en bas à g et en haut à d, centre du repère,
%%long unités en x puis en y en cm
%grille(0.5);
grilleprincipale(1);
axes;
%graduantx.bot;
graduationx("1");
graduationy("1");
%graduanty.lft;
draw courbe1(-3,3,50,(0.5**x)) withcolor rouge;
labelise1(btex $y=0,5^x$ etex,0.2);
draw courbe2(-3,3,50,(0.8**x)) withcolor bleu;
labelise2(btex $y=0,8^x$ etex,0.2);
endfig;
beginfig(32); % exp_a
depart((-3,-1),(3,8),(0,0),1,1);
%%coins en bas à g et en haut à d, centre du repère,
%%long unités en x puis en y en cm
%grille(0.5);
grilleprincipale(1);
axes;
%graduantx.bot;
graduationx("1");
graduationy("1");
%graduanty.lft;
draw courbe1(-3,3,50,(1.3**x)) withcolor rouge;
labelise1(btex $y=1,3^x$ etex,0.8);
draw courbe2(-3,3,50,(2**x)) withcolor bleu;
labelise2(btex $y=2^x$ etex,0.8);
endfig;
beginfig(33); % log_a
depart((-3,-3),(5,5),(0,0),1,1);
%%coins en bas à g et en haut à d, centre du repère,
%%long unités en x puis en y en cm
%grille(0.5);
grilleprincipale(1);
axes;
%graduantx.bot;
graduationx("1");
graduationy("1");
%graduanty.lft;
draw courbe1(-3,5,50,(0.7**x)) withcolor rouge;
labelise1(btex $y=0,7^x$ etex,0.15);
draw courbe2(0.05,3,50,(ln(x)/ln(.7))) withcolor rouge;
labelise2(btex $y=\log_{0,7}(x)$ etex,0.75);
draw courbe3(-3,5,50,(0.5**x)) withcolor bleu;
labelise3(btex $y=0,5^x$ etex,0.15);
draw courbe4(0.02,5,50,(ln(x)/ln(0.5))) withcolor bleu;
labelise4(btex $y=\log_{0.5}(x)$ etex,0.7);
draw courbe4(-3,5,50,x) withcolor orange;
labelise4(btex $y=x$ etex,0.2);
endfig;
beginfig(34); % log_a
depart((-2.401,-2.401),(6.401,6.401),(0,0),0.8,0.8);
%%coins en bas à g et en haut à d, centre du repère,
%%long unités en x puis en y en cm
%grille(0.5);
grilleprincipale(0.8);
axes;
%graduantx.bot;
graduationx("1");
graduationy("1");
%graduanty.lft;
draw courbe1(-3,8,50,(1.4**x)) withcolor rouge;
labelise1(btex $y=1,4^x$ etex,0.8);
draw courbe2(0.1,8,50,(ln(x)/ln(1.4))) withcolor rouge;
labelise2(btex $y=\log_{1,4}(x)$ etex,0.8);
draw courbe3(-3,3,50,(2**x)) withcolor bleu;
labelise3(btex $y=2^x$ etex,0.8);
draw courbe4(0.1,8,50,(ln(x)/ln(2))) withcolor bleu;
labelise4(btex $y=\log_{2}(x)$ etex,0.8);
draw courbe4(-3,8,50,x) withcolor orange;
labelise4(btex $y=x$ etex,0.1);
endfig;
end
beginfig(16);
depart((0,2),(9,10),(1,5),2,2);
axes;
grille(1);
graduantx.bot;
graduanty.ulft;
draw param1(0,2*pi,100,(2*(cos(t))**2,4*((cos(t))**3)*sin(t))) withcolor orange;
draw titre(placepoint(1.5,2),2,1,btex\begin{minipage}{4cm}
Quartique piriforme\\$\left\{\begin{tabular}{l} $x(t)=2\cos^2t$\\ $y(t)=4\cos^3t\sin t$\\ \end{tabular} \right.$ \end{minipage} etex);
endfig;
beginfig(17);
depart((0,0),(9,10),(5,5),1,1);
axes;
grille(1);
graduantx.bot;
graduanty.ulft;
draw polaire1(0.001,pi/4-0.001,100,sqrt(4/tan(2*theta))) withcolor orange;
draw polaire1(0.001,pi/4-0.001,100,-sqrt(4/tan(2*theta))) withcolor orange;
draw polaire1(-pi/2+0.001,-pi/4-0.001,100,sqrt(4/tan(2*theta))) withcolor orange;
draw polaire1(-pi/2+0.001,-pi/4-0.001,100,-sqrt(4/tan(2*theta))) withcolor orange;
draw titre(placepoint(-3,-3),4,1.5,btex\begin{minipage}{4cm} Quartique régulière\\$\rho^2=\dfrac{4}{\tan2\theta}$\end{minipage} etex);
endfig;
beginfig(18);
depart((0,0),(9,10),(2,5),0.25,2);
axes;
grille(1);
graduationx(btex $+1$ etex);
graduanty.ulft;
draw courbe1(-8,28,200,exp(-x/4)*sin(x)) withcolor orange;
draw titre(placepoint(12,1),22,0.5,btex Sinusoïde amortie : $y=e^{-\dfrac{x}{4}}\sin x$ etex);
endfig;
beginfig(19);
depart((0,2),(9,10),(5,5),1,1);
axes;
grille(1);
graduantx.bot;
graduanty.ulft;
draw polaire1(-23,21,500,3/(ch(theta/5))) withcolor orange;
draw titre(placepoint(-3,4),3,1.5,btex\begin{minipage}{3cm} Spirale de Poinsot\\$\rho=\dfrac{3}{\mbox{ch}(\theta/5)}$\end{minipage} etex);
endfig;
beginfig(20); %ln et aire
depart((0,0),(6,10),(0,0),1,1);
%%coins en bas à g et en haut à d, centre du repère,
%%long unités en x puis en y en cm
grille(1);
axes;
graduantx.bot;
graduanty.llft;
draw courbe1(0,6,100,x*(6-x)) withcolor violet;
labelise1(btex $y=,x(6-x)$ etex,0.9);
endfig;
end