1 files changed, 24 insertions, 0 deletions
diff --git a/51/CH1/EX3/1_3.sce b/51/CH1/EX3/1_3.sce
new file mode 100755
index 000000000..2436850b5
--- /dev/null
+++ b/51/CH1/EX3/1_3.sce
@@ -0,0 +1,24 @@
+clc;
+clear;
+exec ("C:\Program Files\scilab-5.3.0\bin\TCP\1.3data.sci");
+//the air density d=P/(RT)
+//1ft^2=144 inches^2
+d=((p+atmp)*144)/((1716)*(T+460));
+disp(d)
+//slugs/ft^3
+//weight of air
+W=d*32.2*V;
+//1lb=1 slug.ft/sq sec
+disp("lb",W,"W=")
+//taking various values of p a graph is plotted between W and p
+x= -20:60;
+for p= -20: 60
+    i=p+21;
+    y(1,i)=((p+atmp)*144/((1716)*(T+460)))*32.2*V;
+    
+end
+plot(x,y)
+xtitle('W vs p','p.psi','W,lb')
+
+ 
+