summaryrefslogtreecommitdiff
path: root/629/CH12/EX12.4/example12_4.sce
blob: 3cf8712ef61bbd5acae861a3049d28e777589c05 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clear
clc
//Example 12.4 DRAG FORCE ON A SPHERE
k=1.4;
p=101; //pressure[kPa]
M=0.7; //Mach number
q=k*p*M^2/2 //kinetic pressure[kPa]
CD=0.95;
D=0.01; //[m]
A=%pi*D^2/4 //area[m^2]
//Drag force
FD=CD*q*A*10^3 //[N]
printf("\n The drag force on the sphere = %.2f N.\n",FD)