不好意思,这是程序后面部分:

RHOMOLL,double*   X,   double&   DRHODT);

void   (__stdcall   *FGCTYdll)(double&   TK,             double&   RHOMOLL,double*   X,   double&   FUGACITY);//   The   following   ifdef   block   is   the   standard   way   of   creating   macros   which   make   exporting

void   (__stdcall   *LIMITXdll)(char*   htyp,double&   TinK,double&   rhoin_Mol,double&   PinkPa,   double*   X,   double&   TminK,   double&   TmaxK,   double&   rhomaxMol,double&   PmaxkPa,   long&   ierr,char*   herr,long   lnhtyp,long   lnherr);

void   (__stdcall   *SETKTVdll)(long&   icomp,   long&   jcomp,   char*   hmodij,double&   fij,char*   hfmix,long&   ierr,char*   herr,long   Lengthhmodij,long   Lengthhfmix,long   LengthHERR);

void   (__stdcall   *GETKTVdll)(long&   icomp,   long&   jcomp,char*   hmodij,double&   fij,char*     hfmix,char*   hfij,char*   hbinp,char*   hmxrul,long   ln1,long   ln2,long   ln3,long   ln4,long   ln5);

void   (__stdcall   *GETFIJdll)(char*   hmodij,char*   fij,char*   hfij,char*   hmxrul,long   ln1,long   ln2,long   ln3);

//#pragma   argsused

#includeint   main(int   argc,   char*   argv[])

