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