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

hedgehog2012

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

1 M) J4 x' ^" f(* This notebook contains examples for the PET-functions
8 f( P* Z. h& a* f2 U3 I2 s; T-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
% |, V  R. P8 w7 J0 q- W6 L; X8600) to PET-readable format
9 _) o, q# [" ^) s- @% D0 U-MakeAnalysisTable- make a usual table of mineralchemical \
analyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
performed. *)
, @" u! {0 F  h- u1 s' ]
$ O7 a* s; |( `0 U( }(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
% v, I+ R3 K; }9 T! O$PetDirectory = "C:\Eigene Dateien\Pet";
3 x5 L6 e3 ?' ~* r; RSetDirectory[$PetDirectory];
DeclarePackage["DEFDAT`", {"Dataset"}];
. G2 A8 w1 {  T, S4 a. @0 TDataset[Dataset -> B88];
/ F$ E9 g/ I: n* q; i. |

+ p1 `! e$ L9 d9 p


) ~1 Q' F8 C1 _+ |$ f% X7 t另一个相关的“DEFDAT”:
(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
Computers & Geoscience 24:219-235 *)

(* Summary: this package declares various PET-functions *)
6 `3 q4 T' R5 n& D$ L. _
0 h5 V" E  T( F4 U/ c. a(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
last update: 11-2002 *)
: v+ x( \% ^$ a7 [/ ~9 }/ j! g
) f, r1 s, G4 a$ z2 C/ S8 }* VBeginPackage["DEFDAT`"]
$ u, h' T! J) g
2 b' w' g- |6 {1 ~, h& R, g6 {' |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
  U. X" T0 F- c. O! vHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
0 i8 }# M( x. ~  \Dataset[Dataset -> HP32]\n
0 I$ n! S5 d$ G: J3 n. d& {9 EGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
; n8 c8 `4 I; JSee G::usage for more details.\n
1 i+ H4 c7 s; d\"31\" or \"32\" following \"HP\" indicates that the thermodynamic data have been\n
4 f* s! q6 L8 r3 b" u) f( nconverted from THERMOCALC-versions 3.1 or 3.2 of Holland & Powell respectively.\n
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
* O1 r! q3 d. ]4 W- FExample: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
" M% P* m+ ^0 U  t$ ?This loads PET with the Berman data set and reads/writes all user files from/to the\n
- d' k+ e& |1 ?4 b* G& D4 A& |subdirectory named \"sample_xy\".\n
Called from: User.\n
Package name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."