summaryrefslogtreecommitdiff
path: root/3513/CH9/EX9.6/Ex9_6.sce
blob: 49f6109ba7a5f6dc29324e9ff40a23a900c51a7b (plain)
1
2
3
4
5
6
7
8
9
10
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);