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

hedgehog2012

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

* N6 x% e3 n  k9 S! s  r: u# i(* This notebook contains examples for the PET-functions
! ~0 I0 g- v& j& Z, i-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
. F! h" k$ g6 \$ H4 h# f" R(* This top-cell must be run once before any example can be \
2 |! ]! F9 X) R! \8 Rperformed. *)
6 j+ O8 o5 [; o, N5 l5 ]9 U4 e
5 Q+ |) ]/ A8 N7 r( {: Y3 |(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
. _9 q3 Z) I% L1 u/ g- ?% f2 gDateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
+ [0 y3 |* O& d0 n9 DSetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
* J8 k) K& c4 o0 BDataset[Dataset -> B88];
1 [6 k, w$ z4 b% ~
$ [8 }. F1 p* a" s: Q9 f! O


7 N0 g% C6 }3 v) D1 r4 C
另一个相关的“DEFDAT”:
: _( r& l, ]4 l# I* g' U(* Name: DEFDAT`
' |0 r% o: @. i1 R. H- y, u' epackage of PET: Petrological Elementary Tools
  F8 c6 G$ |% @, r( o+ w9 W0 ^- yComputers & Geoscience 24:219-235 *)

; S8 A% N# @8 q1 S, M7 J(* Summary: this package declares various PET-functions *)

5 J: i; |) P, A. W(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
4 U' p/ |, J4 k' M8 h2 T5 I( ^email: edgar.dachs@sbg.ac.at
last update: 11-2002 *)

BeginPackage["DEFDAT`"]
* k3 {+ M2 Q! B* K7 E
0 {. G# }1 r, C5 u# tDataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
The following data sets are available, loaded with:\n\n
3 q% s' d# M  v5 k  oBerman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
- o; n8 w* s' c, B. J  dHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
Dataset[Dataset -> HP32]\n
; A, y, @0 `' A5 L4 L; XGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
  j! z3 @, a  N( y; \See G::usage for more details.\n
/ t1 U& v' {$ n, Q) P2 I9 Z\"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
* E8 ?8 i; g) j8 `When 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
This loads PET with the Berman data set and reads/writes all user files from/to the\n
; ?7 K7 @9 i' j0 g" l1 Gsubdirectory named \"sample_xy\".\n
; n9 ]! {+ ?- Q8 q% ^, x. dCalled from: User.\n
Package name: DEFDAT.m\n
4 j# W% d# C9 \0 B5 rPET: Petrological Elementary Tools, (c) Edgar Dachs."
5 |8 a0 O$ y' M