Add Exp method to Dense

This is the legible but apparently not performance optimal version.
I think this is wrong. I think it should use the stride

   for i := 0; i < r; i++{
       m.mat.Data[i*m.mat.Stide + i] = 1
   }
Similarly, zero shouldn't zero out the entire data slice, just the r * r sub box.