summaryrefslogtreecommitdiff
path: root/3513/CH9/EX9.8/ch9_8.sce
blob: 0b6efe99141fb37864adc1503dafd2eee2ce82fd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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);