function f2 = freq_2(AR, D, g1, f1, r1)

[R1, S1, S2, d1, g2, a1l, a1r, w1] = common(AR, D, g1, f1);
Z1 = Z1_min(AR, D, g1, f1, r1);
f2 = Z1 * w1 / (g2 - g1);

return;