로그인 페이지
 
 
내 용
I.D pes21 날짜 2006-02-28

조회수 : 3353   

제 목 : 열교환기/압력용기 견적 프로그램 소스
다음은 압력용기 및 열교환기 견적 프로그램 소스입니다.

사용자 가이드를 별도로 만들지 않는 대신 프로그램 소스로 대체합니다. 출력된 계산 결과에 대하여 이해를 돕고자 올렸습니다.

if sid1*10/10 > 3200 then
bcwen1=sid1*3.14159*(round((sto1*10/10+(chvn1*chvnq1)+(chvn1*chvnq1))/2438,0)+5)+((sid1*1.5)*0.3*hqt1)
else
bcwen1=sid1*3.14159*(round((sto1*10/10+(chvn1*chvnq1)+(chvn1*chvnq1))/2438,0)+1)
end if
bcwen2=(sto1*10/10+(chvn1*chvnq1)+(chvn1*chvnq1))
btwen1=bcwen1*10/10+bcwen2*10/10
wntw1=soo1*3.14159*nty1
wntw2=soo2*3.14159*nty2
wntw3=soo3*3.14159*nty3
wntw4=soo4*3.14159*nty4
wntw5=soo5*3.14159*nty5
wntw6=soo6*3.14159*nty6
wntw7=soo7*3.14159*nty7
ntwen1=wntw1*10/10+wntw2*10/10+wntw3*10/10+wntw4*10/10+wntw5*10/10+wntw6*10/10+wntw7*10/10
if isp1=1 then
btrt1=round(btwen1/250,0)
ntut1=ntwen1/1000
elseif isp1=2 then
btrt1=round(btwen1/250,0)*0.25
ntut1=ntwen1/1000*0.25
else
btrt1=0
ntut1=0
end if

if wwgt1=1 then
jen1=(stt1*tan((wban1/2)*3.14159/180))
are1=(jen1*stt1)
elseif wwgt1=2 then
jen1=((stt1/2)*tan((wban1/2)*3.14159/180))*2
are1=(jen1*stt1/2)*2
elseif wwgt1=3 then
jen1=(stt1*tan((wban1/2)*3.14159/180))
are1=(jen1*stt1)*1.15
elseif wwgt1=4 then
sca1=stt1*2/3
scb1=stt1/3
jen11=(sca1*tan(((wban1/2)*3.14159/180))*2)
jen22=(scb1*tan(((wban1/2)*3.14159/180))*2)
are1=+jen11*sca1+(jen22*scb1)
else
end if
zwod1=are1*btwen1*grv1/100^3
if wbwp1=1 then
weff1=0.55
elseif wbwp1=2 then
weff1=0.9
elseif wbwp1=3 then
weff1=0.8
elseif wbwp1=4 then
weff1=0.9
else
end if
bwod1=((zwod1/weff1)*wwov1)*1.5


if wnat1=1 then
njen1=(stt1*tan(wnan1*3.14159/180))
nare1=(njen1*stt1)+((stk1*0.5)*(stk1*0.5))/2
elseif wnat1=2 then
njen1=(stt1/2*tan(wnan1*3.14159/180))
nare1=(njen1*stt1/2)+((stk1*0.5)*(stk1*0.5))/2
elseif wwgt1=3 then
nare1=((stk1*0.5)*(stk1*0.5))/2
else
end if
zwod2=nare1*ntwen1*grv1/100^3

if wnin1=1 then
njkk3=((stk1*0.5)*(stk1*0.5))/2
zwod3=njkk3*ntwen1*grv1/100^3
else
njkk3=0
zwod3=0
end if

if wswn1=1 then
njkk4=((stk1*0.5)*(stk1*0.5))/2
zwod4=njkk4*ntwen1*grv1/100^3
else
njkk4=0
zwod4=0
end if

if wnwp1=1 then
nweff1=0.55
elseif wnwp1=2 then
nweff1=0.9
elseif wnwp1=3 then
nweff1=0.8
elseif wnwp1=4 then
nweff1=0.9
else
end if

nwod11=(zwod2/nweff1)*wwov1
nwod22=(zwod3/nweff1)*wwov1
if wfwn1=1 then
nwod33=((zwod4/nweff1)*wwov1)*2
else
nwod33=(zwod4/nweff1)*wwov1
end if

nwod1=(nwod11*10/10+nwod22*10/10+nwod33*10/10)*1.5
twod1=bwod1*10/10+nwod1*10/10

tncw1a=ncw1a*tyy1
tncw1b=ncw1b*tyy2

nnpw1=tntw1*10/10+tnw1*10/10
stwg1=tfwt1*10/10
ctwg1=tncw1a*10/10+tncw1b*10/10

swt1=((sid1*10/10+stt1*10/10)*3.14159*stt1*sto1*grv1)/100^3
fccw1=((chvi1*10/10+chvt1*10/10)*3.14159*chvt1*chvn1*grv1)/100^3*chvq1
rccw1=((chvi2*10/10+chvt2*10/10)*3.14159*chvt2*chvn2*grv1)/100^3*chvq2
chwt1=fccw1*10/10+rccw1*10/10

tbwt1=((tod1*10/10-ttk1*10/10)*3.1415*ttk1*ten1*grv2)/100^3*tbq1
spw1=sid1*(vht1*10/10+sid1*10/10)*swb1*grv1/100^3*0.5*sqt1

fh1=(cvd1*1.3)^2*3.14159/4*cvt1*grv1/100^3
fh2=(cvd1*1.2)^2*3.14159/4*cvt1*grv1/100^3
fh3=(cvd1*1.64)^2*3.14159/4*cvt1*grv1/100^3
fh4=cvd1^2*3.14159/4*cvt1*grv1/100^3

if hty1=1 then
fhwt1=fh1*10/10*cvq1
elseif hty1=2 then
fhwt1=fh2*10/10*cvq1
elseif hty1=3 then
fhwt1=fh3*10/10*cvq1
elseif hty1=4 then
fhwt1=fh4*10/10*cvq1
elseif hty1=5 then
fhwt1=0
else
end if

rh1=(cvd2*1.3)^2*3.14159/4*cvt2*grv1/100^3
rh2=(cvd2*1.2)^2*3.14159/4*cvt2*grv1/100^3
rh3=(cvd2*1.64)^2*3.14159/4*cvt2*grv1/100^3
rh4=cvd2^2*3.14159/4*cvt2*grv1/100^3

if hty2=1 then
rhwt1=rh1*10/10*cvq2
elseif hty2=2 then
rhwt1=rh2*10/10*cvq2
elseif hty2=3 then
rhwt1=rh3*10/10*cvq2
elseif hty2=4 then
rhwt1=rh4*10/10*cvq2
elseif hty2=5 then
rhwt1=0
else
end if

tgfc1=fhwt1*10/10+rhwt1*10/10

fg1=((gvd1^2-gvi1^2)*3.14159)/4*gvt1*grv1/100^3*gvq1*0.9
rg1=((gvd2^2-gvi2^2)*3.14159)/4*gvt2*grv1/100^3*gvq2*0.9
tgfg1=fg1*10/10+rg1*10/10

mts1=(tod1^2*3.14159)/4*tvt1*grv1/100^3*tbq1
wts1=(tvd1^2*3.14159)/4*tvt
[답변]          [삭제][홈으로]

No.

제  목

I.D

날짜

조회

17

 열교환기/압력용기 견적 프로그램 소스

pes21

2006-02-28

3353