A prediction of heat generation in a thermoviscoplastic uniaxial bar