summaryrefslogtreecommitdiff
path: root/2288/CH1/EX1.21.7/ex1_21_7.sce
blob: d4c97f02b2f1205a4f764f219a97b72ae4b6b186 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
// Exa 1.21.7
clc;
clear;
close;
// Given data
lembda = 1.54;// in Å
lembda= lembda*10^-8;// in cm
At = 63.54;// atomic weight
density = 9.024;// in gm/cc
n = 1;
N_A = 6.023*10^23;
m = At/N_A;// mass
a =(density*m)^(1/3);// in cm
h = 1;
k = 0;
l = 0;
d = a/(sqrt( ((h)^2) + ((k)^2) + ((l)^2) ));// in cm
n = 1;
//Formula 2*d*sin(theta) = n*lembda;
theta = asind( (lembda)/(2*d) );// in degree
disp(theta,"The glancing angle in degree is");