. Z; z( t C k5 B7 l. b# j, E" M(* This notebook contains examples for the PET-functions 7 e. L; `( j5 v' W-CalcFormula- calculate mineral formulae (and mole fractions)$ L) }' {' e& L1 _- W
-TransformDatFile- transform microprobe data-files (JEOL_JX \' y" O% ^* ~. \# p' ]9 T- n( j
8600) to PET-readable format ( R' a8 ?8 o9 C u* B; z-MakeAnalysisTable- make a usual table of mineralchemical \ " B% E* @, F% c' b5 @7 B, e- hanalyses (wt.% and formula units) *) l K9 e' d9 X& v& U: K1 O
(* This top-cell must be run once before any example can be \# D& W, \5 u5 V8 r
performed. *) / x2 S J/ P6 |$ V8 q6 D) S8 q) h 0 H3 f! R, C6 z4 @: g) T, a* }(* Define the directory, where the PET-files reside (e.g. C:\Eigene \$ O* _4 k1 [8 k8 k
Dateien\Pet) and load PET. *) $ B7 p! s# Q0 c' [$PetDirectory = "C:\Eigene Dateien\Pet"; 3 r3 C6 @* F. X0 ]& _9 MSetDirectory[$PetDirectory];4 [2 ]( k6 f9 d9 v& R& R1 n
DeclarePackage["DEFDAT`", {"Dataset"}];+ @9 j9 |$ u9 @' B
Dataset[Dataset -> B88]; ' ^7 h% P/ D( c( |1 N% {* B' S: h) I) T0 i1 o
7 b l* J0 Z! k
- i8 K, S5 ~* ^4 Q6 H, L3 K 9 U& L6 `2 c7 ]( a* P) M q 7 _& z3 S1 ~9 [另一个相关的“DEFDAT”:+ b4 G% |1 Y/ v8 i% G# ~3 [
(* Name: DEFDAT` 5 B7 d/ H; T% x8 W$ L/ S# e) U, j
package of PET: Petrological Elementary Tools ; o9 E, s+ y' V% W
Computers & Geoscience 24:219-235 *)7 \6 A# |, g% `6 O4 S
" @4 r. S F; M: p! W! z Y
(* Summary: this package declares various PET-functions *)4 m+ g; b. e6 o' M- C8 S
+ M8 L6 s. E. M) z9 c. ]+ h2 B# [(* Author: Edgar Dachs, Department of Mineralogy# g! S5 |$ D8 ~+ e' n
University of Salzburg, Austria - E# d: z' P3 G& `6 \7 femail: edgar.dachs@sbg.ac.at. d9 P: Q! r3 i2 D% M
last update: 11-2002 *) 8 I+ R6 Q/ U/ Y9 z / k2 B$ c8 v5 {. p4 yBeginPackage["DEFDAT`"] 8 q6 I$ r' @# \9 C0 B3 O" X( x - v2 ^ ]; l% B) A5 c# lDataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n ! v/ f. n* n1 o) R! r/ f# `The following data sets are available, loaded with:\n\n 5 d, y r( |& WBerman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n " W% x! X0 _7 ]. L! [Holland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n . k" X$ j% {7 i9 \& a" GDataset[Dataset -> HP32]\n 7 @( [5 d" J/ T0 u3 E3 N3 M
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n8 s) N! w& ?- p P, @% P
See G::usage for more details.\n# X4 Y3 e7 r% S; f7 g7 E6 I
\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n , }" d2 b' P. Z; q4 B' Qconverted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n # u# y$ a# e) G. U# v9 e
When you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n# P8 N& E# U- n+ N, m. t
(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n ( D* L, Y7 D, ^& `* {0 HTo create a new subdirectory for that purpose, you can use the option:\n! s$ t \. N) a
WorkDirectory -> \"/directory_name\"\n 9 t0 B/ H! x3 R0 f/ y8 ]4 m; x$ o& fExample: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n% M" l# m2 @) e3 D0 c; n
This loads PET with the Berman data set and reads/writes all user files from/to the\n( O8 m `( y# u6 K& H* I
subdirectory named \"sample_xy\".\n ( p9 A7 @/ Y* r; _ yCalled from: User.\n ! n3 i" ?' k# \& E8 r8 fPackage name: DEFDAT.m\n6 ?$ m7 {& T) w) g3 J% C: n* ~
PET: Petrological Elementary Tools, (c) Edgar Dachs." 5 n v- q. ?; ^# o/ B& ^2 y4 s' Z