input newcourbes; input couleur; input geometriesyr16; input TEX; verbatimtex %&latex \documentclass{article} %\usepackage[upright]{fourier} \usepackage{preambule} \begin{document} etex
\E
par exemple pour avoir le e de l'exponentielle en romain.
Il faut bien sûr avoir sous la main une version de newcourbes
inspiré du travail remarquable du site syracuse.
|
beginfig(98) %%%%%%%%%%%%%%%% vardef fx(expr t)= t enddef; vardef fy(expr t)= 1/(1+99*exp(-t/10)) enddef; %%%%%%%%%%%%%%%%%%% repere(0,0,-10,250,-.025,1.2,0.03cm,3cm); r_axes; draw f_courbe(fx,fy,0,250,500) withpen pencircle scaled 1.5bp withcolor bleu_f; draw r_p(0,1)--r_p(250,1) dashed evenly withpen pencircle scaled 1.2bp withcolor bleu; label.lft(btex $1$ etex, r_p(0,1)) withcolor 0.6white; label.llft(btex $0$ etex, r_p(0,0)); r_fin; endfig;
|
beginfig(99) %%%%%%%%%%%%%%%%%%%%%%% vardef fx(expr t)= t enddef; vardef fy(expr t)= -t+1 % c'est la seule ligne à changer enddef; vardef gy(expr t)= 2/(9*t) % c'est la seule ligne à changer enddef; %%%%%%%%%%%%%%%%%%%%% repere(0,0,-0.1,1.1,-0.1,1.1,10cm,10cm); %quad_xy(0.2,bleu_ciel); %quadu_xy(0.1*bleu_ciel); %grad_x(1,1,0.4white); %grad_y(1,1,0.4white); Aire(fx,fy,0,1/3,.8white); Aire(fx,fy,2/3,1,.8white); Aire(fx,gy,1/3,2/3,.8white); draw f_courbe(fx,fy,0,1,100)withpen pencircle scaled 1.5bp withcolor red; draw f_courbe(fx,gy,0.1,1,100)withpen pencircle scaled 1.5bp withcolor blue; r_axes; r_origine; r_unites; r_labelxy; label.bot(btex $\frac{1}{3}$ etex, r_p(1/3,0) ) withcolor 0.1white; label.bot(btex $\frac{2}{3}$ etex, r_p(2/3,0) ) withcolor 0.1white; r_fin; endfig;
|
beginfig( 100) %%%%%%%%%%%%%%%%%%%%%%% vardef fx(expr t)= t enddef; vardef fy(expr t)= ln(t) % c'est la seule ligne à changer enddef; vardef gy(expr t) = t*exp(-t+2) enddef; %%%%%%%%%%%%%%%%%%%%% repere(0,0,-0.1,8,-5,5,2cm,1cm); r_axes; r_origine; r_unites; r_labelxy; %quad_xy(0.2,bleu_ciel); %quadu_xy(0.1*bleu_ciel); %grad_x(1,1,0.4white); %grad_y(1,1,0.4white); draw f_courbe(fx,fy,0.01,10,1000)withpen pencircle scaled 1.5bp withcolor red; draw f_courbe(fx,gy,0,10,1000)withpen pencircle scaled 1.5bp withcolor 0.7white; pair a,xa; a:=r_p(3.004706178,fy(3.004706178)); xa:=r_p(3.004706178,0); dotlabel.top(btex etex,a ); label.bot(btex $\alpha$ etex,xa ); draw a--xa dashed evenly; r_fin; endfig;
|
beginfig(101) %%%%%%%%%%%%%%%%%%%%%%% vardef fx(expr t)= t enddef; vardef fy(expr t)= sin(t) enddef; %%%%%%%%%%%%%%%%%%%%% repere(0,0,-0.5,4.5,-0.25,2,1cm,2cm); path r; r:=r_p(0,0)--r_p(0,1.5)--r_p(3.14,1.5)--r_p(3.14,0)--cycle; fill r withcolor bleu_ciel; Aire(fx,fy,0,3.14,bleu); draw r_p(0,1.5)--r_p(3.14,1.5)--r_p(3.14,0) dashed evenly withpen pencircle scaled 1.2bp; draw f_courbe(fx,fy,0,3.14,100)withpen pencircle scaled 1.5bp; label.bot(btex $\pi$ etex,r_p(3.14,0) ); label.bot(btex $\theta$ etex, r_p(4.5,0)); label.lft(btex $a$ etex,r_p(0,1.5) ); label.lft(btex $x$ etex, r_p(0,2)); r_axes; r_origine; r_fin; endfig;
|
beginfig( 102) %%%%%%%%%%%%%%%%%%%%%%% vardef fx(expr t)= t enddef; vardef fy(expr t)=0.25*(t-4)**2+3 % c'est la seule ligne à changer enddef; %%%%%%%%%%%%%%%%%%%%% repere(0,0,-1,10,-1,5,1cm,1cm); draw f_courbe(fx,fy,0,8,100)withpen pencircle scaled 1.1bp dashed evenly; draw r_p(0,0)--r_p(0,fy(0))withpen pencircle scaled 1.1bp dashed evenly; draw r_p(8,0)--r_p(8,fy(8))withpen pencircle scaled 1.1bp dashed evenly; Aire(fx,fy,2,5,jaune); label.bot(btex $a$ etex, r_p(0,0)); label.bot(btex $b$ etex, r_p(8,0)); label.bot(btex $\alpha$ etex, r_p(2,0)); label.bot(btex $\beta$ etex, r_p(5,0)); label(btex $p([\alpha,\beta])$ etex, r_p(3.5,2)); label.top(btex $\CR_f$ etex,r_p(7,fy(7)) ); draw r_p(-1,0)--r_p(10,0)withpen pencircle scaled 1.2bp; r_fin; endfig;