Numerical calculations on flux-creep in high temperature superconductors