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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
7 F6 o: V- A1 D
(* This notebook contains examples for the PET-functions
2 @5 D3 n1 ~' w( ]( {-CalcFormula- calculate mineral formulae (and mole fractions)
7 k" _5 W" O% n* r: G- E-TransformDatFile- transform microprobe data-files (JEOL_JX \
( g  {; N  ~& [: h' L8600) to PET-readable format
5 e* u- V6 J* S+ m6 j-MakeAnalysisTable- make a usual table of mineralchemical \
% h$ G- u# N+ Y. Ganalyses (wt.% and formula units) *)
  Q* G( O+ E; c. M2 z  t8 V(* This top-cell must be run once before any example can be \
" M+ `7 [, |' H3 p0 Z' v+ R+ vperformed. *)

(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
8 B6 L& o  Q7 K8 n3 l( ZSetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];
) {7 M" k5 Z( ~/ j
1 m& T7 P9 N4 n7 r; |5 H( y' V& o; C, U

$ P9 b2 \. D- X0 {. ?' n: T
7 j6 \1 z: ?/ N
另一个相关的“DEFDAT”:
- u4 M. w0 H/ e  z( k7 e(* Name: DEFDAT`
! L- x6 j, x1 ]* p) l) Epackage of PET: Petrological Elementary Tools
Computers & Geoscience 24:219-235 *)
5 x! a0 ~  `' ]3 D# o" ]+ [- F
. x6 E1 J! E, ], b* z7 Z$ L(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
5 [$ [4 X! p) GUniversity of Salzburg, Austria
3 A% V; l) C* V" A/ ^& G2 Yemail: edgar.dachs@sbg.ac.at
( I/ M5 d# E* S& rlast update: 11-2002 *)

5 O5 B5 ]9 ^% W# e6 \4 dBeginPackage["DEFDAT`"]

. d8 Y  v4 {* ^$ |6 a* IDataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
% J+ _( |0 L+ Z" eThe 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
Dataset[Dataset -> HP32]\n
) ]. m# [4 w7 V' b0 p1 OGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
& @3 h- ?7 }6 a, LSee G::usage for more details.\n
\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
9 _; [7 D: s6 w. ^* D% U6 Tconverted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
7 t4 j) W  k6 d5 X8 n! j% }( W" f, P3 gWhen 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
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
/ U2 b7 U1 r- V; N2 a) h/ ksubdirectory named \"sample_xy\".\n
Called from: User.\n
Package name: DEFDAT.m\n
* r2 M. A/ U+ y; c/ H) {- g' t5 ~PET: Petrological Elementary Tools, (c) Edgar Dachs."
' x% q) G, I5 m* A7 I6 B