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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
/ V7 x% e0 N1 |" {& c0 g
(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
' A& q! {4 d0 x8600) to PET-readable format
& T. F& m1 p' Z-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
9 n7 f2 o9 l" J1 o" e(* This top-cell must be run once before any example can be \
' ^' P3 ]2 g" w' M/ l9 jperformed. *)
% a; D. {, C  e1 z) X. Y9 [
: O! X$ U  b- ^/ f" S/ x2 R(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
' p2 g) f4 e" J8 x/ r, j  Y$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];
. r3 V+ |/ U; Q7 L) {
# W* _2 \, \- w0 W


+ s! o3 p, y5 F4 d/ m2 s& ~
+ R$ T! K6 v1 n% O  k  I  D另一个相关的“DEFDAT”:
(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
" m9 C9 S6 B* Y6 s4 L! i& E$ p2 WComputers & Geoscience 24:219-235 *)

2 x- U8 J! F1 v  J/ Z2 G(* Summary: this package declares various PET-functions *)
4 S: w* z: K, o9 ?0 S9 e
(* Author: Edgar Dachs, Department of Mineralogy
* p) G" }, ^1 A; B3 _University of Salzburg, Austria
4 @1 X5 `. R- @1 C: ]4 i8 Wemail: edgar.dachs@sbg.ac.at
6 i* h% l+ M7 ]6 I& l3 \& A1 N/ ulast update: 11-2002 *)

6 u- m/ D5 @$ G9 UBeginPackage["DEFDAT`"]

8 D7 `. A8 U! m. ~2 IDataset::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
2 J4 d! r/ k& L8 Q1 tHolland & 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
See G::usage for more details.\n
  {# ?2 v4 G0 @1 Y/ m\"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
' {, u8 c8 W+ R(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
7 C: f; |' L5 _  ~4 F! ?WorkDirectory -> \"/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
( X3 Y" ^8 y0 B. H6 ~subdirectory named \"sample_xy\".\n
Called from: User.\n
0 D1 J  c1 ~- ]5 Q; f1 u5 Q. c+ lPackage name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
$ l4 k5 t( ^( x* q7 z& y7 E& t4 \