import graph_pi;
usepackage("mathrsfs");
unitsize(1cm,0);

pen pointille=linetype("0 " + string(1mm), offset=0, scale=false, adjust=false);

real f(real x) {return ((x-1)**3-3*(x-1)+5)/5+0.004/(50000*(x-1.8)**2+1);}
pair F(real x) {return (x,f(x));}

graphicrules(xunit=1cm, yunit=1cm,
             xmin=-3, xmax=5,
             ymin=-3, ymax=5,
             crop=Crop
             );
grid(xStep=1, xstep=.5,
     yStep=1, ystep=.5,
     pTick=.7bp+.7white, 
     ptick=.7bp+pointille+.7white,
     above=false
     );
// Définition et tracé des axes
cartesianaxis(
    xticks=Ticks(Label(Fill(white)),
                 Step=1, step=.5,
                 NoZero,
                 ptick=grey),
    yticks=Ticks(Label(Fill(white)),
                 Step=2, step=1,
                 NoZero,
                 ptick=grey),
    Arrow
    );

draw(graph(f,-2,4,1000));
label("$\mathscr{C}_f$",F(4),SE);
xlimits(-3.5,5.5,Crop);
ylimits(-3.5,5.5,Crop);
labeloij(p=1.2bp+.5*red,
         arrow=Arrow(SimpleHead,8bp),
         dot
         );

picture pic;
size(pic,8cm);
draw(pic,graph(pic,f,1.75,1.85,1000));
xaxis(pic,Bottom(),xmin=1.75,xmax=1.85,blue,Ticks(Step=0.02),Arrow);
yaxis(pic,LeftRight(),red,Ticks(Step=0.01));


add(new void(frame f, transform t) {
    frame G=shift(point(f,N))*align(bbox(pic,lightgray),10N);
    add(f,G);
    draw(f,t*box(min(pic,user=true),max(pic,user=true)),red);
    draw(f,point(G,S)--t*point(pic,N),dashed,Arrow);
  });
label("$f:x\mapsto \frac{(x-1)^3-3(x-1)+5}5+\frac{0,004}{50000(x-1,8)^2+1}$",truepoint(S),S);