ife算法
Ⅰ VC++:大家帮我看下我写的错在哪里从大到小排列
你的程序算法不好啊,要是10个数排列还不得麻烦死~
用冒泡排序法:
#include<iostream.h>
void main()
{
int A[4];
for(int i=0;i<=3;i++) //从键盘上输入4个元素到数组A中
{
cout<<"Enter the number:";
cin>>A[i];
}
for( i=1;i<=3;i++)
{
for(int j=0;j<=3-i;j++) //将相邻两个数比较,将大的调到的调到前头
{
if (A[j]<A[j+1])
{
int temp=A[j]; //两数交换
A[j]=A[j+1];
A[j+1]=temp;
}
}
}
//输出数组中的元素
for(int j=0;j<=3;++j)
{
cout<<"Element"<<j<<": "<<A[j]<<endl;
}
}
Ⅱ 100分求助，电气专业英语资料翻译
人工翻译，供参考。
The previous control methods are feasible only when the fuel cells model is accurate enough and the controllers were developed assuming a perfect knowledge of the operating conditions for the fuel cell system.
如果拥有足够精确的燃料电池模型，并在完全弄清楚该模型操作条件的情况下开发出控制装置，则前述的控制方法是可行的。
Plant uncertainties, such as changes in the membrane properties over time or variation in the ambient temperature, can affect the performance of the resulting control system, and, hence, more robust control design techniques should be investigated to guarantee system performance.
但是，厂房（工作环境）的不确定性，如随着时间的推移产生的膜变以及环境温度的变化，可能对控制系统的性能造成影响，所以，应研究出更强大的控制设计技术以保证系统的性能和运行。
In addition, most of the mentioned control algorithms are aimed at the PEMFC electrical power control, while the PEMFC temperature control is taken as supplement for power control, not even to consider the coolant circuit control design.
此外，前面提到的大多数控制技术仅着眼于质子交换膜燃料电池的电动控制，而质子交换膜燃料电池的温度控制仅是电动控制的一个方面，它甚至没有考虑冷却液的回路控制设计。
Therefore, it is necessary to develop an accurate and simple coolant circuit model, and find suitable control method for dynamic temperature control.
因此,开发一个简单和准确的冷却液回路模型，并找到动态温度控制方法是十分必要的。
Generally, circulating coolant can be applied in removing the excess heat of the PEMFC whose electrical power exceeds 5 kW.
通常，冷却液的循环流动可带走质子交换膜燃料电池产生的、电功率超过5千瓦的余热。
In order to efficiently control the PEMFC temperature, a coolant circuit of a PEMFC is modeled based on the physical molar conservation principles and the energy balance theory.
为了有效控制质子交换膜燃料电池的温度，质子交换膜燃料电池的冷却回路模型采用物质质量守恒定理和能量交换原理而进行设计。
However, the performance of the generalized controller largely depends on the availability of an accurate model.
然而，广义控制装置的性能在很大程度上取决于一个准确模型的建立。
As a consequence, the application of conventional control strategies may lead to unacceptable closed loop performances.
而采用常规控制技术则可能会导致一种无法预料的结果，即回路关闭。
The controller must be robust to uncertainty in a non-conservative manner and must meet closed loop objectives such as tracking, regulation and disturbance attenuation.
若采用非常规方式来消除不确定性，控制装置的功能就必须足够强大以应对回路的关闭，如必须具有跟踪、 调节和衰减控制等功能。
Compared with conventional control strategies, fuzzy control is appropriate to use in temperature control applications because it is faster and cheaper to develop and easier to implement.
与常规控制技术相比，由于开发时间短、成本低且容易实现，模糊控制技术在温度控制方面的应用非常广泛。
It takes the advantage of the synthesis of the knowledge which is provided by human expertise (in the form of IFeTHEN rules), especially when the process model is unknown.
该技术采用专家综合分析系统（运用IFeTHEN推定法则），特别是当过程模型未知时应用该技术效果会更理想。
So the incremental fuzzy control with integrator technique is designed according to the established model and control experience rule.
鉴于此，通过建立控制法则和经验模型，研发设计出了增量模糊控制与集成技术。
The PEMFC temperature and coolant inlet temperature are controlled by regulating the circulating coolant flux and bypass valve factor respectively.
这样，对质子交换膜燃料电池温度和冷却液入口温度的控制，分别通过对回路中冷却液流量和分流系数的调节而得以实现。
Ⅲ Web 前端怎样入门
大致分为三个阶段。
1 HTML + CSS 前端的入门门槛极低，体现在HTML和CSS上。运行环境就是浏览器，推荐Chrome。你需要的只是一个文本编辑器，推荐Sublime Text 3，有不少好插件比如Emmet，谷歌搜一下很容易了解到的。当然你非要用记事本的话，也不是不行的。刚入门查阅资料可以用 w3school 或者 MDN 。 HTML和CSS不是编程语言，前者只是结构标签，后者则是样式配置，入门是非常简单的。网上资料也有很多，推荐慕课网 HTML+CSS基础课程。 我当时是看了一本书 Head First HTML and CSS，讲得浅显易懂，不过价格比较感人，也是只翻一遍的书，没有必要买了。 迅速刷一遍慕课网，对HTML和CSS有个大致印象就好。想巩固HTML标签可以去看看16年的task1-1。 HTML5的API可以先放一放，回头再看。 接下来就是深入学习CSS了。推荐： 《CSS权威指南（第3版）》。很枯燥的一本书，但我确实不知道哪本书更适合了。花两三天硬啃下来就好了。属性细节不必记忆，以后用到肯定要再查的。着重点放在大局上，比如盒模型，浮动和定位这些，抓住重点快速过一遍。 《CSS3 专业网页开发指南》。CSS3也是需要掌握的内容。但这里还是以了解为主，知道CSS3有什么内容就好，记忆属性是枯燥且毫无意义的。 以上内容用时5天左右，下面是实践。 学了几天HTML和CSS了，应该也有点成果了。打开IFE2015 task1，写个静态页面吧。 我X，完全写不出来。 这是正常的。去看下别人的代码吧，看一小部分就开窍了。忘掉的属性就查书或者w3c，多尝试，不断踩坑才有进步。 画完第一张图后，别着急往下写。你的代码肯定会有如下问题： 胡乱的代码缩进 毫无章法的属性顺序 满页的div 不停地写id和class 重写吧，是的。重写之前先看一份代码规范 GitHub - ecomfe/spec: This repository contains the specifications.。当然代码规范不是唯一的，我最早看的是这一份，所以代码风格也一直维持到现在。 再去看一下别人提交的代码，多看几份。当然自己也要判断，不能听风就是雨啊，人家写得不好你再去重写一次，等于你也有责任对不对。 开始重写了，会发现功力大增，写代码速度也快了很多的。 写到第三张页面的时候，应该比较熟练了。如果看到布局就大概知道应该怎么写了，那就可以进入JavaScript的学习了。 以上内容用时10天左右。 进阶部分可以回头再看： 掌握预处理工具Sass，自动化工具Gulp。 阅读Bootstrap源码。 《CSS揭秘》，极其惊艳的一本书，涵盖了CSS3的很多奇技淫巧，虽说有些地方不太实用，但让人眼前一亮，很值得看。
2. JavaScript 这是至关重要的阶段。 强烈推荐《JavaScript高级程序设计（第3版）》，俗称红宝书。前七章是重中之重，必须反复阅读，直至完全理解，期间可配合其他书一起读。DOM，事件流，表单，JSON，Ajax与最后几章也相当重要。其余章节可以略读或跳过（比如浏览器嗅探，XML以及那些列举大量API的章节，完全可以用到再查） 推荐《JavaScript语言精粹》，俗称蝴蝶书。超薄的一本，半天就可以看完。JavaScript是一门有很多坑的语言，我个人是喜欢把这些坑点全部搞清楚的，但这本书却避而不谈了，剩下的也就是所谓的“精粹”了。但清晰地过一遍知识点总是好的。 强烈推荐《你不知道的JS》。精彩至极的一本书，将JavaScript的坑一网打尽。之前搞不懂的问题，比如闭包，this之类的都可以在这里找到答案。 ES6也是必学的内容，推荐阮一峰老师的《ES6 标准入门》。但这本书以API居多，所以还是留个大概印象，以后写到类似的地方，查一查有没有ES6更简洁的写法就好，不必死记硬背。以及需要学会Webpack的使用，Babel和模块化就靠Webpack了。 不太推荐《JavaScript权威指南》，也就是犀牛书。那就是一本字典…… 进阶： 《JavaScript设计模式与开发实践》，设计模式是必须了解的内容，这本是写得不错的。 《高性能JavaScript》，红宝书作者的另一力作，讲了一些优化技巧与性能瓶颈问题，值得一读。 以上内容用时1个月左右，中途可穿插IFE2015 task2的题，比2016年的要简单。 这些书全部刷完的话，应该可以跟人谈笑风生了。 开始实践，IFE2016阶段二的题，想怎么刷就怎么刷吧。如果有编程经验的话，应该没什么压力了。
3. JavaScript框架 这部分就比较自由了，每个人点的技能树都不一样的。前端的发展是爆炸式的，换工具比翻书还快，所以还是以看文档为主了。 目前主流框架经常被提及的是React，Angular，Vue。知乎搜一搜就有相当多的优秀答案了。不过这个答案也有时效性，说不定过两年这些框架全都被淘汰了呢【逃 学习至少一种框架，把IFE2016刷通关吧。耗时1个半月左右。 进阶：看各种源代码。这也是我最近打算做的事情，但是好像期末考要到了TAT 最后补充一下，计算机基础知识是很重要的。由于本人有OI的经验所以稍微占点优势。再推荐几本书，抽空还是要看看的： 《深入理解计算机系统》，CSAPP，也是我们专业这学期的课程（但是我的专业明明是EE啊）。 《计算机网络 自顶向下方法》，看名字就知道必读了吧。 操作系统好书挺多的，推荐一本 Operating Systems: Three Easy Pieces ，英文不够好就《现代操作系统》吧。 算法和数据结构，推荐两本：《算法导论》《数据结构与算法分析》。似乎算法和数据结构与前端关系不大，但作为一个码农，不要求你写红黑树，至少快速排序和二分查找这种要会写的吧。
你好，本题已解答,如果满意
请点右下角“采纳答案”。
Ⅳ mime邮件附件解码
在网络上找到的， 你看看，可能会有帮助的
MIME 编码方式简介
Subject: =?gb2312?B?xOO6w6Oh?=
这里是邮件的主题，可是因为编码了，我们看不出是什么内容，其原来的文本是： “你好！”我们先看看 MIME 编码的两种方法。
对邮件进行编码最初的原因是因为 Internet 上的很多网关不能正确传输8 bit 内码的字符，比如汉字等。编码的原理就是把 8 bit 的内容转换成 7 bit 的形式以能正确传输，在接收方收到之后，再将其还原成 8 bit 的内容。
MIME 是“多用途网际邮件扩充协议”的缩写，在 MIME 协议之前，邮件的编码曾经有过 UUENCODE 等编码方式 ，但是由于 MIME 协议算法简单，并且易于扩展，现在已经成为邮件编码方式的主流，不仅是用来传输 8 bit 的字符，也可以用来传送二进制的文件 ，如邮件附件中的图像、音频等信息，而且扩展了很多基于MIME 的应用。从编码方式来说，MIME 定义了两种编码方法Base64与QP(Quote-Printable) :
Base 64 是一种通用的方法，其原理很简单，就是把三个Byte的数据用 4 个Byte表示，这样，这四个Byte 中，实际用到的都只有前面6 bit，这样就不存在只能传输 7bit 的字符的问题了。Base 64的缩写一般是“B”，像这封信中的Subject 就是用的 Base64 编码。
另一种方法是QP(Quote-Printable) 方法，通常缩写为“Q”方法，其原理是把一个 8 bit 的字符用两个16进制数值表示，然后在前面加“=”。所以我们看到经过QP编码后的文件通常是这个样子：=B3=C2=BF=A1=C7=E5=A3=AC=C4=FA=BA=C3=A3=A1。
------------------------------------------------------
http://www.china-askpro.com/msg36/qa99.shtml
------------------------------------------------------
http://ke..com/view/160611.htm
参考资料：我想你说的解码不成功的可能是QP编码
Ⅳ VB 搜索ip算法
你知道0.0.0.0 到 255.255.255.255有多少种组合吗？
接近44亿~
用timer定时器，设置最短间隔1毫秒，需要运算整整50天，才能算完。
44亿除以1000 得到秒
除以60 得到分钟
除以60 得到小时
除以24 得到天
结果整整50天
推荐你最好设定个范围，否则你懂的吧
至于循环为什么卡是因为速度太快，计算量太大程序假死了 加入doevents就不会假死了
For x = 0 To 255
For y = 0 To 255
For z = 0 To 255
For i = 0 To 255
n = n + 1
text1 = text1 & vbNewLine & x & "." & y & "." & z & "." & i & " 次数为:" & n
DoEvents
Next
Next
Next
Next
这个时间我也不知道，应该很漫长，还有文本框text会超过最大容量 溢出 ，可以把文本框换其他的东西
Ⅵ CIPW标准矿物及岩石化学参数计算
1.程序功能
程序CHECAL具有以下功能：①全岩化学分析数据的检查和修正，包括检查H2O+、CO2的含量和分析总量，检查和修正Fe2O3/FeO*比值，干成分换算等；②CIPW标准矿物计算；③常用的40余种岩石化学参数计算。
2.方法原理
对全岩化学分析数据的检查和修正，程序中未设定具体的标准，可由用户自行选择H2O+、CO2的上限和分析总量的上、下限。Le Bas等（1986）以w（H2O+）＜2%、w（CO2）＜0.5%作为判断新鲜火山岩的主要标准，用户在实际应用中可以此作为参考。全岩化学分析的总量，应限定在99.00%～101.00%之间。对于Fe2O3/FeO*比值的检查和Fe2O3、FeO含量的修正，程序中提供了8种可供选择的方法（马鸿文，1988，未发表资料：Irvine et al.，1971；Hughes，1982；Le Maitre，1976）。若化学分析结果中的挥发分含量过高（一般＞3%），则在进行CI'PW标准矿物和岩石化学参数计算前，应首先将其换算为干成分。
CIPW，际准矿物计算方案主要采用Holmes（1921）的算法。常用的岩石化学参数参考《岩浆岩岩石学》教材（邱家骧，1984）或其它岩石化学方面的参考教材或专着。
3.程序结构
结晶岩热力学软件
4.使用说明
（1）输入格式
程序运行过程中，按照屏幕提示，依次提供以下参数：
IFN输入文件名
CO2CO2的上限
H2O2的上限
ITA分析总量选择
OptionFe2O3/Fe*比值修正方法选择
Vfree干成分换算选择
OFNl输出文件名，保存CIPW标准矿物计算结果
OFN2输出文件名，保存岩石化学参数计算结果
样品名称和氧化物原始分析结果由输入文件读入。
原始数据输入格式为：A6,15F6.2。
各变量排列顺序依次为：Sample（样品号）、SiO2、TiO2、Al2O3、Cr2O3、Fe2O3、FeO、MnO、MgO、CaO、Na2O、K2O、P2O5、CO2、H2O+、H2O-。
每次计算的样品个数不限。
（2）输出格式
原始数据的检查和修正结果输出到文件clboxd.dat中。若样品的CO2、H2O+或分析总量超过所设定的上、下限，则样品被自动剔除。
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-Al2O3三角图（Pearce et al.,1977）的端员组分含量
Ti-Mn-P判别玄武岩类构造环境的TiO2-MnO-P2O5三角图（Mullen,1983）的端员组分含量
Ti-K-P判别玄武岩类构造环境的TiO2-K2O-P2O5三角图（Pearce et al.,1975）的端员组分含量
Ti-Al-K判别玄武岩类构造环境的TiO2-Al2O3-K2O三角图（赵崇贺，1989）的端员组分含量
Mg#镁值
S/IidxS/I指数（Griffiths et al.,1983）
（Al-NaK）-Ca-（Fe2+Mg）区分花岗岩成因类型的（Al-Na-K）-Ca-（Fe2++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
SiO2O=OXD（1）
Ti02O=OXD（2）
Al2O3=OXD（3）
Fe2O3=OXD（5）
FeO=OXD（6）
MnO=OXD（7）
MgO=OXD（8）
CaO=OXD（9）
Na2O=OXD（10）
K2O=OXD（11）
P205=OXD（12）
if（MgO.eq.0）MgO=1.0E-8
TA=Na2O+K2O
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*K2O/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）=SiO2O/3+K2O-（CaO+MgO+FeO）
if（SiO2O.gt.43.0）then
Sigma=TA**2/（SiO2O-43）
PRM（i,12）=Sigma
else
PRM（i,12）=-1
end if
PRM（i,13）=Sigma
PRM（i,14）=（Al2O3-Na2O）/（Ti02O+1.0E-8）
PRM（i,15）=100*TA**2/（SiO2O-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*SiO2O-0.0774*Ti02O+0.0102*Al2O3+0.0066*FeO
$-0.0017*MgO-0.0143*CaO-0.0155*Na2O-0.0007*K2O
PRM（i,17）=-0.0130*SiO2O-0.0185*Ti02O-0.0129*Al2O3-0.0134*FeO
$-0.0300*MgO-0.0204*CaO-0.0481*Na2O+0.0715*K2O
PRM（i,18）=-0.0221*SiO2O-0.0532*Ti02O-0.0361*Al2O3-0.0016*FeO
$-0.0310*MgO-0.0237*CaO-0.0614*Na2O-0.0289*K2O
PRM（i,19）=100*Na2O/CTA
PRM（i,20）=100*K2O/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+Al2O3
PRM（i,25）=100*FeOt/TAFM
PRM（i,26）=100*MgO/TAFM
PRM（i,27）=100*Al2O3/TAFM
TMP=Ti02O/10+MnO+P205
if（TMP.eq.0）TMP=l.0E-8
PRM（i,28）=10*Ti02O/TMP
PRM（i,29）=100*MnO/TMP
PRM（i,30）=100*P205/TMP
TKP=Ti02O+K2O+P205
if（TKP.eq.0）TKP=1.0E-8
PRM（i,31）=100*Ti02O/TKP
PRM（i,32）=100*K2O/TKP
PRM（i,33）=100*P205/TKP
TAK=Ti02O+Al2O3/10+K2O
PRM（i,34）=100*Ti02O/TAK
PRM（i,35）=10*Al2O3/TAK
PRM（i,36）=100*K2O/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
结晶岩热力学软件
结晶岩热力学软件
结晶岩热力学软件
Ⅶ 作为程序员，最常上的网站有哪些
推荐十二个值得程序员和想成为程序员的你，每天一看的网站：
1. GitHub — 开发者最最最重要的网站：https://github.com
这个不用多说了吧，代码托管网站，上面有很多资源，想要什么轮子，上去搜就好了。并且呢，上面有很多优秀的程序员，你可以在这里交到很多好朋友喔。
2. 掘金 — 帮助开发者成长的技术社区：https://juejin.im
现在国内优质的开发者交流学习社区，可以去看大佬们写的文章，也可以自己分享 学习心的 ，与更多开发者交流。认识更多的小伙伴儿，提升个人影响力。
3. 算法学习 LintCode：https://www.lintcode.com/
算法学习网站，上去每天刷两道算法题，走遍天下都不怕。
4. 算法学习 LeetCode：https://leetcode.com/
也是算法题网站，同上。
5. 算法学习 LeetCode 中文站：https://lingkou.com/
这个是上面算法题网站的中文站点，英文不好的可以刷这个，英文好的推荐去刷英文网站的题目，还能提升英语能力。
6. 牛客网 — 面经和刷面试题：https://www.nowcoder.com
各个公司的面试题和面经分享，找工作前认真刷一刷，一定会有很大收获！拿到心仪的 offer！
7. Web 开发练习题：https://www.freecodecamp.org/
这是国外发起的一个 Web 开发学习的网站，从简单到深入，一步一步带你学习 Web 开发。就像一本练习册，并且当你完成相应的内容后，会得到相应的资格认证。
8. 网络前端技术学院 — 前端开发项目库：http://ife..com
学前端的看这里，网络官方推出的前端开发学习技术学院，题目从简单到困难，如果你把里面的题都做会了，找个 BAT 的前端工作不成问题的。
9. Stack Overflow — 解决 bug 的社区：https://stackoverflow.com/
开发过程中遇到什么 bug，上去搜一下，只要搜索的方式对，百分之 99 的问题都能搜到答案。在这里能够与很多有经验的开发者交流，如果你是有经验的开发者，还可以来这儿帮助别人解决问题，提升个人影响力。
10. 程序员客栈：https://www.proginn.com/
程序员客栈是领先的程序员自由工作平台，如果你是有经验有资质的开发者，都可以来上面注册成为开发者，业余的时候做点项目，赚点零花钱。当然，如果你想成为一名自由工作者，程序员客栈也是可以满足的。只要你有技术，不怕赚不到钱。
11. v2ex：https://www.v2ex.com/
V2EX 是一个关于分享和 探索 的地方，上面有很多各大公司的员工，程序员。你想要的应有尽有。
12. CSDN：https://www.csdn.net/
老牌专业 IT 技术社区，有很多厉害的开发者，当然也有很多小白。在上面可以写文章，分享看法，也可以阅读学习别人分享的内容。
想要成为一名厉害的，有影响力的程序员，一般平时要多分享自己的学习记录和感悟，让更多人认识你。同时你也多看看别人的分享，了解一下别人正在做什么，别人是怎样学习的，是怎样解决问题的，多主动与大家沟通交流，多交一些相关方向的朋友。