cnm算法

Ⅰ 求扩展名大全.*

文件扩展名是操作系统用来标志文件格式的一种机制。
在电脑上运用的拓展名有：

ACE：Ace压缩档案格式
ACT：Microsoft office助手文件
AIF，AIFF：音频互交换文件，Silicon Graphic and Macintosh应用程序的声音格式
ANI：Windows系统中的动画光标
ARC：LH ARC的压缩档案文件
ARJ：Robert Jung ARJ压缩包文件
ASD：Microsoft Word的自动保存文件；Microsoft高级流媒体格式（microsoft advanced streaming
format，ASF）的描述文件；可用NSREX打开 Velvet Studio例子文件
ASF：Microsoft高级流媒体格式文件

ASM：汇编语言源文件，Pro/E装配文件

ASP：动态网页文件；ProComm Plus安装与连接脚本文件；Astound介绍文件

AST：Astound多媒体文件；ClarisWorks“助手”文件
Axx：ARJ压缩文件的分包序号文件，用于将一个大文件压至几个小的压缩包中（xx取01-99的数字）
A3L：Authorware 3.x库文件
A4L：Authorware 4.x库文件
A5L：Authorware 5.x库文件
A3M，A4M：Authorware Macintosh未打包文件
A3W，A4W，A5W：未打包的Authorware Windows文件
BAK：备份文件
BAS：BASIC源文件
BAT：批处理文件
BIN：二进制文件
BINHex：苹果的一种编码格式
BMP：Windows或OS/2位图文件
BOOK：Adobe <I>Frame</I>Maker Book文件
BOX：Lotus Notes的邮箱文件
BPL：Borlard Delph 4打包库
BSP：Quake图形文件
BUN：CakeWalk 声音捆绑文件(一种MIDI程序)
C0l：台风波形文件
CAB：Microsoft压缩档案文件
CAD：Softdek的Drafix CAD文件
CAM：Casio照相机格式
CAP：压缩音乐文件格式
CAS：逗号分开的ASCⅡ文件
CCB：Visual Basic动态按钮配置文件
CCH：Corel图表文件
CCO：CyberChat数据文件
CCT：Macromedia Director Shockwave投影
CDA：CD音频轨道
CDF：Microsoft频道定义格式文件
CDI：Philip的高密盘交互格式
CDM：Visual dBASE自定义数据模块文件
CDR：CorelDRAW绘图文件；原始音频CD数据文件

CDT：CorelDRAW模板
CDX：CorelDRAW压缩绘图文件；Microsoft Visual FoxPro索引文件
CFG：配置文件
CGI：公共网关接口脚本文件
CGM：计算机图形元文件

CH：OS/2配置文件
CHK：由Windows磁盘碎片整理器或磁盘扫描保存的文件碎片
CHM：编译过的HTML文件
CHP：Ventura Publisher章节文件
CHR：字符集（字体文件）
CHT：ChartViem文件；Har<I>var</I>d Graphics矢量文件
CIF：Adaptec CD 创建器 CD映像文件
CIL：Clip Gallery下载包
CIM：SimCity 2000文件
CIN：OS/2改变控制文件用于跟踪INI文件中的变化
CLASS：Java类文件
CLP：Windows 剪贴板文件

CLL：Crick Software Clicker文件
CLS：Visual Basic类文件
CMD：Windows NT，OS/2的命令文件；DOS CD/M命令文件；dBASEⅡ程序文件
CPI：Microsoft MS-DOS代码页信息文件
CPL：控制面板扩展名，Corel颜色板

CPP：C++代码文件
CPR：Corel提供说明书文件
CPT：Corel 照片-绘画图像
CST：Macromedia Director Cast文件
CUR：Windows光标文件
DBF：dBASE文件，一种由Ashton-Tate创建的格式，可以被ACT！、Lipper、FoxPro、Arago、Wordtech、Xbase和类似数据库或与数据库有关产品识别；可用数据文件（能被Excel
97打开）；Oracle 8.1.x表格空间文件
DBX：DataBearn图像；Microsoft Visual FoxPro表格文件
DCT：Microsoft Visual FoxPro数据库容器
DCU：Delphi编译单元文件

