16 files changed, 288 insertions, 0 deletions
diff --git a/3513/CH9/EX9.1/Ex9_1.sce b/3513/CH9/EX9.1/Ex9_1.sce
new file mode 100644
index 000000000..81823dc4e
--- /dev/null
+++ b/3513/CH9/EX9.1/Ex9_1.sce
@@ -0,0 +1,10 @@
+//Calculate the reliability of system RA = 0.8
+//page no 218
+clear
+clc;
+RA = 0.8;
+RB = 0.7;
+RC = 0.9;
+RAB = 1-((1-RA)*(1-RB));
+RS=RAB*RC;
+mprintf("\RS = %.2f \n",RS);
diff --git a/3513/CH9/EX9.1/ch9_1.sce b/3513/CH9/EX9.1/ch9_1.sce
new file mode 100644
index 000000000..81823dc4e
--- /dev/null
+++ b/3513/CH9/EX9.1/ch9_1.sce
@@ -0,0 +1,10 @@
+//Calculate the reliability of system RA = 0.8
+//page no 218
+clear
+clc;
+RA = 0.8;
+RB = 0.7;
+RC = 0.9;
+RAB = 1-((1-RA)*(1-RB));
+RS=RAB*RC;
+mprintf("\RS = %.2f \n",RS);
diff --git a/3513/CH9/EX9.2/Ex9_2.sce b/3513/CH9/EX9.2/Ex9_2.sce
new file mode 100644
index 000000000..3f9355d79
--- /dev/null
+++ b/3513/CH9/EX9.2/Ex9_2.sce
@@ -0,0 +1,15 @@
+//Calculate the reliability of the configuration
+//page no 218
+clear
+clc;
+RA = 0.7;
+RB = 0.7;
+RC = 0.9;
+RD = 0.8;
+RE = 0.9;
+
+RAB = 1-((1-RA)*(1-RB));
+RABC=RAB*RC;
+RABCD = 1-((1-RABC)*(1-RD));
+RABCDE = RABCD*RE;
+mprintf("\RABCDE = %.4f \n",RABCDE);
diff --git a/3513/CH9/EX9.2/ch9_2.sce b/3513/CH9/EX9.2/ch9_2.sce
new file mode 100644
index 000000000..3f9355d79
--- /dev/null
+++ b/3513/CH9/EX9.2/ch9_2.sce
@@ -0,0 +1,15 @@
+//Calculate the reliability of the configuration
+//page no 218
+clear
+clc;
+RA = 0.7;
+RB = 0.7;
+RC = 0.9;
+RD = 0.8;
+RE = 0.9;
+
+RAB = 1-((1-RA)*(1-RB));
+RABC=RAB*RC;
+RABCD = 1-((1-RABC)*(1-RD));
+RABCDE = RABCD*RE;
+mprintf("\RABCDE = %.4f \n",RABCDE);
diff --git a/3513/CH9/EX9.3/Ex9_3.sce b/3513/CH9/EX9.3/Ex9_3.sce
new file mode 100644
index 000000000..91f8cb150
--- /dev/null
+++ b/3513/CH9/EX9.3/Ex9_3.sce
@@ -0,0 +1,21 @@
+//Calculate the reliability of the configuration
+//page no 219
+clear
+clc;
+RA = 0.8;
+RB = 0.8;
+RC = 0.8;
+RD = 0.95;
+RE = 0.85;
+
+RABC = 1-((1-RA)*(1-RB)*(1-RC));
+RABCDE1 = RABC*RD*RE;
+mprintf("\RABC = %.4f \n",RABC);
+mprintf("\RABCDE = %.4f \n",RABCDE1);
+RABC=0.992;
+RD=0.95;
+RE = 1-((1-RE)*(1-RE));
+RABCDE2 = RABC*RD*RE;
+mprintf("\(b) WKT RABCDE = %.4f \n",RABCDE2);
+I=RABCDE2-RABCDE1;
+mprintf("\Improvement in R = %.4f \n",I);
diff --git a/3513/CH9/EX9.3/ch9_3.sce b/3513/CH9/EX9.3/ch9_3.sce
new file mode 100644
index 000000000..91f8cb150
--- /dev/null
+++ b/3513/CH9/EX9.3/ch9_3.sce
@@ -0,0 +1,21 @@
+//Calculate the reliability of the configuration
+//page no 219
+clear
+clc;
+RA = 0.8;
+RB = 0.8;
+RC = 0.8;
+RD = 0.95;
+RE = 0.85;
+
+RABC = 1-((1-RA)*(1-RB)*(1-RC));
+RABCDE1 = RABC*RD*RE;
+mprintf("\RABC = %.4f \n",RABC);
+mprintf("\RABCDE = %.4f \n",RABCDE1);
+RABC=0.992;
+RD=0.95;
+RE = 1-((1-RE)*(1-RE));
+RABCDE2 = RABC*RD*RE;
+mprintf("\(b) WKT RABCDE = %.4f \n",RABCDE2);
+I=RABCDE2-RABCDE1;
+mprintf("\Improvement in R = %.4f \n",I);
diff --git a/3513/CH9/EX9.4/Ex9_4.sce b/3513/CH9/EX9.4/Ex9_4.sce
new file mode 100644
index 000000000..39a7c683a
--- /dev/null
+++ b/3513/CH9/EX9.4/Ex9_4.sce
@@ -0,0 +1,26 @@
+//Determine the probability of success for the foll.
+//page no 219
+clear
+clc;
+PA=90;
+PB=80;
+PC=75;
+PD=80;
+
+RA = 0.8;
+RB = 0.8;
+RC = 0.8;
+RD = 0.95;
+RE = 0.85;
+
+RABC = 1-((1-RA)*(1-RB)*(1-RC));
+RABCDE1 = RABC*RD*RE;
+mprintf("\RABC = %.4f \n",RABC);
+mprintf("\RABCDE = %.4f \n",RABCDE1);
+RABC=0.992;
+RD=0.95;
+RE = 1-((1-RE)*(1-RE));
+RABCDE2 = RABC*RD*RE;
+mprintf("\(b) WKT RABCDE = %.4f \n",RABCDE2);
+I=RABCDE2-RABCDE1;
+mprintf("\Improvement in R = %.4f \n",I);
diff --git a/3513/CH9/EX9.4/ch9_4.sce b/3513/CH9/EX9.4/ch9_4.sce
new file mode 100644
index 000000000..39a7c683a
--- /dev/null
+++ b/3513/CH9/EX9.4/ch9_4.sce
@@ -0,0 +1,26 @@
+//Determine the probability of success for the foll.
+//page no 219
+clear
+clc;
+PA=90;
+PB=80;
+PC=75;
+PD=80;
+
+RA = 0.8;
+RB = 0.8;
+RC = 0.8;
+RD = 0.95;
+RE = 0.85;
+
+RABC = 1-((1-RA)*(1-RB)*(1-RC));
+RABCDE1 = RABC*RD*RE;
+mprintf("\RABC = %.4f \n",RABC);
+mprintf("\RABCDE = %.4f \n",RABCDE1);
+RABC=0.992;
+RD=0.95;
+RE = 1-((1-RE)*(1-RE));
+RABCDE2 = RABC*RD*RE;
+mprintf("\(b) WKT RABCDE = %.4f \n",RABCDE2);
+I=RABCDE2-RABCDE1;
+mprintf("\Improvement in R = %.4f \n",I);
diff --git a/3513/CH9/EX9.5/Ex9_5.sce b/3513/CH9/EX9.5/Ex9_5.sce
new file mode 100644
index 000000000..ca13118e5
--- /dev/null
+++ b/3513/CH9/EX9.5/Ex9_5.sce
@@ -0,0 +1,23 @@
+//Determine the probability of survival for an operating period of 800 hrs
+//page no 219
+clear
+clc;
+SSA = 12500;
+SSC = 11000;
+SSE = 15550;
+SSB = 2830;
+SSD = 9850;
+t=800;
+MTBFA=12500;
+MTBFB=2830;
+MTBFC=11000;
+MTBFD=9850;
+MTBFE=15550;
+dA=1/MTBFA;
+dB=1/MTBFB;
+dC=1/MTBFC;
+dD=1/MTBFD;
+dE=1/MTBFE;
+dS=dA+dB+dC+dD+dE;
+RS =%e^(-dS*t);
+mprintf("\Rs = %.4f \n",RS);
diff --git a/3513/CH9/EX9.5/ch9_5.sce b/3513/CH9/EX9.5/ch9_5.sce
new file mode 100644
index 000000000..ca13118e5
--- /dev/null
+++ b/3513/CH9/EX9.5/ch9_5.sce
@@ -0,0 +1,23 @@
+//Determine the probability of survival for an operating period of 800 hrs
+//page no 219
+clear
+clc;
+SSA = 12500;
+SSC = 11000;
+SSE = 15550;
+SSB = 2830;
+SSD = 9850;
+t=800;
+MTBFA=12500;
+MTBFB=2830;
+MTBFC=11000;
+MTBFD=9850;
+MTBFE=15550;
+dA=1/MTBFA;
+dB=1/MTBFB;
+dC=1/MTBFC;
+dD=1/MTBFD;
+dE=1/MTBFE;
+dS=dA+dB+dC+dD+dE;
+RS =%e^(-dS*t);
+mprintf("\Rs = %.4f \n",RS);
diff --git a/3513/CH9/EX9.6/Ex9_6.sce b/3513/CH9/EX9.6/Ex9_6.sce
new file mode 100644
index 000000000..49f6109ba
--- /dev/null
+++ b/3513/CH9/EX9.6/Ex9_6.sce
@@ -0,0 +1,11 @@
+//Determine the probability of survival of the system
+//page no 220
+clear
+clc;
+t=1500;
+dt=1.56*10^-5;
+dr=2*10^-5;
+df=1.7*10^-5;
+ds=dt+dr+df;
+RS =%e^(-ds*t);
+mprintf("\Rs = %.4f \n",RS);
diff --git a/3513/CH9/EX9.6/ch9_6.sce b/3513/CH9/EX9.6/ch9_6.sce
new file mode 100644
index 000000000..49f6109ba
--- /dev/null
+++ b/3513/CH9/EX9.6/ch9_6.sce
@@ -0,0 +1,11 @@
+//Determine the probability of survival of the system
+//page no 220
+clear
+clc;
+t=1500;
+dt=1.56*10^-5;
+dr=2*10^-5;
+df=1.7*10^-5;
+ds=dt+dr+df;
+RS =%e^(-ds*t);
+mprintf("\Rs = %.4f \n",RS);
diff --git a/3513/CH9/EX9.7/Ex9_7.sce b/3513/CH9/EX9.7/Ex9_7.sce
new file mode 100644
index 000000000..f6f0112e0
--- /dev/null
+++ b/3513/CH9/EX9.7/Ex9_7.sce
@@ -0,0 +1,21 @@
+//Determine the reliability of the system for 20 hrs. of operating period
+//page no 220
+clear
+clc;
+dA = 0.01;
+dB = 0.015;
+dC = 0.02;
+dD = 0.02;
+dE = 0.025;
+t=20;
+RA =%e^(-dA*t);
+RB =%e^(-dB*t);
+RC =%e^(-dC*t);
+RD =%e^(-dD*t);
+RE =%e^(-dE*t);
+RBC = 1-((1-RB)*(1-RC));
+RABC = RA*RBC;
+RABCD = 1-((1-RABC)*(1-RD));
+RABCDE = RE*RABCD;
+
+mprintf("RABCDE = Rs = %.4f \n",RABCDE);
diff --git a/3513/CH9/EX9.7/ch9_7.sce b/3513/CH9/EX9.7/ch9_7.sce
new file mode 100644
index 000000000..f6f0112e0
--- /dev/null
+++ b/3513/CH9/EX9.7/ch9_7.sce
@@ -0,0 +1,21 @@
+//Determine the reliability of the system for 20 hrs. of operating period
+//page no 220
+clear
+clc;
+dA = 0.01;
+dB = 0.015;
+dC = 0.02;
+dD = 0.02;
+dE = 0.025;
+t=20;
+RA =%e^(-dA*t);
+RB =%e^(-dB*t);
+RC =%e^(-dC*t);
+RD =%e^(-dD*t);
+RE =%e^(-dE*t);
+RBC = 1-((1-RB)*(1-RC));
+RABC = RA*RBC;
+RABCD = 1-((1-RABC)*(1-RD));
+RABCDE = RE*RABCD;
+
+mprintf("RABCDE = Rs = %.4f \n",RABCDE);
diff --git a/3513/CH9/EX9.8/Ex9_8.sce b/3513/CH9/EX9.8/Ex9_8.sce
new file mode 100644
index 000000000..0b6efe991
--- /dev/null
+++ b/3513/CH9/EX9.8/Ex9_8.sce
@@ -0,0 +1,17 @@
+//determine the reliability of the total system for 150 hrs. of operation
+//page no 221
+clear
+clc;
+RS=0.9;
+RM=0.92;
+RC=0.85;
+RB=0.95;
+RP=0.99;
+Rf=0.95;
+Rb1=0.6686;
+Rb2=0.6686;
+Rblower1=RS*RM*RC*RB;
+Rblower2=Rblower1;
+Rblower=1-((1-Rb1)*(1-Rb2));
+Rsystem=Rblower*RP*Rf;
+mprintf("Rsystem = %.4f \n",Rsystem);
diff --git a/3513/CH9/EX9.8/ch9_8.sce b/3513/CH9/EX9.8/ch9_8.sce
new file mode 100644
index 000000000..0b6efe991
--- /dev/null
+++ b/3513/CH9/EX9.8/ch9_8.sce
@@ -0,0 +1,17 @@
+//determine the reliability of the total system for 150 hrs. of operation
+//page no 221
+clear
+clc;
+RS=0.9;
+RM=0.92;
+RC=0.85;
+RB=0.95;
+RP=0.99;
+Rf=0.95;
+Rb1=0.6686;
+Rb2=0.6686;
+Rblower1=RS*RM*RC*RB;
+Rblower2=Rblower1;
+Rblower=1-((1-Rb1)*(1-Rb2));
+Rsystem=Rblower*RP*Rf;
+mprintf("Rsystem = %.4f \n",Rsystem);