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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
/ O. w& e* }- f% H# W( A9 X
(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
: Z4 U3 K5 j  Y5 c$ I) `0 L; r-TransformDatFile- transform microprobe data-files (JEOL_JX \
! P+ M& D! v8 k! H8 @/ |' T& c8600) to PET-readable format
2 S( Z$ q7 t0 g' t; q: {( A-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
$ H0 a0 K" J- @" ?; ~performed. *)

(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
$ b# F- L! D; L( `0 D6 LDateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
* q- O+ s. O5 ?SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];
7 ~& w1 O6 d; M5 I& E
" j( d1 O% b* j: p



7 v4 l0 }0 V6 a% q; A另一个相关的“DEFDAT”:
6 L- u, w2 o% _( {3 p(* Name: DEFDAT`
! S1 a( h3 }2 c6 |; c( w! ]/ Rpackage of PET: Petrological Elementary Tools
' ^. u& H8 H# `0 tComputers & Geoscience 24:219-235 *)
1 {9 z% n. S* H7 F% L5 M
(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
4 |* w( B! H5 D+ F. c$ Q! y3 j, J+ sUniversity of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
- ?' z/ o3 r) W/ n/ g5 x# T0 }: Clast update: 11-2002 *)
$ {% ?5 Y4 O6 D7 I& l* d6 N; W7 f
BeginPackage["DEFDAT`"]
0 L7 a+ @) X0 T. C2 G! W0 Q" o
" l+ i$ R1 R5 i+ ^; Z$ C9 |& SDataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
. t; C2 ?7 \8 i% ]$ Y' lThe following data sets are available, loaded with:\n\n
Berman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
: c8 k7 T  R1 o4 OHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
Dataset[Dataset -> HP32]\n
1 p. Y# K6 T1 _# mGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
: r' A6 _* G# H! O5 C' ?+ mSee G::usage for more details.\n
0 C, B$ O4 E& K3 [\"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
! L3 K- r; A5 D4 bTo create a new subdirectory for that purpose, you can use the option:\n
# I, H* e4 o, L' }) Y. p. ~7 ^5 [2 EWorkDirectory -> \"/directory_name\"\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
; j  E/ Z) R  |% y# SCalled from: User.\n
Package name: DEFDAT.m\n
1 E0 R( i0 `' P; G0 g* dPET: Petrological Elementary Tools, (c) Edgar Dachs."