RA = wL/2 ↑ RB = wL/2 ↑ MC = wL²/8 Mx = wLx/2 - wx²/2 δC = 5wL⁴/(384EI)↓ δx = wx(L³-2Lx²+x³)/(24EI)↓ Input : E= (kN/m²) Inpu : I= (m⁴) Input : w= (kN/m) Input : L= (m) Input : x= (m) Output : MC =kN·m) Output : MX=(kN·m) Output : δC=(m) Output : δX=;(m) * 전단처짐 무시, EI는 변함없음 δC 공식을 단위하중법으로 유도해 보겠습니다. 실제계 A에서 a까지 모멘트 Mx = wLx/2 - wx²/2, B에서 a까지 Mx = wLx/2 - wx²/2 a위치에 단위하중 1을 재하하면 반력은 RA = (L-a)/L ..
RB = P ↑ MB = P(L-a) clockwise δC = P(L-a)³/(3EI)↓ Input : E=(kN/m²) Input : I=(m⁴) Input : L=(m) Input : a=(m) Input : P=(kN) Output : RB=(kN) Output : MB=(kN·m)clockwise Output : δC = (m) ↓ * 전단처짐 무시, EI는 변함없음 캔틸레버 등분포하중[Cantilever uniform distributed load] δC 공식을 단위하중법으로 유도해 보겠습니다. 실제계 모멘트 Mx = P(x-a) C에 단위하중 1을 재하하면 단위하중계 mx = (x-a) \[\delta_{c}= \frac{1}{EI}\int_{a}^{L}m_{x}M_{x}dx = \frac{..
RA = P(L-a)/L RB = Pa/L MC = Pa(L-a)/L δC = a²(L-a)²P/(3LEI) Input : E= (kN/m²) Input : I= (m⁴) Input : L= (m) Input : a= (m) Input : P= (kN) Output : RA = (kN) Output : RB = (kN) Output : MC = (kN·m) Output : δC = (m) * 전단처짐 무시, EI는 변함없음 δC 공식을 단위하중법으로 유도해 보겠습니다. 실제계 A에서 C까지 모멘트 Mx1 = P(L-a)x1/L , B에서 C까지 모멘트 Mx2 = Pax2/L C에 단위하중 1을 재하하면 반력은 RA = (L-a)/L , RB = a/L 이고 단위하중계 A에서 C까지 모멘트 mx1 = (L..
VBA로 만든 코드가 다음과 같이 있습니다. Sub para() ....... ...... ....... End Sub 캐드 명령어(command)에서 아래와 같이 타이핑을 하면됩니다. (defun c:para() (COMMAND "vbastmt" "para") (princ) ) command에서 para 를 치시면 VBA 코드가 실행됩니다. 캐드를 켤 때마다 자동 등록되어 쓸수 있도록 만들수 있습니다.. 노트패드 같은 에디터서 타입핑부분을 para.lsp 로 저장을 하고 appload 하신다음 Startup Suite에 para.lsp를 등록하시면 됩니다.
Language Toggle Excel Download 엑셀의 H형강 제원을 긁어서 캐드에서 그려보겠습니다 Let's make a H-shaped steel section in cad using Excel 다운받은 파일을 열면 아래와 같습니다. 원하시는 사이즈 형강의 셀을 복사(ctrl + c)하시구요 캐드 파일 command에 커서를 두고 붙여넣기 (ctrl + v)하시고 캐드 창 아무 곳이나 한 점을 찍어주면 아래와 같이 그려집니다. First copy a H-shaped steel cell you want (ctrl + c) and paste it on command line in cad (ctrl + v) point anywhere in cad window then H-shaped section ..
오토캐드(AutoCad) VBA에서 세 점 포물선이 어떻게 유도 되었는지 보겠습니다. 이차 포물선 y = a x ² + b x + c 세점은 (x1, y1) , (x2, y2) , (x3, y3)이고 이차포물선 식에 각각 대입하면 다음과 같습니다. y1 = a x1 ² + b x1 + c y2 = a x2 ² + b x2 + c y3 = a x3 ² + b x3 + c 세점은 입력을 받았기 때문에 이미 알고 있는 값이고 상수 a, b, c를 구하면 됩니다. 행렬로 나타내면 중간행렬(M)의 역행렬을 구하면 복잡하지만 아래와 같이 나옵니다. [a,b,c] 행렬에 대해 풀면 역행렬과 y1, y2, y3를 계산하면 상수 a, b, c 값이 정해집니다. 그럼 포물선의 식이 결정이 되었습니다. 이제 x1 과 x3의..
Language Toggle 오토캐드에서 VBA로 세 점 포물선 그리는 법입니다. Method of drawing parabola of 3points in Autocad using VBA 먼저 아래의 코드를 긁으시고 First, drag following code Sub para() Dim Pnt1, Pnt2, Pnt3 As Variant '3points for parabola Pnt1 = ThisDrawing.Utility.GetPoint(, "1st Point") Pnt2 = ThisDrawing.Utility.GetPoint(, "2nd Point") Pnt3 = ThisDrawing.Utility.GetPoint(, "3rd Point") Dim a, b, c As Double Dim M11, M..
D,h,q,H 값을 넣고 'Cal' 버튼을 누르면 카테나리가 그려집니다. 'Excel'버튼으로 엑셀 데이터를 만들 수도 있습니다. D : (m) h : (m) q : (kN/m) H : (kN) C1 : C2 : TA : (kN) TB : (kN)