{

//   First   create   a   pointer   to   an   instance   of   the   library

//   Then   have   windows   load   the   library.

HINSTANCE   RefpropdllInstance;

RefpropdllInstance   =   LoadLibrary("Refprop.dll");

//   Then   get   pointers   to   the   actual   functions.

SETUPdll   =   (fp_SETUPDLLTYPE)   GetProcAddress(RefpropdllInstance,"SETUPdll");

INFOdll   =   (fp_INFOdllTYPE)   GetProcAddress(RefpropdllInstance,"INFOdll");

SATTdll   =   (fp_SATdllTYPE)   GetProcAddress(RefpropdllInstance,"SATTdll");

SATPdll   =   (fp_SATdllTYPE)   GetProcAddress(RefpropdllInstance,"SATPdll");

ENTROdll   =   (fp_ENTROENTHALdllTYPE)   GetProcAddress(RefpropdllInstance,"ENTROdll");

ENTHALdll   =   (fp_ENTROENTHALdllTYPE)   GetProcAddress(RefpropdllInstance,"ENTHALdll");

TDFLSHdll   =   (fp_TDPFLSHdllTYPE)   GetProcAddress(RefpropdllInstance,"TDFLSHdll");

TPFLSHdll   =   (fp_TDPFLSHdllTYPE)   GetProcAddress(RefpropdllInstance,"TPFLSHdll");

PDFLSHdll   =   (fp_TDPFLSHdllTYPE)   GetProcAddress(RefpropdllInstance,"PDFLSHdll");

DSFLSHdll   =   (fp_DEHSFLSHdllTYPE)GetProcAddress(RefpropdllInstance,"DSFLSHdll");

DEFLSHdll   =   (fp_DEHSFLSHdllTYPE)GetProcAddress(RefpropdllInstance,"DEFLSHdll");

PEFLSHdll   =   (fp_DEHSFLSHdllTYPE)GetProcAddress(RefpropdllInstance,"PEFLSHdll");

DHFLSHdll   =   (fp_DEHSFLSHdllTYPE)GetProcAddress(RefpropdllInstance,"DHFLSHdll");

PHFLSHdll   =   (fp_DEHSFLSHdllTYPE)GetProcAddress(RefpropdllInstance,"PHFLSHdll");

PSFLSHdll   =   (fp_DEHSFLSHdllTYPE)GetProcAddress(RefpropdllInstance,"PSFLSHdll");

THFLSHdll   =   (fp_TQHFLSHdllTYPE)GetProcAddress(RefpropdllInstance,"THFLSHdll");

PQFLSHdll   =   (fp_TQHFLSHdllTYPE)GetProcAddress(RefpropdllInstance,"PQFLSHdll");

TQFLSHdll   =   (fp_TQHFLSHdllTYPE)GetProcAddress(RefpropdllInstance,"TQFLSHdll");

XMASSdll   =     (fp_MASSMOLEFRACTIONdllTYPE)GetProcAddress(RefpropdllInstance,"XMASSdll");

XMOLEdll   =     (fp_MASSMOLEFRACTIONdllTYPE)GetProcAddress(RefpropdllInstance,"XMOLEdll");

CRITPdll   =     (fp_CRITPdllTYPE)GetProcAddress(RefpropdllInstance,"CRITPdll");

PSFL1dll   =     (fp_PSFL1dllTYPE)GetProcAddress(RefpropdllInstance,"PSFL1dll");

TPRHOdll   =   (fp_TPRHOdllTYPE)GetProcAddress(RefpropdllInstance,"TPRHOdll");

PRESSdll   =   (fp_PRESSdllTYPE)GetProcAddress(RefpropdllInstance,"PRESSdll");

GIBBSdll   =   (fp_GIBBSdllTYPE)GetProcAddress(RefpropdllInstance,"GIBBSdll");

CVCPdll   =   (fp_CVCPdllTYPE)GetProcAddress(RefpropdllInstance,"CVCPdll");

THERMdll   =   (fp_THERMdllTYPE)GetProcAddress(RefpropdllInstance,"THERMdll");

THERM2dll   =   (fp_THERM2dllTYPE)GetProcAddress(RefpropdllInstance,"THERM2dll");

TRNPRPdll   =   (fp_TRNPRPdllTYPE)GetProcAddress(RefpropdllInstance,"TRNPRPdll");

DHDTdll   =   (fp_2IVdllTYPE)GetProcAddress(RefpropdllInstance,"DHDTdll");

DPDDdll   =   (fp_2IVdllTYPE)GetProcAddress(RefpropdllInstance,"DPDDdll");

DPDD2dll   =   (fp_2IVdllTYPE)GetProcAddress(RefpropdllInstance,"DPDD2dll");

DPDTdll   =   (fp_2IVdllTYPE)GetProcAddress(RefpropdllInstance,"DPDTdll");

DDDPdll   =   (fp_2IVdllTYPE)GetProcAddress(RefpropdllInstance,"DDDPdll");

DDDTdll   =   (fp_2IVdllTYPE)GetProcAddress(RefpropdllInstance,"DDDTdll");

FGCTYdll   =   (fp_2IVdllTYPE)GetProcAddress(RefpropdllInstance,"FGCTYdll");

LIMITXdll   =   (fp_LIMITXdllTYPE)GetProcAddress(RefpropdllInstance,"LIMITXdll");

SETKTVdll   =   (fp_SETKTVdllTYPE)GetProcAddress(RefpropdllInstance,"SETKTVdll");

GETKTVdll   =   (fp_GETKTVdllTYPE)GetProcAddress(RefpropdllInstance,"GETKTVdll");

GETFIJdll   =   (fp_GETFIJdllTYPE)GetProcAddress(RefpropdllInstance,"GETFIJdll");

//   Now   use   the   functions.

//   Refprop   variables   that   need   to   be   defined

//

//   nc   =   Number   of   components   in   the   mixture

//   x[NumberOfComponentsInMixtures]   =   Mole   fraction   of   each   component

//   ierr   =     An   integer   flag   defining   an   error

//   HFILES[]   =   a   character   array   defining   the   fluids   in   a   mixture

//   HRF[]   =   a   character   array   denoting   the   reference   state

//   HERR[]   =   a   character   array   for   storing   a   string   -   Error   message

//   HFMIX[]   a   character   array   defining   the   path   to   the   mixture   file

double   x[compsize]={0};

long   nc,ierr;

char   HFILES[refpropfluidpathlength+1],   HRF[lengthofreference+1],

HERR[errormessagelength+1],HFMIX[refpropcharlength+1];

nc   =   1;

x[0]   =   1.0;

//         Set   HFILES   to   the   path   of   the   R134a.fld   file.     Terminate   with   '\0'

//         Set   HFMIX   to   the   path   of   the   HMX.BNC   file.     Terminate   with   '\0'

//         Set   HRF   to   a   reference...DEF   in   this   case.     Terminate   with   '\0'

//         Set   HERR   to   a   default   error..."ok"   for   now.     Terminate   with   '\0'

strcpy(HFILES,"F:\\refprop7\\Fluids\\R134a.fld\0");

strcpy(HFMIX,"F:\\refprop7\\Fluids\\HMX.BNC\0");

strcpy(HRF,"DEF\0");

strcpy(HERR,"Ok\0");

//   Note,   the   directory   will   likely   be   different   on   other   machines

//   Call   SETUPdll   to   initialize   global   variables   in   Refprop

SETUPdll(nc,   HFILES,   HFMIX,   HRF,   ierr,   HERR,

refpropfluidpathlength,refpropcharlength,

lengthofreference,errormessagelength);

printf("%ld\n",ierr);

//   Create   variables   that   are   to   be

//   (a)   Used   to   call   the   SATPdll   function

//   (b)   Returned   by   the   SATPdll   function

double   XLIQ[compsize]={0.0};

double   XVAP[compsize]={0.0};

//   Some   values...

double   PkPa,TK,RHOF,RHOG;

long   KPH;

KPH   =   2;         //   Vapor

PkPa   =   101.325;

SATPdll(PkPa,x,KPH,TK,RHOF,RHOG,XLIQ,XVAP,ierr,HERR,errormessagelength);

printf("%f,%f,%f,%ld\n",RHOF,RHOG,TK,ierr);

//   Answers   from   the   Refprop   interface   program,   to   check   results

//   Tsat(101.325)   =   247.08   K

//   rhof   =   13.493.   mol/m^3

//   rhog   =   0.051533   mol/m^3

//   Now   try   a   mixture...say   R410a

nc   =   2;

x[0]   =   0.69762;

x[1]   =   0.30238;

//         Set   HFILES   to   the   mixture   of   R32   and   R125.     Terminate   with   '\0'

strcpy(HFILES,"F:\\refprop7\\fluids\\R32.fld|F:\\refprop7\\fluids\\R125.fld\0");

strcpy(HFMIX,"F:\\Refprop7\\Fluids\\HMX.BNC\0");

strcpy(HRF,"DEF\0");

strcpy(HERR,"Ok\0");

SETUPdll(nc,   HFILES,   HFMIX,   HRF,   ierr,   HERR,

refpropfluidpathlength,refpropcharlength,

lengthofreference,errormessagelength);

printf("%ld\n",ierr);

KPH   =   2;         //   Vapor

PkPa   =   101.325;

SATPdll(PkPa,x,KPH,TK,RHOF,RHOG,XLIQ,XVAP,ierr,HERR,errormessagelength);

printf("%f,%f,%f,%ld\n",RHOF,RHOG,TK,ierr);

//   For   vapor   (KPH   =   2)

//   Tsat(101.325)   =     221.74   K

//   rhof   =     18.594   mol/m^3

//   rhog   =     0.057501   mol/m^3

return   0;

FreeLibrary(RefpropdllInstance);

}

