summaryrefslogtreecommitdiff
path: root/401/CH5/EX5.8/Example5_8.sce
blob: 12fd97fe1f3dc163e9c7c4fca9f8b0856c5dce32 (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
//Example 5.8
//Program to determine the total loss incurred by the star coupler 
//and average insertion loss
  
clear;
clc ;
close ;

//Given data
Pi=1*10^(-3);      //Watts - INPUT POWER AT PORT 1 
Po=14*10^(-6);     //Watts - OUTPUT POWER AT OTHER PORTS
N=32;              //Ports

//Calculation of Splitting Loss
Splitting_loss=10*log10(N);

//Calculation of Excess Loss
Excess_loss=10*log10(Pi/(Po*N));

//Calculation of Total loss
Total_loss=Splitting_loss+Excess_loss;

//Calculation of Average Insertion Loss 
Insertion_loss=10*log10(Pi/Po);

//Displaying the Results in Command Window
printf("\n\n\t Total loss is %0.2f dB .",Total_loss);
printf("\n\n\t Average Insertion Loss is %0.2f dB .",Insertion_loss);