DCX：Microsoft Visual FoxPro数据库容器；基于PCX的传真图像；宏
DIR：MacromediaDirector文件
DLL：动态链接库
DOC：<I>Frame</I>Maker或<I>Frame</I>Builder文档；Word Star文档、Word
Perfect文档、Microsoft：Word文档；DisplayWrite文档
DOT：Microsoft Word文档模板
DPL：Borland Delph 3压缩库
DRV：驱动程序
DRW：Micrografx Designer/Draw；Pro/E绘画文件
DSF：Micrografx Designer VFX文件
DSG：DOOM保存的文件
DSM：Dynamic Studio音乐模块（MOD）文件

DSP：Microsoft Developer Studio工程文件
DSQ：Corel QUERY（查询）文件

DST：刺绣机图形文件

DSW：Microsoft Developer Studio工作区文件

DTA：World Bank（世界银行）的STARS数据文件
DTD：SGML文档类型定义（DTD）文件
DTED：地面高度数字数据（图形的数据格式）文件
DTF：Symantec Q&A相关的数据库数据文件
DTM：DigiTrakker模块文件
DUN：Microsoft拔号网络导出文件

DV：数字视频文件（MIME）

DWG：AutoCAD工程图文件；AutoCAD或Generic CADD老版本的绘图格式
DXR：Macromedia Director受保护（不可编辑）电影文件
EDA：Ensoniq ASR磁盘映像
EDD：元素定义文档（<I>Frame</I>Maker+SGML文档）
EDE：Ensoniq EPS磁盘映像
EDK：Ensoniq KT磁盘映像
EDQ：Ensoniq SQ1/SQ2/Ks32磁盘映像

EDS：Ensoniq SQ80磁盘映像
EDV：Ensoniq VFX-SD磁盘映像
EFA：Ensoniq ASR文件
EFE：Ensoniq EPS文件
EFK：Ensoniq KT文件
EFQ：Ensoniq SQ1/SQ2/Ks32文件

EFS：Ensoniq SQ80文件
EFV：Ensoniq VFX-SD文件

EMD：ABT扩展模块

EMF：Windows增强元文件

EML：Microsoft Outlook Express邮件消息（MIME RTC822）文件

EXE：可执行文件（程序）
FAV：Microsoft Outlook导航条
FAX：传真类型图像

FCD：虚拟CD-ROM
FDF：Adobe Acrobat表单文档文件
FLA：Macromedia Flash电影

FND：Microsoft Explorer保存的搜索文件（Find applet）

FON：系统字体

FRT：Microsoft FoxPro报表文件
FRX：Visual Basic表单文本；Microsoft FoxPro报表文件

FXP：经Microsoft FoxPro编译的源文件
GDM：铃声、口哨声和声音板模块格式
GetRight：GetRight未完成的下载文件
GHO：Norton 克隆磁盘映像
GID：Windows 95全局索引文件（包括帮助状态）

GIF：CompuServe位图文件
GL：动画格式
GRP：程序管理组
HEX：Macintosh BinHex2.0文件

HLP：帮助文件；Date CAD Windows帮助文件

HPP：C++程序头文件
HQX：Macintosh BinHex 4.0文件

HT：HyperTerminal（超级终端）
HTM，HTML：超文本文档
HTT：Microsoft超文本模板
HTX：扩展HTML模板
ICO：Windows图标

IDX：Microsoft FoxPro相关数据库索引文件；Symantec Q&A相关数据库索引文件；Microsoft Outlook
Express文件
IMG：GEM映像

INF：信息文件

INI：初始化文件；Mwave DSP Synth的“nwsynth.ini” GMS安装；Cravis Ultrasound bank安装
INP：Oracle 3.0版或早期版本的表单源代码

INRS：INRS远程通信声频
INS：InstallShield安装脚本；X-Internet签字文件；Ensoniq EPS字簇设备；Cell/ⅡMAC/PC抽样设备

INT：中间代码，当一个源程序经过语法检查后编译产生一个可执行代码

IOF：Findit文档
IQY：Microsoft Internet查询文件

ISO：根据ISD 9660有关CD-ROM文件系统标准列出CD-ROM上的文件
ISP：X-Internet签字文件
IST：数字跟踪设备文件

ISU：InstallShield卸装脚本

IT：脉冲跟踪系统音乐模块(MOD)文件
ITI：脉冲跟踪系统设备

ITS：脉冲跟踪系统抽样，Internet文档位置

IV：Open Inventor中使用的文件格式

