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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
* C& ~' g) X( O" R; A+ {+ ^
(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
0 N4 }- I* |( i+ r- g-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
* z) e+ o4 {3 r& p5 A(* This top-cell must be run once before any example can be \
" q  X8 B* p% {8 z2 {7 ~% Tperformed. *)
7 y1 _0 a! i- V
(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
5 ~9 F: T# p* q& W; bDateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
# z+ v. y( Y: {  R. X4 gDataset[Dataset -> B88];


7 ^0 E" i' F( G4 b' j; W' r
. t) {. D. I. M0 d2 Q+ W8 {2 l
5 v* y- f7 F2 E; D8 c2 s
另一个相关的“DEFDAT”:
& V' N' \! \$ E* h(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
' S9 N. ^8 W0 i2 IComputers & Geoscience 24:219-235 *)
5 B+ b2 Y# m9 r* l
(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
. ^7 n. B& F7 D; _& W- O7 uemail: edgar.dachs@sbg.ac.at
last update: 11-2002 *)
& A! C1 f7 R* U8 `9 `9 U7 h
BeginPackage["DEFDAT`"]
4 K6 Q/ u, I2 ?) L: g; U6 ]0 K
Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
  C* J$ ], F) t+ Q6 u! f+ ZThe 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
- g2 \) t$ k) s8 \) L, I% NDataset[Dataset -> HP32]\n
* F7 I2 P5 _2 C+ J. v) S% y) i! cGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
4 l- v; z  m" O  L! u) O! C! Y\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
$ _6 b9 A' U+ F7 nconverted 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
1 S: Q+ l3 {' z% K( P& V(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
6 c# c' j1 L2 m9 s$ c$ {+ NExample: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
" Q- w# A/ o7 n/ o. g3 k* \This loads PET with the Berman data set and reads/writes all user files from/to the\n
0 G4 E* U* ?* l, Tsubdirectory named \"sample_xy\".\n
! \0 Y' T+ x" P4 nCalled from: User.\n
Package name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."