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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
) n3 Q* L$ W5 t
) C* j$ P6 d+ B- F7 l(* This notebook contains examples for the PET-functions
3 j" m8 L1 o) Y5 w8 |3 |) |-CalcFormula- calculate mineral formulae (and mole fractions)
4 L* |1 D4 L3 n& i% ~4 X$ i6 g-TransformDatFile- transform microprobe data-files (JEOL_JX \
! y' o7 B0 Y5 f1 w! l" r  N4 ?- P8600) to PET-readable format
2 L4 V# k3 P4 _5 @-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
performed. *)

, x; p" i0 [" {4 Y9 A(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
# ]. ~$ _* G8 U/ W) r9 l- RDateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
$ T9 q* j, {6 h7 K: s6 y& wDeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];
2 B2 T3 v& j/ ^" ^, M$ H1 n




另一个相关的“DEFDAT”:
8 E, {" W/ Q- q; o# Q(* Name: DEFDAT`
0 k5 n% [2 K2 x, Apackage of PET: Petrological Elementary Tools
; n( h; E/ n: t2 L$ y! nComputers & Geoscience 24:219-235 *)

5 K9 n0 t) _" p; n8 G$ @7 f(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
last update: 11-2002 *)

# b% a" C7 V! ]9 u) T% q4 lBeginPackage["DEFDAT`"]

Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
The following data sets are available, loaded with:\n\n
1 j' O; [: e+ W9 JBerman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
Holland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
' ]! ~5 |( |7 O. b$ ~$ Z7 bDataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
2 s5 g8 Z% U4 |  B, G9 f: ?- ^See G::usage for more details.\n
+ g4 e- ^# I9 L\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
; }7 y" F) b% m- Zconverted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
' }! j2 h5 b7 A6 Q3 x  o5 }When you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
- _( g4 e5 |8 E9 G7 ^6 a7 f(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
8 D8 f" s" S" C/ uTo create a new subdirectory for that purpose, you can use the option:\n
( D& D! ~7 l, r( V" }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
+ }* P" R8 K, B. R- }* csubdirectory named \"sample_xy\".\n
Called from: User.\n
, [. [4 I( ?- L9 Y& a& ?9 s# aPackage name: DEFDAT.m\n
6 h( r6 U" P3 b5 ]PET: Petrological Elementary Tools, (c) Edgar Dachs."