Affine Addition Formula for Short Weierstrass Elliptic Curves