Définissez une fonction d'échelonnement

Utilisez n'importe quelle fonction et son inverse pour échelonner des données.

In[1]:=

rightArrow = Graphics[{GrayLevel[0.7], Polygon[{{0, 0}, {-0.5, 0.5}, {-0.5, 0.25}, {-1, 0.25}, {-1, -0.25}, {-0.5, -0.25}, {-0.5, -0.5}}]}, ImageSize -> 50];

In[2]:=

Grid[Partition[{ Plot[{Sin[x], Cos[x]}, {x, 0, 10}, ImageSize -> 250, PlotTheme -> "Web"], rightArrow, Plot[{Sin[x], Cos[x]}, {x, 0, 10}, ImageSize -> 250, PlotTheme -> "Web", ScalingFunctions -> {None, {Tan, ArcTan}}]}, 3]]

Out[2]=