summaryrefslogtreecommitdiff
path: root/1703/CH7/EX7.1/7_1.sce
blob: 23bf94144515887426680e0915416c5c00a956ca (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc
//initialisation of variables
g= 32.2 //ft/sec^2
d= 6 //ft
di= 2 //in
h= 9 //ft
Cd= 0.6
//CALCULATIONS
function [y]=fun(H)
    y= H^-0.5*(d/2)^2*%pi/(Cd*%pi*sqrt(2*g)/144)
endfunction
vec2=intg(0,h,fun)
T= vec2
//RESULTS
printf ('Time to emptify = %.f sec',T)