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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：

" N$ s, i' l7 e( b(* This notebook contains examples for the PET-functions
! O5 T% F0 y: m# c" E-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
8 q( D/ V& _5 d* A-MakeAnalysisTable- make a usual table of mineralchemical \
! o9 Q8 I2 l: lanalyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
performed. *)

7 m" \- }) k3 N3 f0 p8 t9 B(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
4 n& H2 ]9 @4 I, C; ]SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
0 `# g$ t, Z- M3 HDataset[Dataset -> B88];



1 s8 W& d: L3 ^2 v

另一个相关的“DEFDAT”:
(* Name: DEFDAT`
! h5 B* g$ C; t4 tpackage of PET: Petrological Elementary Tools
6 u! p3 P" s9 P- A* k- s% R% CComputers & Geoscience 24:219-235 *)
) M* T% c* B0 ?- K! G5 }
(* Summary: this package declares various PET-functions *)

# ]/ O1 w0 F- n' q3 H(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
( p3 n! t2 Z6 w" W4 {last update: 11-2002 *)

BeginPackage["DEFDAT`"]
2 _1 n$ Z% B' j. F$ E  t
Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
8 L/ Z( z8 v: T& ]- gThe following data sets are available, loaded with:\n\n
Berman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
Holland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
( I5 W2 ~& J5 nDataset[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
3 W. d1 a1 n: \& H8 Qconverted 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
To create a new subdirectory for that purpose, you can use the option:\n
WorkDirectory -> \"/directory_name\"\n
" F; x& S  e$ z1 f; e, JExample: 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
7 v- p+ ^# o! p% F( O4 Ssubdirectory named \"sample_xy\".\n
* _& F4 R) H* e( _Called from: User.\n
Package name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
3 m! R4 e) Z8 j; q) C, t* N