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