2414/CH20/EX20.1/Ex20_1.sce


1
2
3
4
5
6
7
8
9

clc;
close();
clear();
//page no 616
//prob no. 20.1
lembda=1300*10^-9;   //wavwlength in m
c=3*10^8;            //speed of light in m/s
f=c/lembda           //in Hz
mprintf('frequency of laser is ,f=%.0f  THz',f*10^-12);