//Exa 1.3
clc;
clear;
close;
//given data :
I=20;//in A
Rr=100;//in Ohm
//Formula : Wr=I^2*R
Wr=I^2*Rr;//in W
disp(Wr/1000,"Radiated power in KW : ");