Mathematica code for computing projection method solutions for DSGE models