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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
7 \4 V) E/ \) E1 o6 R; _
) A* Y8 D$ s& t- `6 Z(* This notebook contains examples for the PET-functions
4 \8 |* }* W" A7 d: ]9 P5 Z-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
& _5 l/ y0 F+ Z- m" N$ @: |analyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
performed. *)

(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
$ R6 O1 u* Y+ s, S, L( L" U$ a$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
3 V  k& C1 V/ }Dataset[Dataset -> B88];

% y2 @2 L  V# W5 _, b: M- p0 ^
7 K8 ~0 i/ A# P6 {% s


另一个相关的“DEFDAT”:
+ \$ {+ |( H3 h' X4 d0 }1 i4 ]/ @(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
! i1 |2 N  A' Z* d3 k/ DComputers & Geoscience 24:219-235 *)

7 l, g( }  z- ]% G* m8 t1 w2 ?(* Summary: this package declares various PET-functions *)

: {; g2 M2 v; Z2 d(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
/ g- V$ S' w, demail: edgar.dachs@sbg.ac.at
last update: 11-2002 *)

BeginPackage["DEFDAT`"]
5 e( ^, T' N& b4 R
0 }( T9 {# w; P6 M3 l3 zDataset::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
  G6 v! o) W: F+ B% ]: [Holland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
# @! _5 J$ P$ h8 X' h) PDataset[Dataset -> HP32]\n
. ?+ u7 p3 l5 i9 J, g5 C0 \Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
1 G3 ~; m) x# o/ I# J. z\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
6 C. V. s$ {- P& d, C% M, Uconverted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
8 B! Q5 h6 U, _* \( JWhen you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
' I. F/ m' y/ X* m(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
8 C4 i# s  z4 A' a' G  gExample: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
8 O1 B, E* ?' {7 _This loads PET with the Berman data set and reads/writes all user files from/to the\n
1 A4 C2 j9 i0 Y" Wsubdirectory named \"sample_xy\".\n
Called from: User.\n
$ R( V: p: a* xPackage name: DEFDAT.m\n
( a3 `7 O6 L4 I8 [6 v/ dPET: Petrological Elementary Tools, (c) Edgar Dachs."
3 i- C% C& u- v, s& v