experiment_9 - end x = x/1000; plot(x,alphaUV,'r');...

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

View Full Document Right Arrow Icon
%calculation of ultra violet absorption loss of fiber. clc; clear all; E0 = -1.933; x = [700:1:1700]; %wavelength alphaUV = exp(1.24/(.7*E0)) %Ultra violet loss for i = x(1,2):x(1,1001) i = i/1000; alphaUV = [alphaUV,exp(1.24/(i*E0))]; i = i*1000;
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

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

This note was uploaded on 03/01/2010 for the course ELECTRONIC 12345 taught by Professor Xyz during the Summer '10 term at Punjab Engineering College.

Ask a homework question - tutors are online