summaryrefslogtreecommitdiff
path: root/3753/CH8/EX8.2/Ex8_2.sce
diff options
context:
space:
mode:
Diffstat (limited to '3753/CH8/EX8.2/Ex8_2.sce')
-rw-r--r--3753/CH8/EX8.2/Ex8_2.sce16
1 files changed, 16 insertions, 0 deletions
diff --git a/3753/CH8/EX8.2/Ex8_2.sce b/3753/CH8/EX8.2/Ex8_2.sce
new file mode 100644
index 000000000..6aa3e0c60
--- /dev/null
+++ b/3753/CH8/EX8.2/Ex8_2.sce
@@ -0,0 +1,16 @@
+//Example number 8.2, Page number 8.17
+
+clc;clear;close
+
+// Variable declaration
+F_500=1*10**-10 //unitless
+k=poly([0],'k')
+T1=500+273 // in K
+T2=1000+273 // in K
+
+
+// Calculations
+lnx=log(F_500)*T1/T2; // vacancies
+x=exp(lnx) //Fraction of vacancies
+
+printf("Fraction of vacancies at 1000 degrees C = %.1e",x)