A Quantitative Method to Predict the Shear Yield Stress of Rock Joints