IVD：超过20/20微观数据维数或变量等级文件

IVP：超过20/20的用户子集配置文件

IVT：超过20/20表或集合数据文件
IVX：超过20/20微数据目录文件

IW：Idlewild屏幕保护程序

IWC：Install Watch文档
J62：Ricoh照相机格式
JAR：Java档案文件（一种用于applet和相关文件的压缩文件）
JAVA：Java源文件
JFF，JFIF，JIF：JPEG文件

JPE，JPEG，JPG：JPEG图形文件
JS：Java<I>script</I>源文件
JSP：HTML网页，其中包含有对一个Java servlet的参考
KAR：卡拉OK MIDI文件（文本+MIDI）
LAB：Visual dBASE标签文件
LBT，LBX：Microsoft FoxPro标签文件
LDB：Microsoft Access加锁文件
LHA：LZH更换文件后缀
LOG：日志文件
LZH：LH ARC压缩档案
M1V：MPEG相关文件(MIME"mpeg"类型)
M3D：Corel Motion 3D动画文件

M3U：MPEG URL（MIME声音文件）
MAM：Microsoft Access宏

MAQ：Microsoft Access查询文件

MAR：Microsoft Access报表文件
MBX：Microsoft Outlook保存email格式；Eudora邮箱
MCW：Microsoft Word的Macintosh文档

MDB：Microsoft Access数据库
MDN：Microsoft Access空数据库模板
MDW：Microsoft Access工作组文件

MID：MIDI音乐
MMM：Microsoft多媒体电影
MOV：QuickTime for Windows电影

MP2：第二层MPEG音频文件
MP3：第三层MPEG音频文件
MPA：MPEG相关文件，MIME“mpeg类型”

MPE，MPEG，MPG：MPEG动画文件

MPP：Microsoft工程文件；CAD绘图文件格式

MPR：Microsoft FoxPro菜单（已编译）
MSI：Windows 安装器包
MSN：Microsoft 网络文档；Descent Mission文件
OBD：Microsoft Office活页夹
OBJ：对象文件
OBZ：Microsoft Office活页夹向导

OCX：Microsoft对象链接与嵌入定制控件

ODS：Microsoft Outlook Express邮箱文件
OFT：Microsoft Outlook模板
OPX：OPL扩展DLL（动态链接库）

OSS：Microsoft Office查找文件
OST：Microsoft Exchange / Outlook 离线文件
PAL：压缩文件

PART：Go！Zilla部分下载文件
PAS：Pascal源代码
PCS：PICS动画文件

PDF：Adobe Acrobat
可导出文档格式文件（可用Web浏览器显示）；Microsoft系统管理服务器包定义文件；NetWare打印机定义文件
PHP，PHP3：包含有PHP脚本的HTML网页
PHTML：包含有PHP脚本的HTML网页；由Perl分析解释的HTML
PM5：Pagemaker 5.0文件

PM6：Pagemaker 6.0文件

PPS：Microsoft Powerpoint幻灯片放映
PPT：Microsoft Powerpoint演示文稿
PRF：Windows系统文件，Macromedia导演设置文件
PSD：Adobe photoshop位图文件
PSM：Protracker Studio模型格式；Epic游戏的源数据文件
PST：Microsoft Outlook个人文件夹文件
PWL：Windows 95口令列表文件
QIF：QuickTime相关图像（MIME）；Quicken导入文件
QT，QTM：QuickTime电影
QTI，QTIF：QuickTime相关图像

QTP：QuickTime优先文件
QTS：Mac PICT图像文件；QuickTime相关图像
QTX：QuickTime相关图像
RA：RealAudio声音文件

RAM：RealAudio元文件

RAR：RAR压缩档案（Eugene Roshall格式）

REC：录音机宏；RapidComm声音文件

REG：注册表文件
REP：Visual dBASE报表文件

RES：Microsoft Visual C++资源文件
RM：RealAudio视频文件

RMF：Rich Map格式（3D游戏编辑器使用它来保存图）
ROM：基于盒式磁带的家庭游戏仿真器文件（来自Atari
2600、Colecovision、Sega、Nintendo等盒式磁带里的ROM完全拷贝，在两个仿真器之间不可互修改）

