// Given data Vth=10;// Thevenin voltage in volts Rth=2000;// Thevenin resistance in ohms // Calculations In=Vth/Rth;// Norton current in amperes disp("Amperes",In,"Norton Current=")