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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
6 P3 h8 ~) _5 p# H+ d
( Z! {9 A& V' Q' l+ P, {3 ?$ N(* This notebook contains examples for the PET-functions
5 A& T$ O: j: M-CalcFormula- calculate mineral formulae (and mole fractions)
, i$ c; K1 C% D-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
7 T- T9 J. S1 |; ]+ Zanalyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
performed. *)
) s' K' x+ B, {6 k- @4 m
, ^9 X$ V8 z( D(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
* ~# s8 J- V4 `8 N6 H  @! SDeclarePackage["DEFDAT`", {"Dataset"}];
" E2 i  u0 [: u! |% }# O. B3 \Dataset[Dataset -> B88];

7 ?/ @2 u- o6 u! e0 f5 `0 c- B
2 ~  v5 I4 h( N; @5 l


% H/ y9 F$ I8 h, v另一个相关的“DEFDAT”:
(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
Computers & Geoscience 24:219-235 *)
! `0 e, r) T; {+ o3 L$ p6 W
(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
4 D( w0 |) i, Z& J" H& R( Q/ }: eUniversity of Salzburg, Austria
+ I( o8 P* g; Hemail: edgar.dachs@sbg.ac.at
7 A% `7 G# c7 Klast update: 11-2002 *)
) |: E  K/ ^4 j' l8 K) h& s: B+ m
' t9 k  j: T  X1 ^BeginPackage["DEFDAT`"]
3 L1 q5 e  h$ S& b+ U
Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
The following data sets are available, loaded with:\n\n
2 t* G7 u  d; Q+ T6 G& _3 _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
Dataset[Dataset -> HP32]\n
  @% V: b9 e, nGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
! i* W/ @5 H& h$ V5 o+ @\"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
4 B; u3 ~/ ?' X( g  V2 eWhen you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
% B* q: {, W( O$ x(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  L* M6 A- e/ ?WorkDirectory -> \"/directory_name\"\n
Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
2 w8 u2 J* _) t% m: R# \This loads PET with the Berman data set and reads/writes all user files from/to the\n
subdirectory named \"sample_xy\".\n
9 E/ T4 E, P5 J1 i, q* c: ?0 ACalled from: User.\n
Package name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."