summaryrefslogtreecommitdiff
path: root/3513/CH9/EX9.3/Ex9_3.sce
blob: 91f8cb1509eb10065503079f5741f96056e53aa9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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);