A finite element iterative simulation of coupled electrothermal effects in an electric smelting furnace