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

hedgehog2012

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

: @2 M6 I( N4 u7 w  [1 l1 _4 E(* This notebook contains examples for the PET-functions
9 ?4 Q9 x0 D7 q4 j* S: Z1 o0 v8 a-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
& l% ~+ z  b1 t8 g7 o. l1 i1 v3 ?; ^(* This top-cell must be run once before any example can be \
performed. *)
: t- m9 Q) H; p3 L5 L
(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
2 l1 \  W) |0 P% F1 W2 ^$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
, C7 j& i( y5 i4 C0 a: n- F$ d* L$ PDataset[Dataset -> B88];



  C+ A( x& l  v5 b

另一个相关的“DEFDAT”:
(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
1 q3 x/ g6 W) e4 k- o$ NComputers & Geoscience 24:219-235 *)

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

(* Author: Edgar Dachs, Department of Mineralogy
" H) Q5 p: N% d/ ]University of Salzburg, Austria
' c) d/ e6 ~3 y8 femail: edgar.dachs@sbg.ac.at
last update: 11-2002 *)
  K$ X. R% j/ o3 G
BeginPackage["DEFDAT`"]

Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
: d: p) U/ |' O2 KThe following data sets are available, loaded with:\n\n
# w+ g2 j7 o8 b% M* b( q# _Berman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
9 d. `* u. ^% t8 VHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
- D: l- R) h% l/ [) e. [Dataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
7 I3 T! E) V7 z* Q% I) G* C" \See G::usage for more details.\n
\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
3 J! l# }/ L9 M  |- _, [1 cconverted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
) Q$ h6 A; o( n' ?* xWhen you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
4 G+ W" A3 H, l  A6 U  w; b$ q(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
8 f; C# a6 k  B9 G! Z; bTo create a new subdirectory for that purpose, you can use the option:\n
( P( S6 \  u0 r7 _8 d- e4 H2 T5 eWorkDirectory -> \"/directory_name\"\n
Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
0 Z2 \1 \2 _+ w& N, T2 wThis loads PET with the Berman data set and reads/writes all user files from/to the\n
( L, X# T, `; ~+ ?! m; `) msubdirectory named \"sample_xy\".\n
) ~  |# I0 V0 [% c* @Called from: User.\n
5 A; R" ?: u; N. mPackage name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
" W3 M- ?; W: K8 T) T. H& Z