Experimental investigation of the electromagnetic effect on a shock layer around a blunt body in a weakly ionized flow