blob: fc48e35f74949343d784b248d081846f462b0910 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
//Chapter 2 : Diffraction
clear;
//Variable declaration
lamda=5000*10**-8 //wavelength
N=4000 //number of lines for diffraction grating
n=3 //third order
//Calculations
theta=((asin(n*lamda*N))*180/%pi)
//Result
mprintf("Dispersive power in third order spectum= %.2f degrees",theta)
|
