summaryrefslogtreecommitdiff
path: root/569/CH4/EX4.8/4_8.sci
blob: 69b35ed2120388618df3c4986354e049afd621a6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Calculate time constant
clc;
S=3.5;
Ac=(%pi/4)*(0.25)^2;
alpha=0.18*10^-3;
Vb=S*Ac/alpha;
disp(Vb,'volume of bulb(mm2)')

Rb=[(Vb/%pi)*(3/4)]^(1/3);
Ab=4*%pi*Rb^2;
D=13.56*10^3;
s=139;
H=12;
tc=(D*s*Vb*10^-9)/(H*Ab*10^-6);
disp(tc,'time constant (s)')