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

hedgehog2012

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

(* This notebook contains examples for the PET-functions
2 Y* n4 ?( _5 F! I( r-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
3 ?' a/ ~0 q2 e- {5 a-MakeAnalysisTable- make a usual table of mineralchemical \
$ h" n  a! N. ?analyses (wt.% and formula units) *)
1 ]1 V9 r( s6 W" _7 R3 _9 i. i(* This top-cell must be run once before any example can be \
performed. *)

6 F- T/ ]9 W& s" l8 E(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
+ n9 Q; c" [/ X& B* {Dateien\Pet) and load PET. *)
8 t5 ^3 V* ^0 }$PetDirectory = "C:\Eigene Dateien\Pet";
5 _/ p' Y3 b; V9 \SetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];

5 g2 t% ~  E' R0 O5 r



另一个相关的“DEFDAT”:
(* Name: DEFDAT`
+ I% l- j' [6 J: o# i0 l6 E2 Fpackage of PET: Petrological Elementary Tools
3 C9 A2 h1 S7 u0 ~! lComputers & Geoscience 24:219-235 *)

(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
last update: 11-2002 *)

6 D- \2 K& F5 ?6 M9 UBeginPackage["DEFDAT`"]
2 i+ E, _0 P/ ?" u$ O
Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
; }: P6 P+ l; KThe following data sets are available, loaded with:\n\n
" w) `( Q( U4 _" Y4 C  `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
. W9 [% V* y" _2 H2 h$ ^& v$ b+ cDataset[Dataset -> HP32]\n
. c  E' R2 P; ]$ a! o0 sGottschalk (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
3 V/ V8 c7 s  H  ~converted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
+ k! X- N0 L  wWhen 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
, W2 A( T: r8 S( z6 ZThis 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
8 T1 Z; J: G! h: E; fPackage name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
# e$ S4 V7 |! X2 O! o& D+ d