Rxx：多卷档案上的RAR压缩文件（xx=1～99间的一个数字）
SAV：游戏保存文件
SB：原始带符号字节（8位）数据
SBK：Creative Labs的Soundfont 1.0 Bank文件；(Soundb laster)/EMU SonndFont v1.x
Bank文件
SBL：Shockwave Flash对象文件
SCF：Windows Explorer命令文件
SCH：Microsoft Schele+1

SCP：拨号网络脚本文件
SCR：Windows屏幕保护；传真图像；脚本文件

SFX：RAR自解压档案
SHTML：含有服务器端包括（SSI）的HTML文件
SPL：Shockwave Flash对象；DigiTrakker抽样
SQL：Informix SQL查询；通常被数据库产品用于SQL查询（脚本、文本、二进制）的文件扩展名
STM：.shtml的短后缀形式，含有一个服务端包括（SSI）的HTML文件；Scream Tracker V2音乐模块（MOD）文件
STR：屏幕保护文件
SWA：在Macromedia导演文件（MP3文件）中的Shockwave声音文件
SWF：Shockwave Flash对象
SYS：系统文件
T64：Commodore 64仿真器磁带映像文件
THEME：Windows 95桌面主题文件
TIF，TIFF：标签图像文件格式（TIFF）位图

TMP：Windows临时文件
TRM：终端文件

TXT：ASCⅡ文本格式的声音数据

TZ：老的压缩格式文件
VBA：VBase文件
VBP：Microsoft Visual Basic工程文件
VBW：Microsoft Visual Basic工作区文件
VBX：Microsoft Visual Basic用户定制控件
VQE，VQL：Yamaha Sound-VQ定位器文件
VQF：Yamaha Sound-VQ文件（可能出现标准）

VRF：Oracle 7配置文件
VSL：下载列表文件（GetRight）
WAB：Microsoft Outlook文件

WAD：包含有视频、玩家水平和其他信息的DOOM游戏的大文件
WAL：Quake 2正文文件
WAV：Windows波形声形
WBK：Microsoft Word备份文件
WFM：Visual dBASE Windows表单

WFN：在CorelDRAW中使用的符号
WIZ：Microsoft Word向导
WRL：虚拟现实模型
WWL：Microsoft Word内插器文件
XLK：Microsoft Excel备份

XLL：Microsoft Excel内插器文件

XLM：Microsoft Excel宏
XLS：Microsoft Excel工作单
XLT：Microsoft Excel模板

XLV：Microsoft Excel VBA模块

XLW：Microsoft Excel工作簿/工作区
ZAP：Windows软件安装配置文件
ZIP：Zip文件

Ⅱ CIPW标准矿物及岩石化学参数计算

1.程序功能

程序CHECAL具有以下功能：①全岩化学分析数据的检查和修正，包括检查H₂O⁺、CO₂的含量和分析总量，检查和修正Fe₂O₃/FeO^*比值，干成分换算等；②CIPW标准矿物计算；③常用的40余种岩石化学参数计算。

2.方法原理

对全岩化学分析数据的检查和修正，程序中未设定具体的标准，可由用户自行选择H₂O⁺、CO₂的上限和分析总量的上、下限。Le Bas等（1986）以w（H₂O⁺）＜2%、w（CO₂）＜0.5%作为判断新鲜火山岩的主要标准，用户在实际应用中可以此作为参考。全岩化学分析的总量，应限定在99.00%～101.00%之间。对于Fe₂O₃/FeO*比值的检查和Fe₂O₃、FeO含量的修正，程序中提供了8种可供选择的方法（马鸿文，1988，未发表资料：Irvine et al.，1971；Hughes，1982；Le Maitre，1976）。若化学分析结果中的挥发分含量过高（一般＞3%），则在进行CI'PW标准矿物和岩石化学参数计算前，应首先将其换算为干成分。

CIPW，际准矿物计算方案主要采用Holmes（1921）的算法。常用的岩石化学参数参考《岩浆岩岩石学》教材（邱家骧，1984）或其它岩石化学方面的参考教材或专着。

3.程序结构

结晶岩热力学软件

4.使用说明

（1）输入格式

程序运行过程中，按照屏幕提示，依次提供以下参数：

IFN输入文件名

CO2CO₂的上限

H2O₂的上限

ITA分析总量选择

OptionFe₂O₃/Fe^*比值修正方法选择

Vfree干成分换算选择

OFNl输出文件名，保存CIPW标准矿物计算结果

