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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
- H6 N9 k  e  H/ L; k5 T& g+ ^* e
+ h5 x9 K0 R  @! n7 Z/ }4 h(* This notebook contains examples for the PET-functions
5 w1 g; f! G: z2 [) R-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
% }- b: @$ `$ [! b8 A4 k5 Z+ Y8600) to PET-readable format
+ R7 ]5 H0 C! J) L; A-MakeAnalysisTable- make a usual table of mineralchemical \
! ?8 U" y2 U/ \analyses (wt.% and formula units) *)
; ^  [1 A: ^0 g, q" B(* This top-cell must be run once before any example can be \
performed. *)
5 A) l, F( w3 ~9 ^; M3 l
( G7 `, r* S9 J. R0 X(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
0 k1 h5 j( `  U2 v  F" O* gDeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];
3 w1 u8 I, V1 P6 x, n
1 ?  ~( r0 L5 }8 q8 }% u" i/ f
9 A/ |2 N3 R: n/ T+ t9 w


3 R' w+ f. W' m7 O, p9 |* e3 d另一个相关的“DEFDAT”:
(* Name: DEFDAT`
- l. N, o  f" \# wpackage of PET: Petrological Elementary Tools
Computers & Geoscience 24:219-235 *)

# A: \, m! W6 l8 r+ S/ y& n(* Summary: this package declares various PET-functions *)
6 v/ |( n8 W! n$ v3 w7 n: e
(* Author: Edgar Dachs, Department of Mineralogy
. k8 |( n, O* r. ~% g/ V6 uUniversity of Salzburg, Austria
+ T3 U  U$ B& {0 T+ remail: edgar.dachs@sbg.ac.at
/ i* n+ ]3 G9 h! nlast update: 11-2002 *)
3 t+ a) k; s1 Y; m6 E
& ]0 U6 O2 h# [9 c- cBeginPackage["DEFDAT`"]
* b- }; J4 ^* _) s" ^4 t
& p) W8 X. h: g, z; I1 uDataset::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
1 ]/ o5 b" r0 H9 p/ K0 fHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
: E* x$ u3 y  X# e$ x3 s* [/ V9 @" x+ [Dataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
2 y- V' b% X' `1 M( {' z/ BSee G::usage for more details.\n
\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
2 p& g' Z9 J5 Q1 @6 }3 Q4 P- _5 Hconverted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
' Q6 k! o' }1 d0 H/ w' Q! ]$ CWhen you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
6 |& B: Z  ?7 I# t3 G" t( U(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
9 `7 ~4 w4 P7 y3 y& Z9 K. W+ O" @WorkDirectory -> \"/directory_name\"\n
Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
5 m1 l$ h/ w+ V& XThis loads PET with the Berman data set and reads/writes all user files from/to the\n
subdirectory named \"sample_xy\".\n
Called from: User.\n
Package name: DEFDAT.m\n
: B; V$ ?9 R7 k; |0 W  ]/ Q, LPET: Petrological Elementary Tools, (c) Edgar Dachs."