hw 14 mathematica file