OFN2输出文件名，保存岩石化学参数计算结果

样品名称和氧化物原始分析结果由输入文件读入。

原始数据输入格式为：A6,15F6.2。

各变量排列顺序依次为：Sample（样品号）、SiO₂、TiO₂、Al₂O₃、Cr₂O₃、Fe₂O₃、FeO、MnO、MgO、CaO、Na₂O、K₂O、P₂O₅、CO₂、H₂O⁺、H₂O^-。

每次计算的样品个数不限。

（2）输出格式

原始数据的检查和修正结果输出到文件clboxd.dat中。若样品的CO₂、H₂O₊或分析总量超过所设定的上、下限，则样品被自动剔除。

CIPW标准矿物计算结果以表格形式保存在输出文件中。CIPW标准矿物符号可参阅马鸿文（1993a）编着的《结晶岩热力学概论》附录三。除CIPW标准矿物含量外，输出结果中还包括分异指数（DI）、Di-Ab-An、An-Ab-Or、Q-Ab-Or三元系相图的端员组分含量、用于岩石化学分类命名的Q’-ANOR-F’参数（Streckeisen et al.,1979）及岩石的镁值（Mg^#）。

常用岩石化学参数计算结果同样以表格形式保存在输出文件中。各参数的含义如下：

Totalk总碱含量

IFels长英指数

IAlk碱质指数

IK钾质指数

FeOt全铁含量

Fe/Mg铁镁比值

Cox氧化率

IFe铁质指数

IMg镁质指数

SI固结指数

ILars拉森指数

Sigma里特曼指数σ（Rittmann,1970）

Lgsgm里特曼指数的对数lgσ

LgTau戈梯尼指数对数lgτ

Lgsg25Loffler指数的对数lgσ25（Loffler,1979）

F1,F2,F3玄武岩构造环境判别函数（Pearce,1976）

Na-K-Ca判别花岗岩成因的Na-K-Ca三角图（Raju et al.,1972）的端员组分含量

Fe-Alk-MgFAM图解的端员组分含量

Fe-Mg-Al判别玄武岩类构造环境的Fe^*-MgO-Al₂O₃三角图（Pearce et al.,1977）的端员组分含量

Ti-Mn-P判别玄武岩类构造环境的TiO₂-MnO-P₂O₅三角图（Mullen,1983）的端员组分含量

Ti-K-P判别玄武岩类构造环境的TiO₂-K₂O-P₂O₅三角图（Pearce et al.,1975）的端员组分含量

Ti-Al-K判别玄武岩类构造环境的TiO₂-Al₂O₃-K₂O三角图（赵崇贺，1989）的端员组分含量

Mg^#镁值

S/IidxS/I指数（Griffiths et al.,1983）

（Al-NaK）-Ca-（Fe²⁺Mg）区分花岗岩成因类型的（Al-Na-K）-Ca-（Fe²⁺+Mg）三角图（Hine et al.,1978）的端员组分含量

R1,R2火山岩化学分类命名的R1-R2参数（De La Roche et al.,1980）

上述CIPW标准矿物含量和常用岩石化学参数的计算结果，按照每10个样品以相同的列表形式，顺序输出到相应的文件中。

5.程序文本

结晶岩热力学软件

结晶岩热力学软件

结晶岩热力学软件

结晶岩热力学软件

结晶岩热力学软件

结晶岩热力学软件

结晶岩热力学软件

结晶岩热力学软件

end if

****calculate total silica used and perform necessary desilications****

TSi=cnm（i,1）+cnm（i,1 2）+6*（cnm（i,18）+cnm（i,19）+2*（cnm（i,23）

$+cnm（i,29）+cnm（i,24）+cnm（i,25）+4*cnm（i,27）+cnm（i,28）+cnm（i,30）

if（TSi.le.oxd（1）then

cnm（i,17）=oxd（1）-TSi

goto 300

else

DSi=TSi-oxd（1）

end if

if（DSi.le.cnm（i,30）/2）then

cnm（i,31）=DSi

cnm（i,30）=cnm（i,30）-2*DSi

goto 300

else

cnm（i,31）=cnm（i,30）/2

cnm（i,30）=0

DSi=DSi-cnm（i,31）

end if

if（DSi.le.cnm（i,11））then

cnm（i,11）=cnm（i,11）-DSi

