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

hedgehog2012

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

8 _: @! @+ Q" Q(* This notebook contains examples for the PET-functions
) P6 Y# f2 o+ `* U9 B7 F6 v-CalcFormula- calculate mineral formulae (and mole fractions)
5 L+ K& W7 Y0 m+ O$ y$ D1 O-TransformDatFile- transform microprobe data-files (JEOL_JX \
$ Q! o+ n; s/ S* h' _  n/ \8600) to PET-readable format
/ s' l$ _6 p. Q* J+ I-MakeAnalysisTable- make a usual table of mineralchemical \
# f8 J+ i7 @: k7 Manalyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
performed. *)
% H: y$ {7 g, W1 i1 g
(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
% @3 x2 N# O8 o+ `Dateien\Pet) and load PET. *)
6 _/ O! J+ \. c  W* A0 C$PetDirectory = "C:\Eigene Dateien\Pet";
+ m" D$ n2 X$ o5 I  oSetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
/ F6 P1 r: C/ s) x( z- z- w% ^Dataset[Dataset -> B88];
& T" V8 v* [! [, f, u


$ u/ J0 b5 X# J2 F3 H

% [1 e4 a. G9 B% |+ C另一个相关的“DEFDAT”:
5 e& }$ b6 Y% V5 A/ n(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
$ V2 k7 k" T. A4 {Computers & Geoscience 24:219-235 *)
/ x/ D( O7 ~/ ?5 b5 L) O
(* Summary: this package declares various PET-functions *)
( y4 I5 }) j5 f8 E' M
% {% t$ T; I) }/ B* U  m/ d(* Author: Edgar Dachs, Department of Mineralogy
) e5 M6 r8 V& [: DUniversity of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
5 U1 @& y% b5 wlast update: 11-2002 *)
; e5 H8 k, n$ O. d
BeginPackage["DEFDAT`"]
! i) T& M$ w0 P, H* x% L
$ E. e$ F+ s% o1 Z" ~Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
$ X  T! i5 j+ V0 A) L7 v$ ~5 O( XThe following data sets are available, loaded with:\n\n
Berman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
6 X0 ^. z5 I( C( r7 PHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
9 W# A' S3 i3 e9 ?0 bDataset[Dataset -> HP32]\n
- L  m& D; Y' L9 q% qGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
: A# f% s! i+ i! XSee G::usage for more details.\n
\"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
# H0 k& C$ Q6 C+ `# j" V5 \8 qWhen you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
) H4 x& D' e  V(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
# T, \% l- W# L/ t, k% ZTo create a new subdirectory for that purpose, you can use the option:\n
7 ?; a0 ]& }# KWorkDirectory -> \"/directory_name\"\n
Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
+ A& C3 \% \) k" S# u$ {* s$ [; GThis loads PET with the Berman data set and reads/writes all user files from/to the\n
( B- W6 D7 w$ w! qsubdirectory named \"sample_xy\".\n
0 h  ]! s; k( r, w% uCalled from: User.\n
; I" S. Y* L/ u( }Package name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."