diff options
Diffstat (limited to '3557/CH15/EX15.12/Ex15_12.sce')
| -rw-r--r-- | 3557/CH15/EX15.12/Ex15_12.sce | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/3557/CH15/EX15.12/Ex15_12.sce b/3557/CH15/EX15.12/Ex15_12.sce new file mode 100644 index 000000000..9e03b57ac --- /dev/null +++ b/3557/CH15/EX15.12/Ex15_12.sce @@ -0,0 +1,8 @@ +//Example 15.12//
+
+//Using result of sample problem 15.11a and the unit cell geometry of figure 15.22
+Qd=10.56*10^-30;//C m// The tetragonal BaTiO3 unit cell
+V1=0.403*10^-9;//m //length of the tetragonal unit cell
+V2=0.399*10^-9;//m //width of the tetragonal unit cell
+P=Qd/(V1*V2^2)
+mprintf("P = %f C/m^2",P)
|