cnm（i,12）=cnm（i,12）+DSi

goto 300

else

DSi=DSi-cnm（i,11）

cnm（i,12）=cnm（i,12）+cnm（i,11）

cnm（i,11）=0

end if

if（DSi/4.le.cnm（i,19）then

cnm（i,21）=DSi/4

cnm（i,19）=cnm（i,19）-DSi/4

goto 300

else

cnm（i,21）=cnm（i,19）

cnm（i,19）=0

DSi=DSi-4*cnm（i,21）

end if

if（DSi/2.le.cnm（i,18）then

cnm（i,20）=DSi/2

cnm（i,18）=cnm（i,18）-DSi/2

goto 300

else

cnm（i,20）=cnm（i,18）

cnm（i,18）=0

DSi=DSi-2*cnm（i,20）

end if

if（DSi.le.cnm（i,28）/2）then

cnm（i,26）=DSi

cnm（i,28）=cnm（i,28）-2*DSi

goto 300

else

cnm（i,26）=cnm（i,28）/2

cnm（i,28）=0

DSi=DSi-cnm（i,26）

end if

if（DSi.le.cnm（i,29）then

cnm（i,26）=cnm（i,26）+DSi/2

cnm（i,31）=cnm（i,31）+DSi/2

cnm（i,29）=cnm（i,29）-DSi

else

cnm（i,26）=cnm（i,26）+cnm（i,29）/2

cnm（i,31）=cnm（i,31）+cnm（i,29）/2

DSi=DSi-cnm（i,29）

cnm（i,29）=0

cnm（i,22）=DSi/2

cnm（i,20）=cnm（i,20）-DSi/2

end if

if（cnm（i,20）.lt.0）then

write（*,280）Sample（i）

280 format（/5X，’-lc norm for sample’，A6,

$’；poor analyses or sampling！’）

end if

****calCulate formula weight of mafic norms****************************

300 RMF=oxd（8）/TMF

cwt（29）=248.0944-RMF*31.542

cwt（30）=131.9307-RMF*31.542

cwt（31）=203.7771-RMF*63.084

sum=0

do j=1,31

cnm（i,j）=cwt（j）*cnm（i,j）

sum=sum+cnm（i,j）

end do

cnm（i,32）=sum

di=0

do j=17,22

di=di+cnm（i,j）

end dO

cnm（i,33）=di

sum=0.01*（cnm（i,29）+cnm（i,19）+cnm（i,23）+1.0E-8

cnm（i,34）=cnm（i,29）/sum

cnm（i,35）=cnm（i,19）/sum

cnm（i,36）=cnm（i,23）/sum

sum=0.01*（cnm（i,23）+cnm（i,19）+cnm（i,18）+1.OE-8

cnm（i,37）=cnm（i,23）/sum

cnm（i,38）=cnm（i,19）/sum

cnm（i,39）=cnm（i,18）/sum

Fld=0.01*（cnm（i,20）+cnm（i,21）+cnm（i,22）+1.0E-8

cnm（i,45）=Fld/（Fld+sum）

sum=0.01*（cnm（i,17）+cnm（i,19）+cnm（i,18）+1.0E-8

cnm（i,40）=cnm（i,17）/sum

cnm（i,41）=cnm（i,19）/sum

cnm（i,42）=cnm（i,18）/sum

cnm（i,43）=cnm（i,17）/（sum+0.01*cnm（i,23）

cnm（i,44）=100*cnm（i,23）/（cnm（i,18）+cnm（i,23）+1.0E-8）

if（i.lt.n）goto 15

500If（ns.lt.n）i=i-1

write（3,530）（Sample（k）,k=1，i）.

530format（/1X，’Title’，10A7）

531do j=1,m

do k=1,i

if（OXDS（k,j）.gt.0.005）then

write（3,535）OXT（j）,（OXDS（kk,j）,kk=1,i）

exit

end if

end do

end do

write（3,534）（Tot（k）,k=1,i）

结晶岩热力学软件

45 format（A6,15F6.2）

ns=ns+1

SiO₂O=OXD（1）

Ti0₂O=OXD（2）

Al₂O₃=OXD（3）

Fe2O3=OXD（5）

FeO=OXD（6）

MnO=OXD（7）

MgO=OXD（8）

CaO=OXD（9）

Na₂O=OXD（10）

