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

hedgehog2012

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

$ s3 [! V6 [; Z! i(* This notebook contains examples for the PET-functions
4 i( R# d9 ~$ e0 @# u9 y-CalcFormula- calculate mineral formulae (and mole fractions)
: Y4 T; \" W5 H. D1 G5 K-TransformDatFile- transform microprobe data-files (JEOL_JX \
4 r) h) B, Y- l/ K8 d- D7 b4 l, C( ?2 v8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
* _, v8 U8 c! b; g# }6 G' ?performed. *)

(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
4 b  v& h4 M; M5 C5 \2 \2 a9 W2 [Dateien\Pet) and load PET. *)
! Z) g& @5 S1 Y. Q' X3 V6 d& h8 s$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
" A8 L. E! O5 QDataset[Dataset -> B88];





/ i5 @, m8 z$ P& G8 n另一个相关的“DEFDAT”:
, ~# U; R- s, D(* Name: DEFDAT`
  w9 p, n1 N7 K: K. \package of PET: Petrological Elementary Tools
# }  r' U3 M7 }7 O/ i8 i6 `Computers & Geoscience 24:219-235 *)

(* Summary: this package declares various PET-functions *)
! i! W* [, r! q: j8 N+ f) F
(* Author: Edgar Dachs, Department of Mineralogy
1 D- B+ S; j' }( o0 Q' XUniversity of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
8 r4 p( a) I4 F  z( {last update: 11-2002 *)

- x( B4 I: _0 NBeginPackage["DEFDAT`"]

" E& K6 ?9 n1 Y: l+ P0 t' A% F- JDataset::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
$ l8 M2 u  u* F; _  g6 NDataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
, d3 ^( j2 C, `/ V! z1 I3 [" _& ^) P\"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
* B$ R3 P4 r# i* v3 A: SWhen you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
0 I/ Z' t1 G0 c7 s- R- g(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
7 o) _2 R( @. i# HTo create a new subdirectory for that purpose, you can use the option:\n
! Z. A" o" @1 I0 d) z( @9 ]WorkDirectory -> \"/directory_name\"\n
/ Z6 j; u1 v0 Z1 S/ fExample: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
8 A% ^) A3 z0 W8 f8 B+ i9 x1 eThis loads PET with the Berman data set and reads/writes all user files from/to the\n
subdirectory named \"sample_xy\".\n
0 D* \( a7 s- L! g8 A" yCalled from: User.\n
Package name: DEFDAT.m\n
# l8 s: U* X( RPET: Petrological Elementary Tools, (c) Edgar Dachs."
% R$ z7 W5 G9 {$ S% J