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

hedgehog2012

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

(* This notebook contains examples for the PET-functions
& ?. F( Q5 O+ X7 a/ t& q-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
) X3 s& a, `4 I9 {8600) to PET-readable format
; }9 D3 r# k1 y$ H& X1 j! a-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
performed. *)
5 L# R# I, E2 v% l& h
( g& m0 P& j# u* t9 F(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
: }* L+ E; m, N/ O* |Dateien\Pet) and load PET. *)
$ s! r' h+ A" a, V; Y5 G: [# s) K$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
2 n6 u3 v8 q5 e8 ADataset[Dataset -> B88];



+ i* R; `: z( ?% ?% {4 \
( |3 |4 X6 @1 T. H7 P
另一个相关的“DEFDAT”:
(* Name: DEFDAT`
2 D/ X6 V- d5 u( u) Qpackage of PET: Petrological Elementary Tools
Computers & Geoscience 24:219-235 *)
9 u9 e, s5 `# _3 D
: l9 b7 [; p5 n9 f4 I4 l% j(* Summary: this package declares various PET-functions *)
& y0 a/ \3 P- v2 r* r. v
$ |! H4 C) C- u9 J; k+ `' {(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
( X/ F9 c7 [( Glast update: 11-2002 *)

& Y9 D3 }9 X# o  s5 G' s' p0 n  dBeginPackage["DEFDAT`"]
2 V- m% W. @  c4 H
Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
The following data sets are available, loaded with:\n\n
/ F, D. v0 ]' s! p0 ?" qBerman (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
9 o+ {4 y; m( R  ^! [. J) z& p8 W1 @Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
4 E# m+ V8 w3 N& s; W\"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
7 N8 o+ T* E  z& g$ u1 ](e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
( U% N7 D' o0 Z" ~8 hTo 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
8 m# n3 Q* E% I  XThis loads PET with the Berman data set and reads/writes all user files from/to the\n
subdirectory named \"sample_xy\".\n
: u4 G: E/ {2 F4 o  O! V) b& |/ sCalled from: User.\n
% ^/ w  o# i& R. h$ Q( }Package name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
  p3 _+ d! Q1 D& R) A  r/ o: q% a! j