This function works in the way analogous to the diag function of Matlab.
Usage
dg(x)
Arguments
x
a number, vector or square matrix.
Value
If x is a number, dg returns itself. If x is a vector, a one-row matrix or a one-column matrix, dg returns a matrix with x as the main diagnol. Otherwise dg returns diag(x).