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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
" l. s. A' ^# C9 R% E
: C5 j, r2 [* D9 g(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
* p# D1 ^5 ~# g9 L8 |! |7 H8600) to PET-readable format
9 ~0 d3 F3 ^- h  [3 ^-MakeAnalysisTable- make a usual table of mineralchemical \
* {, y) _; Z/ q9 z( Yanalyses (wt.% and formula units) *)
9 y0 o% |' ^* F1 X9 X/ z5 n/ `- b(* This top-cell must be run once before any example can be \
! d/ F5 z3 |2 N/ H+ ~1 ^. Operformed. *)
# W1 o* t. [* \& d3 A
$ o# Z0 e5 P( Z; q: u% _2 s0 X4 N1 W(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
* M/ a4 ]9 r$ s4 _DeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];
0 K1 \0 Y9 Z' z8 t& c! |$ z* T
8 r; e8 s* C/ a8 p


3 R6 P4 B1 r" \& d  Z3 [
另一个相关的“DEFDAT”:
(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
* P1 Q9 a2 W: u4 M$ W" f- TComputers & Geoscience 24:219-235 *)
: d. B& P& r3 T# F
5 _$ O: P# N6 L2 V% w4 b(* Summary: this package declares various PET-functions *)

, j. C& b: u7 E, w(* Author: Edgar Dachs, Department of Mineralogy
. n% b' _/ ^3 J  l, l+ _& `University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
last update: 11-2002 *)
9 s! C2 ], i8 Y5 H2 n. F3 p
' X5 M- v. L# |7 OBeginPackage["DEFDAT`"]
. d$ {  i- p  M& \7 G! b
+ l# v3 h( P3 g" C  U7 UDataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
* A, }2 f; W4 W- |, B- @The following data sets are available, loaded with:\n\n
6 k) g# c9 j% M3 M/ N- [# ]& _Berman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
" w# z3 L7 t- @3 I% p0 V, l/ HHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
Dataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
\"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
: P1 w6 H6 ~9 w) w: f! \When you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
3 V" s9 T) K; t( N9 K(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
- j( o5 `9 X. X, E( ^4 x8 ATo create a new subdirectory for that purpose, you can use the option:\n
WorkDirectory -> \"/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
Called from: User.\n
' n" V4 z9 `+ `# L; I# JPackage name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
- L  q" p) _) ^