summaryrefslogtreecommitdiff
path: root/2309/CH4/EX4.2/Ex4_2.sce
blob: 9b8a1f9811b7f2b2b775c76059936229c22f003a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
// Chapter 4 Example 2
//==============================================================================
clc;
clear;

// input data
theta   = 135;               // angle in degrees
h       = 6.625*10^-34      // plancks constant
mo      = 9.1*10^-31       // mass in Kg
c       = 3*10^8;          // vel. of light in m/s

// Calculatioms
// from Compton theory ,Compton shift is given by
// lamda' - lamda = (h/(mo*c))*(1-cosθ)
theta_r = theta*%pi/180;     // degree to radian conversion
c_lamda = ( (h/(mo*c))*(1-cos(theta_r))) // Change in wavelength in m

// Output
mprintf('Change in Wavelength  = %3.5f Å',c_lamda*10^10);
//==============================================================================