用等溫閃蒸C語言編程-_第1頁
用等溫閃蒸C語言編程-_第2頁
用等溫閃蒸C語言編程-_第3頁
用等溫閃蒸C語言編程-_第4頁
全文預覽已結束

下載本文檔

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、# include "math.h"#define N 9int i,M=3;double P=0.81,T=250,F=100,E=0.5,L,V,ANN=0,15.5368,15.6637,15.7027,BNN=0,1347.01,1511.42,1807.53,CNN=0,-18.15,-17.16,-20.15,XFN=0,0.2,0.4,0.4,T ,FE, FD ,YN,XN, KON,PON,SX,SY;KID(int M,double PP,double T,double ANN,double BNN,double CNN,double PON,doubl

2、e KONint I;for(I=1;I<=M;I+POI=exp(ANI-BNI/(T+CNI;KOI=POI/(P*7501;main(KID(M,P,T,AN,BN,CN,PO,KO;doFE=-1;FD=0;for(i=1;i<=M;i+Yi=XFi/(1- E*(1-1/KOi;FE=FE+Yi;FD=FD+Yi*(1-1/KOi/(1-E*(1-1/KOi;if(fabs(FE/FD>0.001E=E-FE/FD;while(fabs(FE/FD>=0.001;for(i=1;i<=M;i+Xi=Yi/KOi;L=E*F;V=F-L;SX=0;SY=0

3、;for(i=1;i<=M;i+SX=SX+Xi;SY=SY+Yi;for(i=1;i<=M;i+Xi=Xi/SX;Yi=Yi/SY;printf("n n The solution is as follows:"printf("n -n"printf("n E=%6.4f, L=%6.4f, V=%6.4f, n",E ,L ,V;printf("n P=%6.4f,T=%6.2f , F=%9.4f, n", P,E,F;for(i=1;i<=M;i+printf("n XF%d=%6.3f, X%d=

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
  • 4. 未經權益所有人同意不得將文件中的內容挪作商業或盈利用途。
  • 5. 人人文庫網僅提供信息存儲空間，僅對用戶上傳內容的表現方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容，請與我們聯系，我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論