Etc.18 Decoking (디코킹) Decoking은 나프타 열분해 공정 중 튜브 내에 불가피하게 생성되는 탄소 침전물(coke)을 제거하는 절차로, Cracking Heater를 정지시키고 진행. 석유화학 제품의 기초 원료인 에틸렌은 분해로 내부에 부설된 노관(Furnace Tueb)에 나프타를 투입하여 800deg.C 전후의 고온에서 열분해하여 제조한다. 에틸렌의 열분해와 동시에 생성된느 열전달 계수가 매누 낮은 코크스(Cokes)가 분해로관 안쪽 표면에 퇴적하여 에틸렌 생산효율을 저하시킨다. 노관 내부에 퇴적된 코크스는 노관 안쪽 표면의 온도를 저하시키므로, 그것을 보상하기 위하여 노관의 가열온도를 상승시키면서 조업을 실시하지만, 노관의 외표면 온도가 내열온도 상한 (약 1,100deg.C)에 도달하기 때문에 수십일 주기로 생산을 정.. 2023. 6. 14. PDF Unlock & Compressoion Batch Script (using ghostscript) 개요 고스트스크립트와 배치파일을 이용하여 PDF 파일의 암호 잠금 해제와 압축등을 수행한다. 이를 위해서 고스트스크립트 사이트에서 프로그램을 다운받아 설치하여야 한다. PDF 파일의 암호 잠금 해제는 아래 github에 올라와 있는 batch script가 실행이 안되어 일부 수정하였고, PDF 압축은 이를 응용하여 ghostscript 명령 부분만 수정하였다. https://github.com/veerman/pdf-unlock/blob/master/unlock_pdf.bat GitHub - veerman/pdf-unlock: PDF Unlock PDF Unlock. Contribute to veerman/pdf-unlock development by creating an account on GitHub.. 2023. 1. 30. Efficient resolution of the Colebrook-White equation 개요 비압축성 유체가 파이프를 흐를 때 마찰에 의한 수두손실 계산을 위한 Darcy friction factor를 구하는 VBA Code이다. Reynolds Number 2300 미만은 층류유동으로 friction factor f=64/Re로 계산이 되고, 천이 및 난류유동에서는 Colebrook의 공식 의해 Darcy friction factor를 계산할 수 있다. 아래 VBA Code는 D. Clamond의 논문에 언급된 Matlab Code를 참고하여 수정한 것이다. VBA CODE 'Colebrook Equation ' 'This VBA code was coded by referring to matlab code by D. Clamond 'Clamond D. Efficient resolution.. 2023. 1. 20. 엑셀 탭 이름 리스트로 만들기 Sub shtName_List() For i = 1 To ActiveWorkbook.Sheets.Count Cells(i, 1).Value = Sheets(i).Name Next i End Sub 2023. 1. 17. Excel파일 PDF 변환 '#################################################################################################################################################################################################################### 'Excel2PDF: 2015.10.03, icarus. 'Version 1.0 '##########################################################################################################################################.. 2023. 1. 17. 하이퍼링크로 지정된 경로의 파일 다운로드 Sub File_Download() Dim i, l As Integer l = InputBox("자료를 다운받을 마지막 행을 입력하세요.", "행 입력") For i = 1 To l Range("C" & i).Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Application.Wait DateAdd("s", 2, Now) '다음파일 다운로드까지 시간지연 2초, 시간을 변경하려면 숫자를 수정할 것 Next i = i + 1 End Sub 2023. 1. 17. 이전 1 2 3 다음 728x90 반응형
