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

hedgehog2012

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

7 X9 a7 G, K) ]3 s* Y(* This notebook contains examples for the PET-functions
2 e) o$ ~$ M+ ]0 y7 e" \& ~-CalcFormula- calculate mineral formulae (and mole fractions)
-TransformDatFile- transform microprobe data-files (JEOL_JX \
# `4 T- f* V  c, L- @- u: c8600) to PET-readable format
4 i  F& u' L, }3 x-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. *)
" h& K' q9 A, g& I3 N
/ Q4 D, ]( ^) n" K/ S) N(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
- z3 X1 K6 G; G: t* m9 l/ x, KDateien\Pet) and load PET. *)
# [' C3 u& t9 l$ J' v0 M/ O$PetDirectory = "C:\Eigene Dateien\Pet";
+ d( c5 Y7 P* H& k$ M$ @SetDirectory[$PetDirectory];
& M. H! |7 A4 k' a2 f* d3 \& c% V$ `DeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];



7 B0 i! _; Y" i" o5 H
3 e9 B. H, g) q  T! ^" e8 `, T
; V+ W: x: F7 _+ e! Z另一个相关的“DEFDAT”:
' C' j, q$ \0 e" p0 `(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
- Z% S; t1 J" l9 G7 @+ q" x* Y+ iComputers & Geoscience 24:219-235 *)
8 Z, w9 |1 y1 L( w
(* Summary: this package declares various PET-functions *)
" [4 i) t- v8 a- W# T
4 v$ m( F6 h1 a5 t- x0 T' Y. A(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
, y% r& U7 A% G: B6 `( Mlast update: 11-2002 *)

BeginPackage["DEFDAT`"]
: n; k, B6 b( H  K: ?
1 _6 T& Z/ z+ L; A; n4 y) J. cDataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
The following data sets are available, loaded with:\n\n
) f; j; Z6 O( L% f1 i% G4 K6 XBerman (1988) J Petrol 29:445-522 Dataset[Dataset -> B88]\n
5 [6 m; \5 |9 a  WHolland & Powell (1998) J metam Geol 16:309-343 Dataset[Dataset -> HP31], or\n
, C( w3 f  ?5 m* W9 ?1 F, }9 Z' W! D/ eDataset[Dataset -> HP32]\n
Gottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
: G$ A6 x3 |' }, L$ ]0 mSee G::usage for more details.\n
3 F/ T5 s) u6 Y+ T\"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
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
3 u9 z. ]7 e( e7 _9 uTo create a new subdirectory for that purpose, you can use the option:\n
WorkDirectory -> \"/directory_name\"\n
+ _! k9 q9 o9 R% Q3 ]Example: Dataset[Dataset -> B88, WorkDirectory -> \"sample_xy\"]\n
  a3 s9 C: s  q& f+ nThis loads PET with the Berman data set and reads/writes all user files from/to the\n
/ N: |  [9 o# l( Y7 P& L2 bsubdirectory named \"sample_xy\".\n
Called from: User.\n
' P; z" M7 W. s/ b9 ~Package name: DEFDAT.m\n
PET: Petrological Elementary Tools, (c) Edgar Dachs."
5 C* S# ^" K: g