IR_loss - i=i*1000; end x = x/1000; plot(x,alphaIR,'r');...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
%calculation of infrared absorption loss of fiber. clc; clear all; x = [700:1:1700]; %wavelength alphaIR = 7.81*(10^11)*exp(-48.48/.7);% infrared loss for i=x(1,2):x(1,1001) i=i/1000; alphaIR = [alphaIR,7.81*(10^11)*exp(-48.48/i)];
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: i=i*1000; end x = x/1000; plot(x,alphaIR,'r'); title('Infrared absoption loss with wavelength','FontWeight','bold'); xlabel('wavelength(micrometer)------>'); ylabel('Infrared absorption loss(dB/km)---->'); grid;...
View Full Document

Ask a homework question - tutors are online