summaryrefslogtreecommitdiff
path: root/51
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:38:01 +0530
committerprashantsinalkar2017-10-10 12:38:01 +0530
commitf35ea80659b6a49d1bb2ce1d7d002583f3f40947 (patch)
treeeb72842d800ac1233e9d890e020eac5fd41b0b1b /51
parent7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (diff)
downloadScilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.tar.gz
Scilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.tar.bz2
Scilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.zip
updated the code
Diffstat (limited to '51')
-rwxr-xr-x51/CH11/EX11.2/11_2.sce23
-rwxr-xr-x51/CH9/EX9.16/9_16.sce28
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