1 files changed, 16 insertions, 0 deletions
diff --git a/1172/CH8/EX8.4.1/Example8_4a.sce b/1172/CH8/EX8.4.1/Example8_4a.sce
new file mode 100755
index 000000000..20127990d
--- /dev/null
+++ b/1172/CH8/EX8.4.1/Example8_4a.sce
@@ -0,0 +1,16 @@
+clc
+//Given that
+t1 = 1 // time period of satellite s1 in hours
+t2 = 8 // time period of satellite s2 in hour
+r1 = 1.2e4 // radius of orbit of satellite s1 in km
+
+// sample problem 4a page No. 300
+printf("\n\n\n # Problem 4a # \n")
+
+printf("Standard formula r2/r1 = (t2/t1)^(2/3)")
+r2 = r1 * (t2/t1)^(2/3) // calculation of radius of orbit of satellite s2 in km
+v1 = 2 * %pi * r1 / t1  // calculation of speed of satellite s1 in km/h
+v2 = 2 * %pi * r2 / t2  // calculation of speed of satellite s2 in km/h
+del_v = v2 - v1 // calculation of relative speed of satellites in km/h
+
+printf (" \n Relative speed of satellite s2 wrt satellite s1 is %e km/h.", del_v)