summaryrefslogtreecommitdiff
path: root/1172/CH1/EX1.20/Example1_20.sce
blob: b30f20b9a72e25169a1f53c95bbccf16f188c8d2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clc
//Given
grating_element=6000// lines per centimeter
theta=30// angle of second order spectral line in degree 
n=2// order

//Sample Problem 20 Page No. 54
printf("\n # Problem 20 # \n")
printf(" \n Standard formula used \n   n*lambda= (a+b)*sin(theta) \n")

lambda=sin(theta*%pi/180)/(grating_element*n)
printf(" Wavelength is %e cm.\n",lambda)