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

hedgehog2012

各位好！我下载了一个关于矿物化学成分软件是基于Mathematica软件的，之前我有一点学习VB语言的基础，在用软件的过程中，可能是一个调用“B88”总是显示红色，不知是不是这个Mathematica软件不识别我下载的这个矿物化学成分计算软件：
3 J- @, q* Z7 d$ N) r; |: w
(* This notebook contains examples for the PET-functions
! `; W. Q- `4 W$ d, Y$ w" b-CalcFormula- calculate mineral formulae (and mole fractions)
; n3 v5 s/ L7 _# A-TransformDatFile- transform microprobe data-files (JEOL_JX \
0 ?+ u9 A* B! i# R8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
8 c7 p& O/ h7 I9 \7 A6 R6 d1 {analyses (wt.% and formula units) *)
# F! @* {0 W3 ]! |' M) }(* This top-cell must be run once before any example can be \
: H2 x& @0 O. M  Z+ d% Uperformed. *)
+ ^$ Q/ [% z- A% `
(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
$PetDirectory = "C:\Eigene Dateien\Pet";
+ i/ C- f2 z% ]! R0 pSetDirectory[$PetDirectory];
9 ~; w: ^0 s' ^( J9 G4 D+ g6 {DeclarePackage["DEFDAT`", {"Dataset"}];
Dataset[Dataset -> B88];

( m8 d: [' k% o6 ?) G9 F
2 i$ e% L+ o' M3 F& X


另一个相关的“DEFDAT”:
' x' z7 t+ P1 g# b9 y9 o(* Name: DEFDAT`
package of PET: Petrological Elementary Tools
/ ?) p: {7 j" L* o, I0 CComputers & Geoscience 24:219-235 *)

(* Summary: this package declares various PET-functions *)
# K  H" n" |) S$ v9 J! ]
(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
# M8 O9 A. U# Z" q2 c; semail: edgar.dachs@sbg.ac.at
5 Y  c0 S) G3 n) S; ]) ?- ?" alast update: 11-2002 *)

BeginPackage["DEFDAT`"]

4 j0 P. a  O8 M; Q3 S9 f, a8 aDataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
( s8 E( w2 K: T3 Y2 yThe 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
& Y) i" x' z0 q/ {1 ZDataset[Dataset -> HP32]\n
; R3 O9 [/ r- i+ NGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
, ]& T1 I8 k* O8 N/ u$ z3 \1 ^. CSee G::usage for more details.\n
2 @7 l4 P: ]4 A% E, e\"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
% Z  i0 \" z6 w2 Q& ITo 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
! L& z* i7 I8 a2 P2 v+ x0 Z3 nThis loads PET with the Berman data set and reads/writes all user files from/to the\n
4 E4 ?4 D+ |2 Rsubdirectory named \"sample_xy\".\n
$ D  r' C9 B9 s. v) @. o& HCalled from: User.\n
Package name: DEFDAT.m\n
" B- _! Q7 e& ~" Y( A/ I; cPET: Petrological Elementary Tools, (c) Edgar Dachs."