1 files changed, 16 insertions, 0 deletions
diff --git a/331/CH7/EX7.9/Example_7_9.sce b/331/CH7/EX7.9/Example_7_9.sce
new file mode 100755
index 000000000..9eb589cb7
--- /dev/null
+++ b/331/CH7/EX7.9/Example_7_9.sce
@@ -0,0 +1,16 @@
+//Caption:F-distribution [Sampling Distributions of Variance]
+//Same Variance
+//Example7.9
+//Page211
+clear;
+clc;
+n1 = 21;//Size of the first sample
+n2 = 20;// Size of the second sample
+F = 3; //variance of the first sample 3 times more than variance of second sample
+Dfn = n1-1;
+Dfd = n2-1;
+[P,Q]=cdff("PQ",F,Dfn,Dfd)
+disp(Q,'The probability that the variance of the first sample > 3 times that of the second sample is =')
+//Result
+//The probability that the variance of the first sample > 3 times that of the second sample is =   
+//     0.0100558 
+\ No newline at end of file