summaryrefslogtreecommitdiff
path: root/1460/CH4/EX4.2/4_2.sce
blob: d5b2e8f769cfa7fd39502a52804cfdc2854b4dee (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc
//Initialization of variables
d=500 //ft
Pi=14 //lb/in^2
Pd=15 //lb/in^2
Sv=0.016 //ft^3 /lb
//calculations
Wi=144*Pi*Sv
Wf=144*Pd*Sv
PEi=0
PEf=d
Winput=Wf-Wi+PEf-PEi
//results
printf("Input work = %.1f ft-lb/lbm",Winput)