home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e032 / 4.ddi / FILES / NOTEBOOK.PAK / CRYSTALS.MA < prev    next >
Encoding:
Mathematica notebook  |  1992-06-18  |  56.1 KB  |  2,859 lines
  1. (*^
  2.  
  3. ::[
  4.     fontset = title, "Arial", 22, L3, center, nohscroll, bold;
  5.     fontset = subtitle, "Arial", 18, L2, center, nohscroll, bold;
  6.     fontset = subsubtitle, "Arial", 12, L2, center, nohscroll, bold;
  7.     fontset = section, "Arial", 15, L0, nohscroll, bold, grayBox;
  8.     fontset = subsection, "Arial", 12, L0, nohscroll, bold, blackBox;
  9.     fontset = subsubsection, "Arial", 10, L2, nohscroll, bold, whiteBox;
  10.     fontset = text, "Arial", 12, L2, nohscroll;
  11.     fontset = smalltext, "Arial", 10, L2, nohscroll;
  12.     fontset = input, "Courier New", 14, L2, nowordwrap, nohscroll, bold;
  13.     fontset = output, "Courier New", 12, L2, nowordwrap, nohscroll;
  14.     fontset = message, "Courier New", 12, L2, nowordwrap, nohscroll;
  15.     fontset = print, "Courier New", 12, L2, nowordwrap, nohscroll;
  16.     fontset = info, "Courier New", 12, L2, nowordwrap, nohscroll;
  17.     fontset = postscript, "Courier New", 12, L2, nowordwrap, nohscroll;
  18.     fontset = name, "Arial", 10, L2, nohscroll, italic;
  19.     fontset = header, "Arial", 10, L2, nohscroll;
  20.     fontset = footer, "Arial", 12, L2, center, nohscroll;
  21.     fontset = help, "Arial", 10, L2, nohscroll;
  22.     fontset = clipboard, "Arial", 12, L2, nohscroll;
  23.     fontset = completions, "Arial", 12, L2, nowordwrap, nohscroll;
  24.     fontset = network, "Courier New", 10, L2, nowordwrap, nohscroll;
  25.     fontset = graphlabel, "Courier New", 12, L2, nowordwrap, nohscroll;
  26.     fontset = special1, "Arial", 12, L2, nowordwrap, nohscroll;
  27.     fontset = special2, "Arial", 12, L2, center, nowordwrap, nohscroll;
  28.     fontset = special3, "Arial", 12, L2, right, nowordwrap, nohscroll;
  29.     fontset = special4, "Arial", 12, L2, nowordwrap, nohscroll;
  30.     fontset = special5, "Arial", 12, L2, nowordwrap, nohscroll;
  31.     fontset = Left Header, "Arial", 12, L0, nowordwrap, nohscroll;
  32.     fontset = Left Footer, "Arial", 12, L0, nowordwrap, nohscroll;]
  33. :[font = title; inactive; startGroup; ]
  34. Crystal Structures
  35. :[font = text; inactive; ]
  36.      This Notebook gives three-dimensional pictures of the structures of some interesting kinds of crystals.
  37. :[font = section; inactive; startGroup; ]
  38. Examples
  39. :[font = subsection; inactive; startGroup; ]
  40. Body Centered Cubic
  41. :[font = text; inactive; ]
  42.      Here are the coordinates of the elements of the unit cell in the BCC lattice:
  43. :[font = input; startGroup; ]
  44. BCC = Join[CubeCoords, {{1/2, 1/2, 1/2}}]
  45. :[font = output; inactive; formatted; output; endGroup; ]
  46. {{0, 0, 0}, {0, 0, 1}, {0, 1, 0}, {0, 1, 1}, {1, 0, 0}, 
  47.    {1, 0, 1}, {1, 1, 0}, {1, 1, 1}, {1/2, 1/2, 1/2}}
  48.  
  49.  
  50.  
  51.  
  52.  
  53. ;[o]
  54. {{0, 0, 0}, {0, 0, 1}, {0, 1, 0}, {0, 1, 1}, {1, 0, 0}, 
  55.  
  56.                                      1  1  1
  57.    {1, 0, 1}, {1, 1, 0}, {1, 1, 1}, {-, -, -}}
  58.                                      2  2  2
  59.  
  60. :[font = text; inactive; ]
  61.      This shows a picture of the BCC lattice.  Tungsten is an example of a metal that has a BCC crystalline structure.
  62. :[font = input; startGroup; ]
  63. ShowCrystal[BCC, ViewPoint->{2, 4, 2}]
  64. :[font = postscript; inactive; output; preserveAspect; BITMAP; PostScript; pictureLeft = 76; pictureTop = 0; pictureWidth = 282; pictureHeight = 282; ]
  65. %!
  66. %%Creator: Mathematica
  67. %%AspectRatio: 1 
  68. MathPictureStart
  69. % Scaling calculation
  70. 0.02381 0.95238 0.02381 0.95238 [
  71. [ 0 0 0 0 ]
  72. [ 1 1 0 0 ]
  73. ] MathScale
  74. % Start of Graphics
  75. 1 setlinecap
  76. 1 setlinejoin
  77. newpath
  78. 0 0 moveto
  79. 1 0 lineto
  80. 1 1 lineto
  81. 0 1 lineto
  82. closepath
  83. clip
  84. newpath
  85. %%Object: Graphics3D
  86. gsave
  87. 0.002 setlinewidth
  88. 0.60373 0.41531 moveto
  89. 0.86305 0.20357 lineto
  90. stroke
  91. 0.60373 0.41531 moveto
  92. 0.61171 0.86483 lineto
  93. stroke
  94. 0.89605 0.71558 moveto
  95. 0.61171 0.86483 lineto
  96. stroke
  97. 0.89605 0.71558 moveto
  98. 0.86305 0.20357 lineto
  99. stroke
  100. 0.16488 0.31758 moveto
  101. 0.36798 0.06883 lineto
  102. stroke
  103. 0.16488 0.31758 moveto
  104. 0.13695 0.79643 lineto
  105. stroke
  106. 0.35478 0.61857 moveto
  107. 0.13695 0.79643 lineto
  108. stroke
  109. 0.35478 0.61857 moveto
  110. 0.36798 0.06883 lineto
  111. stroke
  112. 0.60373 0.41531 moveto
  113. 0.61171 0.86483 lineto
  114. stroke
  115. 0.60373 0.41531 moveto
  116. 0.16488 0.31758 lineto
  117. stroke
  118. 0.13695 0.79643 moveto
  119. 0.16488 0.31758 lineto
  120. stroke
  121. 0.13695 0.79643 moveto
  122. 0.61171 0.86483 lineto
  123. stroke
  124. 0.86305 0.20357 moveto
  125. 0.89605 0.71558 lineto
  126. stroke
  127. 0.86305 0.20357 moveto
  128. 0.36798 0.06883 lineto
  129. stroke
  130. 0.35478 0.61857 moveto
  131. 0.36798 0.06883 lineto
  132. stroke
  133. 0.35478 0.61857 moveto
  134. 0.89605 0.71558 lineto
  135. stroke
  136. 0.60373 0.41531 moveto
  137. 0.16488 0.31758 lineto
  138. stroke
  139. 0.60373 0.41531 moveto
  140. 0.86305 0.20357 lineto
  141. stroke
  142. 0.36798 0.06883 moveto
  143. 0.86305 0.20357 lineto
  144. stroke
  145. 0.36798 0.06883 moveto
  146. 0.16488 0.31758 lineto
  147. stroke
  148. 0.61171 0.86483 moveto
  149. 0.13695 0.79643 lineto
  150. stroke
  151. 0.61171 0.86483 moveto
  152. 0.89605 0.71558 lineto
  153. stroke
  154. 0.35478 0.61857 moveto
  155. 0.89605 0.71558 lineto
  156. stroke
  157. 0.35478 0.61857 moveto
  158. 0.13695 0.79643 lineto
  159. stroke
  160. grestore
  161. 1 0 0 setrgbcolor
  162. 0.05 setlinewidth
  163. 0.59946 0.41879 Mdot
  164. 1 0 0 setrgbcolor
  165. 0.17966 0.32563 Mdot
  166. 1 0 0 setrgbcolor
  167. 0.60678 0.84874 Mdot
  168. 1 0 0 setrgbcolor
  169. 0.5 0.5 Mdot
  170. 1 0 0 setrgbcolor
  171. 0.15424 0.78231 Mdot
  172. 1 0 0 setrgbcolor
  173. 0.84576 0.21769 Mdot
  174. 1 0 0 setrgbcolor
  175. 0.37481 0.09114 Mdot
  176. 1 0 0 setrgbcolor
  177. 0.87557 0.70443 Mdot
  178. 1 0 0 setrgbcolor
  179. 0.363 0.61186 Mdot
  180. 0 setgray
  181. 0.002 setlinewidth
  182. 0.16488 0.31758 moveto
  183. 0.36798 0.06883 lineto
  184. stroke
  185. 0.16488 0.31758 moveto
  186. 0.13695 0.79643 lineto
  187. stroke
  188. 0.35478 0.61857 moveto
  189. 0.13695 0.79643 lineto
  190. stroke
  191. 0.35478 0.61857 moveto
  192. 0.36798 0.06883 lineto
  193. stroke
  194. 0.86305 0.20357 moveto
  195. 0.89605 0.71558 lineto
  196. stroke
  197. 0.86305 0.20357 moveto
  198. 0.36798 0.06883 lineto
  199. stroke
  200. 0.35478 0.61857 moveto
  201. 0.36798 0.06883 lineto
  202. stroke
  203. 0.35478 0.61857 moveto
  204. 0.89605 0.71558 lineto
  205. stroke
  206. 0.61171 0.86483 moveto
  207. 0.13695 0.79643 lineto
  208. stroke
  209. 0.61171 0.86483 moveto
  210. 0.89605 0.71558 lineto
  211. stroke
  212. 0.35478 0.61857 moveto
  213. 0.89605 0.71558 lineto
  214. stroke
  215. 0.35478 0.61857 moveto
  216. 0.13695 0.79643 lineto
  217. stroke
  218. % End of Graphics
  219. MathPictureEnd
  220. :[font = output; inactive; formatted; output; endGroup; endGroup; ]
  221. The Unformatted text for this cell was not generated.
  222. Use options in the Actions Settings dialog box to control
  223. when Unformatted text is generated.
  224.  
  225.  
  226.  
  227.  
  228.  
  229. ;[o]
  230. -Graphics3D-
  231.  
  232. :[font = subsection; inactive; startGroup; ]
  233. Face-Centered Cubic
  234. :[font = text; inactive; ]
  235.      Here is the unit cell for a face-centered cubic crystal.
  236. :[font = input; ]
  237. FCC = Union[Join[CubeCoords, 
  238.                  Permutations[{1/2, 1/2, 1}],
  239.                  Permutations[{1/2, 1/2, 0}]]];
  240. :[font = text; inactive; ]
  241.      Here is a picture of the unit cell for the FCC structure. Solid krypton is an example of a material whose crystals have an FCC structure.
  242. :[font = input; startGroup; ]
  243. ShowCrystal[FCC, ViewPoint->{2, 2.5, 2}]
  244. :[font = postscript; inactive; output; preserveAspect; BITMAP; PostScript; pictureLeft = 76; pictureTop = 0; pictureWidth = 282; pictureHeight = 282; ]
  245. %!
  246. %%Creator: Mathematica
  247. %%AspectRatio: 1 
  248. MathPictureStart
  249. % Scaling calculation
  250. 0.02381 0.95238 0.02381 0.95238 [
  251. [ 0 0 0 0 ]
  252. [ 1 1 0 0 ]
  253. ] MathScale
  254. % Start of Graphics
  255. 1 setlinecap
  256. 1 setlinejoin
  257. newpath
  258. 0 0 moveto
  259. 1 0 lineto
  260. 1 1 lineto
  261. 0 1 lineto
  262. closepath
  263. clip
  264. newpath
  265. %%Object: Graphics3D
  266. gsave
  267. 0.002 setlinewidth
  268. 0.53403 0.47746 moveto
  269. 0.85732 0.26336 lineto
  270. stroke
  271. 0.53403 0.47746 moveto
  272. 0.53842 0.89185 lineto
  273. stroke
  274. 0.91229 0.7245 moveto
  275. 0.53842 0.89185 lineto
  276. stroke
  277. 0.91229 0.7245 moveto
  278. 0.85732 0.26336 lineto
  279. stroke
  280. 0.15421 0.31171 moveto
  281. 0.45419 0.03279 lineto
  282. stroke
  283. 0.15421 0.31171 moveto
  284. 0.10298 0.76293 lineto
  285. stroke
  286. 0.44586 0.53585 moveto
  287. 0.10298 0.76293 lineto
  288. stroke
  289. 0.44586 0.53585 moveto
  290. 0.45419 0.03279 lineto
  291. stroke
  292. 0.53403 0.47746 moveto
  293. 0.53842 0.89185 lineto
  294. stroke
  295. 0.53403 0.47746 moveto
  296. 0.15421 0.31171 lineto
  297. stroke
  298. 0.10298 0.76293 moveto
  299. 0.15421 0.31171 lineto
  300. stroke
  301. 0.10298 0.76293 moveto
  302. 0.53842 0.89185 lineto
  303. stroke
  304. 0.85732 0.26336 moveto
  305. 0.91229 0.7245 lineto
  306. stroke
  307. 0.85732 0.26336 moveto
  308. 0.45419 0.03279 lineto
  309. stroke
  310. 0.44586 0.53585 moveto
  311. 0.45419 0.03279 lineto
  312. stroke
  313. 0.44586 0.53585 moveto
  314. 0.91229 0.7245 lineto
  315. stroke
  316. 0.53403 0.47746 moveto
  317. 0.15421 0.31171 lineto
  318. stroke
  319. 0.53403 0.47746 moveto
  320. 0.85732 0.26336 lineto
  321. stroke
  322. 0.45419 0.03279 moveto
  323. 0.85732 0.26336 lineto
  324. stroke
  325. 0.45419 0.03279 moveto
  326. 0.15421 0.31171 lineto
  327. stroke
  328. 0.53842 0.89185 moveto
  329. 0.10298 0.76293 lineto
  330. stroke
  331. 0.53842 0.89185 moveto
  332. 0.91229 0.7245 lineto
  333. stroke
  334. 0.44586 0.53585 moveto
  335. 0.91229 0.7245 lineto
  336. stroke
  337. 0.44586 0.53585 moveto
  338. 0.10298 0.76293 lineto
  339. stroke
  340. grestore
  341. 1 0 0 setrgbcolor
  342. 0.05 setlinewidth
  343. 0.5327 0.47834 Mdot
  344. 1 0 0 setrgbcolor
  345. 0.16941 0.31998 Mdot
  346. 1 0 0 setrgbcolor
  347. 0.35307 0.59731 Mdot
  348. 1 0 0 setrgbcolor
  349. 0.53673 0.87463 Mdot
  350. 1 0 0 setrgbcolor
  351. 0.5 0.2974 Mdot
  352. 1 0 0 setrgbcolor
  353. 0.68654 0.57906 Mdot
  354. 1 0 0 setrgbcolor
  355. 0.84111 0.27409 Mdot
  356. 1 0 0 setrgbcolor
  357. 0.12288 0.74975 Mdot
  358. 1 0 0 setrgbcolor
  359. 0.28674 0.40961 Mdot
  360. 1 0 0 setrgbcolor
  361. 0.5 0.73163 Mdot
  362. 1 0 0 setrgbcolor
  363. 0.45657 0.05707 Mdot
  364. 1 0 0 setrgbcolor
  365. 0.67372 0.38495 Mdot
  366. 1 0 0 setrgbcolor
  367. 0.89087 0.71284 Mdot
  368. 1 0 0 setrgbcolor
  369. 0.44915 0.53367 Mdot
  370. 0 setgray
  371. 0.002 setlinewidth
  372. 0.15421 0.31171 moveto
  373. 0.45419 0.03279 lineto
  374. stroke
  375. 0.15421 0.31171 moveto
  376. 0.10298 0.76293 lineto
  377. stroke
  378. 0.44586 0.53585 moveto
  379. 0.10298 0.76293 lineto
  380. stroke
  381. 0.44586 0.53585 moveto
  382. 0.45419 0.03279 lineto
  383. stroke
  384. 0.85732 0.26336 moveto
  385. 0.91229 0.7245 lineto
  386. stroke
  387. 0.85732 0.26336 moveto
  388. 0.45419 0.03279 lineto
  389. stroke
  390. 0.44586 0.53585 moveto
  391. 0.45419 0.03279 lineto
  392. stroke
  393. 0.44586 0.53585 moveto
  394. 0.91229 0.7245 lineto
  395. stroke
  396. 0.53842 0.89185 moveto
  397. 0.10298 0.76293 lineto
  398. stroke
  399. 0.53842 0.89185 moveto
  400. 0.91229 0.7245 lineto
  401. stroke
  402. 0.44586 0.53585 moveto
  403. 0.91229 0.7245 lineto
  404. stroke
  405. 0.44586 0.53585 moveto
  406. 0.10298 0.76293 lineto
  407. stroke
  408. % End of Graphics
  409. MathPictureEnd
  410. :[font = output; inactive; formatted; output; endGroup; ]
  411. The Unformatted text for this cell was not generated.
  412. Use options in the Actions Settings dialog box to control
  413. when Unformatted text is generated.
  414.  
  415.  
  416.  
  417.  
  418.  
  419. ;[o]
  420. -Graphics3D-
  421.  
  422. :[font = text; inactive; pageBreak; ]
  423. You get a clearer picture if you join nearest-neighbouring atoms.
  424. :[font = input; startGroup; ]
  425. ShowCrystalLines[FCC, 1/2, ViewPoint->{2, 2.5, 2}]
  426. :[font = postscript; inactive; output; preserveAspect; BITMAP; PostScript; pictureLeft = 92; pictureTop = 0; pictureWidth = 442; pictureHeight = 442; ]
  427. %!
  428. %%Creator: Mathematica
  429. %%AspectRatio: 1 
  430. MathPictureStart
  431. % Scaling calculation
  432. 0.02381 0.95238 0.02381 0.95238 [
  433. [ 0 0 0 0 ]
  434. [ 1 1 0 0 ]
  435. ] MathScale
  436. % Start of Graphics
  437. 1 setlinecap
  438. 1 setlinejoin
  439. newpath
  440. 0 0 moveto
  441. 1 0 lineto
  442. 1 1 lineto
  443. 0 1 lineto
  444. closepath
  445. clip
  446. newpath
  447. %%Object: Graphics3D
  448. gsave
  449. 0.002 setlinewidth
  450. 0.53403 0.47746 moveto
  451. 0.85732 0.26336 lineto
  452. stroke
  453. 0.53403 0.47746 moveto
  454. 0.53842 0.89185 lineto
  455. stroke
  456. 0.91229 0.7245 moveto
  457. 0.53842 0.89185 lineto
  458. stroke
  459. 0.91229 0.7245 moveto
  460. 0.85732 0.26336 lineto
  461. stroke
  462. 0.15421 0.31171 moveto
  463. 0.45419 0.03279 lineto
  464. stroke
  465. 0.15421 0.31171 moveto
  466. 0.10298 0.76293 lineto
  467. stroke
  468. 0.44586 0.53585 moveto
  469. 0.10298 0.76293 lineto
  470. stroke
  471. 0.44586 0.53585 moveto
  472. 0.45419 0.03279 lineto
  473. stroke
  474. 0.53403 0.47746 moveto
  475. 0.53842 0.89185 lineto
  476. stroke
  477. 0.53403 0.47746 moveto
  478. 0.15421 0.31171 lineto
  479. stroke
  480. 0.10298 0.76293 moveto
  481. 0.15421 0.31171 lineto
  482. stroke
  483. 0.10298 0.76293 moveto
  484. 0.53842 0.89185 lineto
  485. stroke
  486. 0.85732 0.26336 moveto
  487. 0.91229 0.7245 lineto
  488. stroke
  489. 0.85732 0.26336 moveto
  490. 0.45419 0.03279 lineto
  491. stroke
  492. 0.44586 0.53585 moveto
  493. 0.45419 0.03279 lineto
  494. stroke
  495. 0.44586 0.53585 moveto
  496. 0.91229 0.7245 lineto
  497. stroke
  498. 0.53403 0.47746 moveto
  499. 0.15421 0.31171 lineto
  500. stroke
  501. 0.53403 0.47746 moveto
  502. 0.85732 0.26336 lineto
  503. stroke
  504. 0.45419 0.03279 moveto
  505. 0.85732 0.26336 lineto
  506. stroke
  507. 0.45419 0.03279 moveto
  508. 0.15421 0.31171 lineto
  509. stroke
  510. 0.53842 0.89185 moveto
  511. 0.10298 0.76293 lineto
  512. stroke
  513. 0.53842 0.89185 moveto
  514. 0.91229 0.7245 lineto
  515. stroke
  516. 0.44586 0.53585 moveto
  517. 0.91229 0.7245 lineto
  518. stroke
  519. 0.44586 0.53585 moveto
  520. 0.10298 0.76293 lineto
  521. stroke
  522. grestore
  523. 1 0 0 setrgbcolor
  524. 0.05 setlinewidth
  525. 0.5327 0.47834 Mdot
  526. 0 1 0 setrgbcolor
  527. 0.01 setlinewidth
  528. 0.5 0.2974 moveto
  529. 0.5327 0.47834 lineto
  530. stroke
  531. 0 1 0 setrgbcolor
  532. 0.35307 0.59731 moveto
  533. 0.5327 0.47834 lineto
  534. stroke
  535. 0 1 0 setrgbcolor
  536. 0.68654 0.57906 moveto
  537. 0.5327 0.47834 lineto
  538. stroke
  539. 1 0 0 setrgbcolor
  540. 0.05 setlinewidth
  541. 0.16941 0.31998 Mdot
  542. 1 0 0 setrgbcolor
  543. 0.35307 0.59731 Mdot
  544. 1 0 0 setrgbcolor
  545. 0.53673 0.87463 Mdot
  546. 0 1 0 setrgbcolor
  547. 0.01 setlinewidth
  548. 0.28674 0.40961 moveto
  549. 0.16941 0.31998 lineto
  550. stroke
  551. 0 1 0 setrgbcolor
  552. 0.28674 0.40961 moveto
  553. 0.35307 0.59731 lineto
  554. stroke
  555. 0 1 0 setrgbcolor
  556. 0.12288 0.74975 moveto
  557. 0.35307 0.59731 lineto
  558. stroke
  559. 0 1 0 setrgbcolor
  560. 0.16941 0.31998 moveto
  561. 0.5 0.2974 lineto
  562. stroke
  563. 0 1 0 setrgbcolor
  564. 0.16941 0.31998 moveto
  565. 0.35307 0.59731 lineto
  566. stroke
  567. 0 1 0 setrgbcolor
  568. 0.5 0.73163 moveto
  569. 0.35307 0.59731 lineto
  570. stroke
  571. 0 1 0 setrgbcolor
  572. 0.5 0.73163 moveto
  573. 0.53673 0.87463 lineto
  574. stroke
  575. 0 1 0 setrgbcolor
  576. 0.5 0.2974 moveto
  577. 0.35307 0.59731 lineto
  578. stroke
  579. 0 1 0 setrgbcolor
  580. 0.35307 0.59731 moveto
  581. 0.68654 0.57906 lineto
  582. stroke
  583. 0 1 0 setrgbcolor
  584. 0.35307 0.59731 moveto
  585. 0.53673 0.87463 lineto
  586. stroke
  587. 0 1 0 setrgbcolor
  588. 0.68654 0.57906 moveto
  589. 0.53673 0.87463 lineto
  590. stroke
  591. 1 0 0 setrgbcolor
  592. 0.05 setlinewidth
  593. 0.5 0.2974 Mdot
  594. 1 0 0 setrgbcolor
  595. 0.68654 0.57906 Mdot
  596. 0 1 0 setrgbcolor
  597. 0.01 setlinewidth
  598. 0.45657 0.05707 moveto
  599. 0.5 0.2974 lineto
  600. stroke
  601. 0 1 0 setrgbcolor
  602. 0.28674 0.40961 moveto
  603. 0.5 0.2974 lineto
  604. stroke
  605. 0 1 0 setrgbcolor
  606. 0.67372 0.38495 moveto
  607. 0.5 0.2974 lineto
  608. stroke
  609. 0 1 0 setrgbcolor
  610. 0.67372 0.38495 moveto
  611. 0.68654 0.57906 lineto
  612. stroke
  613. 0 1 0 setrgbcolor
  614. 0.5 0.73163 moveto
  615. 0.68654 0.57906 lineto
  616. stroke
  617. 0 1 0 setrgbcolor
  618. 0.5 0.2974 moveto
  619. 0.84111 0.27409 lineto
  620. stroke
  621. 0 1 0 setrgbcolor
  622. 0.5 0.2974 moveto
  623. 0.68654 0.57906 lineto
  624. stroke
  625. 0 1 0 setrgbcolor
  626. 0.89087 0.71284 moveto
  627. 0.68654 0.57906 lineto
  628. stroke
  629. 0 1 0 setrgbcolor
  630. 0.84111 0.27409 moveto
  631. 0.68654 0.57906 lineto
  632. stroke
  633. 1 0 0 setrgbcolor
  634. 0.05 setlinewidth
  635. 0.84111 0.27409 Mdot
  636. 0 1 0 setrgbcolor
  637. 0.01 setlinewidth
  638. 0.67372 0.38495 moveto
  639. 0.84111 0.27409 lineto
  640. stroke
  641. 1 0 0 setrgbcolor
  642. 0.05 setlinewidth
  643. 0.12288 0.74975 Mdot
  644. 0 1 0 setrgbcolor
  645. 0.01 setlinewidth
  646. 0.28674 0.40961 moveto
  647. 0.12288 0.74975 lineto
  648. stroke
  649. 0 1 0 setrgbcolor
  650. 0.12288 0.74975 moveto
  651. 0.5 0.73163 lineto
  652. stroke
  653. 1 0 0 setrgbcolor
  654. 0.05 setlinewidth
  655. 0.28674 0.40961 Mdot
  656. 1 0 0 setrgbcolor
  657. 0.5 0.73163 Mdot
  658. 0 1 0 setrgbcolor
  659. 0.01 setlinewidth
  660. 0.44915 0.53367 moveto
  661. 0.28674 0.40961 lineto
  662. stroke
  663. 0 1 0 setrgbcolor
  664. 0.44915 0.53367 moveto
  665. 0.5 0.73163 lineto
  666. stroke
  667. 0 1 0 setrgbcolor
  668. 0.45657 0.05707 moveto
  669. 0.28674 0.40961 lineto
  670. stroke
  671. 0 1 0 setrgbcolor
  672. 0.28674 0.40961 moveto
  673. 0.67372 0.38495 lineto
  674. stroke
  675. 0 1 0 setrgbcolor
  676. 0.28674 0.40961 moveto
  677. 0.5 0.73163 lineto
  678. stroke
  679. 0 1 0 setrgbcolor
  680. 0.67372 0.38495 moveto
  681. 0.5 0.73163 lineto
  682. stroke
  683. 0 1 0 setrgbcolor
  684. 0.5 0.73163 moveto
  685. 0.89087 0.71284 lineto
  686. stroke
  687. 1 0 0 setrgbcolor
  688. 0.05 setlinewidth
  689. 0.45657 0.05707 Mdot
  690. 1 0 0 setrgbcolor
  691. 0.67372 0.38495 Mdot
  692. 1 0 0 setrgbcolor
  693. 0.89087 0.71284 Mdot
  694. 0 1 0 setrgbcolor
  695. 0.01 setlinewidth
  696. 0.44915 0.53367 moveto
  697. 0.67372 0.38495 lineto
  698. stroke
  699. 0 1 0 setrgbcolor
  700. 0.45657 0.05707 moveto
  701. 0.67372 0.38495 lineto
  702. stroke
  703. 0 1 0 setrgbcolor
  704. 0.67372 0.38495 moveto
  705. 0.89087 0.71284 lineto
  706. stroke
  707. 1 0 0 setrgbcolor
  708. 0.05 setlinewidth
  709. 0.44915 0.53367 Mdot
  710. 0 setgray
  711. 0.002 setlinewidth
  712. 0.15421 0.31171 moveto
  713. 0.45419 0.03279 lineto
  714. stroke
  715. 0.15421 0.31171 moveto
  716. 0.10298 0.76293 lineto
  717. stroke
  718. 0.44586 0.53585 moveto
  719. 0.10298 0.76293 lineto
  720. stroke
  721. 0.44586 0.53585 moveto
  722. 0.45419 0.03279 lineto
  723. stroke
  724. 0.85732 0.26336 moveto
  725. 0.91229 0.7245 lineto
  726. stroke
  727. 0.85732 0.26336 moveto
  728. 0.45419 0.03279 lineto
  729. stroke
  730. 0.44586 0.53585 moveto
  731. 0.45419 0.03279 lineto
  732. stroke
  733. 0.44586 0.53585 moveto
  734. 0.91229 0.7245 lineto
  735. stroke
  736. 0.53842 0.89185 moveto
  737. 0.10298 0.76293 lineto
  738. stroke
  739. 0.53842 0.89185 moveto
  740. 0.91229 0.7245 lineto
  741. stroke
  742. 0.44586 0.53585 moveto
  743. 0.91229 0.7245 lineto
  744. stroke
  745. 0.44586 0.53585 moveto
  746. 0.10298 0.76293 lineto
  747. stroke
  748. % End of Graphics
  749. MathPictureEnd
  750. :[font = output; inactive; formatted; output; endGroup; ]
  751. The Unformatted text for this cell was not generated.
  752. Use options in the Actions Settings dialog box to control
  753. when Unformatted text is generated.
  754.  
  755.  
  756.  
  757.  
  758.  
  759. ;[o]
  760. -Graphics3D-
  761.  
  762. :[font = text; inactive; endGroup; ]
  763.      Notice the octahedral interstice in the center region.
  764. :[font = subsection; inactive; pageBreak; startGroup; ]
  765. Diamond Cubic
  766. :[font = text; inactive; ]
  767.      The unit cell for diamond-like crystals is a superposition of two FCC cells, displaced by {1/4, 1/4, 1/4} times the latice constant.  Examples of diamond cubic crystals are silicon and germanium.
  768. :[font = input; ]
  769. Diamond = Join[FCC, Map[{1,1,1}/4 + #&, FCC]];
  770. :[font = input; startGroup; ]
  771. ShowCrystal[Diamond]
  772. :[font = postscript; inactive; output; preserveAspect; BITMAP; PostScript; pictureLeft = 46; pictureTop = 0; pictureWidth = 535; pictureHeight = 535; ]
  773. %!
  774. %%Creator: Mathematica
  775. %%AspectRatio: 1 
  776. MathPictureStart
  777. % Scaling calculation
  778. 0.02381 0.95238 0.02381 0.95238 [
  779. [ 0 0 0 0 ]
  780. [ 1 1 0 0 ]
  781. ] MathScale
  782. % Start of Graphics
  783. 1 setlinecap
  784. 1 setlinejoin
  785. newpath
  786. 0 0 moveto
  787. 1 0 lineto
  788. 1 1 lineto
  789. 0 1 lineto
  790. closepath
  791. clip
  792. newpath
  793. %%Object: Graphics3D
  794. gsave
  795. 0.002 setlinewidth
  796. 0.15335 0.23281 moveto
  797. 0.41424 0.49885 lineto
  798. stroke
  799. 0.15335 0.23281 moveto
  800. 0.08332 0.67473 lineto
  801. stroke
  802. 0.40029 0.89779 moveto
  803. 0.08332 0.67473 lineto
  804. stroke
  805. 0.40029 0.89779 moveto
  806. 0.41424 0.49885 lineto
  807. stroke
  808. 0.6157 0.03841 moveto
  809. 0.81732 0.36694 lineto
  810. stroke
  811. 0.6157 0.03841 moveto
  812. 0.6426 0.50192 lineto
  813. stroke
  814. 0.87501 0.78905 moveto
  815. 0.6426 0.50192 lineto
  816. stroke
  817. 0.87501 0.78905 moveto
  818. 0.81732 0.36694 lineto
  819. stroke
  820. 0.15335 0.23281 moveto
  821. 0.08332 0.67473 lineto
  822. stroke
  823. 0.15335 0.23281 moveto
  824. 0.6157 0.03841 lineto
  825. stroke
  826. 0.6426 0.50192 moveto
  827. 0.6157 0.03841 lineto
  828. stroke
  829. 0.6426 0.50192 moveto
  830. 0.08332 0.67473 lineto
  831. stroke
  832. 0.41424 0.49885 moveto
  833. 0.40029 0.89779 lineto
  834. stroke
  835. 0.41424 0.49885 moveto
  836. 0.81732 0.36694 lineto
  837. stroke
  838. 0.87501 0.78905 moveto
  839. 0.81732 0.36694 lineto
  840. stroke
  841. 0.87501 0.78905 moveto
  842. 0.40029 0.89779 lineto
  843. stroke
  844. 0.15335 0.23281 moveto
  845. 0.6157 0.03841 lineto
  846. stroke
  847. 0.15335 0.23281 moveto
  848. 0.41424 0.49885 lineto
  849. stroke
  850. 0.81732 0.36694 moveto
  851. 0.41424 0.49885 lineto
  852. stroke
  853. 0.81732 0.36694 moveto
  854. 0.6157 0.03841 lineto
  855. stroke
  856. 0.08332 0.67473 moveto
  857. 0.6426 0.50192 lineto
  858. stroke
  859. 0.08332 0.67473 moveto
  860. 0.40029 0.89779 lineto
  861. stroke
  862. 0.87501 0.78905 moveto
  863. 0.40029 0.89779 lineto
  864. stroke
  865. 0.87501 0.78905 moveto
  866. 0.6426 0.50192 lineto
  867. stroke
  868. grestore
  869. 1 0 0 setrgbcolor
  870. 0.05 setlinewidth
  871. 0.37451 0.4549 Mdot
  872. 1 0 0 setrgbcolor
  873. 0.48902 0.54382 Mdot
  874. 1 0 0 setrgbcolor
  875. 0.68536 0.34874 Mdot
  876. 1 0 0 setrgbcolor
  877. 0.81316 0.44322 Mdot
  878. 1 0 0 setrgbcolor
  879. 0.52559 0.54814 Mdot
  880. 1 0 0 setrgbcolor
  881. 0.43611 0.29867 Mdot
  882. 1 0 0 setrgbcolor
  883. 0.65393 0.64746 Mdot
  884. 1 0 0 setrgbcolor
  885. 0.35881 0.75627 Mdot
  886. 1 0 0 setrgbcolor
  887. 0.5648 0.39571 Mdot
  888. 1 0 0 setrgbcolor
  889. 0.26524 0.50391 Mdot
  890. 1 0 0 setrgbcolor
  891. 0.48762 0.86077 Mdot
  892. 1 0 0 setrgbcolor
  893. 0.16926 0.24508 Mdot
  894. 1 0 0 setrgbcolor
  895. 0.39435 0.6061 Mdot
  896. 1 0 0 setrgbcolor
  897. 0.29865 0.34481 Mdot
  898. 1 0 0 setrgbcolor
  899. 0.7106 0.66232 Mdot
  900. 1 0 0 setrgbcolor
  901. 0.61349 0.38603 Mdot
  902. 1 0 0 setrgbcolor
  903. 0.85646 0.77475 Mdot
  904. 1 0 0 setrgbcolor
  905. 0.51365 0.102 Mdot
  906. 1 0 0 setrgbcolor
  907. 0.75986 0.49567 Mdot
  908. 1 0 0 setrgbcolor
  909. 0.42707 0.61738 Mdot
  910. 1 0 0 setrgbcolor
  911. 0.66051 0.20865 Mdot
  912. 1 0 0 setrgbcolor
  913. 0.32206 0.32953 Mdot
  914. 1 0 0 setrgbcolor
  915. 0.57411 0.73352 Mdot
  916. 1 0 0 setrgbcolor
  917. 0.46952 0.44265 Mdot
  918. 1 0 0 setrgbcolor
  919. 0.12059 0.56879 Mdot
  920. 1 0 0 setrgbcolor
  921. 0.26852 0.68889 Mdot
  922. 1 0 0 setrgbcolor
  923. 0.51587 0.43667 Mdot
  924. 1 0 0 setrgbcolor
  925. 0.68712 0.56725 Mdot
  926. 0 setgray
  927. 0.002 setlinewidth
  928. 0.6157 0.03841 moveto
  929. 0.81732 0.36694 lineto
  930. stroke
  931. 0.6157 0.03841 moveto
  932. 0.6426 0.50192 lineto
  933. stroke
  934. 0.87501 0.78905 moveto
  935. 0.6426 0.50192 lineto
  936. stroke
  937. 0.87501 0.78905 moveto
  938. 0.81732 0.36694 lineto
  939. stroke
  940. 0.15335 0.23281 moveto
  941. 0.08332 0.67473 lineto
  942. stroke
  943. 0.15335 0.23281 moveto
  944. 0.6157 0.03841 lineto
  945. stroke
  946. 0.6426 0.50192 moveto
  947. 0.6157 0.03841 lineto
  948. stroke
  949. 0.6426 0.50192 moveto
  950. 0.08332 0.67473 lineto
  951. stroke
  952. 0.08332 0.67473 moveto
  953. 0.6426 0.50192 lineto
  954. stroke
  955. 0.08332 0.67473 moveto
  956. 0.40029 0.89779 lineto
  957. stroke
  958. 0.87501 0.78905 moveto
  959. 0.40029 0.89779 lineto
  960. stroke
  961. 0.87501 0.78905 moveto
  962. 0.6426 0.50192 lineto
  963. stroke
  964. % End of Graphics
  965. MathPictureEnd
  966. :[font = output; inactive; formatted; output; endGroup; ]
  967. The Unformatted text for this cell was not generated.
  968. Use options in the Actions Settings dialog box to control
  969. when Unformatted text is generated.
  970.  
  971.  
  972.  
  973.  
  974.  
  975. ;[o]
  976. -Graphics3D-
  977.  
  978. :[font = text; inactive; pageBreak; ]
  979.      The structure is much clearer if you join the nearest neighbors.
  980. :[font = input; startGroup; ]
  981. DiamondPicture = ShowCrystalLines[Diamond, 3/16]
  982. :[font = postscript; inactive; output; preserveAspect; BITMAP; PostScript; pictureLeft = 76; pictureTop = 0; pictureWidth = 282; pictureHeight = 282; ]
  983. %!
  984. %%Creator: Mathematica
  985. %%AspectRatio: 1 
  986. MathPictureStart
  987. % Scaling calculation
  988. 0.02381 0.95238 0.02381 0.95238 [
  989. [ 0 0 0 0 ]
  990. [ 1 1 0 0 ]
  991. ] MathScale
  992. % Start of Graphics
  993. 1 setlinecap
  994. 1 setlinejoin
  995. newpath
  996. 0 0 moveto
  997. 1 0 lineto
  998. 1 1 lineto
  999. 0 1 lineto
  1000. closepath
  1001. clip
  1002. newpath
  1003. %%Object: Graphics3D
  1004. gsave
  1005. 0.002 setlinewidth
  1006. 0.15335 0.23281 moveto
  1007. 0.41424 0.49885 lineto
  1008. stroke
  1009. 0.15335 0.23281 moveto
  1010. 0.08332 0.67473 lineto
  1011. stroke
  1012. 0.40029 0.89779 moveto
  1013. 0.08332 0.67473 lineto
  1014. stroke
  1015. 0.40029 0.89779 moveto
  1016. 0.41424 0.49885 lineto
  1017. stroke
  1018. 0.6157 0.03841 moveto
  1019. 0.81732 0.36694 lineto
  1020. stroke
  1021. 0.6157 0.03841 moveto
  1022. 0.6426 0.50192 lineto
  1023. stroke
  1024. 0.87501 0.78905 moveto
  1025. 0.6426 0.50192 lineto
  1026. stroke
  1027. 0.87501 0.78905 moveto
  1028. 0.81732 0.36694 lineto
  1029. stroke
  1030. 0.15335 0.23281 moveto
  1031. 0.08332 0.67473 lineto
  1032. stroke
  1033. 0.15335 0.23281 moveto
  1034. 0.6157 0.03841 lineto
  1035. stroke
  1036. 0.6426 0.50192 moveto
  1037. 0.6157 0.03841 lineto
  1038. stroke
  1039. 0.6426 0.50192 moveto
  1040. 0.08332 0.67473 lineto
  1041. stroke
  1042. 0.41424 0.49885 moveto
  1043. 0.40029 0.89779 lineto
  1044. stroke
  1045. 0.41424 0.49885 moveto
  1046. 0.81732 0.36694 lineto
  1047. stroke
  1048. 0.87501 0.78905 moveto
  1049. 0.81732 0.36694 lineto
  1050. stroke
  1051. 0.87501 0.78905 moveto
  1052. 0.40029 0.89779 lineto
  1053. stroke
  1054. 0.15335 0.23281 moveto
  1055. 0.6157 0.03841 lineto
  1056. stroke
  1057. 0.15335 0.23281 moveto
  1058. 0.41424 0.49885 lineto
  1059. stroke
  1060. 0.81732 0.36694 moveto
  1061. 0.41424 0.49885 lineto
  1062. stroke
  1063. 0.81732 0.36694 moveto
  1064. 0.6157 0.03841 lineto
  1065. stroke
  1066. 0.08332 0.67473 moveto
  1067. 0.6426 0.50192 lineto
  1068. stroke
  1069. 0.08332 0.67473 moveto
  1070. 0.40029 0.89779 lineto
  1071. stroke
  1072. 0.87501 0.78905 moveto
  1073. 0.40029 0.89779 lineto
  1074. stroke
  1075. 0.87501 0.78905 moveto
  1076. 0.6426 0.50192 lineto
  1077. stroke
  1078. grestore
  1079. 1 0 0 setrgbcolor
  1080. 0.05 setlinewidth
  1081. 0.37451 0.4549 Mdot
  1082. 0 1 0 setrgbcolor
  1083. 0.01 setlinewidth
  1084. 0.48902 0.54382 moveto
  1085. 0.37451 0.4549 lineto
  1086. stroke
  1087. 1 0 0 setrgbcolor
  1088. 0.05 setlinewidth
  1089. 0.48902 0.54382 Mdot
  1090. 0 1 0 setrgbcolor
  1091. 0.01 setlinewidth
  1092. 0.48902 0.54382 moveto
  1093. 0.52559 0.54814 lineto
  1094. stroke
  1095. 1 0 0 setrgbcolor
  1096. 0.05 setlinewidth
  1097. 0.68536 0.34874 Mdot
  1098. 0 1 0 setrgbcolor
  1099. 0.01 setlinewidth
  1100. 0.81316 0.44322 moveto
  1101. 0.68536 0.34874 lineto
  1102. stroke
  1103. 0 1 0 setrgbcolor
  1104. 0.5648 0.39571 moveto
  1105. 0.68536 0.34874 lineto
  1106. stroke
  1107. 1 0 0 setrgbcolor
  1108. 0.05 setlinewidth
  1109. 0.81316 0.44322 Mdot
  1110. 1 0 0 setrgbcolor
  1111. 0.52559 0.54814 Mdot
  1112. 0 1 0 setrgbcolor
  1113. 0.01 setlinewidth
  1114. 0.65393 0.64746 moveto
  1115. 0.52559 0.54814 lineto
  1116. stroke
  1117. 0 1 0 setrgbcolor
  1118. 0.5648 0.39571 moveto
  1119. 0.52559 0.54814 lineto
  1120. stroke
  1121. 0 1 0 setrgbcolor
  1122. 0.39435 0.6061 moveto
  1123. 0.52559 0.54814 lineto
  1124. stroke
  1125. 1 0 0 setrgbcolor
  1126. 0.05 setlinewidth
  1127. 0.43611 0.29867 Mdot
  1128. 0 1 0 setrgbcolor
  1129. 0.01 setlinewidth
  1130. 0.5648 0.39571 moveto
  1131. 0.43611 0.29867 lineto
  1132. stroke
  1133. 0 1 0 setrgbcolor
  1134. 0.29865 0.34481 moveto
  1135. 0.43611 0.29867 lineto
  1136. stroke
  1137. 1 0 0 setrgbcolor
  1138. 0.05 setlinewidth
  1139. 0.65393 0.64746 Mdot
  1140. 0 1 0 setrgbcolor
  1141. 0.01 setlinewidth
  1142. 0.65393 0.64746 moveto
  1143. 0.7106 0.66232 lineto
  1144. stroke
  1145. 1 0 0 setrgbcolor
  1146. 0.05 setlinewidth
  1147. 0.35881 0.75627 Mdot
  1148. 0 1 0 setrgbcolor
  1149. 0.01 setlinewidth
  1150. 0.48762 0.86077 moveto
  1151. 0.35881 0.75627 lineto
  1152. stroke
  1153. 0 1 0 setrgbcolor
  1154. 0.39435 0.6061 moveto
  1155. 0.35881 0.75627 lineto
  1156. stroke
  1157. 1 0 0 setrgbcolor
  1158. 0.05 setlinewidth
  1159. 0.5648 0.39571 Mdot
  1160. 0 1 0 setrgbcolor
  1161. 0.01 setlinewidth
  1162. 0.5648 0.39571 moveto
  1163. 0.61349 0.38603 lineto
  1164. stroke
  1165. 1 0 0 setrgbcolor
  1166. 0.05 setlinewidth
  1167. 0.26524 0.50391 Mdot
  1168. 0 1 0 setrgbcolor
  1169. 0.01 setlinewidth
  1170. 0.39435 0.6061 moveto
  1171. 0.26524 0.50391 lineto
  1172. stroke
  1173. 0 1 0 setrgbcolor
  1174. 0.29865 0.34481 moveto
  1175. 0.26524 0.50391 lineto
  1176. stroke
  1177. 1 0 0 setrgbcolor
  1178. 0.05 setlinewidth
  1179. 0.48762 0.86077 Mdot
  1180. 1 0 0 setrgbcolor
  1181. 0.16926 0.24508 Mdot
  1182. 0 1 0 setrgbcolor
  1183. 0.01 setlinewidth
  1184. 0.29865 0.34481 moveto
  1185. 0.16926 0.24508 lineto
  1186. stroke
  1187. 1 0 0 setrgbcolor
  1188. 0.05 setlinewidth
  1189. 0.39435 0.6061 Mdot
  1190. 0 1 0 setrgbcolor
  1191. 0.01 setlinewidth
  1192. 0.39435 0.6061 moveto
  1193. 0.42707 0.61738 lineto
  1194. stroke
  1195. 1 0 0 setrgbcolor
  1196. 0.05 setlinewidth
  1197. 0.29865 0.34481 Mdot
  1198. 0 1 0 setrgbcolor
  1199. 0.01 setlinewidth
  1200. 0.29865 0.34481 moveto
  1201. 0.32206 0.32953 lineto
  1202. stroke
  1203. 1 0 0 setrgbcolor
  1204. 0.05 setlinewidth
  1205. 0.7106 0.66232 Mdot
  1206. 0 1 0 setrgbcolor
  1207. 0.01 setlinewidth
  1208. 0.85646 0.77475 moveto
  1209. 0.7106 0.66232 lineto
  1210. stroke
  1211. 0 1 0 setrgbcolor
  1212. 0.75986 0.49567 moveto
  1213. 0.7106 0.66232 lineto
  1214. stroke
  1215. 0 1 0 setrgbcolor
  1216. 0.57411 0.73352 moveto
  1217. 0.7106 0.66232 lineto
  1218. stroke
  1219. 1 0 0 setrgbcolor
  1220. 0.05 setlinewidth
  1221. 0.61349 0.38603 Mdot
  1222. 0 1 0 setrgbcolor
  1223. 0.01 setlinewidth
  1224. 0.75986 0.49567 moveto
  1225. 0.61349 0.38603 lineto
  1226. stroke
  1227. 0 1 0 setrgbcolor
  1228. 0.66051 0.20865 moveto
  1229. 0.61349 0.38603 lineto
  1230. stroke
  1231. 0 1 0 setrgbcolor
  1232. 0.46952 0.44265 moveto
  1233. 0.61349 0.38603 lineto
  1234. stroke
  1235. 1 0 0 setrgbcolor
  1236. 0.05 setlinewidth
  1237. 0.85646 0.77475 Mdot
  1238. 1 0 0 setrgbcolor
  1239. 0.51365 0.102 Mdot
  1240. 0 1 0 setrgbcolor
  1241. 0.01 setlinewidth
  1242. 0.66051 0.20865 moveto
  1243. 0.51365 0.102 lineto
  1244. stroke
  1245. 1 0 0 setrgbcolor
  1246. 0.05 setlinewidth
  1247. 0.75986 0.49567 Mdot
  1248. 1 0 0 setrgbcolor
  1249. 0.42707 0.61738 Mdot
  1250. 0 1 0 setrgbcolor
  1251. 0.01 setlinewidth
  1252. 0.57411 0.73352 moveto
  1253. 0.42707 0.61738 lineto
  1254. stroke
  1255. 0 1 0 setrgbcolor
  1256. 0.46952 0.44265 moveto
  1257. 0.42707 0.61738 lineto
  1258. stroke
  1259. 0 1 0 setrgbcolor
  1260. 0.26852 0.68889 moveto
  1261. 0.42707 0.61738 lineto
  1262. stroke
  1263. 1 0 0 setrgbcolor
  1264. 0.05 setlinewidth
  1265. 0.66051 0.20865 Mdot
  1266. 1 0 0 setrgbcolor
  1267. 0.32206 0.32953 Mdot
  1268. 0 1 0 setrgbcolor
  1269. 0.01 setlinewidth
  1270. 0.46952 0.44265 moveto
  1271. 0.32206 0.32953 lineto
  1272. stroke
  1273. 1 0 0 setrgbcolor
  1274. 0.05 setlinewidth
  1275. 0.57411 0.73352 Mdot
  1276. 1 0 0 setrgbcolor
  1277. 0.46952 0.44265 Mdot
  1278. 0 1 0 setrgbcolor
  1279. 0.01 setlinewidth
  1280. 0.46952 0.44265 moveto
  1281. 0.51587 0.43667 lineto
  1282. stroke
  1283. 1 0 0 setrgbcolor
  1284. 0.05 setlinewidth
  1285. 0.12059 0.56879 Mdot
  1286. 0 1 0 setrgbcolor
  1287. 0.01 setlinewidth
  1288. 0.26852 0.68889 moveto
  1289. 0.12059 0.56879 lineto
  1290. stroke
  1291. 1 0 0 setrgbcolor
  1292. 0.05 setlinewidth
  1293. 0.26852 0.68889 Mdot
  1294. 1 0 0 setrgbcolor
  1295. 0.51587 0.43667 Mdot
  1296. 0 1 0 setrgbcolor
  1297. 0.01 setlinewidth
  1298. 0.68712 0.56725 moveto
  1299. 0.51587 0.43667 lineto
  1300. stroke
  1301. 1 0 0 setrgbcolor
  1302. 0.05 setlinewidth
  1303. 0.68712 0.56725 Mdot
  1304. 0 setgray
  1305. 0.002 setlinewidth
  1306. 0.6157 0.03841 moveto
  1307. 0.81732 0.36694 lineto
  1308. stroke
  1309. 0.6157 0.03841 moveto
  1310. 0.6426 0.50192 lineto
  1311. stroke
  1312. 0.87501 0.78905 moveto
  1313. 0.6426 0.50192 lineto
  1314. stroke
  1315. 0.87501 0.78905 moveto
  1316. 0.81732 0.36694 lineto
  1317. stroke
  1318. 0.15335 0.23281 moveto
  1319. 0.08332 0.67473 lineto
  1320. stroke
  1321. 0.15335 0.23281 moveto
  1322. 0.6157 0.03841 lineto
  1323. stroke
  1324. 0.6426 0.50192 moveto
  1325. 0.6157 0.03841 lineto
  1326. stroke
  1327. 0.6426 0.50192 moveto
  1328. 0.08332 0.67473 lineto
  1329. stroke
  1330. 0.08332 0.67473 moveto
  1331. 0.6426 0.50192 lineto
  1332. stroke
  1333. 0.08332 0.67473 moveto
  1334. 0.40029 0.89779 lineto
  1335. stroke
  1336. 0.87501 0.78905 moveto
  1337. 0.40029 0.89779 lineto
  1338. stroke
  1339. 0.87501 0.78905 moveto
  1340. 0.6426 0.50192 lineto
  1341. stroke
  1342. % End of Graphics
  1343. MathPictureEnd
  1344. :[font = output; inactive; formatted; output; endGroup; ]
  1345. The Unformatted text for this cell was not generated.
  1346. Use options in the Actions Settings dialog box to control
  1347. when Unformatted text is generated.
  1348.  
  1349.  
  1350.  
  1351.  
  1352.  
  1353. ;[o]
  1354. -Graphics3D-
  1355.  
  1356. :[font = text; inactive; pageBreak; ]
  1357.     Here is a picture of the lattice, viewed from the [110] direction.  You can see the "[111] channel" - the largest tunnel through the crystal.
  1358. :[font = input; startGroup; ]
  1359. Show[DiamondPicture, ViewPoint->{2,2,0}]
  1360. :[font = postscript; inactive; output; preserveAspect; BITMAP; PostScript; pictureLeft = 76; pictureTop = 0; pictureWidth = 429; pictureHeight = 429; ]
  1361. %!
  1362. %%Creator: Mathematica
  1363. %%AspectRatio: 1 
  1364. MathPictureStart
  1365. % Scaling calculation
  1366. 0.02381 0.95238 0.02381 0.95238 [
  1367. [ 0 0 0 0 ]
  1368. [ 1 1 0 0 ]
  1369. ] MathScale
  1370. % Start of Graphics
  1371. 1 setlinecap
  1372. 1 setlinejoin
  1373. newpath
  1374. 0 0 moveto
  1375. 1 0 lineto
  1376. 1 1 lineto
  1377. 0 1 lineto
  1378. closepath
  1379. clip
  1380. newpath
  1381. %%Object: Graphics3D
  1382. gsave
  1383. 0.002 setlinewidth
  1384. 0.5 0.29062 moveto
  1385. 0.87013 0.23828 lineto
  1386. stroke
  1387. 0.5 0.29062 moveto
  1388. 0.5 0.70938 lineto
  1389. stroke
  1390. 0.87013 0.76172 moveto
  1391. 0.5 0.70938 lineto
  1392. stroke
  1393. 0.87013 0.76172 moveto
  1394. 0.87013 0.23828 lineto
  1395. stroke
  1396. 0.12987 0.23828 moveto
  1397. 0.5 0.15103 lineto
  1398. stroke
  1399. 0.12987 0.23828 moveto
  1400. 0.12987 0.76172 lineto
  1401. stroke
  1402. 0.5 0.84897 moveto
  1403. 0.12987 0.76172 lineto
  1404. stroke
  1405. 0.5 0.84897 moveto
  1406. 0.5 0.15103 lineto
  1407. stroke
  1408. 0.5 0.29062 moveto
  1409. 0.5 0.70938 lineto
  1410. stroke
  1411. 0.5 0.29062 moveto
  1412. 0.12987 0.23828 lineto
  1413. stroke
  1414. 0.12987 0.76172 moveto
  1415. 0.12987 0.23828 lineto
  1416. stroke
  1417. 0.12987 0.76172 moveto
  1418. 0.5 0.70938 lineto
  1419. stroke
  1420. 0.87013 0.23828 moveto
  1421. 0.87013 0.76172 lineto
  1422. stroke
  1423. 0.87013 0.23828 moveto
  1424. 0.5 0.15103 lineto
  1425. stroke
  1426. 0.5 0.84897 moveto
  1427. 0.5 0.15103 lineto
  1428. stroke
  1429. 0.5 0.84897 moveto
  1430. 0.87013 0.76172 lineto
  1431. stroke
  1432. 0.5 0.29062 moveto
  1433. 0.12987 0.23828 lineto
  1434. stroke
  1435. 0.5 0.29062 moveto
  1436. 0.87013 0.23828 lineto
  1437. stroke
  1438. 0.5 0.15103 moveto
  1439. 0.87013 0.23828 lineto
  1440. stroke
  1441. 0.5 0.15103 moveto
  1442. 0.12987 0.23828 lineto
  1443. stroke
  1444. 0.5 0.70938 moveto
  1445. 0.12987 0.76172 lineto
  1446. stroke
  1447. 0.5 0.70938 moveto
  1448. 0.87013 0.76172 lineto
  1449. stroke
  1450. 0.5 0.84897 moveto
  1451. 0.87013 0.76172 lineto
  1452. stroke
  1453. 0.5 0.84897 moveto
  1454. 0.12987 0.76172 lineto
  1455. stroke
  1456. grestore
  1457. 1 0 0 setrgbcolor
  1458. 0.05 setlinewidth
  1459. 0.5 0.6208 Mdot
  1460. 1 0 0 setrgbcolor
  1461. 0.5 0.29867 Mdot
  1462. 0 1 0 setrgbcolor
  1463. 0.01 setlinewidth
  1464. 0.5 0.7181 moveto
  1465. 0.5 0.6208 lineto
  1466. stroke
  1467. 0 1 0 setrgbcolor
  1468. 0.5 0.36914 moveto
  1469. 0.5 0.29867 lineto
  1470. stroke
  1471. 1 0 0 setrgbcolor
  1472. 0.05 setlinewidth
  1473. 0.5 0.7181 Mdot
  1474. 1 0 0 setrgbcolor
  1475. 0.5 0.36914 Mdot
  1476. 1 0 0 setrgbcolor
  1477. 0.37662 0.45638 Mdot
  1478. 1 0 0 setrgbcolor
  1479. 0.62338 0.45638 Mdot
  1480. 0 1 0 setrgbcolor
  1481. 0.01 setlinewidth
  1482. 0.36541 0.54759 moveto
  1483. 0.37662 0.45638 lineto
  1484. stroke
  1485. 0 1 0 setrgbcolor
  1486. 0.63459 0.54759 moveto
  1487. 0.62338 0.45638 lineto
  1488. stroke
  1489. 0 1 0 setrgbcolor
  1490. 0.5 0.7181 moveto
  1491. 0.5 0.64276 lineto
  1492. stroke
  1493. 0 1 0 setrgbcolor
  1494. 0.5 0.36914 moveto
  1495. 0.5 0.26207 lineto
  1496. stroke
  1497. 0 1 0 setrgbcolor
  1498. 0.5 0.36914 moveto
  1499. 0.37662 0.45638 lineto
  1500. stroke
  1501. 0 1 0 setrgbcolor
  1502. 0.5 0.36914 moveto
  1503. 0.62338 0.45638 lineto
  1504. stroke
  1505. 1 0 0 setrgbcolor
  1506. 0.05 setlinewidth
  1507. 0.36541 0.54759 Mdot
  1508. 1 0 0 setrgbcolor
  1509. 0.63459 0.54759 Mdot
  1510. 1 0 0 setrgbcolor
  1511. 0.23081 0.64276 Mdot
  1512. 1 0 0 setrgbcolor
  1513. 0.23081 0.26207 Mdot
  1514. 1 0 0 setrgbcolor
  1515. 0.5 0.64276 Mdot
  1516. 1 0 0 setrgbcolor
  1517. 0.5 0.26207 Mdot
  1518. 1 0 0 setrgbcolor
  1519. 0.76919 0.64276 Mdot
  1520. 1 0 0 setrgbcolor
  1521. 0.76919 0.26207 Mdot
  1522. 0 1 0 setrgbcolor
  1523. 0.01 setlinewidth
  1524. 0.20389 0.76172 moveto
  1525. 0.23081 0.64276 lineto
  1526. stroke
  1527. 0 1 0 setrgbcolor
  1528. 0.20389 0.34297 moveto
  1529. 0.23081 0.26207 lineto
  1530. stroke
  1531. 0 1 0 setrgbcolor
  1532. 0.5 0.76172 moveto
  1533. 0.5 0.64276 lineto
  1534. stroke
  1535. 0 1 0 setrgbcolor
  1536. 0.5 0.34297 moveto
  1537. 0.5 0.26207 lineto
  1538. stroke
  1539. 0 1 0 setrgbcolor
  1540. 0.36541 0.54759 moveto
  1541. 0.35195 0.44766 lineto
  1542. stroke
  1543. 0 1 0 setrgbcolor
  1544. 0.36541 0.54759 moveto
  1545. 0.23081 0.64276 lineto
  1546. stroke
  1547. 0 1 0 setrgbcolor
  1548. 0.36541 0.54759 moveto
  1549. 0.5 0.64276 lineto
  1550. stroke
  1551. 0 1 0 setrgbcolor
  1552. 0.79611 0.76172 moveto
  1553. 0.76919 0.64276 lineto
  1554. stroke
  1555. 0 1 0 setrgbcolor
  1556. 0.79611 0.34297 moveto
  1557. 0.76919 0.26207 lineto
  1558. stroke
  1559. 0 1 0 setrgbcolor
  1560. 0.63459 0.54759 moveto
  1561. 0.64805 0.44766 lineto
  1562. stroke
  1563. 0 1 0 setrgbcolor
  1564. 0.63459 0.54759 moveto
  1565. 0.5 0.64276 lineto
  1566. stroke
  1567. 0 1 0 setrgbcolor
  1568. 0.63459 0.54759 moveto
  1569. 0.76919 0.64276 lineto
  1570. stroke
  1571. 1 0 0 setrgbcolor
  1572. 0.05 setlinewidth
  1573. 0.5 0.76172 Mdot
  1574. 1 0 0 setrgbcolor
  1575. 0.5 0.34297 Mdot
  1576. 1 0 0 setrgbcolor
  1577. 0.35195 0.44766 Mdot
  1578. 1 0 0 setrgbcolor
  1579. 0.64805 0.44766 Mdot
  1580. 0 1 0 setrgbcolor
  1581. 0.01 setlinewidth
  1582. 0.3355 0.55816 moveto
  1583. 0.35195 0.44766 lineto
  1584. stroke
  1585. 0 1 0 setrgbcolor
  1586. 0.20389 0.34297 moveto
  1587. 0.35195 0.44766 lineto
  1588. stroke
  1589. 0 1 0 setrgbcolor
  1590. 0.6645 0.55816 moveto
  1591. 0.64805 0.44766 lineto
  1592. stroke
  1593. 0 1 0 setrgbcolor
  1594. 0.5 0.76172 moveto
  1595. 0.5 0.67448 lineto
  1596. stroke
  1597. 0 1 0 setrgbcolor
  1598. 0.5 0.34297 moveto
  1599. 0.5 0.2092 lineto
  1600. stroke
  1601. 0 1 0 setrgbcolor
  1602. 0.5 0.34297 moveto
  1603. 0.35195 0.44766 lineto
  1604. stroke
  1605. 0 1 0 setrgbcolor
  1606. 0.5 0.34297 moveto
  1607. 0.64805 0.44766 lineto
  1608. stroke
  1609. 0 1 0 setrgbcolor
  1610. 0.79611 0.34297 moveto
  1611. 0.64805 0.44766 lineto
  1612. stroke
  1613. 1 0 0 setrgbcolor
  1614. 0.05 setlinewidth
  1615. 0.20389 0.76172 Mdot
  1616. 1 0 0 setrgbcolor
  1617. 0.20389 0.34297 Mdot
  1618. 1 0 0 setrgbcolor
  1619. 0.79611 0.76172 Mdot
  1620. 1 0 0 setrgbcolor
  1621. 0.79611 0.34297 Mdot
  1622. 1 0 0 setrgbcolor
  1623. 0.3355 0.55816 Mdot
  1624. 1 0 0 setrgbcolor
  1625. 0.6645 0.55816 Mdot
  1626. 1 0 0 setrgbcolor
  1627. 0.5 0.67448 Mdot
  1628. 1 0 0 setrgbcolor
  1629. 0.5 0.2092 Mdot
  1630. 0 1 0 setrgbcolor
  1631. 0.01 setlinewidth
  1632. 0.5 0.82716 moveto
  1633. 0.5 0.67448 lineto
  1634. stroke
  1635. 0 1 0 setrgbcolor
  1636. 0.5 0.30371 moveto
  1637. 0.5 0.2092 lineto
  1638. stroke
  1639. 0 1 0 setrgbcolor
  1640. 0.3355 0.55816 moveto
  1641. 0.5 0.67448 lineto
  1642. stroke
  1643. 0 1 0 setrgbcolor
  1644. 0.6645 0.55816 moveto
  1645. 0.5 0.67448 lineto
  1646. stroke
  1647. 1 0 0 setrgbcolor
  1648. 0.05 setlinewidth
  1649. 0.5 0.82716 Mdot
  1650. 1 0 0 setrgbcolor
  1651. 0.5 0.30371 Mdot
  1652. 0 setgray
  1653. 0.002 setlinewidth
  1654. 0.12987 0.23828 moveto
  1655. 0.5 0.15103 lineto
  1656. stroke
  1657. 0.12987 0.23828 moveto
  1658. 0.12987 0.76172 lineto
  1659. stroke
  1660. 0.5 0.84897 moveto
  1661. 0.12987 0.76172 lineto
  1662. stroke
  1663. 0.5 0.84897 moveto
  1664. 0.5 0.15103 lineto
  1665. stroke
  1666. 0.87013 0.23828 moveto
  1667. 0.87013 0.76172 lineto
  1668. stroke
  1669. 0.87013 0.23828 moveto
  1670. 0.5 0.15103 lineto
  1671. stroke
  1672. 0.5 0.84897 moveto
  1673. 0.5 0.15103 lineto
  1674. stroke
  1675. 0.5 0.84897 moveto
  1676. 0.87013 0.76172 lineto
  1677. stroke
  1678. % End of Graphics
  1679. MathPictureEnd
  1680. :[font = output; inactive; formatted; output; endGroup; ]
  1681. The Unformatted text for this cell was not generated.
  1682. Use options in the Actions Settings dialog box to control
  1683. when Unformatted text is generated.
  1684.  
  1685.  
  1686.  
  1687.  
  1688.  
  1689. ;[o]
  1690. -Graphics3D-
  1691.  
  1692. :[font = text; inactive; pageBreak; ]
  1693.      Here is a picture from the [112] direction.  You can see a succession of [111] planes stacked on top of each other.
  1694. :[font = input; startGroup; ]
  1695. Show[DiamondPicture, ViewPoint->{2,2,4}]
  1696. :[font = postscript; inactive; output; preserveAspect; BITMAP; PostScript; pictureLeft = 76; pictureTop = 0; pictureWidth = 282; pictureHeight = 282; ]
  1697. %!
  1698. %%Creator: Mathematica
  1699. %%AspectRatio: 1 
  1700. MathPictureStart
  1701. % Scaling calculation
  1702. 0.02381 0.95238 0.02381 0.95238 [
  1703. [ 0 0 0 0 ]
  1704. [ 1 1 0 0 ]
  1705. ] MathScale
  1706. % Start of Graphics
  1707. 1 setlinecap
  1708. 1 setlinejoin
  1709. newpath
  1710. 0 0 moveto
  1711. 1 0 lineto
  1712. 1 1 lineto
  1713. 0 1 lineto
  1714. closepath
  1715. clip
  1716. newpath
  1717. %%Object: Graphics3D
  1718. gsave
  1719. 0.002 setlinewidth
  1720. 0.5 0.63391 moveto
  1721. 0.85325 0.35579 lineto
  1722. stroke
  1723. 0.5 0.63391 moveto
  1724. 0.5 0.96869 lineto
  1725. stroke
  1726. 0.91747 0.67043 moveto
  1727. 0.5 0.96869 lineto
  1728. stroke
  1729. 0.91747 0.67043 moveto
  1730. 0.85325 0.35579 lineto
  1731. stroke
  1732. 0.14675 0.35579 moveto
  1733. 0.5 0.03131 lineto
  1734. stroke
  1735. 0.14675 0.35579 moveto
  1736. 0.08253 0.67043 lineto
  1737. stroke
  1738. 0.5 0.31252 moveto
  1739. 0.08253 0.67043 lineto
  1740. stroke
  1741. 0.5 0.31252 moveto
  1742. 0.5 0.03131 lineto
  1743. stroke
  1744. 0.5 0.63391 moveto
  1745. 0.5 0.96869 lineto
  1746. stroke
  1747. 0.5 0.63391 moveto
  1748. 0.14675 0.35579 lineto
  1749. stroke
  1750. 0.08253 0.67043 moveto
  1751. 0.14675 0.35579 lineto
  1752. stroke
  1753. 0.08253 0.67043 moveto
  1754. 0.5 0.96869 lineto
  1755. stroke
  1756. 0.85325 0.35579 moveto
  1757. 0.91747 0.67043 lineto
  1758. stroke
  1759. 0.85325 0.35579 moveto
  1760. 0.5 0.03131 lineto
  1761. stroke
  1762. 0.5 0.31252 moveto
  1763. 0.5 0.03131 lineto
  1764. stroke
  1765. 0.5 0.31252 moveto
  1766. 0.91747 0.67043 lineto
  1767. stroke
  1768. 0.5 0.63391 moveto
  1769. 0.14675 0.35579 lineto
  1770. stroke
  1771. 0.5 0.63391 moveto
  1772. 0.85325 0.35579 lineto
  1773. stroke
  1774. 0.5 0.03131 moveto
  1775. 0.85325 0.35579 lineto
  1776. stroke
  1777. 0.5 0.03131 moveto
  1778. 0.14675 0.35579 lineto
  1779. stroke
  1780. 0.5 0.96869 moveto
  1781. 0.08253 0.67043 lineto
  1782. stroke
  1783. 0.5 0.96869 moveto
  1784. 0.91747 0.67043 lineto
  1785. stroke
  1786. 0.5 0.31252 moveto
  1787. 0.91747 0.67043 lineto
  1788. stroke
  1789. 0.5 0.31252 moveto
  1790. 0.08253 0.67043 lineto
  1791. stroke
  1792. grestore
  1793. 1 0 0 setrgbcolor
  1794. 0.05 setlinewidth
  1795. 0.5 0.62841 Mdot
  1796. 0 1 0 setrgbcolor
  1797. 0.01 setlinewidth
  1798. 0.5 0.58151 moveto
  1799. 0.5 0.62841 lineto
  1800. stroke
  1801. 1 0 0 setrgbcolor
  1802. 0.05 setlinewidth
  1803. 0.23378 0.41849 Mdot
  1804. 1 0 0 setrgbcolor
  1805. 0.5 0.41849 Mdot
  1806. 1 0 0 setrgbcolor
  1807. 0.76622 0.41849 Mdot
  1808. 0 1 0 setrgbcolor
  1809. 0.01 setlinewidth
  1810. 0.2174 0.35579 moveto
  1811. 0.23378 0.41849 lineto
  1812. stroke
  1813. 0 1 0 setrgbcolor
  1814. 0.5 0.35579 moveto
  1815. 0.5 0.41849 lineto
  1816. stroke
  1817. 0 1 0 setrgbcolor
  1818. 0.7826 0.35579 moveto
  1819. 0.76622 0.41849 lineto
  1820. stroke
  1821. 0 1 0 setrgbcolor
  1822. 0.5 0.58151 moveto
  1823. 0.5 0.41849 lineto
  1824. stroke
  1825. 1 0 0 setrgbcolor
  1826. 0.05 setlinewidth
  1827. 0.5 0.58151 Mdot
  1828. 0 1 0 setrgbcolor
  1829. 0.01 setlinewidth
  1830. 0.5 0.58151 moveto
  1831. 0.36292 0.63991 lineto
  1832. stroke
  1833. 0 1 0 setrgbcolor
  1834. 0.5 0.58151 moveto
  1835. 0.63708 0.63991 lineto
  1836. stroke
  1837. 1 0 0 setrgbcolor
  1838. 0.05 setlinewidth
  1839. 0.36292 0.63991 Mdot
  1840. 1 0 0 setrgbcolor
  1841. 0.63708 0.63991 Mdot
  1842. 0 1 0 setrgbcolor
  1843. 0.01 setlinewidth
  1844. 0.35422 0.58927 moveto
  1845. 0.36292 0.63991 lineto
  1846. stroke
  1847. 0 1 0 setrgbcolor
  1848. 0.64578 0.58927 moveto
  1849. 0.63708 0.63991 lineto
  1850. stroke
  1851. 1 0 0 setrgbcolor
  1852. 0.05 setlinewidth
  1853. 0.5 0.18273 Mdot
  1854. 0 1 0 setrgbcolor
  1855. 0.01 setlinewidth
  1856. 0.5 0.10046 moveto
  1857. 0.5 0.18273 lineto
  1858. stroke
  1859. 0 1 0 setrgbcolor
  1860. 0.5 0.35579 moveto
  1861. 0.5 0.18273 lineto
  1862. stroke
  1863. 1 0 0 setrgbcolor
  1864. 0.05 setlinewidth
  1865. 0.2174 0.35579 Mdot
  1866. 1 0 0 setrgbcolor
  1867. 0.5 0.35579 Mdot
  1868. 1 0 0 setrgbcolor
  1869. 0.7826 0.35579 Mdot
  1870. 0 1 0 setrgbcolor
  1871. 0.01 setlinewidth
  1872. 0.2174 0.35579 moveto
  1873. 0.35422 0.41073 lineto
  1874. stroke
  1875. 0 1 0 setrgbcolor
  1876. 0.5 0.35579 moveto
  1877. 0.35422 0.41073 lineto
  1878. stroke
  1879. 0 1 0 setrgbcolor
  1880. 0.5 0.35579 moveto
  1881. 0.64578 0.41073 lineto
  1882. stroke
  1883. 0 1 0 setrgbcolor
  1884. 0.7826 0.35579 moveto
  1885. 0.64578 0.41073 lineto
  1886. stroke
  1887. 1 0 0 setrgbcolor
  1888. 0.05 setlinewidth
  1889. 0.5 0.87495 Mdot
  1890. 0 1 0 setrgbcolor
  1891. 0.01 setlinewidth
  1892. 0.5 0.83807 moveto
  1893. 0.5 0.87495 lineto
  1894. stroke
  1895. 1 0 0 setrgbcolor
  1896. 0.05 setlinewidth
  1897. 0.35422 0.41073 Mdot
  1898. 1 0 0 setrgbcolor
  1899. 0.64578 0.41073 Mdot
  1900. 0 1 0 setrgbcolor
  1901. 0.01 setlinewidth
  1902. 0.34433 0.34112 moveto
  1903. 0.35422 0.41073 lineto
  1904. stroke
  1905. 0 1 0 setrgbcolor
  1906. 0.65567 0.34112 moveto
  1907. 0.64578 0.41073 lineto
  1908. stroke
  1909. 0 1 0 setrgbcolor
  1910. 0.35422 0.58927 moveto
  1911. 0.35422 0.41073 lineto
  1912. stroke
  1913. 0 1 0 setrgbcolor
  1914. 0.64578 0.58927 moveto
  1915. 0.64578 0.41073 lineto
  1916. stroke
  1917. 1 0 0 setrgbcolor
  1918. 0.05 setlinewidth
  1919. 0.35422 0.58927 Mdot
  1920. 1 0 0 setrgbcolor
  1921. 0.64578 0.58927 Mdot
  1922. 0 1 0 setrgbcolor
  1923. 0.01 setlinewidth
  1924. 0.35422 0.58927 moveto
  1925. 0.19887 0.65367 lineto
  1926. stroke
  1927. 0 1 0 setrgbcolor
  1928. 0.35422 0.58927 moveto
  1929. 0.5 0.65367 lineto
  1930. stroke
  1931. 0 1 0 setrgbcolor
  1932. 0.64578 0.58927 moveto
  1933. 0.5 0.65367 lineto
  1934. stroke
  1935. 0 1 0 setrgbcolor
  1936. 0.64578 0.58927 moveto
  1937. 0.80113 0.65367 lineto
  1938. stroke
  1939. 1 0 0 setrgbcolor
  1940. 0.05 setlinewidth
  1941. 0.5 0.10046 Mdot
  1942. 1 0 0 setrgbcolor
  1943. 0.19887 0.65367 Mdot
  1944. 1 0 0 setrgbcolor
  1945. 0.5 0.65367 Mdot
  1946. 1 0 0 setrgbcolor
  1947. 0.80113 0.65367 Mdot
  1948. 0 1 0 setrgbcolor
  1949. 0.01 setlinewidth
  1950. 0.17774 0.59867 moveto
  1951. 0.19887 0.65367 lineto
  1952. stroke
  1953. 0 1 0 setrgbcolor
  1954. 0.5 0.59867 moveto
  1955. 0.5 0.65367 lineto
  1956. stroke
  1957. 0 1 0 setrgbcolor
  1958. 0.82226 0.59867 moveto
  1959. 0.80113 0.65367 lineto
  1960. stroke
  1961. 0 1 0 setrgbcolor
  1962. 0.5 0.83807 moveto
  1963. 0.5 0.65367 lineto
  1964. stroke
  1965. 1 0 0 setrgbcolor
  1966. 0.05 setlinewidth
  1967. 0.5 0.83807 Mdot
  1968. 1 0 0 setrgbcolor
  1969. 0.34433 0.34112 Mdot
  1970. 1 0 0 setrgbcolor
  1971. 0.65567 0.34112 Mdot
  1972. 0 1 0 setrgbcolor
  1973. 0.01 setlinewidth
  1974. 0.34433 0.34112 moveto
  1975. 0.5 0.40133 lineto
  1976. stroke
  1977. 0 1 0 setrgbcolor
  1978. 0.65567 0.34112 moveto
  1979. 0.5 0.40133 lineto
  1980. stroke
  1981. 1 0 0 setrgbcolor
  1982. 0.05 setlinewidth
  1983. 0.5 0.40133 Mdot
  1984. 0 1 0 setrgbcolor
  1985. 0.01 setlinewidth
  1986. 0.5 0.32314 moveto
  1987. 0.5 0.40133 lineto
  1988. stroke
  1989. 0 1 0 setrgbcolor
  1990. 0.5 0.59867 moveto
  1991. 0.5 0.40133 lineto
  1992. stroke
  1993. 1 0 0 setrgbcolor
  1994. 0.05 setlinewidth
  1995. 0.17774 0.59867 Mdot
  1996. 1 0 0 setrgbcolor
  1997. 0.5 0.59867 Mdot
  1998. 1 0 0 setrgbcolor
  1999. 0.82226 0.59867 Mdot
  2000. 1 0 0 setrgbcolor
  2001. 0.5 0.32314 Mdot
  2002. 0 setgray
  2003. 0.002 setlinewidth
  2004. 0.14675 0.35579 moveto
  2005. 0.5 0.03131 lineto
  2006. stroke
  2007. 0.14675 0.35579 moveto
  2008. 0.08253 0.67043 lineto
  2009. stroke
  2010. 0.5 0.31252 moveto
  2011. 0.08253 0.67043 lineto
  2012. stroke
  2013. 0.5 0.31252 moveto
  2014. 0.5 0.03131 lineto
  2015. stroke
  2016. 0.85325 0.35579 moveto
  2017. 0.91747 0.67043 lineto
  2018. stroke
  2019. 0.85325 0.35579 moveto
  2020. 0.5 0.03131 lineto
  2021. stroke
  2022. 0.5 0.31252 moveto
  2023. 0.5 0.03131 lineto
  2024. stroke
  2025. 0.5 0.31252 moveto
  2026. 0.91747 0.67043 lineto
  2027. stroke
  2028. 0.5 0.96869 moveto
  2029. 0.08253 0.67043 lineto
  2030. stroke
  2031. 0.5 0.96869 moveto
  2032. 0.91747 0.67043 lineto
  2033. stroke
  2034. 0.5 0.31252 moveto
  2035. 0.91747 0.67043 lineto
  2036. stroke
  2037. 0.5 0.31252 moveto
  2038. 0.08253 0.67043 lineto
  2039. stroke
  2040. % End of Graphics
  2041. MathPictureEnd
  2042. :[font = output; inactive; formatted; output; endGroup; endGroup; ]
  2043. The Unformatted text for this cell was not generated.
  2044. Use options in the Actions Settings dialog box to control
  2045. when Unformatted text is generated.
  2046.  
  2047.  
  2048.  
  2049.  
  2050.  
  2051. ;[o]
  2052. -Graphics3D-
  2053.  
  2054. :[font = subsection; inactive; pageBreak; startGroup; ]
  2055. Zincblende Structures
  2056. :[font = text; inactive; ]
  2057.      Zincblende structures are like diamond cubic structures, except that the two interpenetrating FCC lattices have two different kind of atoms.  Gallium arsenide is a example of a material with zincblende structures.
  2058. :[font = input; startGroup; ]
  2059. ZincBlendePicture = Show[Graphics3D[{
  2060.      PointSize[0.05], Thickness[0.01],
  2061.      RGBColor[1,0,0], Point/@FCC,
  2062.      RGBColor[0,0,1], Point/@Map[{1,1,1}/4 + #&, FCC],
  2063.      RGBColor[0,1,0], Neighbors[Diamond, 3/16]}]]
  2064. :[font = postscript; inactive; output; preserveAspect; BITMAP; PostScript; pictureLeft = 76; pictureTop = 0; pictureWidth = 282; pictureHeight = 282; ]
  2065. %!
  2066. %%Creator: Mathematica
  2067. %%AspectRatio: 1 
  2068. MathPictureStart
  2069. % Scaling calculation
  2070. 0.02381 0.95238 0.02381 0.95238 [
  2071. [ 0 0 0 0 ]
  2072. [ 1 1 0 0 ]
  2073. ] MathScale
  2074. % Start of Graphics
  2075. 1 setlinecap
  2076. 1 setlinejoin
  2077. newpath
  2078. 0 0 moveto
  2079. 1 0 lineto
  2080. 1 1 lineto
  2081. 0 1 lineto
  2082. closepath
  2083. clip
  2084. newpath
  2085. %%Object: Graphics3D
  2086. gsave
  2087. 0.002 setlinewidth
  2088. 0.15335 0.23281 moveto
  2089. 0.41424 0.49885 lineto
  2090. stroke
  2091. 0.15335 0.23281 moveto
  2092. 0.08332 0.67473 lineto
  2093. stroke
  2094. 0.40029 0.89779 moveto
  2095. 0.08332 0.67473 lineto
  2096. stroke
  2097. 0.40029 0.89779 moveto
  2098. 0.41424 0.49885 lineto
  2099. stroke
  2100. 0.6157 0.03841 moveto
  2101. 0.81732 0.36694 lineto
  2102. stroke
  2103. 0.6157 0.03841 moveto
  2104. 0.6426 0.50192 lineto
  2105. stroke
  2106. 0.87501 0.78905 moveto
  2107. 0.6426 0.50192 lineto
  2108. stroke
  2109. 0.87501 0.78905 moveto
  2110. 0.81732 0.36694 lineto
  2111. stroke
  2112. 0.15335 0.23281 moveto
  2113. 0.08332 0.67473 lineto
  2114. stroke
  2115. 0.15335 0.23281 moveto
  2116. 0.6157 0.03841 lineto
  2117. stroke
  2118. 0.6426 0.50192 moveto
  2119. 0.6157 0.03841 lineto
  2120. stroke
  2121. 0.6426 0.50192 moveto
  2122. 0.08332 0.67473 lineto
  2123. stroke
  2124. 0.41424 0.49885 moveto
  2125. 0.40029 0.89779 lineto
  2126. stroke
  2127. 0.41424 0.49885 moveto
  2128. 0.81732 0.36694 lineto
  2129. stroke
  2130. 0.87501 0.78905 moveto
  2131. 0.81732 0.36694 lineto
  2132. stroke
  2133. 0.87501 0.78905 moveto
  2134. 0.40029 0.89779 lineto
  2135. stroke
  2136. 0.15335 0.23281 moveto
  2137. 0.6157 0.03841 lineto
  2138. stroke
  2139. 0.15335 0.23281 moveto
  2140. 0.41424 0.49885 lineto
  2141. stroke
  2142. 0.81732 0.36694 moveto
  2143. 0.41424 0.49885 lineto
  2144. stroke
  2145. 0.81732 0.36694 moveto
  2146. 0.6157 0.03841 lineto
  2147. stroke
  2148. 0.08332 0.67473 moveto
  2149. 0.6426 0.50192 lineto
  2150. stroke
  2151. 0.08332 0.67473 moveto
  2152. 0.40029 0.89779 lineto
  2153. stroke
  2154. 0.87501 0.78905 moveto
  2155. 0.40029 0.89779 lineto
  2156. stroke
  2157. 0.87501 0.78905 moveto
  2158. 0.6426 0.50192 lineto
  2159. stroke
  2160. grestore
  2161. 0 1 0 setrgbcolor
  2162. 0.01 setlinewidth
  2163. 0.48902 0.54382 moveto
  2164. 0.37451 0.4549 lineto
  2165. stroke
  2166. 1 0 0 setrgbcolor
  2167. 0.05 setlinewidth
  2168. 0.37451 0.4549 Mdot
  2169. 0 1 0 setrgbcolor
  2170. 0.01 setlinewidth
  2171. 0.48902 0.54382 moveto
  2172. 0.52559 0.54814 lineto
  2173. stroke
  2174. 0 0 1 setrgbcolor
  2175. 0.05 setlinewidth
  2176. 0.48902 0.54382 Mdot
  2177. 0 1 0 setrgbcolor
  2178. 0.01 setlinewidth
  2179. 0.81316 0.44322 moveto
  2180. 0.68536 0.34874 lineto
  2181. stroke
  2182. 0 1 0 setrgbcolor
  2183. 0.5648 0.39571 moveto
  2184. 0.68536 0.34874 lineto
  2185. stroke
  2186. 1 0 0 setrgbcolor
  2187. 0.05 setlinewidth
  2188. 0.68536 0.34874 Mdot
  2189. 0 0 1 setrgbcolor
  2190. 0.81316 0.44322 Mdot
  2191. 0 1 0 setrgbcolor
  2192. 0.01 setlinewidth
  2193. 0.65393 0.64746 moveto
  2194. 0.52559 0.54814 lineto
  2195. stroke
  2196. 0 1 0 setrgbcolor
  2197. 0.5648 0.39571 moveto
  2198. 0.52559 0.54814 lineto
  2199. stroke
  2200. 0 1 0 setrgbcolor
  2201. 0.39435 0.6061 moveto
  2202. 0.52559 0.54814 lineto
  2203. stroke
  2204. 1 0 0 setrgbcolor
  2205. 0.05 setlinewidth
  2206. 0.52559 0.54814 Mdot
  2207. 0 1 0 setrgbcolor
  2208. 0.01 setlinewidth
  2209. 0.5648 0.39571 moveto
  2210. 0.43611 0.29867 lineto
  2211. stroke
  2212. 0 1 0 setrgbcolor
  2213. 0.29865 0.34481 moveto
  2214. 0.43611 0.29867 lineto
  2215. stroke
  2216. 1 0 0 setrgbcolor
  2217. 0.05 setlinewidth
  2218. 0.43611 0.29867 Mdot
  2219. 0 1 0 setrgbcolor
  2220. 0.01 setlinewidth
  2221. 0.65393 0.64746 moveto
  2222. 0.7106 0.66232 lineto
  2223. stroke
  2224. 0 0 1 setrgbcolor
  2225. 0.05 setlinewidth
  2226. 0.65393 0.64746 Mdot
  2227. 0 1 0 setrgbcolor
  2228. 0.01 setlinewidth
  2229. 0.48762 0.86077 moveto
  2230. 0.35881 0.75627 lineto
  2231. stroke
  2232. 0 1 0 setrgbcolor
  2233. 0.39435 0.6061 moveto
  2234. 0.35881 0.75627 lineto
  2235. stroke
  2236. 1 0 0 setrgbcolor
  2237. 0.05 setlinewidth
  2238. 0.35881 0.75627 Mdot
  2239. 0 1 0 setrgbcolor
  2240. 0.01 setlinewidth
  2241. 0.5648 0.39571 moveto
  2242. 0.61349 0.38603 lineto
  2243. stroke
  2244. 0 0 1 setrgbcolor
  2245. 0.05 setlinewidth
  2246. 0.5648 0.39571 Mdot
  2247. 0 1 0 setrgbcolor
  2248. 0.01 setlinewidth
  2249. 0.39435 0.6061 moveto
  2250. 0.26524 0.50391 lineto
  2251. stroke
  2252. 0 1 0 setrgbcolor
  2253. 0.29865 0.34481 moveto
  2254. 0.26524 0.50391 lineto
  2255. stroke
  2256. 1 0 0 setrgbcolor
  2257. 0.05 setlinewidth
  2258. 0.26524 0.50391 Mdot
  2259. 0 0 1 setrgbcolor
  2260. 0.48762 0.86077 Mdot
  2261. 0 1 0 setrgbcolor
  2262. 0.01 setlinewidth
  2263. 0.29865 0.34481 moveto
  2264. 0.16926 0.24508 lineto
  2265. stroke
  2266. 1 0 0 setrgbcolor
  2267. 0.05 setlinewidth
  2268. 0.16926 0.24508 Mdot
  2269. 0 1 0 setrgbcolor
  2270. 0.01 setlinewidth
  2271. 0.39435 0.6061 moveto
  2272. 0.42707 0.61738 lineto
  2273. stroke
  2274. 0 0 1 setrgbcolor
  2275. 0.05 setlinewidth
  2276. 0.39435 0.6061 Mdot
  2277. 0 1 0 setrgbcolor
  2278. 0.01 setlinewidth
  2279. 0.29865 0.34481 moveto
  2280. 0.32206 0.32953 lineto
  2281. stroke
  2282. 0 0 1 setrgbcolor
  2283. 0.05 setlinewidth
  2284. 0.29865 0.34481 Mdot
  2285. 0 1 0 setrgbcolor
  2286. 0.01 setlinewidth
  2287. 0.85646 0.77475 moveto
  2288. 0.7106 0.66232 lineto
  2289. stroke
  2290. 0 1 0 setrgbcolor
  2291. 0.75986 0.49567 moveto
  2292. 0.7106 0.66232 lineto
  2293. stroke
  2294. 0 1 0 setrgbcolor
  2295. 0.57411 0.73352 moveto
  2296. 0.7106 0.66232 lineto
  2297. stroke
  2298. 1 0 0 setrgbcolor
  2299. 0.05 setlinewidth
  2300. 0.7106 0.66232 Mdot
  2301. 0 1 0 setrgbcolor
  2302. 0.01 setlinewidth
  2303. 0.75986 0.49567 moveto
  2304. 0.61349 0.38603 lineto
  2305. stroke
  2306. 0 1 0 setrgbcolor
  2307. 0.66051 0.20865 moveto
  2308. 0.61349 0.38603 lineto
  2309. stroke
  2310. 0 1 0 setrgbcolor
  2311. 0.46952 0.44265 moveto
  2312. 0.61349 0.38603 lineto
  2313. stroke
  2314. 1 0 0 setrgbcolor
  2315. 0.05 setlinewidth
  2316. 0.61349 0.38603 Mdot
  2317. 0 0 1 setrgbcolor
  2318. 0.85646 0.77475 Mdot
  2319. 0 1 0 setrgbcolor
  2320. 0.01 setlinewidth
  2321. 0.66051 0.20865 moveto
  2322. 0.51365 0.102 lineto
  2323. stroke
  2324. 1 0 0 setrgbcolor
  2325. 0.05 setlinewidth
  2326. 0.51365 0.102 Mdot
  2327. 0 0 1 setrgbcolor
  2328. 0.75986 0.49567 Mdot
  2329. 0 1 0 setrgbcolor
  2330. 0.01 setlinewidth
  2331. 0.57411 0.73352 moveto
  2332. 0.42707 0.61738 lineto
  2333. stroke
  2334. 0 1 0 setrgbcolor
  2335. 0.46952 0.44265 moveto
  2336. 0.42707 0.61738 lineto
  2337. stroke
  2338. 0 1 0 setrgbcolor
  2339. 0.26852 0.68889 moveto
  2340. 0.42707 0.61738 lineto
  2341. stroke
  2342. 1 0 0 setrgbcolor
  2343. 0.05 setlinewidth
  2344. 0.42707 0.61738 Mdot
  2345. 0 0 1 setrgbcolor
  2346. 0.66051 0.20865 Mdot
  2347. 0 1 0 setrgbcolor
  2348. 0.01 setlinewidth
  2349. 0.46952 0.44265 moveto
  2350. 0.32206 0.32953 lineto
  2351. stroke
  2352. 1 0 0 setrgbcolor
  2353. 0.05 setlinewidth
  2354. 0.32206 0.32953 Mdot
  2355. 0 0 1 setrgbcolor
  2356. 0.57411 0.73352 Mdot
  2357. 0 1 0 setrgbcolor
  2358. 0.01 setlinewidth
  2359. 0.46952 0.44265 moveto
  2360. 0.51587 0.43667 lineto
  2361. stroke
  2362. 0 0 1 setrgbcolor
  2363. 0.05 setlinewidth
  2364. 0.46952 0.44265 Mdot
  2365. 0 1 0 setrgbcolor
  2366. 0.01 setlinewidth
  2367. 0.26852 0.68889 moveto
  2368. 0.12059 0.56879 lineto
  2369. stroke
  2370. 1 0 0 setrgbcolor
  2371. 0.05 setlinewidth
  2372. 0.12059 0.56879 Mdot
  2373. 0 0 1 setrgbcolor
  2374. 0.26852 0.68889 Mdot
  2375. 0 1 0 setrgbcolor
  2376. 0.01 setlinewidth
  2377. 0.68712 0.56725 moveto
  2378. 0.51587 0.43667 lineto
  2379. stroke
  2380. 1 0 0 setrgbcolor
  2381. 0.05 setlinewidth
  2382. 0.51587 0.43667 Mdot
  2383. 0 0 1 setrgbcolor
  2384. 0.68712 0.56725 Mdot
  2385. 0 setgray
  2386. 0.002 setlinewidth
  2387. 0.6157 0.03841 moveto
  2388. 0.81732 0.36694 lineto
  2389. stroke
  2390. 0.6157 0.03841 moveto
  2391. 0.6426 0.50192 lineto
  2392. stroke
  2393. 0.87501 0.78905 moveto
  2394. 0.6426 0.50192 lineto
  2395. stroke
  2396. 0.87501 0.78905 moveto
  2397. 0.81732 0.36694 lineto
  2398. stroke
  2399. 0.15335 0.23281 moveto
  2400. 0.08332 0.67473 lineto
  2401. stroke
  2402. 0.15335 0.23281 moveto
  2403. 0.6157 0.03841 lineto
  2404. stroke
  2405. 0.6426 0.50192 moveto
  2406. 0.6157 0.03841 lineto
  2407. stroke
  2408. 0.6426 0.50192 moveto
  2409. 0.08332 0.67473 lineto
  2410. stroke
  2411. 0.08332 0.67473 moveto
  2412. 0.6426 0.50192 lineto
  2413. stroke
  2414. 0.08332 0.67473 moveto
  2415. 0.40029 0.89779 lineto
  2416. stroke
  2417. 0.87501 0.78905 moveto
  2418. 0.40029 0.89779 lineto
  2419. stroke
  2420. 0.87501 0.78905 moveto
  2421. 0.6426 0.50192 lineto
  2422. stroke
  2423. % End of Graphics
  2424. MathPictureEnd
  2425. :[font = output; inactive; formatted; output; endGroup; ]
  2426. The Unformatted text for this cell was not generated.
  2427. Use options in the Actions Settings dialog box to control
  2428. when Unformatted text is generated.
  2429.  
  2430.  
  2431.  
  2432.  
  2433.  
  2434. ;[o]
  2435. -Graphics3D-
  2436.  
  2437. :[font = input; startGroup; ]
  2438. Show[ZincBlendePicture, ViewPoint->{2,2,4}]
  2439. :[font = postscript; inactive; output; preserveAspect; BITMAP; PostScript; pictureLeft = 76; pictureTop = 0; pictureWidth = 282; pictureHeight = 282; ]
  2440. %!
  2441. %%Creator: Mathematica
  2442. %%AspectRatio: 1 
  2443. MathPictureStart
  2444. % Scaling calculation
  2445. 0.02381 0.95238 0.02381 0.95238 [
  2446. [ 0 0 0 0 ]
  2447. [ 1 1 0 0 ]
  2448. ] MathScale
  2449. % Start of Graphics
  2450. 1 setlinecap
  2451. 1 setlinejoin
  2452. newpath
  2453. 0 0 moveto
  2454. 1 0 lineto
  2455. 1 1 lineto
  2456. 0 1 lineto
  2457. closepath
  2458. clip
  2459. newpath
  2460. %%Object: Graphics3D
  2461. gsave
  2462. 0.002 setlinewidth
  2463. 0.5 0.63391 moveto
  2464. 0.85325 0.35579 lineto
  2465. stroke
  2466. 0.5 0.63391 moveto
  2467. 0.5 0.96869 lineto
  2468. stroke
  2469. 0.91747 0.67043 moveto
  2470. 0.5 0.96869 lineto
  2471. stroke
  2472. 0.91747 0.67043 moveto
  2473. 0.85325 0.35579 lineto
  2474. stroke
  2475. 0.14675 0.35579 moveto
  2476. 0.5 0.03131 lineto
  2477. stroke
  2478. 0.14675 0.35579 moveto
  2479. 0.08253 0.67043 lineto
  2480. stroke
  2481. 0.5 0.31252 moveto
  2482. 0.08253 0.67043 lineto
  2483. stroke
  2484. 0.5 0.31252 moveto
  2485. 0.5 0.03131 lineto
  2486. stroke
  2487. 0.5 0.63391 moveto
  2488. 0.5 0.96869 lineto
  2489. stroke
  2490. 0.5 0.63391 moveto
  2491. 0.14675 0.35579 lineto
  2492. stroke
  2493. 0.08253 0.67043 moveto
  2494. 0.14675 0.35579 lineto
  2495. stroke
  2496. 0.08253 0.67043 moveto
  2497. 0.5 0.96869 lineto
  2498. stroke
  2499. 0.85325 0.35579 moveto
  2500. 0.91747 0.67043 lineto
  2501. stroke
  2502. 0.85325 0.35579 moveto
  2503. 0.5 0.03131 lineto
  2504. stroke
  2505. 0.5 0.31252 moveto
  2506. 0.5 0.03131 lineto
  2507. stroke
  2508. 0.5 0.31252 moveto
  2509. 0.91747 0.67043 lineto
  2510. stroke
  2511. 0.5 0.63391 moveto
  2512. 0.14675 0.35579 lineto
  2513. stroke
  2514. 0.5 0.63391 moveto
  2515. 0.85325 0.35579 lineto
  2516. stroke
  2517. 0.5 0.03131 moveto
  2518. 0.85325 0.35579 lineto
  2519. stroke
  2520. 0.5 0.03131 moveto
  2521. 0.14675 0.35579 lineto
  2522. stroke
  2523. 0.5 0.96869 moveto
  2524. 0.08253 0.67043 lineto
  2525. stroke
  2526. 0.5 0.96869 moveto
  2527. 0.91747 0.67043 lineto
  2528. stroke
  2529. 0.5 0.31252 moveto
  2530. 0.91747 0.67043 lineto
  2531. stroke
  2532. 0.5 0.31252 moveto
  2533. 0.08253 0.67043 lineto
  2534. stroke
  2535. grestore
  2536. 0 1 0 setrgbcolor
  2537. 0.01 setlinewidth
  2538. 0.5 0.58151 moveto
  2539. 0.5 0.62841 lineto
  2540. stroke
  2541. 1 0 0 setrgbcolor
  2542. 0.05 setlinewidth
  2543. 0.5 0.62841 Mdot
  2544. 0 1 0 setrgbcolor
  2545. 0.01 setlinewidth
  2546. 0.2174 0.35579 moveto
  2547. 0.23378 0.41849 lineto
  2548. stroke
  2549. 0 1 0 setrgbcolor
  2550. 0.5 0.35579 moveto
  2551. 0.5 0.41849 lineto
  2552. stroke
  2553. 0 1 0 setrgbcolor
  2554. 0.7826 0.35579 moveto
  2555. 0.76622 0.41849 lineto
  2556. stroke
  2557. 0 1 0 setrgbcolor
  2558. 0.5 0.58151 moveto
  2559. 0.5 0.41849 lineto
  2560. stroke
  2561. 1 0 0 setrgbcolor
  2562. 0.05 setlinewidth
  2563. 0.23378 0.41849 Mdot
  2564. 1 0 0 setrgbcolor
  2565. 0.5 0.41849 Mdot
  2566. 1 0 0 setrgbcolor
  2567. 0.76622 0.41849 Mdot
  2568. 0 1 0 setrgbcolor
  2569. 0.01 setlinewidth
  2570. 0.5 0.58151 moveto
  2571. 0.36292 0.63991 lineto
  2572. stroke
  2573. 0 1 0 setrgbcolor
  2574. 0.5 0.58151 moveto
  2575. 0.63708 0.63991 lineto
  2576. stroke
  2577. 0 0 1 setrgbcolor
  2578. 0.05 setlinewidth
  2579. 0.5 0.58151 Mdot
  2580. 0 1 0 setrgbcolor
  2581. 0.01 setlinewidth
  2582. 0.35422 0.58927 moveto
  2583. 0.36292 0.63991 lineto
  2584. stroke
  2585. 0 1 0 setrgbcolor
  2586. 0.64578 0.58927 moveto
  2587. 0.63708 0.63991 lineto
  2588. stroke
  2589. 1 0 0 setrgbcolor
  2590. 0.05 setlinewidth
  2591. 0.36292 0.63991 Mdot
  2592. 1 0 0 setrgbcolor
  2593. 0.63708 0.63991 Mdot
  2594. 0 1 0 setrgbcolor
  2595. 0.01 setlinewidth
  2596. 0.5 0.10046 moveto
  2597. 0.5 0.18273 lineto
  2598. stroke
  2599. 0 1 0 setrgbcolor
  2600. 0.5 0.35579 moveto
  2601. 0.5 0.18273 lineto
  2602. stroke
  2603. 1 0 0 setrgbcolor
  2604. 0.05 setlinewidth
  2605. 0.5 0.18273 Mdot
  2606. 0 1 0 setrgbcolor
  2607. 0.01 setlinewidth
  2608. 0.2174 0.35579 moveto
  2609. 0.35422 0.41073 lineto
  2610. stroke
  2611. 0 1 0 setrgbcolor
  2612. 0.5 0.35579 moveto
  2613. 0.35422 0.41073 lineto
  2614. stroke
  2615. 0 1 0 setrgbcolor
  2616. 0.5 0.35579 moveto
  2617. 0.64578 0.41073 lineto
  2618. stroke
  2619. 0 1 0 setrgbcolor
  2620. 0.7826 0.35579 moveto
  2621. 0.64578 0.41073 lineto
  2622. stroke
  2623. 0 0 1 setrgbcolor
  2624. 0.05 setlinewidth
  2625. 0.2174 0.35579 Mdot
  2626. 0 0 1 setrgbcolor
  2627. 0.5 0.35579 Mdot
  2628. 0 0 1 setrgbcolor
  2629. 0.7826 0.35579 Mdot
  2630. 0 1 0 setrgbcolor
  2631. 0.01 setlinewidth
  2632. 0.5 0.83807 moveto
  2633. 0.5 0.87495 lineto
  2634. stroke
  2635. 1 0 0 setrgbcolor
  2636. 0.05 setlinewidth
  2637. 0.5 0.87495 Mdot
  2638. 0 1 0 setrgbcolor
  2639. 0.01 setlinewidth
  2640. 0.34433 0.34112 moveto
  2641. 0.35422 0.41073 lineto
  2642. stroke
  2643. 0 1 0 setrgbcolor
  2644. 0.65567 0.34112 moveto
  2645. 0.64578 0.41073 lineto
  2646. stroke
  2647. 0 1 0 setrgbcolor
  2648. 0.35422 0.58927 moveto
  2649. 0.35422 0.41073 lineto
  2650. stroke
  2651. 0 1 0 setrgbcolor
  2652. 0.64578 0.58927 moveto
  2653. 0.64578 0.41073 lineto
  2654. stroke
  2655. 1 0 0 setrgbcolor
  2656. 0.05 setlinewidth
  2657. 0.35422 0.41073 Mdot
  2658. 1 0 0 setrgbcolor
  2659. 0.64578 0.41073 Mdot
  2660. 0 1 0 setrgbcolor
  2661. 0.01 setlinewidth
  2662. 0.35422 0.58927 moveto
  2663. 0.19887 0.65367 lineto
  2664. stroke
  2665. 0 1 0 setrgbcolor
  2666. 0.35422 0.58927 moveto
  2667. 0.5 0.65367 lineto
  2668. stroke
  2669. 0 1 0 setrgbcolor
  2670. 0.64578 0.58927 moveto
  2671. 0.5 0.65367 lineto
  2672. stroke
  2673. 0 1 0 setrgbcolor
  2674. 0.64578 0.58927 moveto
  2675. 0.80113 0.65367 lineto
  2676. stroke
  2677. 0 0 1 setrgbcolor
  2678. 0.05 setlinewidth
  2679. 0.35422 0.58927 Mdot
  2680. 0 0 1 setrgbcolor
  2681. 0.64578 0.58927 Mdot
  2682. 0 0 1 setrgbcolor
  2683. 0.5 0.10046 Mdot
  2684. 0 1 0 setrgbcolor
  2685. 0.01 setlinewidth
  2686. 0.17774 0.59867 moveto
  2687. 0.19887 0.65367 lineto
  2688. stroke
  2689. 0 1 0 setrgbcolor
  2690. 0.5 0.59867 moveto
  2691. 0.5 0.65367 lineto
  2692. stroke
  2693. 0 1 0 setrgbcolor
  2694. 0.82226 0.59867 moveto
  2695. 0.80113 0.65367 lineto
  2696. stroke
  2697. 0 1 0 setrgbcolor
  2698. 0.5 0.83807 moveto
  2699. 0.5 0.65367 lineto
  2700. stroke
  2701. 1 0 0 setrgbcolor
  2702. 0.05 setlinewidth
  2703. 0.19887 0.65367 Mdot
  2704. 1 0 0 setrgbcolor
  2705. 0.5 0.65367 Mdot
  2706. 1 0 0 setrgbcolor
  2707. 0.80113 0.65367 Mdot
  2708. 0 0 1 setrgbcolor
  2709. 0.5 0.83807 Mdot
  2710. 0 1 0 setrgbcolor
  2711. 0.01 setlinewidth
  2712. 0.34433 0.34112 moveto
  2713. 0.5 0.40133 lineto
  2714. stroke
  2715. 0 1 0 setrgbcolor
  2716. 0.65567 0.34112 moveto
  2717. 0.5 0.40133 lineto
  2718. stroke
  2719. 0 0 1 setrgbcolor
  2720. 0.05 setlinewidth
  2721. 0.34433 0.34112 Mdot
  2722. 0 0 1 setrgbcolor
  2723. 0.65567 0.34112 Mdot
  2724. 0 1 0 setrgbcolor
  2725. 0.01 setlinewidth
  2726. 0.5 0.32314 moveto
  2727. 0.5 0.40133 lineto
  2728. stroke
  2729. 0 1 0 setrgbcolor
  2730. 0.5 0.59867 moveto
  2731. 0.5 0.40133 lineto
  2732. stroke
  2733. 1 0 0 setrgbcolor
  2734. 0.05 setlinewidth
  2735. 0.5 0.40133 Mdot
  2736. 0 0 1 setrgbcolor
  2737. 0.17774 0.59867 Mdot
  2738. 0 0 1 setrgbcolor
  2739. 0.5 0.59867 Mdot
  2740. 0 0 1 setrgbcolor
  2741. 0.82226 0.59867 Mdot
  2742. 0 0 1 setrgbcolor
  2743. 0.5 0.32314 Mdot
  2744. 0 setgray
  2745. 0.002 setlinewidth
  2746. 0.14675 0.35579 moveto
  2747. 0.5 0.03131 lineto
  2748. stroke
  2749. 0.14675 0.35579 moveto
  2750. 0.08253 0.67043 lineto
  2751. stroke
  2752. 0.5 0.31252 moveto
  2753. 0.08253 0.67043 lineto
  2754. stroke
  2755. 0.5 0.31252 moveto
  2756. 0.5 0.03131 lineto
  2757. stroke
  2758. 0.85325 0.35579 moveto
  2759. 0.91747 0.67043 lineto
  2760. stroke
  2761. 0.85325 0.35579 moveto
  2762. 0.5 0.03131 lineto
  2763. stroke
  2764. 0.5 0.31252 moveto
  2765. 0.5 0.03131 lineto
  2766. stroke
  2767. 0.5 0.31252 moveto
  2768. 0.91747 0.67043 lineto
  2769. stroke
  2770. 0.5 0.96869 moveto
  2771. 0.08253 0.67043 lineto
  2772. stroke
  2773. 0.5 0.96869 moveto
  2774. 0.91747 0.67043 lineto
  2775. stroke
  2776. 0.5 0.31252 moveto
  2777. 0.91747 0.67043 lineto
  2778. stroke
  2779. 0.5 0.31252 moveto
  2780. 0.08253 0.67043 lineto
  2781. stroke
  2782. % End of Graphics
  2783. MathPictureEnd
  2784. :[font = output; inactive; formatted; output; endGroup; endGroup; endGroup; ]
  2785. The Unformatted text for this cell was not generated.
  2786. Use options in the Actions Settings dialog box to control
  2787. when Unformatted text is generated.
  2788.  
  2789.  
  2790.  
  2791.  
  2792.  
  2793. ;[o]
  2794. -Graphics3D-
  2795.  
  2796. :[font = section; inactive; initialization; pageBreak; startGroup; ]
  2797. *)
  2798. Implementation
  2799. (*
  2800. :[font = text; inactive; initialization; startGroup; ]
  2801. *)
  2802. Define CubeCoords:
  2803. (*
  2804. :[font = input; initialization; endGroup; ]
  2805. *)
  2806. CubeCoords = {{0,0,0}, {0,0,1}, {0,1,0}, {0,1,1},
  2807.               {1,0,0}, {1,0,1}, {1,1,0}, {1,1,1}};
  2808. (*
  2809. :[font = text; inactive; initialization; startGroup; ]
  2810. *)
  2811. Define ShowCrystal:
  2812. (*
  2813. :[font = input; initialization; startGroup; ]
  2814. *)
  2815. ShowCrystal[list_, options___] :=
  2816.     Show[Graphics3D[{PointSize[0.05], RGBColor[1,0,0],
  2817.          Point/@list}], options]
  2818. (*
  2819. :[font = message; inactive; formatted; output; endGroup; endGroup; ]
  2820. Can't Format Cell
  2821.  
  2822.  
  2823. ;[o]
  2824. Get::noopen: Can't open init.m.
  2825. :[font = text; inactive; initialization; startGroup; ]
  2826. *)
  2827. Define Neighbors:
  2828. (*
  2829. :[font = input; initialization; ]
  2830. *)
  2831. VectorDistance[v1_List, v2_List] := 
  2832.        Block[{t}, t = (v2-v1); t . t]
  2833. (*
  2834. :[font = input; initialization; ]
  2835. *)
  2836. Neighbors0[list_, pt_, distance_] := 
  2837.    Map[Line[{pt, #}] &,  
  2838.       Select[list, VectorDistance[#, pt] == distance &]
  2839.       ] 
  2840. (*
  2841. :[font = input; initialization; endGroup; ]
  2842. *)
  2843. Neighbors[list_List, distance_] := 
  2844.       Map[Neighbors0[list, #, distance]&, list]
  2845. (*
  2846. :[font = text; inactive; initialization; startGroup; ]
  2847. *)
  2848. Define ShowCrystalLines:
  2849. (*
  2850. :[font = input; initialization; endGroup; endGroup; endGroup; ]
  2851. *)
  2852. ShowCrystalLines[list_, distance_, options___] := 
  2853.     Show[Graphics3D[{RGBColor[0,1,0], Thickness[0.01],
  2854.                      Neighbors[list, distance],
  2855.                      PointSize[0.05], RGBColor[1,0,0],
  2856.                      Point/@list}], options]
  2857. (*
  2858. ^*)
  2859.