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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
, O. o) ~: [5 S  Z. Z
(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
0 N8 f& s* A2 H. x-TransformDatFile- transform microprobe data-files (JEOL_JX \
4 d0 @8 d  {5 L( f8 Z5 G8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
" Z, @  s5 C8 t: b% M! P8 B/ j(* This top-cell must be run once before any example can be \
performed. *)
$ o0 q: W1 h$ c, }
% Q1 Q+ _" s& |! c0 G(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
* g0 E) C4 b3 T' ^1 k' U1 KDateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
6 _$ n- M) k+ D4 D+ lSetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
0 x8 A2 Z& E. d; k. ~4 ?( zDataset[Dataset -> B88];

2 D3 j2 y3 G  l& J8 b% [! d% b) F



" p' U; }- |' M另一个相关的“DEFDAT”:
* Z9 @2 [/ B4 e% u, c(* Name: DEFDAT`
2 E0 S" R2 Y# q' B3 _0 N7 ?% s) gpackage of PET: Petrological Elementary Tools
Computers & Geoscience 24:219-235 *)
, n' e% H% G2 K: X0 r/ h! Q, |: O" h
+ c1 o2 d% H7 q" ^1 N8 p5 Z(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
  ^7 {8 J7 E" z9 v/ x0 }email: edgar.dachs@sbg.ac.at
' ~; q, y& j! n8 w: Mlast update: 11-2002 *)

0 ~+ C! U$ `6 k* N# c' j; dBeginPackage["DEFDAT`"]
) z- l1 M# |! G3 F: f, C4 U: r, m
Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
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
% Y; S$ L) _* M2 V- [3 }! XGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
/ _) _$ S* @. t: F, p/ ASee 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
$ n& g3 r# a8 f% E2 @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
5 F( y2 M5 Y/ e! ~2 i( M# v% hCalled from: User.\n
Package name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
" W3 L3 n$ x* `- x