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

hedgehog2012

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

# E3 X/ E5 N. M/ [  l! ^' K(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
' a9 a- u  `- w2 k6 R# Q- I8600) to PET-readable format
/ ?* _! q5 [+ L9 W$ f9 H4 p! T-MakeAnalysisTable- make a usual table of mineralchemical \
  v! l& \3 n0 J6 h; @analyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
- n/ z# l8 A0 ^' xperformed. *)
% k1 @& a; l$ c* x
(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
5 U+ J/ `: S5 ]% S/ aDateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
$ \8 t5 @7 R+ ^DeclarePackage["DEFDAT`", {"Dataset"}];
7 t( x( h* h( E1 gDataset[Dataset -> B88];
! w% N! S1 `' P
( A6 j2 J2 B9 v- w
! F# D, e7 e1 z' w

( g) a- x3 L: l, r9 K" x8 T3 I
另一个相关的“DEFDAT”:
& Q  R* C3 {% d(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
5 a& V1 V/ K; j8 |& SComputers & Geoscience 24:219-235 *)

(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
3 e! a4 p5 t& V5 Pemail: edgar.dachs@sbg.ac.at
last update: 11-2002 *)

( x. @( c  T, W/ _& S( P9 eBeginPackage["DEFDAT`"]

Dataset::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
# @4 c3 \! O' U& v. |Holland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
7 U  b+ ]# Z  n' y  aDataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
- E0 N' n5 Q" H& S3 v4 L" A7 H* ~\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
- P: Z0 ^) e& T2 y  V$ @$ nconverted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
' c% }$ \* m7 ?When you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
- O& V% R/ C% ?3 I8 v8 s; t# R- |* o(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
# K( X8 K7 h9 ?  }. u. O7 G/ MWorkDirectory -> \"/directory_name\"\n
Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
+ W8 d2 T% \- }  j1 B- C7 lThis loads PET with the Berman data set and reads/writes all user files from/to the\n
& l) X; @" F& K7 g5 l- Bsubdirectory named \"sample_xy\".\n
, U) @% ]. z/ S2 G. oCalled from: User.\n
Package name: DEFDAT.m\n
' [, k/ x) b2 t- sPET: Petrological Elementary Tools, (c) Edgar Dachs."
) m1 d0 \" }6 D4 m9 M4 w% T# o/ @