A computer simulation of the elastic bulk effect in tungsten