From 7bc77cb1ed33745c720952c92b3b2747c5cbf2df Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Sat, 3 Feb 2018 11:01:52 +0530
Subject: Added new code

---
 3869/CH6/EX6.30/Ex6_30.sce | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 3869/CH6/EX6.30/Ex6_30.sce

(limited to '3869/CH6/EX6.30/Ex6_30.sce')

diff --git a/3869/CH6/EX6.30/Ex6_30.sce b/3869/CH6/EX6.30/Ex6_30.sce
new file mode 100644
index 000000000..e02954d66
--- /dev/null
+++ b/3869/CH6/EX6.30/Ex6_30.sce
@@ -0,0 +1,26 @@
+clear
+//
+//
+//
+
+//Variable declaration
+h=1
+k=1
+l=1              //miller indices
+lamda=0.152            //wavelength(nm)
+D=0.2552               //diameter(nm)
+theta1=21*%pi/180       //angle(radian)
+theta2=(21+(23/60))*%pi/180       //angle(radian)
+
+//Calculation
+a=D*sqrt(2)            //lattice parameter for regular crystal(nm)
+d111_1=lamda/(2*sin(theta1))
+alpha1=d111_1*sqrt(h**2+k**2+l**2)    //lattice parameter for sample A(nm)
+d111_2=lamda/(2*sin(theta2))
+alpha2=d111_2*sqrt(h**2+k**2+l**2)    //lattice parameter for sample B(nm)
+
+//Result
+printf("\n lattice parameter for regular crystal is %0.4f  nm",a)
+printf("\n lattice parameter for sample A is %0.4f  nm",alpha1)
+printf("\n lattice parameter for sample B is %0.3f  nm",alpha2)
+printf("\n lattice parameter of sample A is 1.75 percent greater than that of pure copper")
-- 
cgit