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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
( j1 V) q. o, X) A6 \7 R9 `& V" Y
(* This notebook contains examples for the PET-functions
3 C, O4 ^0 j: i1 a-CalcFormula- calculate mineral formulae (and mole fractions)
# [4 D; k' E  ?8 u$ ?-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
4 I; `1 D0 B# h' K' h$ K-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
0 I4 i9 h! q8 w9 M. q( Jperformed. *)
8 ?- e; }& ~& J/ M
: c" y$ N- i* o+ m  _( u(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
  x, E; C& V" XDateien\Pet) and load PET. *)
( a, E' v9 d" B5 O0 W8 g. a$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
$ _6 Z# |9 c* P2 k0 E, ^Dataset[Dataset -> B88];
' y& z7 |7 Q( f& o
) P5 N& j0 t9 p( k# w1 H


: ?8 A0 u: y8 n2 M
/ j$ W$ ~; r" ?) v5 M& N9 K另一个相关的“DEFDAT”:
(* Name: DEFDAT`
& e' k1 c4 p+ \5 y" d: lpackage of PET: Petrological Elementary Tools
Computers & Geoscience 24:219-235 *)
4 `: V( H: k) q$ E' r
1 X8 T0 E8 p# Q(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
: t  e( F2 ~+ e  TUniversity of Salzburg, Austria
% a8 K6 c$ k2 T7 |( F1 bemail: edgar.dachs@sbg.ac.at
last update: 11-2002 *)

BeginPackage["DEFDAT`"]

Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
The following data sets are available, loaded with:\n\n
% ]* O3 ?; O( gBerman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
1 p  t: C: f' z; C4 kHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
' B4 A8 L" z; @4 fDataset[Dataset -> HP32]\n
6 C' C+ \; K0 N  z6 WGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
( Z8 M1 {0 r# G& T\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
+ F) }* ^* D9 x$ j: \converted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
! c8 j8 w" C# j6 WWhen you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
* m8 H( `- x5 j  X' vTo create a new subdirectory for that purpose, you can use the option:\n
WorkDirectory -> \"/directory_name\"\n
* y% H( s9 c3 t; ^4 W5 t( {Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
+ `0 V* a+ s0 Y3 _This loads PET with the Berman data set and reads/writes all user files from/to the\n
8 n8 C  [4 p+ A: P3 X0 msubdirectory named \"sample_xy\".\n
8 v0 @1 L& K! e7 |Called from: User.\n
Package name: DEFDAT.m\n
  B# _4 g# F6 {! O. l) {PET: Petrological Elementary Tools, (c) Edgar Dachs."
+ y& h" A: H7 a) B7 r