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 技術社區，有很多厲害的開發者，當然也有很多小白。在上面可以寫文章，分享看法，也可以閱讀學習別人分享的內容。
想要成為一名厲害的，有影響力的程序員，一般平時要多分享自己的學習記錄和感悟，讓更多人認識你。同時你也多看看別人的分享，了解一下別人正在做什麼，別人是怎樣學習的，是怎樣解決問題的，多主動與大家溝通交流，多交一些相關方向的朋友。