3 files changed, 35 insertions, 0 deletions
diff --git a/728/CH6/EX6.5/Ex6_5.sce b/728/CH6/EX6.5/Ex6_5.sce
new file mode 100755
index 000000000..444a76bcc
--- /dev/null
+++ b/728/CH6/EX6.5/Ex6_5.sce
@@ -0,0 +1,13 @@
+//Caption:Determine the powers in the remaining ports
+//Exa:6.5
+clc;
+clear;
+close;
+b_1=20;
+b_2=20;
+p_1=abs((60-50)/(60+50));
+p_2=abs((75-50)/(75+50));
+P_1=b_1*(1-p_1^2)/2;
+P_2=b_2*(1-p_2^2)/2;
+disp(P_1,'Power in port1 (in mW) =');
+disp(P_2,'Power in port2 (in mW) =');
diff --git a/728/CH6/EX6.5/Ex6_5.txt b/728/CH6/EX6.5/Ex6_5.txt
new file mode 100755
index 000000000..444a76bcc
--- /dev/null
+++ b/728/CH6/EX6.5/Ex6_5.txt
@@ -0,0 +1,13 @@
+//Caption:Determine the powers in the remaining ports
+//Exa:6.5
+clc;
+clear;
+close;
+b_1=20;
+b_2=20;
+p_1=abs((60-50)/(60+50));
+p_2=abs((75-50)/(75+50));
+P_1=b_1*(1-p_1^2)/2;
+P_2=b_2*(1-p_2^2)/2;
+disp(P_1,'Power in port1 (in mW) =');
+disp(P_2,'Power in port2 (in mW) =');
diff --git a/728/CH6/EX6.5/Ex6_5_ans.txt b/728/CH6/EX6.5/Ex6_5_ans.txt
new file mode 100755
index 000000000..24de88468
--- /dev/null
+++ b/728/CH6/EX6.5/Ex6_5_ans.txt
@@ -0,0 +1,9 @@
+ 
+ Power in port1 (in mW) =   
+ 
+    9.9173554  
+ 
+ Power in port2 (in mW) =   
+ 
+    9.6  
+ 
+\ No newline at end of file