글 수정하기
I.D
제 목
내 용
다음은 압력용기 및 열교환기 견적 프로그램 소스입니다. 사용자 가이드를 별도로 만들지 않는 대신 프로그램 소스로 대체합니다. 출력된 계산 결과에 대하여 이해를 돕고자 올렸습니다. 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
비밀번호
(비밀번호는 수정과 삭제시 필요합니다.)
<수정>
<취소>