9 files changed, 62 insertions, 0 deletions
diff --git a/548/CH7/EX7.1/7_01.sce b/548/CH7/EX7.1/7_01.sce
new file mode 100755
index 000000000..373dc37e3
--- /dev/null
+++ b/548/CH7/EX7.1/7_01.sce
@@ -0,0 +1,7 @@
+funcprot(0);
+function[y] = f(x,y)
+    z = poly(0,'z');
+    y = x^2+y^2+ z^2;
+endfunction
+ans= derivat(f(1,1)); // finding derivative with respect to z at some point x,y;
+disp(ans,"derivative of x^2+y^2+ z^2 with respect to z:");
diff --git a/548/CH7/EX7.2/7_02.sce b/548/CH7/EX7.2/7_02.sce
new file mode 100755
index 000000000..a0ed36ed8
--- /dev/null
+++ b/548/CH7/EX7.2/7_02.sce
@@ -0,0 +1,6 @@
+pathname=get_absolute_file_path('7_02.sce')
+filename=pathname+filesep()+'7_02data.sci'
+exec(filename)
+Cmcg=Cmac+Clwb*(dh);disp(Cmcg,"Cmcg","Cmcg=Cmac+Clwb(dh)","moment coefficient about center of gravity Cmcg")
+printf("\Answer:\n")
+printf("\n\moment coefficient about center of gravity : %f \n\n",Cmcg)
diff --git a/548/CH7/EX7.3/7_03.sce b/548/CH7/EX7.3/7_03.sce
new file mode 100755
index 000000000..042da971e
--- /dev/null
+++ b/548/CH7/EX7.3/7_03.sce
@@ -0,0 +1,13 @@
+pathname=get_absolute_file_path('7_03.sce')
+filename=pathname+filesep()+'7_03data.sci'
+exec(filename)
+A=[1,Awb*ab2;1,Awb*ab3];
+B=[1,1];//coefficient of moment coefficient about aerodynamic center
+C=[Awb*ab2,Awb*ab3];//coefficient of h-hac
+D=[-0.01,0.05];
+dh=det([B;D])/det(A);//difference between location of aerodynamic center and center of gravity
+hac=h-dh;
+Cmac=det([D;C])/det(A)//moment coefficient about aerodynamic center
+printf("\Answer:\n")
+printf("\n\Location of aerodynamic center: %f\n\n",hac)
+printf("\n\moment coefficient about aerodynamic center of wing-body : %f\n\n",Cmac)
+\ No newline at end of file
diff --git a/548/CH7/EX7.4/7_04.sce b/548/CH7/EX7.4/7_04.sce
new file mode 100755
index 000000000..ee3c3b0e2
--- /dev/null
+++ b/548/CH7/EX7.4/7_04.sce
@@ -0,0 +1,7 @@
+pathname=get_absolute_file_path('7_04.sce')
+filename=pathname+filesep()+'7_04data.sci'
+exec(filename)
+Cmcg=Cmac+a*a1*(dh-Vh*at*(1-de)/a)+Vh*at*(It+eo)
+disp(Cmcg,"Cmcg=","Cmcg=Cmac+a*a1*(dh-Vh*at(1-de)/a)+Vh*at*(It+eo)","moment coefficient about COG Cmcg:")
+printf("\Answer:\n")
+printf("\n\moment coefficient about center of gravity : %f \n\n",Cmcg)
diff --git a/548/CH7/EX7.5/7_05.sce b/548/CH7/EX7.5/7_05.sce
new file mode 100755
index 000000000..78f540f5f
--- /dev/null
+++ b/548/CH7/EX7.5/7_05.sce
@@ -0,0 +1,5 @@
+pathname=get_absolute_file_path('7_05.sce')
+filename=pathname+filesep()+'7_05data.sci'
+exec(filename)
+disp("->as slope (DCmg) of moment coefficient curve is negative the airplane model is statically stable.")
+disp("->as equilibrium angle of attack (Ae) falls in a reasonable range, the plane is longitudinally stable.")
+\ No newline at end of file
diff --git a/548/CH7/EX7.6/7_06.sce b/548/CH7/EX7.6/7_06.sce
new file mode 100755
index 000000000..93a6ea3da
--- /dev/null
+++ b/548/CH7/EX7.6/7_06.sce
@@ -0,0 +1,7 @@
+pathname=get_absolute_file_path('7_06.sce')
+filename=pathname+filesep()+'7_06data.sci'
+exec(filename)
+Hn=Hac+Vh*at*(1-de)/a;
+disp(Hn,"Hn=","Hn=Hac+Vh*at*(1-de)/a","neutral point location Hn:")
+printf("\Answer:\n")
+printf("\n\Neutral point location : %f \n\n",Hn)
diff --git a/548/CH7/EX7.7/7_07.sce b/548/CH7/EX7.7/7_07.sce
new file mode 100755
index 000000000..4cd3bc3e6
--- /dev/null
+++ b/548/CH7/EX7.7/7_07.sce
@@ -0,0 +1,6 @@
+pathname=get_absolute_file_path('7_07.sce')
+filename=pathname+filesep()+'7_07data.sci'
+exec(filename)
+Sm=Hn-h;disp(Sm,"Sm=","Sm=Hn-h","static margin Sm:")
+printf("\Answer:\n")
+printf("\n\Static Margin : %f \n\n",Sm)
diff --git a/548/CH7/EX7.8/7_08.sce b/548/CH7/EX7.8/7_08.sce
new file mode 100755
index 000000000..4737b94ec
--- /dev/null
+++ b/548/CH7/EX7.8/7_08.sce
@@ -0,0 +1,7 @@
+pathname=get_absolute_file_path('7_08.sce')
+filename=pathname+filesep()+'7_08data.sci'
+exec(filename)
+Dtrm=(Cmo+DCmcg*a1)/(Vh*DClt);
+disp(Dtrm,"Dtrm=","Dtrm=(Cmo+DCmg*a1)/(Vh*DClt)","elevator deflection angle Dtrm::")
+printf("\Answer:\n")
+printf("\n\To trim the airplane at an angle of attack of 6.5 degree the elevator must be deflected upward(negative) by : %f degree\n\n",Dtrm)
diff --git a/548/CH7/EX7.9/7_09.sce b/548/CH7/EX7.9/7_09.sce
new file mode 100755
index 000000000..b84663436
--- /dev/null
+++ b/548/CH7/EX7.9/7_09.sce
@@ -0,0 +1,4 @@
+pathname=get_absolute_file_path('7_09.sce')
+filename=pathname+filesep()+'7_09data.sci'
+exec(filename)
+disp("for stick fixed condition neutral point is at 0.516(from example 7.6) but for stick free condition it is approx 0.448,hence moving forward and decreasing the stability")
+\ No newline at end of file