Function diag 

pub fn diag<A>(v: &Array1<A>) -> Array2<A>
where
    A: Clone + Zero,

Create a diagonal matrix from a vector