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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
& W4 }" p; s( O3 I2 C! ]
% Y: d, }0 H4 ~3 t(* This notebook contains examples for the PET-functions
$ X; V8 Z1 Z, \-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
, y. a/ g7 q, _8 F-MakeAnalysisTable- make a usual table of mineralchemical \
5 l. D( q- y  }5 \5 ?analyses (wt.% and formula units) *)
( @) o) |% q5 z! m6 \(* This top-cell must be run once before any example can be \
6 w, ]8 s6 l8 V6 xperformed. *)
" s( N7 W7 g, h+ l( M! h0 C) J# i
(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
% V* Q* `4 E+ o1 M; g, t$PetDirectory = "C:\Eigene Dateien\Pet";
: u1 r& W# [9 J* w2 lSetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
6 H$ ^: F  g0 [" cDataset[Dataset -> B88];
  J. E( K( [5 S5 h5 {9 v

0 \" D- q) W$ `
, \# E" r% P6 I1 q. P" i, O

% K2 V: b6 D0 J; L, _另一个相关的“DEFDAT”:
(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
Computers & Geoscience 24:219-235 *)

(* Summary: this package declares various PET-functions *)

/ [; m- V- T+ u( U& s, X(* Author: Edgar Dachs, Department of Mineralogy
  A) N9 y7 m5 \% t5 K4 ?University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
2 y% p$ e7 F- Clast update: 11-2002 *)
# z* M) Z- ^, i) A) Z
BeginPackage["DEFDAT`"]
+ d+ C9 U8 d' Q" T6 m6 I7 R
5 R8 Y! g- S0 C' _5 S! j/ }Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
' l3 o% Y* D. sThe following data sets are available, loaded with:\n\n
Berman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
: a/ f" Y+ e2 x; Q8 @2 w, ?. g3 aHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
Dataset[Dataset -> HP32]\n
; I: I. A, T8 i* AGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
9 p( a" I8 v+ }  sSee G::usage for more details.\n
\"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
- S1 B6 g) i$ J; D& |9 H  P- I) {When you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
8 U) P% e* G! g, ~! q0 z% g$ ~( B8 @(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
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
# R# _$ p4 ~, a4 Y/ Ysubdirectory named \"sample_xy\".\n
0 P( e2 k1 `. e& K8 gCalled from: User.\n
& w$ C3 ?+ f/ X/ CPackage name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
, }3 R0 J8 g* [: S1 a* Y+ R