smart_impactmat function

Create a random VAR model $(dxd)$ error impact matrix $B$fairly close to the given invertible impact matrix.