summaryrefslogtreecommitdiff
path: root/623/CH27/EX5.5.19/U5_C5_19.sce
blob: 4aa796298b082e4e6523506ca6c0556c5c8eaa1d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//variable initialization
vexc=4358*10^-10;                                                               //wavelength of exciting line (m)
vsto=4458*10^-10;                                                               //wavelength of Stokes line (m)

//calculation of wavelength of Anti-stokes line
vbar_exc=1/vexc;                                                                //wave number of exciting line (m-1)
vbar_sto=1/vsto;                                                                //wave number of Stokes line (m-1)
delta_vbar=vbar_exc-vbar_sto;                                                   //Raman shift (m-1)
vbar_antistoke=vbar_exc+delta_vbar;                                             //Wave number of Anti-Stokes line (m-1)
lembda_antistoke=(1/vbar_antistoke)*10^10;                                      //Wavelength of Anti-Stokes line (Å)

printf("\nwavelength of Anti-stokes line = %.1f Å",lembda_antistoke);