blob: 7a5116df21d1f1f35763bb0b18dfec07e2012cd0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
//Chapter 2, Example 2.10, page 50
clc
//Initialisation
ri1=1.00025 //refractive index
ri2=1.00023 //refractive index
h1=1 //height in Km
h2=1.5 //height in Km
n=1.00026 //variation
//Calculation
deln=ri1-ri2
delh=h2-h1
d=deln/delh
R=n/d //radius of curvature
//Result
printf("Radiowave curvature radius, R = %.d Km",R)
|
