<< Graphics`Arrow`

tetec = HeadCenter -> 0.03;
tetel = HeadLength ->  .0300; 
    FArrow[x_, y_] := Arrow[x, y, tetel, tetec]

cas sol ondulé

u[y_] := 
      If[y <  .01, 3/2 (y/ .01) - (1/2) (y/ .01)^3, 
        1]

Profilz[x_, h_] := 
      Block[{}, 
p = ((D[u[z], z]) /. 
              z -> 
                0); 
Show[
Graphics[
            FArrow[{x, 0}, {x + u[0], 0}]], 
Graphics[
            FArrow[{x, h/4}, {x + u[h/4], h/4}]], 
Graphics[
            FArrow[{x, h/2}, {x + u[h/2], h/2}]], 
Graphics[
            FArrow[{x, 3 h/4}, {x + u[3 h/4], 
                3 h/4}]], 
Graphics[
            FArrow[{x, h}, {x + u[h], 
                h}]], 
ParametricPlot[{x + u[y], y}, {y, 0, 
              h}], 
ParametricPlot[{x + 0, y}, {y, 0, 
              h}]
 (*,
ParametricPlot[{x + p  y, y}, {y, 0, 
                h/2}]*) ]
]
sol = 
      Show[Plot[
          0.3*Sin[Pi (x) ] ^2, {x, 0, 1}], 
Plot[
          0.2*Sin[0 x ]^2, {x, -3, 0}], 
Plot[
          0.2*Sin[0 x ]^2, {x, 1, 
            3}]]

surf1 = 
      Show[Plot[
          1 - 0.05*Sin[Pi (x) ] ^2, {x, 0, 
            1}], 
Plot[
          1 - 0.2*Sin[0 x ]^2, {x, -3, 0}], 
Plot[
          1 - 0.2*Sin[0 x ]^2, {x, 1, 
            3}]]

surf2 = 
      Show[Plot[
          1 + 0.2*Sin[Pi (x) ] ^2, {x, 0, 1}], 
Plot[
          1 - 0.2*Sin[0 x ]^2, {x, -3, 0}], 
Plot[
          1 - 0.2*Sin[0 x ]^2, {x, 1, 
            3}]]

\(Show[Profilz[\(-2\), 1], sol, 
      surf1, 
Graphics[
        Text["F<1", {\(-1.5\), 1.25}]], 
Graphics[
        Text["air", {1.75, 1.3}]], 
Graphics[
        Text["sol", {1.75, \(-0.3\)}]], 
Graphics[
        Text["eau", {1.75, 0.25}]], 
Graphics[
        Text["dune", { .5, \(-0.3\)}]], 
Graphics[
        Text["h", {\(-2.25\), 
            0.3}]]
 (*\(,\)\(
\)\(\ \)\(Graphics[
          FArrow[{\(-1\), 
              0}, {\(-1\),  .4}]]\)\(,\)\(
\)\(\ \)\(Graphics[FArrow[{\(-1\), 0.4}, {\(-1\), 0}]]\)*) , 
\ 
      Graphics[FArrow[{\(-2.5\), 0}, {\(-2.5\), 1}]], 
\ 
      Graphics[FArrow[{\(-2.5\), 1}, {\(-2.5\), 0}]], \ 
\ 
      Graphics[FArrow[{0.5, 
            0.5}, {1.1,  .5}]], 
PlotRange -> {{\(-2.6\), 2}, {\(- .5\), 2.1}}]
\)
Show[Profilz[-2, 1], sol, 
      surf2, 
Graphics[
        Text["F>1", {-1.5, 1.25}]], 
Graphics[
        Text["air", {1.75, 1.3}]], 
Graphics[
        Text["sol", {1.75, -0.3}]], 
Graphics[
        Text["eau", {1.75, 0.25}]], 
Graphics[
        Text["antidune", { .5, -0.3}]], 
Graphics[
        Text["h", {-2.25, 
            0.3}]]
  , 
 
      Graphics[FArrow[{-2.5, 0}, {-2.5, 1}]], 
 
      Graphics[FArrow[{-2.5, 1}, {-2.5, 0}]],  
 
      Graphics[FArrow[{0.5,  .5}, {-0.1, 
            0.5}]], 
PlotRange -> {{-2.6, 
            2}, {- .5, 2.1}}]