Fichier figure057.mp (figure 1) — Modifié le 10 Avril 2008 à 23 h 10

figure057.mp (figure 1)
Source

%@AUTEUR:Guillaume Connan
prologues:=2;

input courbes;
input geo;

color vert_e, turquoise, orange, vert_fonce, rose, vert_mer, bleu_ciel, or, rouge_v,bleu_m,bleu,bleu_f;
vert_e:=(0,0.790002,0.340007);
turquoise:=(0.250999,0.878399,0.815699);
orange:=(0.589999,0.269997,0.080004);
vert_fonce:=(0,1.4*0.392193,0);
rose:=(1.0, 0.752907, 0.796106);
bleu_ciel:=(1.2*0.529405,1.2*0.807794,1);%.2*0.921598);
or:=(1,0.843104,0);
rouge_v:=(0.829997,0.099994,0.119999);
bleu_m:=(0.7*0.529405,0.7*0.807794,0.7);%*0.921598);
bleu_f:=(0.211762,0.3231176,0.3686392);
bleu:=(0.529405,0.807794,1);

%RESERVOiR Ep


beginfig(1);
  pair A[],B[],C[],D[]; path p,pp;
  
  A[0]=(0,0);
  A[1]=(10cm,0);
  A[2]=(13cm,4cm);
  A[3]=(3cm,4cm);

  for i=0 upto 3: B[i]:=A[i] shifted (0,2cm); endfor
  for i=0 upto 3: C[i]:=A[i] shifted (0,2.5cm); endfor
  for i=0 upto 3: D[i]:=A[i] shifted (0,3.5cm); endfor

  p:=C[0]--C[1]--C[2]--C[3]--cycle;
  pp:=B[0]--B[1]--B[2]--C[2]--C[1]--C[0]--cycle;
  
  fill p withcolor bleu_ciel;
  fill pp withcolor bleu_ciel;
  
  draw A[0]--A[1]--A[2];
  draw B[0]--B[1]--B[2] withcolor bleu_m withpen pencircle scaled 2bp;
  draw C[0]--C[1]--C[2] withcolor bleu_m withpen pencircle scaled 2bp;
  draw D[0]--D[1]--D[2]--D[3]--cycle;
  
  draw A[2]--A[3]--A[0] dashed evenly;
  draw B[2]--B[3]--B[0] withcolor bleu_m dashed evenly withpen pencircle scaled 2bp;
  draw C[2]--C[3]--C[0] withcolor bleu_m dashed evenly withpen pencircle scaled 2bp;
  
  draw A[0]--D[0];
  draw A[1]--D[1];
  draw A[2]--D[2];
  draw A[3]--D[3] dashed evenly;
  
  label.lft(btex $h_i$ etex scaled 1.5, B[0]);
  label.lft(btex $h_{i+1}$ etex scaled 1.5, C[0]);
  label.lft(btex $h_0=0$ etex scaled 1.5, A[0]);
  label.lft(btex $h_n=100$ etex scaled 1.5, D[0]);
endfig;
%SUBDIVISIon PLUs FINE 

vardef axes =
  drawarrow (ux*xmin,0) -- (ux*xmax,0); % axe des x
  drawarrow ((0,uy*ymin) -- (0,uy*ymax))  ; % axe des y
enddef;


beginfig(2);
% Déclarations des constantes %
  ux:=2.3cm; uy:=0.8cm;
  xmin:=-.5; xmax:=7;
  ymin:=xmin; ymax:=6;
  coefficient:=1; % coefficient d'échelle
  
%Tracé des axes
  axes;
  
  pair a,b,c,d,e,f,bb,cc,dd,ee,xa,xc,xf,cu,cd,ct,gu,gd,gt,gq;
  
  a=(ux,2.5*uy);
  b=(2*ux,4*uy);
  c=(3*ux,2*uy);
  d=(3.4*ux,1.2*uy);
  e=(4.5*ux,5*uy);
  f=(5*ux,3.5*uy);
  bb=b xscaled 0;
  cc=c xscaled 0;
  dd=d xscaled 0;
  ee=e xscaled 0;
  xa=a yscaled 0;
  xc=c yscaled 0;
  xf=f yscaled 0;
  cu=(ux,2*uy);
  cd=(ux,4*uy);
  ct=(3*ux,4*uy);
  gu=(ux,1.2*uy);
  gd=(5*ux,1.2*uy);
  gt=(5*ux,5*uy);
  gq=(ux,5*uy);

  path p,pp,ppp; 
  
  pp:=a..tension1.3..{dir 0}b{dir 0}..c..{dir 0}d{dir 0}..tension1.5..{dir 0}e{dir 0}..tension1.3..{dir300}f;
  p:=c--cu--cd--ct--cycle;
  ppp:=gu--gd--gt--gq--cycle;
  
  fill ppp withcolor bleu_ciel;
  fill p withcolor bleu_m;
  draw pp withpen pencircle scaled 1.5bp;
  
  dotlabel.top(btex $ $ etex,b);
  dotlabel.bot(btex $ $ etex,d);
  dotlabel.top(btex $ $ etex,e);
  dotlabel.urt(btex $ $ etex,c);
  
  label.lft(btex $M_i$ etex, ee);
  label.lft(btex $M'_i$ etex, bb);
  label.lft(btex $m'_i$ etex, cc);
  label.lft(btex $m_i$ etex, dd);
  
  label.bot(btex $a_i$ etex,xa);
  label.bot(btex $a'_i$ etex,xc);
  label.bot(btex $a_{i+1}$ etex,xf);
  
  draw ee--e dashed withdots withpen pencircle scaled 1.5bp;
  draw dd--d dashed withdots withpen pencircle scaled 1.5bp;
  draw f--xf dashed withdots withpen pencircle scaled 1.5bp;
  draw a--xa dashed withdots withpen pencircle scaled 1.5bp;
  draw bb--b dashed evenly withcolor bleu_m withpen pencircle scaled 1.3bp;
  draw cc--c--xc dashed evenly withcolor bleu_m withpen pencircle scaled 1.3bp;
endfig;
end