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

hedgehog2012

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

(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
  l: m2 c6 o+ i4 `; [( L9 ]-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
% l  I$ j3 |8 G8 R* |: l0 w4 u8 [analyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
+ Z8 a, D4 P+ `; N; Uperformed. *)

5 G5 w$ H% ?: J5 m  Y5 B(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
0 L9 A8 t' T. Q7 x( ^5 ~7 O& `Dateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
! ]# x+ J% j( \, rSetDirectory[$PetDirectory];
8 j1 t6 T5 Q! B' M. k. tDeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];



, z+ D" j. n: U5 I

% |4 \; K( l6 M. ~. P1 R另一个相关的“DEFDAT”:
" f9 J3 M! W; S3 x& f  \(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
& q5 b$ @# }1 g& g" \! l. nComputers & Geoscience 24:219-235 *)
# ]- v4 J) n7 W. x9 o. F
0 V: Y1 \; P0 s! v# l(* Summary: this package declares various PET-functions *)
0 B+ h3 f# ~% S" h8 M
(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
; ^: j* |' o' _7 Z: d- Zemail: edgar.dachs@sbg.ac.at
last update: 11-2002 *)

BeginPackage["DEFDAT`"]
/ V: n4 j: |0 O0 R1 _9 j" x
Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
The following data sets are available, loaded with:\n\n
5 V) @2 y* t) k  J7 Z& dBerman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
/ q! O- x5 ?# @" P8 QHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
Dataset[Dataset -> HP32]\n
, N. h- I6 _" f2 ^7 ^' W+ @Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
: T$ v% x& h! U' N0 S+ }6 q' ZSee G::usage for more details.\n
\"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
(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
subdirectory named \"sample_xy\".\n
Called from: User.\n
' @4 n, `: o/ z% n2 F7 x* ~Package name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."