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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
9 r9 Y. l$ r+ y& p! _
/ s# t/ ^! O6 n/ C(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
2 V# a: M; G4 J8 E" T$ S8600) to PET-readable format
! e' h, Y7 }- V- c( `$ l6 L-MakeAnalysisTable- make a usual table of mineralchemical \
& g) L: [6 `, [* U( Panalyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
performed. *)

) s- k# d" M9 K: i(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
; v# I9 U6 U% T8 ^, S8 g$PetDirectory = "C:\Eigene Dateien\Pet";
2 p2 c+ ?& m1 M. e+ k* i7 oSetDirectory[$PetDirectory];
5 f* S! o; {$ {: {DeclarePackage["DEFDAT`", {"Dataset"}];
. `: \5 T. z1 B7 [Dataset[Dataset -> B88];

! ]% J* {& G* ^4 i5 j



  \% `  a; F* S# n% K+ Z2 s另一个相关的“DEFDAT”:
1 I6 P) a/ h; n1 o5 t, e# z(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
- T5 d; y- C& G! S# qComputers & Geoscience 24:219-235 *)
( |; m+ {1 |( ~+ O4 i
* i0 |) D3 }' p, w# Y: a0 H' \; ](* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
4 r" |$ ^! H, vlast update: 11-2002 *)
6 q+ V' n2 Z3 q: b  i+ x& D$ S
BeginPackage["DEFDAT`"]

Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
The following data sets are available, loaded with:\n\n
! l9 i5 t* {+ L- p9 CBerman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
9 N- w# e" S0 R% NHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
& Y- r( P9 t& @0 D$ a5 [- D; c$ tDataset[Dataset -> HP32]\n
' H- N/ q' _3 Q- L4 h) q8 N1 lGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
6 ?' a) P1 j5 H( @See G::usage for more details.\n
\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
' O; h3 E% i. Y0 N) w0 v5 jconverted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
- E+ x& r. v2 cWhen you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
' ]% O7 W4 D- d7 L; i(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
' W( G* [% M2 M3 W7 x. Z5 DWorkDirectory -> \"/directory_name\"\n
Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
& V# t4 w) w5 v% yThis loads PET with the Berman data set and reads/writes all user files from/to the\n
+ @; _, F: S. [0 {- u4 Q. [subdirectory named \"sample_xy\".\n
$ |- b" K" A2 D/ O, @  @9 oCalled from: User.\n
# _% E6 E" @6 RPackage name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."