diff options
Diffstat (limited to '3788/CH2/EX2.2.1/Ex2_2_1.sce')
| -rw-r--r-- | 3788/CH2/EX2.2.1/Ex2_2_1.sce | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/3788/CH2/EX2.2.1/Ex2_2_1.sce b/3788/CH2/EX2.2.1/Ex2_2_1.sce new file mode 100644 index 000000000..2629612f8 --- /dev/null +++ b/3788/CH2/EX2.2.1/Ex2_2_1.sce @@ -0,0 +1,20 @@ +//Example 2.2.1
+//Geostationary Satellite Look Angles
+
+//Variable Declaration
+Le=52.0
+le=0
+longs=66.0
+
+//Calculation
+y=acosd(cosd(Le)*cosd(longs-le))
+printf("Central Angle is %f degrees\n",y)
+
+El=atand((6.6107345-cosd(y))/sind(y))-y
+printf("Elevation Angle is %f degrees\n",(El))
+
+alpha=atand(tand(longs-le)/sind(Le))
+printf("Intermediate Angle is %f degrees\n",alpha)
+
+Az=180-alpha
+printf("Azimuth Angle is %f degrees (clockwise from true north )",Az)
|