hw 16 mathematica file