summaryrefslogtreecommitdiff
path: root/3547/CH6/EX6.1/EX6_1.sce
blob: 125659261d507c8ccf46d2fb6289632d1f7f4782 (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
26
27
28
29
// Example 6.1
// Calculation of the gain
// Page no 249

clc;
clear;
close;

//Given data

n=1.5;                    // Refractive ondex of air
lambda=1550*10^-9;        // Wavelength 
c=3*10^8;                 // Velocity of light
p=5.73*10^-17;            // Power spectral density
h=6.63*10^-34             // Planck constant


// Gain
f=c/lambda;

G=(p/(2*n*h*f))+1;

//Displaying results in the command window            
printf("\n Gain G = %0.0f  ",G);