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

hedgehog2012

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

(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
9 _2 `+ X  W# s+ B8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
, \( R( m& v1 v4 P8 W. Nperformed. *)

(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
  u2 f4 z2 A; V6 w% T' u* B8 pDateien\Pet) and load PET. *)
: H: G/ v" W4 w' X% R5 k$PetDirectory = "C:\Eigene Dateien\Pet";
( d. v8 A0 d+ X; e) g! Q, _SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
3 M! y) l, f- z! a1 W6 |2 M- TDataset[Dataset -> B88];
2 ]/ l# M8 O, B1 ~6 a  M


& I9 Z6 l3 p5 G% i" t0 w2 J

另一个相关的“DEFDAT”:
  V% Z) |5 D. [( @! _7 }9 d9 Z1 y(* Name: DEFDAT`
, q* S$ A6 J4 ]6 L7 rpackage of PET: Petrological Elementary Tools
# B  B& F* V* R7 l4 o' lComputers & Geoscience 24:219-235 *)

(* Summary: this package declares various PET-functions *)
% Y% v( Y0 r: S* n0 d! i
(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
) ~$ g9 Q- _# r9 Y5 @' K! `email: edgar.dachs@sbg.ac.at
last update: 11-2002 *)
3 ^" \4 `, G$ e, f* e, r
BeginPackage["DEFDAT`"]
% f) ^+ w  f  @
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
Dataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
4 |9 j% c3 J, o0 ASee 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
When you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
# c  ~6 J  z0 ^; D  D3 a(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
To create a new subdirectory for that purpose, you can use the option:\n
WorkDirectory -> \"/directory_name\"\n
7 v: ]2 I9 I% j: H! p. d$ _! kExample: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
3 c8 k" m2 s' |7 S/ p5 r* ]This loads PET with the Berman data set and reads/writes all user files from/to the\n
subdirectory named \"sample_xy\".\n
Called from: User.\n
0 s1 @; r% n# Z( f4 M. W6 NPackage name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
( d0 ^( C9 b" v4 P: A