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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
4 S* e( i- H6 w  o
. X  s: m* w% i(* 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 \
3 l- ]% I9 M/ y& k) O$ e" oanalyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
$ @) k( q3 ~0 n9 ?1 F# Wperformed. *)

' u; O+ R2 A' F" B0 R' Q' I(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
* f1 i* V* w) _Dateien\Pet) and load PET. *)
/ M0 i8 E, ?% p- E6 V$PetDirectory = "C:\Eigene Dateien\Pet";
+ O# E( P8 u$ S+ JSetDirectory[$PetDirectory];
/ k6 j# P1 b9 J7 y9 c7 S; n" DDeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];



% A* m3 _& t: r+ P9 O2 Y7 S; B

0 j( p! s% Y! s, d  Q# }8 R另一个相关的“DEFDAT”:
) f- R% v. T  \(* Name: DEFDAT`
& ?4 [! ?7 ]% E/ b; N3 k: y/ wpackage of PET: Petrological Elementary Tools
: ^; Z% U5 o2 s& A0 J* w. d) gComputers & Geoscience 24:219-235 *)
# v+ `" W2 P5 L  x/ ?* d
(* Summary: this package declares various PET-functions *)
3 P4 A! }# R* F' s
(* Author: Edgar Dachs, Department of Mineralogy
- }! A8 s$ e, D9 j0 n8 XUniversity of Salzburg, Austria
1 P% C+ p% N' n4 N+ G7 T5 @email: edgar.dachs@sbg.ac.at
last update: 11-2002 *)

2 u" W$ ]  y2 P' ~2 `8 kBeginPackage["DEFDAT`"]
$ [7 Y( W2 [/ S- Y
" B/ s+ t& Q1 t0 O% P8 J$ K! x* IDataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
4 x* c4 P6 j) X7 I" a' IThe following data sets are available, loaded with:\n\n
Berman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
: B9 G: Z9 C3 {Holland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
Dataset[Dataset -> HP32]\n
0 C$ d$ \  d, s, D. Y$ qGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
5 t7 p! |5 ]5 I4 i9 sSee 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
When you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
5 l$ p% ~& Y. T. Q2 Z(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
WorkDirectory -> \"/directory_name\"\n
Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
9 n* A) z6 B1 O& I4 zThis loads PET with the Berman data set and reads/writes all user files from/to the\n
" g* R" r$ ?5 `subdirectory named \"sample_xy\".\n
6 D, J0 L$ m4 i. g- B0 s( T4 eCalled from: User.\n
- h) K- K- ?/ c& Y; A) _Package name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
8 u( x' N7 d2 s