Mathematica不能识别一个计算矿物化学式的软件？

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：

- B: P+ H! V- J  i* Y/ g$ t(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
, o/ v; ]+ P- ?-TransformDatFile- transform microprobe data-files (JEOL_JX \
% u, `  p. a! H/ j) D8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
- y3 c8 [2 D8 T  g9 ^- Hanalyses (wt.% and formula units) *)
% F5 d- a% Z+ P(* This top-cell must be run once before any example can be \
& \+ u; f. n  X0 }' _performed. *)

2 c9 u: c  A  `' ?(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
6 n+ N& G% w/ x6 W# _# Y% mDateien\Pet) and load PET. *)
" S9 p: j( H$ I1 T" o5 k* [" K$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];


! E0 ?3 l1 d8 V$ e0 i4 d


另一个相关的“DEFDAT”:
) j: S. Z9 S! \2 ^% C( e' M! N(* Name: DEFDAT`
# X6 e! ]3 }8 d" F/ N% C1 h$ i( Apackage of PET: Petrological Elementary Tools
Computers & Geoscience 24:219-235 *)

(* Summary: this package declares various PET-functions *)
/ k- w3 {5 R- I! h  s. C, z& @# u) z
(* Author: Edgar Dachs, Department of Mineralogy
8 y. H  r  ^" t+ |University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
last update: 11-2002 *)

5 Q2 J8 \6 P( i; `: aBeginPackage["DEFDAT`"]
" d3 G6 \* E& q* s1 g9 N( M3 A
Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
The following data sets are available, loaded with:\n\n
Berman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
Holland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
1 _0 Z/ J% R# RDataset[Dataset -> HP32]\n
$ S" S' V4 g' F8 ]. W( hGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
converted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
: D  [8 {: Z, ]3 n( qWhen you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
0 l; l0 O9 M0 }& t0 @(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
. F* L! l, u) eTo create a new subdirectory for that purpose, you can use the option:\n
8 y$ a. o, r: k+ zWorkDirectory -> \"/directory_name\"\n
Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
This loads PET with the Berman data set and reads/writes all user files from/to the\n
subdirectory named \"sample_xy\".\n
+ Q9 a+ v4 m/ Q' ~Called from: User.\n
9 [2 {; Y# v2 w" t7 H/ BPackage name: DEFDAT.m\n
8 f% ?! |2 O# \( ~" tPET: Petrological Elementary Tools, (c) Edgar Dachs."