|
|
|
|
|
 HOME > 기술지식 > 기계금속 > 지식 상세보기 |
|
|
|
|
|
| |
|
|
 제목 |
압력용기 |
|
| 분류 |
기계금속 > 기계설계 |
작성일 |
2012.11.28 |
|
| 판매가격 |
1,000  |
다운/조회 |
14 / 4172 |
|
| 작성자 |
soogogri   |
평점 |
0
|
|
|
| 키워드 |
용기설계,압력용기,tank,vessel |
|
|
|
 |
|
본 파일은 캐드에서 압력용기를 설계하고 그려주는 프로그램으로 용기의 용량과 직경을 [1]로 했을 때에 가로의 비율 값을 입력하고 올라오는 다이아로그를 보아 재질에 대한 인장강도와 요구되는 압력 값을 입력하면 캐드화면에 적당한 도면을 그려주는 프로그램입니다.
캐드 비숙련자가 사용하려면
command에서 appload를 하고 본 프로그램을 저장한 곳에 가서 선택하여 load시킨 후
command에서 vessel을 치고 나오는 사항에 따라서j Enter [또는 Space bar] 또는 필요한 값을 입력 진행한 후 Drawing point? 라는 지시에서 화면의 적당한 곳을 선택한다.
도면이 작고 vessel이 크면 안 보일수 있으니 그런 때는 Zoom all로 하여 본다. |
|
 |
|
;; progrmed by SAM CHA WON - Yang jon Suk 2012-11-20 오후 12:51
;;; 본 프로그램에서 은 CARRIGE RETURN의 약자로 자판의 ENTER 또는 SPACE BAR를 뜻한다.
;;; 본 프로그램은 상온을 기준한 것임으로 고온의 경우는 전문가와 충분이 검토한다.
;;; 경판의 곡면 R값이 직경의 1.5배 이상으로 크거나 평면일 때에는
;;; vessel판의 두께와 경판의 두께를 달리 하는것이 경제적일 수도 있다.
;;;
(defun c:vessel (/)
(defun asin-r (asr0) ;sin-value to radian
(atan (/ asr0 (sqrt (- 1 (* asr0 asr0))) ) )
);defun
(if (/= (type vl11) 'REAL)
(setq vl11 1000.0)
);if
(setq vl12 (getreal (strcat "n Vessel의 기본 용량은?. <" (rtos vl11 2 2) ">-.아니면 입력을 :")))
(if (/= vl12 nil)
(setq vl11 vl12)
);if
(setq vl00 (* vl11 1000.0))
(if (/= (type rat0) 'REAL)
(setq rat0 2.0)
);if
(setq rat1 (getreal (strcat "n 직경과 길이의 비율은? 1 : <" (rtos rat0 2 2) ">-. 아니면 입력을 :")))
(if (/= rat1 nil)
(setq rat0 rat1)
);if
(setq rot3 (expt (/ (* vl00 4.0) (* pi rat0)) (/ 1 3.0)))
(setq di00 (fix (+ (* rot3 10.0) 2.5))) ; mm로 환산.
(setq di01 (getreal (strcat "n Vessel의 내경은? <" (rtos di00 2 2) ">-. 아니면 입력을 :")))
(if (/= di01 nil)
(setq di00 di01)
);if
(setq ln00 (fix (+ (* (/ vl00 (/ (* di00 di00 pi) 4.0)) 1000.0) 0.5) ) )
(alert (strcat "nVessel 유효 내경은......... <" (rtos di00 2 2) ">mm."
"nVessel 유효 길이는......... <" (rtos ln00 2 2) ">mm." ))
;; SHELL 두께 계산법 T={(p000*di00)/(200*Qa00*n000-1.2*p000)}+a
;; 두께={(설계압력 * 내경)/(200 * 인장강도*용접효율-1.2*설계압력)}+부식여유
;; STKM11A - 구조용 탄소강 강관 ATKM재질중 가장 낮은 인장강도. SPCD 냉간 압연 강판 또는 강대.
(alert (strcat "n 압력용기의 경우는 상온 인장강도의 약 1/4로 하여 아래와 같이 본다. "
"n "
"n 규격에서 재질은 철 -- STKM11A "
"n "
"n STKM11A__의 인장강도 1/4 -- 약 7.5kg/cm2. "
"n ALUMINIUM의 인장강도 1/4 -- 약 4.0kg/cm2. "
"n STAINLESS의 인장강도 1/4 -- 약 7.5kg/cm2. ")) |
|
|
 |
|
| 분량 |
9 페이지 |
저작년도 |
2012 년도 |
원저작자/출처 |
양종석 -본인 제작 |
|
|
|
|
|
|
|
|
|
|
 댓글 0 개가 등록되어 있습니다. |
| |
|
|
|
|
|
|
|
|
| 0 /1000byte |
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
: MS Excel 2007
: MS Powerpoint 2007 
: MS Word 2007 
: 한글뷰어 2007
: Adobe Acrobat Reader 
: DWG Viewer 
: Autodesk Inventor View 
대표이사 : 김현주