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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
# N, g/ G5 r  p8 N) t6 H
2 G# ^- o2 H  B6 g# T0 J/ \/ D(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
' W& U* m' C; v( X) {! H-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
9 y6 [% L: b7 a: U5 _1 m/ S! R-MakeAnalysisTable- make a usual table of mineralchemical \
& ~" Z+ E* r% e9 u# l7 Q! ?analyses (wt.% and formula units) *)
: G; Z7 @* W3 t, l; l/ o(* This top-cell must be run once before any example can be \
: a9 Z( @. A& Y6 @9 H& }/ J! Gperformed. *)
2 G+ b# ]9 D) h. i( ^4 i9 \0 j1 y9 F
- G( e6 r" e. u- k, Q- U(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
9 X, N2 o# ~0 V, [$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];

- l9 w" t3 y1 j

! I1 H5 {% x4 _" `9 I' C# r, T
% m* F* b# s6 B2 Z2 ]$ e
另一个相关的“DEFDAT”:
(* Name: DEFDAT`
$ ~" ?3 ^7 J- E+ Cpackage of PET: Petrological Elementary Tools
) u1 Y9 |. Y, N* O/ l' OComputers & Geoscience 24:219-235 *)

; h3 T; F8 N# u(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
; {) b" X3 H" Z7 O& KUniversity of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
last update: 11-2002 *)
* Q% O! Z6 R4 o9 @' I
0 l  p' b+ X/ W; @" @1 wBeginPackage["DEFDAT`"]

Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
- s8 ~1 N" ]3 y# v! uThe following data sets are available, loaded with:\n\n
- A% Z& g+ T% M; A  B! l6 |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
* |+ q, \  C: `* dDataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
6 a7 \6 R) R# X6 cconverted 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
% q- F' O2 h2 @& _/ C4 \0 Y' d(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
6 z7 x( j: q/ a$ sWorkDirectory -> \"/directory_name\"\n
" f8 f& n5 h" \; t! S; xExample: 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
subdirectory named \"sample_xy\".\n
Called from: User.\n
1 H0 A8 I9 T: {& {0 _' mPackage name: DEFDAT.m\n
; n" @! l* I( |PET: Petrological Elementary Tools, (c) Edgar Dachs."