diff options
Diffstat (limited to '51')
-rwxr-xr-x | 51/CH11/EX11.2/11_2.sce | 23 | ||||
-rwxr-xr-x | 51/CH9/EX9.16/9_16.sce | 28 |
2 files changed, 26 insertions, 25 deletions
diff --git a/51/CH11/EX11.2/11_2.sce b/51/CH11/EX11.2/11_2.sce index bf0f47b03..a3e24ce42 100755 --- a/51/CH11/EX11.2/11_2.sce +++ b/51/CH11/EX11.2/11_2.sce @@ -1,11 +1,12 @@ -clc;
-clear;
-D=4;//in
-T1=540;//degree R
-p1=100;//psia
-T2=453;//degree R
-p2=18.4;//psia
-
-dratio=(p1/T1)*(T2/p2);
-sdif=(cv*(log(T2/T1)))+(R*(log(dratio)));//ft*lb/lbm*(degree R); change in entropy
-disp("ft*lb/lbm*(degree R)",sdif,"The change in entropy between (1) and (2)=")
+clc; +clear; +D=4;//in +T1=540;//degree R +p1=100;//psia +T2=453;//degree R +p2=18.4;//psia +cv = 133; +R =53.3; +dratio=(p1/T1)*(T2/p2); +sdif=(cv*(log(T2/T1)))+(R*(log(dratio)));//ft*lb/lbm*(degree R); change in entropy +disp("ft*lb/lbm*(degree R)",sdif,"The change in entropy between (1) and (2)=")
\ No newline at end of file diff --git a/51/CH9/EX9.16/9_16.sce b/51/CH9/EX9.16/9_16.sce index b2a654fdd..1caf54bd5 100755 --- a/51/CH9/EX9.16/9_16.sce +++ b/51/CH9/EX9.16/9_16.sce @@ -1,15 +1,15 @@ -clc;
-clear;
-W=2.45*(10^(-2));//N
-D=3.8*(10^(-2));//m
-U=12;//m/s
-
-//W=L
-d=1.23;//kg/(m^3)
-W=0.5*d*(U^2)*(D^2)*%pi*CL/4;
-CL=2*W/(d*(U^2)*%pi*(D^2)/4);
-//using this value of CL, omega*D/(2*U)=x is found as
-x=0.9;
-omega=2*U*x/D;//rad/sec
-angvel=omega*60/(2*%pi);//rpm; where angvel is angular velocity
+clc; +clear; +W=2.45*(10^(-2));//N +D=3.8*(10^(-2));//m +U=12;//m/s + +//W=L +d=1.23;//kg/(m^3) +CL=2*W/(d*(U^2)*%pi*(D^2)/4); +W=0.5*d*(U^2)*(D^2)*%pi*CL/4; +//using this value of CL, omega*D/(2*U)=x is found as +x=0.9; +omega=2*U*x/D;//rad/sec +angvel=omega*60/(2*%pi);//rpm; where angvel is angular velocity disp("rpm",angvel,"The angular velocity=")
\ No newline at end of file |