summaryrefslogtreecommitdiff
path: root/51/CH5/EX5.12/5_12.sce
blob: 3bbe3ee76a53dbb8c57805147f3a39d91fa10bf7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
clc;
clear;
A=0.1;//ft^2
v=50;//ft/s
p1=30;//psia
p2=24;//psia

d=1.94;//slugs/ft^3
//v1=v2=v and A1=A2=A
m=d*v*A;
Fay=-m*(v+v)-((p1-14.7)*A*144)-((p2-14.7)*A*144);
disp("lb",0," and the x component of anchoring force is","lb",Fay,"The y component of anchoring force is ")