//Exa 1.15
clc;
clear;
close;
//given data :
disp("Erms^2 = 30*Wt/r^2");
disp("Wt = Erms^2*r^2/30");
disp("Given : E = 10*I/r");
disp("Wt = (10*I/r)^2*r^2/30")
disp("Wt = 100*I^2/30")
disp("Rr = Wt/I^2 = 100/30");
disp(100/30,"Radiation resistance in Ohm : ");