summaryrefslogtreecommitdiff
path: root/3788/CH2/EX2.2.1/Ex2_2_1.sce
blob: 2629612f829455b58460f5e7cac77520e2f598e7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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)