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

hedgehog2012

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

(* This notebook contains examples for the PET-functions
# K- U. b% V& Y+ t3 c- Z4 S-CalcFormula- calculate mineral formulae (and mole fractions)
4 b0 l6 ]/ h% J2 X% S" s% E-TransformDatFile- transform microprobe data-files (JEOL_JX \
2 t  S. V8 w8 \- Q- Z8 |8600) to PET-readable format
-MakeAnalysisTable- make a usual table of mineralchemical \
* B7 w$ @9 Q7 t- d4 \' m5 T7 lanalyses (wt.% and formula units) *)
(* This top-cell must be run once before any example can be \
: L- k5 p# @& g  v8 }# c" V# yperformed. *)
% O7 \  ~# [9 ~
(* Define the directory, where the PET-files reside (e.g. C:\Eigene \
Dateien\Pet) and load PET. *)
  f  u  A- c- ?/ Z$PetDirectory = "C:\Eigene Dateien\Pet";
8 G" y: e  Z. P$ I1 t0 WSetDirectory[$PetDirectory];
' ~" a) @. v9 G: o# U( HDeclarePackage["DEFDAT`", {"Dataset"}];
) R: C- v' A6 M# a3 A6 rDataset[Dataset -> B88];


3 Q0 h- f( c( C4 y7 M* A' R


另一个相关的“DEFDAT”:
(* Name: DEFDAT`
2 f$ V1 m3 w* t$ Z+ t: q7 ~' ypackage of PET: Petrological Elementary Tools
  @* e' t9 |% y  R6 QComputers & Geoscience 24:219-235 *)
9 X0 [- P: `9 R6 _- }7 p% E
(* Summary: this package declares various PET-functions *)

(* Author: Edgar Dachs, Department of Mineralogy
University of Salzburg, Austria
email: edgar.dachs@sbg.ac.at
last update: 11-2002 *)

BeginPackage["DEFDAT`"]

! V' M- v3 ?4 @+ z1 ]Dataset::usage = "Dataset[Dataset-> ...] selects the thermodynamic dataset to be used.\n\n
) i9 Z  @% p/ b4 ]3 ZThe 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
" P0 g& K" P( R/ yDataset[Dataset -> HP32]\n
/ ^$ `8 h6 l) V7 F  E! ?1 J' HGottschalk (1997) Eur J Mineral 9:175-223 Dataset[Dataset -> G97]\n\n
See G::usage for more details.\n
\"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
To create a new subdirectory for that purpose, you can use the option:\n
. r7 V3 g# A4 W1 BWorkDirectory -> \"/directory_name\"\n
; H' F! `5 C5 V' [2 WExample: 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
1 t& g2 M! w( u7 K9 Y2 k$ \8 Ssubdirectory named \"sample_xy\".\n
7 o$ \% I; u4 {) r/ d' ^" wCalled from: User.\n
  D( w0 j$ c+ V4 ], kPackage name: DEFDAT.m\n
4 c: `# d, r% m% TPET: Petrological Elementary Tools, (c) Edgar Dachs."