24小时热门版块排行榜

返回列表

sunjingwo

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 6
帖子: 8
在线: 2.8小时
虫号: 1062404
注册: 2010-07-22

[交流] 【求助】请大家帮忙翻译一下程序，太难啦，实在看不懂已有2人参与

太难啦
double CPressData::JPress(double x,double y)//x代表h垂直,y代表k水平
{
CString ll;
double h0;//h0是高炉总长
double htrue;//htrue是炉料实际高
double rls;//炉身(即炉料处)处的半径计算
int j,i;//j为高炉垂直方向的单元数;i为水平方向的单元数
int n;
h0=m_epdh1+m_epdh2+m_epdh3+m_epdh4+m_epdh5;
htrue=h0-m_epdmh;
rls=m_epdd1/2+(m_epdmh-m_epdh1)*tan((90-m_epda1)/180);
j=(int)floor(htrue/y);
i=(int)floor(rls/x);
int l1,l2,l3,l4;
int nn=0;
double rx;//任意径向半径
double d;//任意径向直径
double jp[500];//静压力值-34-
double kesi=0.45;//炉料侧压系数0.3-0.6
char str[100];//存储数据输出
l1=j-(int)floor((m_epdh3+m_epdh4+m_epdh5)/y);
l2=j-(int)floor((m_epdh4+m_epdh5)/y);
l3=j-(int)floor(m_epdh5/y);
l4=j;
m_listpd.AddString("静压力的数据输出"

;
for(n=1;n {
rx=rls+n*y*atan(m_epda1/180);
d=2*rx;
jp[n]=9.8*(d*m_epdpd)*(1-exp(-4*m_epdgr*kesi*n*y/d))/(4*m_epdgr*kesi);
_gcvt(jp[n],10,str);
m_listpd.AddString(str);
}
for(n=l1;n {
d=m_epdd2;
jp[n]=9.8*(d*m_epdpd)*(1-exp(-4*m_epdgr*kesi*n*y/d))/(4*m_epdgr*kesi);
gcvt(jp[n],10,str);
m_listpd.AddString(str);
}
for(n=l2;n {
nn++;
rx=m_epdd2/2-nn*y*atan(m_epda2/180);
d=2*rx;
jp[n]=9.8*(d*m_epdpd)*(1-exp(-4*m_epdgr*kesi*n*y/d))/(4*m_epdgr*kesi);
gcvt(jp[n],10,str);
m_listpd.AddString(str);
}for(n=l3;n {
d=m_epdd3;
jp[n]=9.8*(d*m_epdpd)*(1-exp(-4*m_epdgr*kesi*n*y/d))/(4*m_epdgr*kesi);
gcvt(jp[n],10,str);
m_listpd.AddString(str);
}
return array[1000];
}

回复此楼