summaryrefslogtreecommitdiff
path: root/3739/CH5/EX5.10/EX5_10.sce
blob: 3da1ac774ca0b6bd2499272926fce96d1189e165 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//Chapter 5, Example 5.10, page 205
clc
//Initialisation
d=3000                                    //distance in Km
re=6370                                   //radius of earth in Km
phi=72                                    //angle in degree
N=5*10**11                                //electron density
pi=3.14

//Calculation
teta=3000*(2*6370)**-1                    //in radian
teta1=teta*180/pi                    //degree
dt=90-teta1-phi                           //Elevation angle
a=re/(sin(phi*pi/180))
b=sin((teta1+phi)*pi/180)
h=(a*b)-re                                 //Height in Km
fc=9*sqrt(N)                          //frequency in MHz
MUF=fc*(cos(phi*pi/180))**-1      //Maximum working frequency

//Results
printf("(1) Elevation angle = %.1f degree",dt)
printf("\n(2) Height h = %.1f km",h)
printf("\n(3) MUF = %.1f MHz",(MUF*10**-6))