function res = L2(AR, D, g1, f1, r1)

[R1, S1, S2, d1, g2, a1l, a1r] = common(AR, D, g1, f1);
fx = fx_max(AR, D, g1, f1, r1);
res = 2 * R1 / fx;

return;