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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
7 ?2 A$ d+ j/ W& ]# m) Y
8 U: e" H- `/ D0 U* Z1 W& |$ E(* This notebook contains examples for the PET-functions
+ f/ E! ]" r' N2 O% H+ l-CalcFormula- calculate mineral formulae (and mole fractions)
4 H! _9 S6 H6 t8 l-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
9 R: W0 m$ c  P% z; L$ r" e(* This top-cell must be run once before any example can be \
, g, [( C4 f2 w: s2 xperformed. *)

(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
" Z  N9 s2 Q1 y- p* n$PetDirectory = "C:\Eigene Dateien\Pet";
8 Y$ h" m) V/ d8 V, u  |- OSetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];

! z2 w" q" T! y7 a) c- Q6 J) H
, a+ P8 ^% f) d. n% T1 m% x* K- }# k5 S: t


' M+ i& X8 x% f! F- Z另一个相关的“DEFDAT”:
, O8 C6 r* _5 Y(* Name: DEFDAT`
6 |4 x; A4 k& B0 r  S" epackage of PET: Petrological Elementary Tools
4 t$ G+ b/ a# ]# K3 LComputers & Geoscience 24:219-235 *)

" H! z2 l! J! P5 J( }2 o4 Z(* Summary: this package declares various PET-functions *)

7 ]. X4 t8 u6 \$ k) R(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
) r: a  r2 z( vlast update: 11-2002 *)

BeginPackage["DEFDAT`"]

: g  S0 E3 F! ^# EDataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
: @. W) g3 M7 U. Q* l* G+ H' p) C9 ~The 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
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
0 {! i5 W7 g, H3 `% S0 l& @See G::usage for more details.\n
1 H/ G, H. s# J, x( P  w# S\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
" i3 Z, c9 d& v4 R+ I' [- Oconverted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
' s0 l" P* n6 U* w9 t( uWhen 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
3 B( `6 a: Y6 [" ]1 |- ZWorkDirectory -> \"/directory_name\"\n
; c% i2 e# W& O# D2 X9 W3 ^Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
6 {/ O* j6 m$ ]% Y9 {This loads PET with the Berman data set and reads/writes all user files from/to the\n
2 [6 K8 ^& u) |) ssubdirectory named \"sample_xy\".\n
Called from: User.\n
Package name: DEFDAT.m\n
* D% M* D  q+ W0 d  OPET: Petrological Elementary Tools, (c) Edgar Dachs."
& {, L6 p. ~# d, U6 a) @