K₂O=OXD（11）

P205=OXD（12）

if（MgO.eq.0）MgO=1.0E-8

TA=Na₂O+K₂O

if（TA.eq.0）TA=1.0E-8

PRM（i, 1）=TA

CTA=CaO+TA

PRM（i,2）=100*TA/CTA

TFeO=Fe2O3+FeO

TFM=TFeO+MgO

PRM（i,3）=100*TA/TFM

PRM（i,4）=100*K₂O/TA

FeOt=FeO+0.8998*Fe2O3

PRM（i,5）=FeOt

PRM（i,6）=FeOt/MgO

PRM（i,7）=Fe2O3/TFeO

PRM（i,8）=100*TFeO/TFM

PRM（i,9）=100*MgO/TFM

PRM（i,10）=100*MgO/（TFM+TA）

PRM（i,11）=SiO₂O/3+K₂O-（CaO+MgO+FeO）

if（SiO₂O.gt.43.0）then

Sigma=TA**2/（SiO₂O-43）

PRM（i,12）=Sigma

else

PRM（i,12）=-1

end if

PRM（i,13）=Sigma

PRM（i,14）=（Al₂O₃-Na₂O）/（Ti0₂O+1.0E-8）

PRM（i,15）=100*TA**2/（SiO₂O-25）

do j=13,15

if（PRM（i,j）.gt.0）then

PRM（i,j）=-1

else

PRM（i,j）=Log10（PRM（i,j）

end if

end do

PRM（i,16）=0.0088*SiO₂O-0.0774*Ti0₂O+0.0102*Al₂O₃+0.0066*FeO

$-0.0017*MgO-0.0143*CaO-0.0155*Na₂O-0.0007*K₂O

PRM（i,17）=-0.0130*SiO₂O-0.0185*Ti0₂O-0.0129*Al₂O₃-0.0134*FeO

$-0.0300*MgO-0.0204*CaO-0.0481*Na₂O+0.0715*K₂O

PRM（i,18）=-0.0221*SiO₂O-0.0532*Ti0₂O-0.0361*Al₂O₃-0.0016*FeO

$-0.0310*MgO-0.0237*CaO-0.0614*Na₂O-0.0289*K₂O

PRM（i,19）=100*Na₂O/CTA

PRM（i,20）=100*K₂O/CTA

PRM（i,21）=100*CaO/CTA

TFMA=TFM+TA

PRM（i,22）=100*TFeO/TFMA

PRM（i,23）=100*TA/TFMA

PRM（i,24）=100*MgO/TFMA

TAFM=FeOt+MgO+Al₂O₃

PRM（i,25）=100*FeOt/TAFM

PRM（i,26）=100*MgO/TAFM

PRM（i,27）=100*Al₂O₃/TAFM

TMP=Ti0₂O/10+MnO+P205

if（TMP.eq.0）TMP=l.0E-8

PRM（i,28）=10*Ti0₂O/TMP

PRM（i,29）=100*MnO/TMP

PRM（i,30）=100*P205/TMP

TKP=Ti0₂O+K₂O+P205

if（TKP.eq.0）TKP=1.0E-8

PRM（i,31）=100*Ti0₂O/TKP

PRM（i,32）=100*K₂O/TKP

PRM（i,33）=100*P205/TKP

TAK=Ti0₂O+Al₂O₃/10+K₂O

PRM（i,34）=100*Ti0₂O/TAK

PRM（i,35）=10*Al₂O₃/TAK

PRM（i,36）=100*K₂O/TAK

do j=1,m

OXD（j）=OXD（j）/GFW（j）

end do

PRM（i,37）=OXD（8）/（OXD（6）+OXD（8））

PRM（i,38）=OXD（3）/（OXD（9）+OXD（10）+OXD（11））

AlNaK=2*（OXD（3）-OXD（10）-OXD（11））

Sum=AlNaK+OXD（9）+（OXD（6）+OXD（8））

PRM（i,39）=100*AlNaK/Sum

PRM（i,40）=100*OXD（9）/Sum

PRM（i,41）=100*（OXD（6）+OXD（8））/Sum

PRM（i,42）=1000*（4*OXD（1）-22*（OXD（10）+OXD（11））-2*（OXD（2）+2*OXD（5）

$+OXD（6）））

PRM（i,43）=1000*（6*OXD（9）+2*（OXD（8）+OXD（3））

