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

hedgehog2012

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

(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
2 g( g! _! @& w& H-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
7 ^$ p! x! j$ d; r-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
performed. *)
( e, q1 F6 ~' t2 R9 V2 |
4 Y+ X. m1 C: B: `# S(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
, d* D1 v1 n5 w7 cDateien\Pet) and load PET. *)
$ V3 `2 R+ X" R# J5 s! C$ O; J$PetDirectory = "C:\Eigene Dateien\Pet";
4 [9 x0 a2 q) [3 r# S3 ^SetDirectory[$PetDirectory];
  f( S7 p' M  w: v/ l; aDeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];

3 n4 x( W3 v$ X9 U

& o/ T4 Z. }9 p5 Z% F& N4 k) A
1 H) X0 K+ S) J. Q; N& W$ T
4 m+ \+ K& R$ {" |- K, a- H& H另一个相关的“DEFDAT”:
(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
Computers & Geoscience 24:219-235 *)

(* Summary: this package declares various PET-functions *)
& U! a) M  G+ k5 L
5 f8 b1 D5 G7 A- ?(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
last update: 11-2002 *)

: u6 [8 S: Q& x. pBeginPackage["DEFDAT`"]
0 y0 `" o" F( z2 B" y# F
Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
* p! K( w# n0 [  B6 kThe following data sets are available, loaded with:\n\n
2 c9 y2 R/ e2 v" JBerman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
Holland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
. j8 q. `( l6 ^6 GDataset[Dataset -> HP32]\n
9 d: Z9 ?7 K. H+ C1 Z! zGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
! r8 E( p0 h' I4 R1 m\"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
(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
2 b; h$ h; _& x, y$ GTo create a new subdirectory for that purpose, you can use the option:\n
WorkDirectory -> \"/directory_name\"\n
& Y. J- J4 g% J. n: @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
' F8 {/ z* b3 }6 rCalled from: User.\n
6 y, q: z1 t* Z9 v8 b8 PPackage name: DEFDAT.m\n
$ ?; u- j% H& Y6 H" ]* `0 RPET: Petrological Elementary Tools, (c) Edgar Dachs."