Computer simulation of the glide motion of a dislocation group containing a source