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

hedgehog2012

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

(* This notebook contains examples for the PET-functions
- |) I1 l# n% u' y0 T' _) |- V-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
( l3 @* h+ ]8 v8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
8 X% |7 l/ t: u7 c  B, Q6 Hperformed. *)
8 E6 W( ^* \% B1 o  y' ]6 I
5 f2 `  O- k+ S5 ]  F7 l$ P(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
" z5 s7 L/ B! ZDateien\Pet) and load PET. *)
, z7 |5 g' a. R4 ^7 x+ Z  i5 y$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
, Y  j* R# y5 @$ c& t- c: ~! s/ b, ADataset[Dataset -> B88];


3 x# F5 f7 ?( B, A

( ]3 ?- F- D8 I$ U1 u, d* g
另一个相关的“DEFDAT”:
  I0 J# L+ T. [$ x! T6 B(* Name: DEFDAT`
0 S$ [% y1 f$ g8 {package of PET: Petrological Elementary Tools
Computers & Geoscience 24:219-235 *)
1 B& C' o( i( f/ h( _% a9 w0 x
* w$ h' `  }, ?' c( U" D0 ]3 W6 c* i(* Summary: this package declares various PET-functions *)
; f% Z6 r+ E- v6 S6 x; L" t& a! w" a
(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
- l! \$ A5 d8 g, A$ q3 W5 h; temail: edgar.dachs@sbg.ac.at
last update: 11-2002 *)
) N) H2 x7 |8 S+ d5 U# s9 b
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
Berman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
Holland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
Dataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
" k6 S0 O4 P3 L+ p; a$ x/ M( `8 K\"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
& K5 A2 z& ^2 |. W0 _2 UWhen 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
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
! Y! t( p: H# ~- CThis loads PET with the Berman data set and reads/writes all user files from/to the\n
* r% t* ~# ~  asubdirectory named \"sample_xy\".\n
2 y+ `& L( _) n' U5 F6 pCalled from: User.\n
Package name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."