4 files changed, 60 insertions, 0 deletions
diff --git a/52/CH9/EX9.7.a/Example9_7_a.sce b/52/CH9/EX9.7.a/Example9_7_a.sce
new file mode 100755
index 000000000..fa6b75eab
--- /dev/null
+++ b/52/CH9/EX9.7.a/Example9_7_a.sce
@@ -0,0 +1,18 @@
+//Example 9.7 (a)
+//Program To Determine Frequency Resolution of Bartlett, 
+//Welch(50% Overlap) and Blackmann-Tukey Methods
+clear;
+clc;
+close;
+//Data
+Q=10;//Quality Factor
+N=1000;//Samples
+//FREQUENCY RESOLUTION CALCULATION
+K=Q;
+rb=0.89*(2*%pi*K/N);
+rw=1.28*(2*%pi*9*Q)/(16*N);
+rbt=0.64*(2*%pi*2*Q)/(3*N);
+//Display the result in command window
+disp(rb,"Resolution of Bartlett Method");
+disp(rw,"Resolution of Welch(50% overlap) Method");
+disp(rbt,"Resolution of Blackmann-Tukey Method");
+\ No newline at end of file
diff --git a/52/CH9/EX9.7.b/Example9_7_b.sce b/52/CH9/EX9.7.b/Example9_7_b.sce
new file mode 100755
index 000000000..12e034cd8
--- /dev/null
+++ b/52/CH9/EX9.7.b/Example9_7_b.sce
@@ -0,0 +1,17 @@
+//Example 9.7 (b)
+//Program To Determine Record Length of Bartlett, 
+//Welch(50% Overlap) and Blackmann-Tukey Methods
+clear;
+clc;
+close;
+//Data
+Q=10;//Quality Factor
+N=1000;//Samples
+//RECORD LENGTH CALCULATION
+lb=N/Q;
+lw=16*N/(9*Q);
+lbt=3*N/(2*Q);
+//Display the result in command window
+disp(lb,"Record Length of Bartlett Method");
+disp(lw,"Record Length of Welch(50% overlap) Method");
+disp(lbt,"Record Length of Blackmann-Tukey Method");
diff --git a/52/CH9/EX9.8.a/Example9_8_a.sce b/52/CH9/EX9.8.a/Example9_8_a.sce
new file mode 100755
index 000000000..9a5bf6dd1
--- /dev/null
+++ b/52/CH9/EX9.8.a/Example9_8_a.sce
@@ -0,0 +1,12 @@
+//Example 9.8 (a)
+//Program To Determine Smallest Record Length of Bartlett Method
+clear;
+clc;
+close;
+//Data
+fr=0.01;//Frequency Resolution
+N=2400; //Samples
+//RECORD LENGTH CALCULATION
+lb=0.89/fr;
+//Display the result in command window
+disp(lb,"Record Length of Bartlett Method");
+\ No newline at end of file
diff --git a/52/CH9/EX9.8.b/Example9_8_b.sce b/52/CH9/EX9.8.b/Example9_8_b.sce
new file mode 100755
index 000000000..9f7552a95
--- /dev/null
+++ b/52/CH9/EX9.8.b/Example9_8_b.sce
@@ -0,0 +1,13 @@
+//Example 9.8 (b)
+//Program To Determine Quality Factor of Bartlett Method
+clear;
+clc;
+close;
+//Data
+fr=0.01;//Frequency Resolution
+N=2400; //Samples
+lb=0.89/fr;
+//QUALITY FACTOR CALCULATION
+Q=N/lb;
+//Display the result in command window
+disp(Q,"Quality Factor of Bartlett Method");
+\ No newline at end of file