[Last edited by wanglin628 on 2009-4-22 at 20:32]

金币问题c语言程序,【求助】急请c语言高手帮忙解决程序问题(问题已经被我自己解决,金币送给自己啦)...相关推荐

  1. c语言奇偶判断程序,求助 奇偶校验的C语言编程

    该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 将代码按照一定的规律组织成若干小组,分组进行 奇偶校验.各组的校验结果组成一个指误字(指出错误 的代码字),不仅能检测是否出错,而且在只有一位出 错的情况 ...

  2. matlab 凸轮程序,求助,关于凸轮的一段matlab程序。

    在书上抄了一段matlab设计凸轮轮廓的一段程序,把它制成M文件,但运行不了,求各位高手帮帮忙啊,谢谢了! 程序如下: function RollerCam beta=60*pi/180;rb=3;h ...

  3. c语言编写生日祝福语大全,C++求高手帮忙写个程序...输出“生日快乐”四个字..用符号拼出来..谢谢啦...

    满意答案 ka1ctsd5o 2013.10.17 采纳率:54%    等级:12 已帮助:10968人 #include int main() { printf(" // || ==== ...

  4. c语言程序输入自己班级学号,找高手帮忙c语言程序::输入一个班10个学生的学号和每个学生考试三门功课(数学、英语、计算机基础)的成绩...

    满意答案 97sdgsdf 2013.05.21 采纳率:47%    等级:12 已帮助:19414人 这么麻烦的题目.... void sort(float *all, int n, int *o ...

  5. 奇偶校验码c语言源代码,求助 奇偶校验的C语言编程

    该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 将代码按照一定的规律组织成若干小组,分组进行 奇偶校验.各组的校验结果组成一个指误字(指出错误 的代码字),不仅能检测是否出错,而且在只有一位出 错的情况 ...

  6. 奇校验编码c语言实现,求助 奇偶校验的C语言编程

    该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 将代码按照一定的规律组织成若干小组,分组进行 奇偶校验.各组的校验结果组成一个指误字(指出错误 的代码字),不仅能检测是否出错,而且在只有一位出 错的情况 ...

  7. matlab如何求矩阵的转置矩阵,怎么用MATLAB程序求转置矩阵?急需,高手帮忙………………...

    在Matlab下输入:edit,然后将下面两行百分号之间的内容,复制进去,保存 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function f=f ...

  8. java编写算术平均数,[求助]基础-怎样编一个计算算术平均数的程序(急啊)

    [求助]基础-怎样编一个计算算术平均数的程序(急啊) 刚刚开始学习JAVA,不好意思 明天就要交作业了,还是编不出 高手帮忙吧 题目:编写一个计算随意多少个数的算术平均数的程序 首先要有一个对话框,可 ...

  9. c语言键盘连续双击程序,编了个C语言的键盘程序有点问题,请指点下!

    编了个C语言的键盘程序有点问题,请指点下! [复制链接] 做了个机械手,想用键盘来控制抓,放物品,现在他显示字符时有点错,高手能帮我在keil里跑下,把我的这个错改下吗?谢谢了!原程序如下:(P2.0 ...

最新文章

  1. matlab添加多个legend
  2. python生成式、生成器和迭代器
  3. 微软示例数据仓库AdventureWorksDW 与数据仓库概述
  4. SAP UI5 初学者教程之三:开始接触第一个 SAP UI5 控件 试读版
  5. 家庭组计算机无法,【求助】Windows无法从该家庭组中删除你的计算机
  6. Java文件类字符串getAbsolutePath()方法(带示例)
  7. 矢量归一化_浅析矢量网络分析仪误差模型及校准
  8. .NET MVC Scripts.Render 上下文不存在问题解决方法
  9. git pull远程master_github与Git实用操作图解之一
  10. 汉诺塔问题详解(C语言)
  11. 135批量抓鸡 依赖 古老得RTCS
  12. Tableau实战 楼市降温分析(七)现期房销售额及累计增长
  13. Win7强制删除文件或文件夹
  14. Pyrene-PEG-Rhodamine,芘丁酸-聚乙二醇-罗丹明,RB-PEG-Pyrene
  15. sql 中判断身份证男女等
  16. 身边的逻辑学——简单的真理不简单(2) 无论如何,清晰思考利多于弊
  17. SCSI硬盘接口是什么
  18. linux系统fasta程序,快速计算fasta序列长度的方法
  19. python批量检索文献pubmed_PubMed快速检索文献,学学这些技巧!
  20. Typora下载及安装教程

热门文章

  1. 为多孔介质的当量直径_多孔介质流建模简介
  2. 自定义EditText输入框
  3. Android kotlin使用RecyclerView实例
  4. 阿里云 centos ssh key 客户端 无密码登录 ssh 登录
  5. 二叉树三种遍历方式的非递归实现
  6. MyBatis 多表联合查询及优化
  7. javaweb中报404错误
  8. Java编程中的基本概念
  9. Java StringBuffer
  10. js bom and dom