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

hedgehog2012

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

7 v4 y: a( K* O) q2 {0 ^3 T(* This notebook contains examples for the PET-functions
2 L6 ?7 U/ v7 o' s5 j& }( i-CalcFormula- calculate mineral formulae (and mole fractions)
- s: Z6 H" e# V-TransformDatFile- transform microprobe data-files (JEOL_JX \
* Q& t& s; m& A; h8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
+ f5 f7 N2 N  ~' ]: v(* This top-cell must be run once before any example can be \
performed. *)
0 H4 f7 Z& h  q9 x2 ]
+ l7 u2 P) \$ ]1 r0 q7 s. b(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
/ S4 E' m) C+ E$ H3 l' W( J$PetDirectory = "C:\Eigene Dateien\Pet";
0 w% U7 b. W/ z) V9 j2 \; ~/ `! }8 bSetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];


# d7 l; |; P9 @  G' K: V


/ s) w* p" {4 \% h2 N7 c* q$ {另一个相关的“DEFDAT”:
(* Name: DEFDAT`
/ G! J" |3 f0 [. P% opackage of PET: Petrological Elementary Tools
/ y9 @: ~2 _3 mComputers & Geoscience 24:219-235 *)
4 Q' E- ]+ b9 V4 u) s
(* Summary: this package declares various PET-functions *)
* `, o% p/ e, k$ Y$ K. ]
6 R" @' t" {/ O  I, g(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
last update: 11-2002 *)
4 j. U  y* r6 S
BeginPackage["DEFDAT`"]
$ X3 D) |. U" w5 M
Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
" R4 C1 T/ P' b9 VThe following data sets are available, loaded with:\n\n
Berman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
+ ], f) P' [( C3 t- S& T/ z8 \& ^& jHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
3 I1 L5 t2 z% A' kDataset[Dataset -> HP32]\n
6 u$ C$ C7 [, E8 D4 Q( G8 EGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
% U6 N+ s' O7 r0 o! f\"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
When you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
& G* N5 i4 x! T8 a7 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
: H* p3 T9 n+ K3 t- w! F: OWorkDirectory -> \"/directory_name\"\n
Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
" I9 ?6 M  f0 ~+ ~. jThis loads PET with the Berman data set and reads/writes all user files from/to the\n
! D, e5 b, E" C/ s8 t% Fsubdirectory named \"sample_xy\".\n
7 G- A  v' F; b- p6 s! TCalled from: User.\n
/ c# w$ ^! V- W; M. ~7 GPackage name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."