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

hedgehog2012

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

# m  I! @+ A; K! [7 a; ~% B/ L(* This notebook contains examples for the PET-functions
-CalcFormula- calculate mineral formulae (and mole fractions)
" I4 {  m) H; Z' }% K4 O-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
% d% t# C3 e" U7 m) \/ s( c; S  C-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
8 n7 e1 {+ f3 M: ~(* This top-cell must be run once before any example can be \
performed. *)

. C6 L0 ?' T5 v5 c7 U. C(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
" Q3 `7 f# C# D# `' }Dateien\Pet) and load PET. *)
+ i7 C+ l% i5 c& G$PetDirectory = "C:\Eigene Dateien\Pet";
SetDirectory[$PetDirectory];
+ z+ F6 O) \$ d8 SDeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];
# M" x! K0 T  m6 M# Z' I3 c# d

: `% t% R* T6 B) B9 F


/ c" ^" p% q; c6 {8 K; r! M另一个相关的“DEFDAT”:
(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
- U& t4 P1 f7 ~% ~! C, s' }8 ]Computers & Geoscience 24:219-235 *)
( M) G  A4 T7 Z. h+ e, S5 s
(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
# p5 O7 V: |: D' ~2 Y  {8 U( Y1 Vemail: edgar.dachs@sbg.ac.at
3 ~. Z' K+ ?# Llast update: 11-2002 *)

* b2 z" X: H. G( k& a1 N8 ]BeginPackage["DEFDAT`"]

Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
6 [- n  K% o8 `. e" c3 c( n5 hThe 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
# b) |3 ]5 c# w3 S. K1 zDataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
5 J  \5 i, J5 `; A+ M4 S5 V+ c: N\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
  o3 \  r5 W( p  u- U8 ~converted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
- M6 ?9 h' F: |% b, VWhen you start PET, a subdirectory \"/work\" is created by default, from which all user-files\n
4 @0 }, [! d. @2 P5 l2 U(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
  G$ J) T: D5 X. C5 DThis loads PET with the Berman data set and reads/writes all user files from/to the\n
$ \9 F9 D/ M9 Z+ jsubdirectory named \"sample_xy\".\n
9 q( V# u4 d+ R& jCalled from: User.\n
* y, z) ]9 ]9 j: v" F. @. DPackage name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
1 w8 b& d6 `8 p$ O/ c