📄 dqbyhsj.cpp
字号:
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
title="- ⑻ 控制屏\n";
i=int(0.5 + YON);
gcvt(i,100,Temp);
title11=Temp;
title1="- 容量："+title11+" KVA"+"\n";
title2="- 电压变换：10 Kv/480 v\n";
title3="- 频率：50 Hz\n";
title4="- 输出频率范围：22～89.9 Hz\n";
title5="- 输出电压范围：40～480 v\n";
title6="- ⑼ 降压变压器\n";
title7="- 三相，油冷式\n";
i=int(0.5 + YON);
gcvt(i,100,Temp);
title11=Temp;
title8="- 容量："+title11+" KVA"+"\n";
title9="- 电压变换：10 Kv/480 v\n";
title10="- 频率：50 Hz\n";
try
{
f3.WriteString(title);
f3.WriteString(title1);
f3.WriteString(title2);
f3.WriteString(title3);
f3.WriteString(title4);
f3.WriteString(title5);
f3.WriteString(title6);
f3.WriteString(title7);
f3.WriteString(title8);
f3.WriteString(title9);
f3.WriteString(title10);
}
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
title="- ⑽ 升压变压器\n";
title1="- 三相，油冷式\n";
i=int(0.5 + YON);
gcvt(i,100,Temp);
title11=Temp;
title2="- 容量："+title11+" KVA"+"\n";
title3="- 电压变换：480 v/744～3617 v\n";
title4="- 适应频率：6～90 Hz\n";
title5="- ⑾ 井口装置\n";
title6="- 型号：KQL21/65 型\n";
title7="- 压力级别：21 MPa\n";
title8="- 重量：1500 Kg\n";
try
{
f3.WriteString(title);
f3.WriteString(title1);
f3.WriteString(title2);
f3.WriteString(title3);
f3.WriteString(title4);
f3.WriteString(title5);
f3.WriteString(title6);
f3.WriteString(title7);
f3.WriteString(title8);
}
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
title="- ⑿ 接线盒\n";
title1="- 耐压：3～5 Kv\n";
title2="- 重量：25 Kg\n";
title3="- ⒀ 单流阀\n";
title4="- 重量：4.5 Kg\n";
title5="- 长度：0.13 m\n";
title6="- ⒁ 泄流阀\n";
title7="- 重量：4.5 Kg\n";
title8="- 长度：0.13 m\n";
i=int(PJ * 100);
gcvt(double(i)/100,100,Temp);
title11=Temp;
title9="- ⒂ 井下机组重量 ＝ "+title11+" Kg"+"\n";
try
{
f3.WriteString(title);
f3.WriteString(title1);
f3.WriteString(title2);
f3.WriteString(title3);
f3.WriteString(title4);
f3.WriteString(title5);
f3.WriteString(title6);
f3.WriteString(title7);
f3.WriteString(title8);
f3.WriteString(title9);
}
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
title="- 三、下泵设计与校核\n";
title1="- 1.静液面时泵的吸入口压力值：\n";
i=int(100 * Pmax + 0.5);
gcvt(double(i)/100,100,Temp);
title11=Temp;
title2="- Pmax＝"+title11+"MPa"+"\n";
title3="- 2.达到设计沉没度时泵吸入口压力值：\n";
i=int(100 * PMIN + 0.5);
gcvt(double(i)/100,100,Temp);
title11=Temp;
title4="- Pmin＝"+title11+"MPa"+"\n";
title5="- 3.变速机组的运转参数设计和电机启动电压校核\n";
title6="- ⑴ 设计的变速机组的运转参数\n";
i=int(FHZMAX * 100 + 0.5);
gcvt(double(i)/100,100,Temp);
title11=Temp;
title7="- ① 最高运行频率f＝"+title11+"Hz"+"\n";
i=int(KV50BY * 100 + 0.5);
gcvt( double(i)/ 100,60,temp);
title8="- ② 升压变压器升压比：kv＝";
title8=title8+temp+"\n";
title9="- 升压器挡位选择\n";
try
{
f3.WriteString("\n");
f3.WriteString(title);
f3.WriteString(title1);
f3.WriteString(title2);
f3.WriteString(title3);
f3.WriteString(title4);
f3.WriteString(title5);
f3.WriteString(title6);
f3.WriteString(title7);
f3.WriteString(title8);
f3.WriteString(title9);
}
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
if( B1 > B2)
{
PP = "Y";
fff = T2;
HH = A2[I2];
}
else
{
PP = "Δ";
fff = T1;
HH = A1[I1];
}
title="- 变换挡位";
title=title+" "+PP+"型输出"+"\n";
title1="- NO-1";
title1=title1+" "+"NO-2"+" "+PP+"型输出电压(v)"+"\n";
gcvt(int(HH),100,temp);
title11=temp;
title2="- "+fff+" "+title11;
title2=title2+"\n";
i=int(UHZ * 100 + 0.5);
gcvt(double(i)/100,100,Temp);
title11=Temp;
title3="- ③ U/Hz＝"+title11+"\n";
title4="- ④ 50Hz时控制屏输出的驱动电压：\n";
i=int(VDR50BY * 100 + 0.5);
gcvt(double(i)/100,100,Temp);
title11=Temp;
title5="- U驱＝";
title5=title5+title11+" v"+"\n";
title6="- ⑵ 10Hz下电机启动校核\n";
try
{
f3.WriteString(title);
f3.WriteString(title1);
f3.WriteString(title2);
f3.WriteString(title3);
f3.WriteString(title4);
f3.WriteString(title5);
f3.WriteString(title6);
}
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
VDR10 = UHZ * 10 * 150 / 100;
VS10 = VDR10 * KV50BY;
I10 = IE * 1.3;
V10DATA = sqrt(3) * I10 * (ldl / 1000) * FACTOR * TTT[J][2] / S;
VQ = VS10 - V10DATA;
VE10 = VE * 10 / 50;
if( (VQ / VE10) >= 0.5)
{
i=int(100 * VQ + 0.5);
gcvt(double(i)/100,100,Temp);
title11=Temp;
gcvt(VE10,60,temp);
title="- V启＝";
title=title+title11+" v"+" > "+temp+"×50％ v，启动顺利。\n";
try
{
f3.WriteString(title);
}
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
}
else
{
i=int(100 * VQ + 0.5);
gcvt(double(i)/100,100,Temp);
title11=Temp;
gcvt(VE10,60,temp);
title="- V启＝";
title=title+title11+" v"+" < "+temp+"×50％ v，不能启动。\n";
try
{
f3.WriteString(title);
}
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
}
// 电机冷却速度计算
DA = wjtg - 20;
v = Q * 4 / (86400 * (pow((DA / 1000),2) - pow((DDJ / 1000),2)) * 3.1415926);
i=int(v * 1000 + 0.5);
gcvt(double(i)/1000,100,Temp);
title11=Temp;
title="- 井液通过电机周围的流速V＝"+title11+"m/s"+"\n";
try
{
f3.WriteString(title);
}
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
if( v > 0.305)
{
title="- 因 V > 0.305 米／秒，不需装电机冷确护罩!\n";
}
else
{
title="- 因 V < 0.305 米／秒，需装电机冷确护罩!\n";
}
try
{
f3.WriteString(title);
}
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
// 油管承受的轴向载荷计算
title="- ";
gcvt(WO,60,temp);
gcvt(siz,60,Temp);
title=title+Temp+"英寸油管，单位长度重量为";
gcvt(FMAX,60,Temp);
title=title+temp+"Kg/m，所承受的最大载荷Fmax＝"+Temp+"Kg"+"\n";
try
{
f3.WriteString(title);
}
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
ww = 3.14159 * pow(D,2) / 4 * LHANG * GA * 1000;
WOE = WO * LHANG;
FFFF = PJ + WOE + ww;
title="- 该井排水时油管所受的最大轴向力：\n";
i=int(FFFF * 100);
gcvt(double(i)/100,100,Temp);
title11=Temp;
title1="- F＝"+title11+" Kg"+"\n";
try
{
f3.WriteString(title);
f3.WriteString(title1);
}
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
if( FFFF < FMAX)
{
title="- F < Fmax ，故安全 ！\n";
}
else
{
title="- F > Fmax ，故不安全 ！\n";
}
try
{
f3.WriteString(title);
}
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
// 电潜泵控制屏运行参数优化设计(v, ia, ldl, hzg2, uj, uouput, BYB, FF$, e$, qddy, zggl);
dqbkzpyxcsyhsj();
title="- 四、控制屏运行参数设计\n";
title1="- 1.60Hz电机铭牌电压 ＝";
gcvt(v,60,temp);
title1=title1+temp+" v"+"\n";
gcvt(ia,60,temp);
title2="- 60Hz电机铭牌电流 ＝";
title2=title2+temp+" A"+"\n";
title3="- 电缆长度 ＝";
gcvt(ldl,60,temp);
title3=title3+temp+" m"+"\n";
title4="- 2.最高运行频率 ＝";
gcvt(hzg2,60,temp);
title4=title4+temp+" Hz"+"\n";
title5="- 3.降压变压器挡位 ＝";
gcvt(S,60,temp);
title5=title5+temp+" 挡"+"\n";
title6="- 4.运行时可获得最大输入电压 ＝480 v\n";
title7="- 5.最高频率下地面电压 ＝";
gcvt(uouput,60,temp);
title7=title7+temp+" v"+"\n";
title8="- 6.升压变压器变压比 ＝";
gcvt(BYB,60,temp);
title8=title8+temp+"\n";
title9="- 7.升压变压器挡位 ＝";
title9=title9+FF+" ，"+e+"\n";
try
{
f3.WriteString("\n");
f3.WriteString(title);
f3.WriteString(title1);
f3.WriteString(title2);
f3.WriteString(title3);
f3.WriteString(title4);
f3.WriteString(title5);
f3.WriteString(title6);
f3.WriteString(title7);
f3.WriteString(title8);
f3.WriteString(title9);
}
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
i=int(100 * qddy + 0.5);
gcvt(double(i)/100,100,Temp);
title11=Temp;
title="- 8.60Hz下的驱动电压 ＝"+title11+"\n";
i=int(100 * zggl + 0.5);
gcvt(double(i)/100,100,Temp);
title11=Temp;
title1="- 9.60Hz下的驱动功率 ＝"+title11+" Kw"+"\n";
try
{
f3.WriteString(title);
f3.WriteString(title1);
f3.WriteString("\n");
f3.WriteString("80\n");
}
catch (CFileException exception3)
{
AfxMessageBox("Error reading file");
return;
}
g_iProgress = 100; // 计算进度
f3.Close();
}
void dqbyhsj::dqbkzpyxcsyhsj()//电潜泵控制屏运行参数优化设计
{
//Form -- 电缆的芯线类型 (5-铜芯 10-铝芯),无因次
//v -- 60Hz电机铭牌电压(V) ia -- 60Hz电机铭牌电流(A) p60 -- 60Hz电机功率(kw)
//h -- 60Hz泵的额定扬程(m) q -- 60Hz泵的额定排量(m^3/d) bx -- 泵效(小数)
//s -- 电缆横截面积(mm^2) ldl -- 电缆长度(m) tw -- 井底温度
double p60,H,Q,Bx,tw,S,GS,GX,hz1,TTT[40][30],FACTOR,UMHZ;
double A1[50],A2[50],C1[50],C2[50],B1,B2,X1,X2,HZG;
int i,J,Form,J1,I1,J2,I2,Temp;
CString YY,ZZ,T2,X[50],T1;
double sss[] = {38, 1.07, 43, 1.092, 49, 1.114, 54, 1.136, 60, 1.157, 66, 1.179, 71, 1.201, 77, 1.223, 82, 1.245, 88, 1.267, 93, 1.288, 99, 1.31, 104, 1.332, 110, 1.354, 116, 1.376, 121, 1.398, 127, 1.42, 132, 1.441, 138, 1.463, 143, 1.485, 149, 1.507};
v = atof(Gcsz[36]);
ia = atof(Gcsz[37]);
p60 = atof(Gcsz[38]);
H = atof(Gcsz[39]);
Q = atof(Gcsz[40]);
Bx = atof(Gcsz[41]);
tw = atof(Gcsz[17]);
S = atof(Gcsz[42]);
Form = atoi(Gcsz[34]);
ldl = atof(Gcsz[43]);
//计算最高运行频率
GS = p60 * Bx * 8813;
GX = 1.03 * Q * H;
hz1 = sqrt(GS / GX) * 60;
//电压降计算
for(J=1;J<=22;J++)
{
TTT[J][1] = 0;
TTT[J][2] = 0;
}
for(J=1;J<=21;J++)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -