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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
) x6 ?( H% N5 `0 O: \) p' n3 u
" g( c; E. H, _) w. f$ ~0 y; B(* This notebook contains examples for the PET-functions
9 U% O7 v! G2 h: M-CalcFormula- calculate mineral formulae (and mole fractions)
1 \' o% A3 j2 ]8 T) c5 F-TransformDatFile- transform microprobe data-files (JEOL_JX \
- \5 l8 V- X5 O# ]8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
, Q& Y4 n7 q7 S- @" H% J(* This top-cell must be run once before any example can be \
performed. *)

(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];
1 |, q  d5 A1 I6 w4 y0 Z




6 {% n1 z) T1 T6 x1 X* d另一个相关的“DEFDAT”:
. o3 b' M* D. h4 x(* Name: DEFDAT`
1 q# z# L# D4 K% Q; I# w$ Ypackage of PET: Petrological Elementary Tools
3 q2 U- [8 A1 r- M2 @- X. p! f6 ^Computers & Geoscience 24:219-235 *)

+ Q- l3 d* C# Q( L(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
last update: 11-2002 *)
  P8 i6 ]3 W( b
BeginPackage["DEFDAT`"]

8 Z  s* W* `$ ?2 J7 S! i' ~; S2 VDataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
The 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
5 ~$ Q$ f$ A5 ]Dataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
3 n7 ?: O$ ]2 g! A\"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
8 d$ H2 N0 P' ?# _When you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
/ |) l  X4 i6 O1 ^# l" {6 e8 t$ N# _(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
9 c5 K2 g# A/ S! K# Y  t, `Example: 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
) k) I7 A& i% F& G2 f: g- |Called from: User.\n
Package name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
; `, I# f: t5 a