3 files changed, 71 insertions, 0 deletions
diff --git a/881/CH14/EX14.1/exa14_1.sce b/881/CH14/EX14.1/exa14_1.sce
new file mode 100755
index 000000000..8383fc6f7
--- /dev/null
+++ b/881/CH14/EX14.1/exa14_1.sce
@@ -0,0 +1,27 @@
+clc;
+//Example 14.1
+//Page No. 584
+
+
+
+//Solution
+
+Prad=100;
+r1=1000;
+r2=2000;
+
+//(a)
+
+disp("(a)Substituting into equation 14-7 yields, ");
+
+p1=((Prad)/(4*%pi*(r1^2)));
+
+disp('uW/m^2',p1*10^6,"P1 = ");
+
+//(b)
+
+disp("(b)Substituting into equation 14-7 yields, ");
+
+p2=((Prad)/(4*%pi*(r2^2)));
+
+disp('uW/m^2',p2*10^6,"P2 = ");
diff --git a/881/CH14/EX14.2/exa14_2.sce b/881/CH14/EX14.2/exa14_2.sce
new file mode 100755
index 000000000..2120722a6
--- /dev/null
+++ b/881/CH14/EX14.2/exa14_2.sce
@@ -0,0 +1,29 @@
+clc;
+//Example 14.2
+//Page No 597
+
+
+
+//Solution
+
+//(a)
+
+d=48.7;
+ht=40;
+
+disp("(a)As per equation 14-23, ");
+
+hr=(((d-sqrt(17*ht))^2)/17);
+
+hr=round(hr);
+
+disp('m',hr,"hr = ");
+
+//(b)
+
+Ht=2*ht;
+Hr=2*hr;
+
+D=((sqrt(17*Ht))+(sqrt(17*Hr)));
+
+disp('km',D,"(b)Dmax = ");
diff --git a/881/CH14/EX14.3/exa14_3.sce b/881/CH14/EX14.3/exa14_3.sce
new file mode 100755
index 000000000..4ae94f8bf
--- /dev/null
+++ b/881/CH14/EX14.3/exa14_3.sce
@@ -0,0 +1,15 @@
+clc;
+//Example 14.3
+//Page No 603
+
+//Solution
+
+D=40;
+f=1.8;
+o=0.9999;
+
+disp("Substituting into equation 14-34, ");
+
+Fm=([30*log10(D)]+[10*log10([6*4*0.5*f])]-[10*log10(1-o)]-70);
+
+disp('dB',Fm,"Fm = ")