In the present paper, we established two unified algorithms. The first algorithm is for the transformations between J2000.0 Keplerian orbital elements and B1950.0 elements, while the second is for the transformations between the equatorial orbital elements and the ecliptic orbital elements. Mathematica Modules of the algorithms are given together with some numerical applications.