summaryrefslogtreecommitdiff
path: root/1268/CH1/EX1.3/1_3.sce
blob: 25d67d63917cd48e992a8c76269cd6d9bc20f694 (plain)
1
2
3
4
5
6
7
8
9
10
11
clc;
disp("Example 1.3")
density= 1200 // in kg/m^3
r= 0.15 // bowl radius in m
Ri=0.12 // interface position from the bowl axis in m
n= 3500 // rotational speed in rpm
omega= %pi*2*n/60
p= density*omega*omega*(r^2-Ri^2)/2
disp(" Gauge pressure is ")
disp(p)
disp("  N/m^2")