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

hedgehog2012

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

(* This notebook contains examples for the PET-functions
3 K9 T  Z9 S, W( J8 S' R-CalcFormula- calculate mineral formulae (and mole fractions)
4 X0 j$ |1 @5 |# }* M-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
( q4 C/ j, R, J/ w/ }(* This top-cell must be run once before any example can be \
performed. *)

( n% i0 p; u8 u+ H; \  h(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
; |& |9 M: U9 D$ b1 _Dateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
& J: X* k4 A0 ?/ S/ T4 `2 ADataset[Dataset -> B88];
% T) z0 \1 }  U; @  ?' H& m9 t


( ^! \- h: g: D8 i7 h$ T

. {9 W* P$ L% P, l- H2 [另一个相关的“DEFDAT”:
(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
Computers & Geoscience 24:219-235 *)

! ]9 D& |$ u: `' P$ F7 \0 g! _$ P(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
: P8 t  H) k: `+ t+ A% jUniversity of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
7 A  I- o. |. @last update: 11-2002 *)

5 G! u) ^. M$ O2 E$ Y2 f6 K0 ~) DBeginPackage["DEFDAT`"]
: T- V' y5 L7 M0 Y  o
Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
The following data sets are available, loaded with:\n\n
( {: v+ _8 |2 F1 ~/ e, q. bBerman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
+ B* z( V$ N: D0 s& H( GHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
" I: ?0 g$ {& J! NDataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
! K2 R5 h& j! h& V0 ASee G::usage for more details.\n
, P5 a# Q# I% u" _2 @\"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
, f( l% u' j! Z6 _When you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
) }* x5 q! p# p7 D1 s' h# f# u; ^(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
$ p9 K. [+ O% {, z2 Z0 s% BTo create a new subdirectory for that purpose, you can use the option:\n
WorkDirectory -> \"/directory_name\"\n
Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
1 v' M. h8 h0 J5 D2 @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
. I( r2 Q/ U6 _8 f7 b& f5 SPackage name: DEFDAT.m\n
# F; f$ B* n9 A: |PET: Petrological Elementary Tools, (c) Edgar Dachs."