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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
7 Q) y( O- |& e
(* This notebook contains examples for the PET-functions
-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) *)
(* This top-cell must be run once before any example can be \
- b* |' |- k. c% |0 Nperformed. *)

(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
* I) M; c( r0 |$PetDirectory = "C:\Eigene Dateien\Pet";
9 j. n$ A$ w0 A& g" K; l9 {+ \SetDirectory[$PetDirectory];
7 W8 L5 t/ e! z5 ^0 c/ o; N2 IDeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];

1 h4 l5 M, q6 A6 i) {


5 T- u0 [) P' W/ v) S  F0 H+ a
, v; p/ G) o" q- K) c5 F# Q- B另一个相关的“DEFDAT”:
2 }% }6 G# q1 p: n2 Q+ T4 J(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
% f5 J1 _! Z0 E+ qComputers & Geoscience 24:219-235 *)
' _% w, c! L5 q+ e
(* Summary: this package declares various PET-functions *)
. Y( s* h. D" a( S" Q
$ Z0 W. ^! E! q$ [$ B) q(* Author: Edgar Dachs, Department of Mineralogy
) b* E8 Z1 D8 v+ @  s' z* K4 \University of Salzburg, Austria
) u9 ]  [" G( x+ c8 t! Remail: edgar.dachs@sbg.ac.at
7 w  W( F0 |+ e3 X4 rlast update: 11-2002 *)

BeginPackage["DEFDAT`"]

Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
" a1 o; R" Q' s: p2 l3 T8 j/ UThe 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
) j6 m1 L5 p0 @: s1 j+ YDataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
: C1 Y" r$ }6 @0 f6 s\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
/ k4 Y* C4 j# r8 v6 N- x7 Y; [1 Econverted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
When you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
5 K' c! X7 g$ l5 ^(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
$ [( {. p4 j& k7 u" V8 OTo create a new subdirectory for that purpose, you can use the option:\n
WorkDirectory -> \"/directory_name\"\n
4 F  `; h7 S4 v7 X' ]! Q6 GExample: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
: o2 Q$ C9 u  _5 D2 q( I2 eThis loads PET with the Berman data set and reads/writes all user files from/to the\n
! V& V! x; ]3 I$ xsubdirectory named \"sample_xy\".\n
Called from: User.\n
- ^+ {* m7 r- l4 y. aPackage name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
/ D6 L; v7 M& x" F0 \& ~