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

hedgehog2012

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

(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
7 Y+ z. H' u3 E-TransformDatFile- transform microprobe data-files (JEOL_JX \
9 g% C- l' U+ Y& S* k1 i- @* e4 e8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
' s" M$ c# b# }analyses (wt.% and formula units) *)
* n4 ]3 V6 l: Z: `4 j9 V(* This top-cell must be run once before any example can be \
/ s, Q# g7 q% G. ~( u4 Yperformed. *)
! W/ [' G( J8 b
(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
, }$ P+ U9 j% |6 p) V1 Z$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
1 y3 ?. C/ Z& g) [' ?/ d% bDataset[Dataset -> B88];



7 c3 l6 T( ~/ q$ ~

另一个相关的“DEFDAT”:
(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
Computers & Geoscience 24:219-235 *)

(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
3 X- K7 [( x. k4 X% Vemail: edgar.dachs@sbg.ac.at
& l# B2 g; k0 R; C6 Zlast update: 11-2002 *)

, Q5 A9 h( @3 r4 }BeginPackage["DEFDAT`"]

Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
The following data sets are available, loaded with:\n\n
' p$ L, v- }3 s  C- K  iBerman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
Holland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
! R2 @  t4 a1 b8 F/ F# z! n# vDataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
% t( ]$ ]' ?) t3 C; K\"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
9 A( b+ |6 o% r9 \7 V. p6 `1 F: b(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
! @5 n# J; `2 yTo create a new subdirectory for that purpose, you can use the option:\n
2 t- [/ G6 q3 B/ v0 B; @: EWorkDirectory -> \"/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
subdirectory named \"sample_xy\".\n
  k8 L% x3 q! y' J( T& |Called from: User.\n
+ ]$ X4 w/ }9 g" c# P6 V9 l' fPackage name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."