12

I found several topics about undocumented ScaledTicks function and tried to use this. Here is the first example:
g1 = Plot[Sin[3 x] Exp[-x], {x, 0, 10}, PlotRange -> All];
g2 = Plot[Sin[3 x] Exp[1.1 x], {x, 0, 10}, PlotRange -> All];
{pr1, pr2} = (PlotRange[#][[2]] & /@ {g1, g2});
Show[{g1, g2 /...