summaryrefslogtreecommitdiff
path: root/3651/CH2/EX2.3/Ex2_3.sce
blob: 0a261adbd6157d1f183063fe5ca48204e8490934 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
h1=1
k1=0
l1=0
h2=1
k2=1
l2=0
h3=1
k3=1
l3=1
a=1

//Calculations
d1=a/(sqrt(h1**2+k1**2+l1**2))
d2=a/(sqrt(h2**2+k2**2+l2**2))
d3=a/(sqrt(h3**2+k3**2+l3**2))

//Result
printf('d1 =%0.2f\n",d1 )
printf('d2 =%0.2f\n",(d2))
printf('d3 =%0.2f\n",(d3))
printf('d1:d2:d3 =%0.2f:%0.2f:%0.2f",d1,(d2),d3)