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

hedgehog2012

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

(* This notebook contains examples for the PET-functions
  ?9 a5 F3 ^! N$ H-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
, h9 [3 E7 d, r! L2 D8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
! ?% w0 D' S- x1 M! a0 Aanalyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
0 l4 S2 Z" v+ l6 jperformed. *)

: O* B! [( |/ i' d0 l(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
# S  I; {9 O& ~- o+ i& I3 Z1 ?Dateien\Pet) and load PET. *)
0 \4 `4 b" q; a. `# t$PetDirectory = "C:\Eigene Dateien\Pet";
  B" T& m% }, D( NSetDirectory[$PetDirectory];
% \* d1 p0 X/ ?0 VDeclarePackage["DEFDAT`", {"Dataset"}];
- ^2 {( J4 Z$ u8 t+ m; zDataset[Dataset -> B88];
7 E2 x! y4 m6 V! P3 J& J" b
4 \4 i) p6 U4 q$ N6 i* U

& h0 t: `' \5 r7 x% V

# M( A' T  B1 [" ]* w! V) s另一个相关的“DEFDAT”:
(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
- ?4 J+ ~7 ]7 }/ R, W& s8 fComputers & Geoscience 24:219-235 *)

2 }' J9 j: m4 f! _* b) h2 ~(* Summary: this package declares various PET-functions *)
& N% @1 O0 P  k7 A* ?( i/ `0 e. r4 W6 _
(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
  J" D: {: q. q! e9 z* U8 a" C4 z( qlast update: 11-2002 *)
4 u" U- V+ ]8 l) O
5 @) o) h) M+ e# ^6 w$ R4 TBeginPackage["DEFDAT`"]
# h+ v. u: w8 {. g: H* W9 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
9 |: D7 G, e  l, V, V/ C( jDataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
# @4 U7 _1 Q% j1 J7 uconverted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
1 n3 A1 `0 f& o; q0 F6 FWhen you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
3 W4 o+ u1 ^5 D(e.g. mineralchemical data files) are read and all files produced by PET are written to.\n
* i  ^4 P: L% t3 R8 x, [2 WTo 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
" \+ ?; x8 C1 \3 LThis loads PET with the Berman data set and reads/writes all user files from/to the\n
4 p5 d* a$ S8 V5 N* l- wsubdirectory named \"sample_xy\".\n
Called from: User.\n
Package name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
2 J3 `) p: q7 i8 i8 O8 `