blob: 4b26f0054aa74e8e4d6a55e29723645c819956ca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
// Example 6.13
// Calculation of the geometric mean of the facet reflectivity R
// Page no 296
clc;
clear;
close;
//Given data
Gm=20;
G1=5;
// The geometric mean of the facet reflectivity R
Gmax=10^(Gm/10); // Peak Gain
Gs=10^(G1/10); // Single pass gain
R=(sqrt(Gs)-10)/(sqrt(Gs)-Gs*10);
//Displaying results in the command window
printf("\n The geometric mean of the facet reflectivity R = %0.3f ",R);
|
