//Example 10 //wave intensity
clc;
clear;
close;
nt=1;//watt source
r=1;//n
is=(nt/(4*%pi*r^2));// joule/sec-m^2
disp(is,"intensity on the surface is ,(joule/sec-m^2)=")