if（i.lt.n）goto 40

200 if（ns.lt.n）i=i-1

write（4,215）（Sample（k）,k=1,i）

215 format（/lX，'paramt'，10A7）

do j=1,npr-2

write（4,218）Index（j）,（PRM（k,j）,k=1,i）

218 format（1X,A6,10F7.2）

end do

do j=npr-1,npr

write（4,220）Index（j）,（PRM（k,j）,k=1,i）

220 format（1X,A6,10F7.0）

end do

if（i.eq.n）goto 35

goto 236

230 write（*,*）'File read error,data skipped！’

236 write（*,240）OFN

240 format（/'Edit'，A，'to look over the results！'）

end

*************************************************************************

6.计算实例

甘肃北祁连九个泉地区，早古生代拉斑玄武质海相火山岩的CIPW标准矿物含量和常用岩石化学参数计算（马鸿文等，1994，未发表资料）。

输入文件：exam83.dat

8310548.871.9715.724.507.170.226.614.415.10 0.460.330.313.720.37

8310650.451.6714.987.514.630.194.836.585.210.100.27 0.262.980.29

9041049.951.1015.931.837.330.186.578.683.66 0.420.12 0.353.560.10

7240450.362.1912.913.4710.390.216.455.463.76 0.640.37 0.003.240.49

7191350.971.4615.344.135.410.156.426.544.82 0.090.14 0.912.830.56

7160748.531.1915.512.517.000.227.128.623.86 0.200.07 0.004.340.50

7190248.821.5815.403.405.000.166.637.174.10 0.840.18 2.673.390.53

7240945.832.6013.067.628.380.207.367.373.32 0.260.310.003.570.10

7150951.601.0615.362.686.150.347.036.264.830.040.06 0.003.740.49

7160447.240.9418.732.025.510.157.0510.312.15 1.630.091.123.060.29

输出文件：exam84.dat

结晶岩热力学软件

结晶岩热力学软件

结晶岩热力学软件

Ⅲ 帮我！！帮我！！

视频格式:
最常见: .mpg, .mpeg, .avi, .rm, .rmvb, .mov, .wmv, .asf, .dat(VCD)
不常见: .asx, .wvx, .mpe, .mpa,

音频格式:
最常见: .mp3, .wma, .rm, .ram, .wav, .mid, .midi, .rmi, .m3u(列表), .wpl(列表) .ogg, .ape, .cda(CD)
不常见: .au, .aiff, .aif, .aifc, .669, .wax, .snd

应用程序: .exe, .msi, .bat(DOS), .txt(文本文档), .rtf(写字板文档), .iaf(OE帐户), .wab(OE通讯 簿), .htm, .html(网页文档), .mht(mhtml文档), .doc(word文档), .chm(Windows帮助文档), .reg (Windows注册表文件), .dll(应用程序扩展), .ini(配置设置文档), .log(记录文档), .ctt(MSN联系人 列表), .fla, .swf(Flash文件), .!!!(网络蚂蚁未完成文件), .bc!(BitComet未完成文件), .bt!(比特精灵未完成文件)

压缩文件: .zip, .rar, .cab, .ace, .r**(*=任意数字), .z, .arc, .arj, .lzh, .tar, .uue, .gzip, ...(以下 忽略N多不常见扩展名)

镜像文件: .iso, .bin(不确定), .cif, .nrg, .vcd(不确定), .fcd, .img, .c2d, .tao, ., .vhd(虚拟机镜像 )

图片格式:
最常见: .jpeg, .jpg, .gif, .bmp, .png, .ico, .icl, .psd, .tif, .cr2, .crw, .cur, .ani
不常见: .dcr, .emf, .fpx, .eps, .icn, .pic, .pict, .pix, ... (以下忽略N多不常见扩展名)

游戏模拟器:
GBA模拟器(VisualBoyAdvance)扩展名: GB ROM: .gb, .sgb, .cgb, .gbc GBA ROM: .gba, .agb, . bin(不确定)
FC模拟器扩展名: .nes
N64模拟器(PJ64)扩展名: .v64, .z64, .n64, .rom(不确定), .jap, .pal, .usa
PS模拟器(记忆卡)扩展: .mcr(ePsxe), .mem(VGS)

在http://www.blogdriver.com/netboy/447383.html