Mobdification de Courbe en CourbeDat dans gdd.mp, ajout des variable gddXlabel et...
[mp-gdd.git] / exemples / fonctions / fonction2.mp
1 input gdd;
2 input gdd-rep;
3 input gdd-lbl;
4 input gdd-tra;
5 input svgnames;
6
7 lblPreambule := "\usepackage[frenchb]{babel}"        &
8                 "\usepackage[garamond]{mathdesign}"  &
9                 "\usepackage{amsmath}\usepackage{mflogo}";
10
11 input gdd-fct;
12 input gdd-plt;
13
14 labeloffset := 6;
15 gddU:=1.2cm;
16
17 vardef f(expr x) = x*(Pi-x) enddef;  % f
18 vardef g(expr x) = Pi-2*x enddef;    % f'
19 vardef h(expr x) = -2 enddef;        % f''
20
21 def avecCrayon(expr t,c) = withpen pencircle scaled t withcolor c enddef;
22
23
24
25 beginfig(1);
26
27 Repere(10,6,5,3,.8,0.8);
28 Axes;
29  Debut;
30   Graduations;
31
32   trace (Pi,-2)--(Pi,2) dashed evenly;
33   trace (-Pi,-2)--(-Pi,2) dashed evenly;
34
35   trace Representation(f,0,Pi,100) avecCrayon(1.5,Indigo);
36   trace (Representation(f,0,Pi,100) scaled -1) avecCrayon(1.5,Indigo);
37   trace (Representation(f,0,Pi,100) shifted (-2*Pi,0)) avecCrayon(1.5,Indigo);
38   trace (Representation(f,0,Pi,100) scaled -1 shifted (2*Pi,0)) avecCrayon(1.5,Indigo);
39
40   trace Representation(g,0,Pi,100) avecCrayon(1.5,Olive);
41   trace (Representation(g,0,Pi,100) xscaled -1) avecCrayon(1.5,Olive);
42   trace (Representation(g,0,Pi,100) shifted (-2*Pi,0)) avecCrayon(1.5,Olive);
43   trace (Representation(g,0,Pi,100) xscaled -1 shifted (2*Pi,0)) avecCrayon(1.5,Olive);
44
45   trace Representation(h,0,Pi,100) avecCrayon(1.5,Orange);
46   trace (Representation(h,0,Pi,100) scaled -1) avecCrayon(1.5,Orange);
47   trace (Representation(h,0,Pi,100) shifted (-2*Pi,0)) avecCrayon(1.5,Orange);
48   trace (Representation(h,0,Pi,100) scaled -1 shifted (2*Pi,0)) avecCrayon(1.5,Orange);
49
50   pointe Point(Pi,2);
51   pointe Point(Pi,-2);
52   pointe Point(-Pi,2);
53   pointe Point(-Pi,-2); 
54
55   label.urt(TEX("\(-\pi\)"), (-Pi,0) gddEnPlace) withcolor Peru;
56   label.ulft(TEX("\(\pi\)"), (Pi,0) gddEnPlace) withcolor Peru;
57 Fin;
58
59 trace (0,-0.5)--(1,-0.5) avecCrayon(1.5,Indigo);
60 label.rt(TEX("\(f\)"), (1,-0.5) gddEnPlace);
61 trace (2,-0.5)--(3,-0.5) avecCrayon(1.5,Olive);
62 label.rt(TEX("\(f'\)"), (3,-0.5) gddEnPlace);
63 trace (4,-0.5)--(5,-0.5) avecCrayon(1.5,Orange);
64 label.rt(TEX("\(f''\)"), (5,-0.5) gddEnPlace);
65 labeloffset := 0;
66 label.lft(TEX("\MP{}"), (10,-0.5) gddEnPlace);
67
68 endfig;
69
70 end

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la
Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.