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

hedgehog2012

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

(* This notebook contains examples for the PET-functions
1 V( V. V4 y# \( L+ R" |1 g7 z-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
; }# q7 P. P! _-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
: z  E' \7 N* L+ y( }6 }: `3 h2 {(* This top-cell must be run once before any example can be \
performed. *)

% d: {  v8 I0 r# i(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
1 Y' @0 B( d' G) Q6 N2 PDateien\Pet) and load PET. *)
& e1 G+ S+ A% H; ]6 R% ^& B( d$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
" `! T8 [3 L- ]. K7 T& dDeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];



7 K9 o% i3 S: D2 e+ {* Y" I4 q
. G2 K9 E. z" b$ e) [& a" g; m
另一个相关的“DEFDAT”:
; n& i. M; V5 h$ x+ M' `(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
) ?4 H. T' v+ Q9 G; f3 y4 cComputers & Geoscience 24:219-235 *)
8 b* N# N& G# i- p6 t
(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
% T( L. x# H! D! qUniversity of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
, c1 p  g" B4 G6 W8 ulast update: 11-2002 *)

BeginPackage["DEFDAT`"]
" n# a+ ?$ Z1 o. T& @
0 j9 T& K* O) H7 s" I) [& gDataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
# J4 V8 F$ ^# c( G! `2 ^4 y$ eThe following data sets are available, loaded with:\n\n
4 `% m1 X- v0 n: I+ F3 n+ cBerman (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
, Z  z! @* e, y+ E9 k% JGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
8 h( E3 v! d1 w* b# u\"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
When you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
9 l9 C1 c7 D  S. B# x(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
! c; ^. n/ {1 ~; o' ZTo create a new subdirectory for that purpose, you can use the option:\n
8 }6 F% G1 }, a! IWorkDirectory -> \"/directory_name\"\n
- w& C, _# [# }- }3 I5 OExample: 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
1 J5 }* q3 p3 ?+ a' jsubdirectory named \"sample_xy\".\n
1 Q* |, J8 m) M) a* pCalled from: User.\n
Package name: DEFDAT.m\n
  Q. F, i* \" ^& s& m2 oPET: Petrological Elementary Tools, (c) Edgar Dachs."