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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
% K% }# g9 Y- N8 m/ ]
* [/ Y) N* l( o9 ?* E$ k2 B(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
' S! S' a+ p, u- z+ O. a-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
- g6 J9 R* H+ Q  M8 [-MakeAnalysisTable- make a usual table of mineralchemical \
* r9 J# Q# J. i' Q3 panalyses (wt.% and formula units) *)
  M/ H2 i/ |0 t* V; k- B(* This top-cell must be run once before any example can be \
% }. J2 [* A/ S5 E7 k/ u& Aperformed. *)
* I5 C+ L, B* w  ~* O2 q2 T
(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
7 R4 w  B* A/ i5 W3 W: F8 nDateien\Pet) and load PET. *)
4 j' }) S9 D+ }$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
2 U$ m4 v+ Q7 w, t/ q( gDeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];

% K% `7 c6 S1 }, r



" ]- c/ L* V8 ^: E" [6 z" `0 C' z另一个相关的“DEFDAT”:
* [. ?& s7 ]( i7 r( z' f(* Name: DEFDAT`
$ r- j9 R! @: x6 Opackage of PET: Petrological Elementary Tools
: y& [8 O& W5 EComputers & Geoscience 24:219-235 *)

5 Q+ X0 m( _# j(* Summary: this package declares various PET-functions *)

& g6 [$ K0 z5 i9 r! i2 n(* Author: Edgar Dachs, Department of Mineralogy
4 I6 d2 `/ l1 o* tUniversity of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
: q7 m" F" r4 [4 {- ?last update: 11-2002 *)
: K' c$ b0 |5 N* f. I$ j
* F' I# q" J3 x: ?: F8 ?/ eBeginPackage["DEFDAT`"]

% h0 c# N- f/ C) `; e+ \0 N6 RDataset::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
' [+ v. D- A+ M+ Y! W. wHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
Dataset[Dataset -> HP32]\n
2 R7 U! L; a% X, Q7 a* {Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
' V. k3 ~0 |$ v' S  F! Y# {See G::usage for more details.\n
7 F5 e! F' Y6 Z& |\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
  [1 m) ]( N* Q/ j% X* Zconverted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
% i* ]  O2 l! J- CWhen you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
0 A0 ]+ @$ S1 ?' h3 T  T* p(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
% f2 W1 _2 C. Y/ A5 ~$ l5 B  DWorkDirectory -> \"/directory_name\"\n
Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
& J( O' d& w5 Y8 p: J- f6 C% jThis loads PET with the Berman data set and reads/writes all user files from/to the\n
4 W6 {- r( R2 S* ksubdirectory named \"sample_xy\".\n
Called from: User.\n
1 Z9 ^# U  Z2 T5 C3 ?Package name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."