1 files changed, 9 insertions, 0 deletions
diff --git a/2414/CH15/EX15.4/Ex15_4.sce b/2414/CH15/EX15.4/Ex15_4.sce
new file mode 100755
index 000000000..6c7acac19
--- /dev/null
+++ b/2414/CH15/EX15.4/Ex15_4.sce
@@ -0,0 +1,9 @@
+clc;
+close();
+clear();
+//page no 504
+//prob no. 15.4
+d=10^5;  //m
+Pt=100;  //W
+Pd=Pt/(4*%pi*d^2);
+mprintf('The power density is ,Pd= %.1f pW/m^2',Pd*10^12);