FEA에서 응력집중 문제

응력집중 또는 특이점 문제에 봉착했다. 응력은 메쉬크기가 작을 수록 커지고 있다. 수렴이 되지 않아 결과는 비현실적이다.
인터넷에서 많이 찾아봤다. 그러나 작은 지점에서 최고 응력이 허용할 수 있느냐 마느냐는 관심이 없다. 그 영역에서 허용할 정도의 응력을 얻어내는 것을 찾고 있다. 최고 응력을 무시하고 싶지 않다. 피로에 의한 데미지를 생각하지 않을 수 없다.
테스트 결과 실제 값을 알고 있으니, 목표는 FEA 셋팅이나 모델링을 정정하여 수렴을 시켜 바른 결과를 얻는 것이다. 정정된 셋팅으로 그 부분의 모델을 변경하여 다른 분석을 수행할 것이다.

응력집중으로 연구할 수 없는 영역에서 실제 결과를 도출할 수 있을까?
최극값의 응력을 주위의 노드와 요소응력의 최극 응력값을 무시할 수 있게 결과를 만들 수 있을 까?

3D 모델의 바운더리 조건이 문제를 야기시켰다고 본다. 면의 한쪽 날이 고정 서포트로 작용하는 것이 충돌점이다.

성공하지 못한 계산:
1- ANSYS Workbench로 tets elements와 bricks를 같이 사용함.

2- 구속조건 부분을 리모델링하여 응력 집중을 줄이고자함. 그러나 약간의 변화만 주고 문제는 여전함.

3- 고정점을 elastic support (more realistic)로함. warning: "One or more bodies may be underconstrained and experiencing rigid body motion. Weak springs have been added to attain a solution."

[KRC] 그래 이거야

김장훈이 호언장담하듯 ‘마돈나도 탐낼만한’ 그런 공연장치가 우리나라에서도 개발되었다

 

오 준 호 박사...

[KRC] 사업이란

돌을 던져라~

버럭문노

겉보기에는 꽤 점잖아 보이지만 실제로는 고함치기를 좋아할 뿐만 아니라 속이 뒤틀리면 화랑도 연병장을 아예 쑥대밭으로 만들어버리는 국선 문노께서 오답을 정답이라고 이미 선포해버렸으니, 그런 괴팍한 문노 앞에서 그 누구도 "이것이 진짜 정답"이라며 이의를 제기하기란 결코 쉽지 않을 것이다.
출처 : 문노가 출제한 2번 문제의 실제 정답은? - 오마이뉴스

[KRC] 중소기업확인서

도데체 중소기업확인서는 어떻게 해야 하는 것이야.
세무서는 모른다고 하고,
중소기업청은 입찰용이라고 하고 서류도 재무제표와 주주명부등을 요구한다.
법인세 서류에 들어가는 중소기업기준검토표를 세무사에게서 확인했는데...
이눔의 관공서에서는 원본대조필이니... 명판고무인이니...
새로 창업한 회사가 그런게 어디 있남.

해피랜드에서 일요일을 비러머글

지옥의 입에 가시돋힌 돼지가 먹는 밥이 있다면 이런 맛일까?
계란은 말라서,
터진 풍선보다 질기고
나물은 말라서, 나뭇가지 보다 딱딱하여
미역국 밥 보다 비빕밥을 먹어 시원하겠다는 생각이 달아났다.
저녁내내 입에서 계란냄새가 났다.

9월 3째주 일요일...
수영을 너무 잘하려고 하는 꼬맹이

얜시스

메시의 방법을 찾아야 하는데
국부에 엉뚱한 값을 토해 내어 실패함.

Culture 1984

전시기획자의 두개골에 뇌가 안 들어 있다는 데에 100원 건다.

[KRC] 조인식

Half million Dollar의 가치가 있을까?
엔지니어 회사의 탈출구는 어디인가?
큰 물옆에 놀아야 갓물를 탈 수 있다.
현대인가 대동인가?

글자공부

[신공법]

http://cyber.kictep.re.kr/ntec/cyber/Main.do?exeNo=570&cdVlu=06&typ=Y

BSPLINE에 RELATION 주기

Private Function Airfoil(ByVal beta2 As Double, ByVal VaneL As Double) As Boolean
If beta2 * VaneL = 0 Then Exit Function
Dim objpDoc As SolidEdgePart.PartDocument

If (objDoc.Type <> SolidEdgeFramework.DocumentTypeConstants.igPartDocument) Then
MsgBox("Please, Open Part Document.")
Airfoil = False
Exit Function
End If
objpDoc = objDoc

Dim objRefPlane(2) As SolidEdgePart.RefPlane
Dim objProfile As SolidEdgePart.Profile
Dim dblX As Double
Dim dblY As Double

' Create a new reference plane.
' objRefPlane = objDoc.RefPlanes.AddParallelByDistance( _
' ParentPlane:=objDoc.RefPlanes(1), _
' distance:=0, _
' NormalSide:=igLeft, _
' Local:=True)
objRefPlane(1) = objpDoc.RefPlanes.AddAngularByAngle( _
ParentPlane:=objpDoc.RefPlanes(1), _
Angle:=(180 - beta2) / 180 * Math.PI, _
NormalSide:=SolidEdgePart.FeaturePropertyConstants.igNormalSideDummy, _
Pivot:=objpDoc.RefPlanes(2), _
PivotOrigin:=SolidEdgePart.ReferenceElementConstants.igPivotEnd, _
Local:=False)

objRefPlane(0) = objpDoc.RefPlanes.AddAngularByAngle( _
ParentPlane:=objRefPlane(1), _
Angle:=Math.PI / 2, _
NormalSide:=SolidEdgePart.FeaturePropertyConstants.igNormalSideDummy, _
Pivot:=objpDoc.RefPlanes(0), _
PivotOrigin:=SolidEdgePart.ReferenceElementConstants.igPivotEnd, _
Local:=False)

objProfile = objDoc.ProfileSets.Add.Profiles.Add(objRefPlane(0))

' Get the model space origin relative to profile space.
objProfile.Convert3DCoordinate(x3d:=0, y3d:=0, z3d:=0, _
x2d:=dblX, y2d:=dblY)

' Draw a circle for the profile graphics.
' objProfile.Circles2d.AddByCenterRadius(x:=dblX, y:=dblY, Radius:=500 / 1000)
Dim PointData(52) As Double
Dim i As Long = 0

PointData(i) = 486.3 / 1000 : PointData(i + 1) = 5.7 / 1000 : i = i + 2
PointData(i) = 437.6 / 1000 : PointData(i + 1) = 20.2 / 1000 : i = i + 2
PointData(i) = 389.0 / 1000 : PointData(i + 1) = 31.7 / 1000 : i = i + 2
PointData(i) = 340.4 / 1000 : PointData(i + 1) = 39.8 / 1000 : i = i + 2
PointData(i) = 291.8 / 1000 : PointData(i + 1) = 45.4 / 1000 : i = i + 2
PointData(i) = 243.1 / 1000 : PointData(i + 1) = 49.2 / 1000 : i = i + 2
PointData(i) = 194.5 / 1000 : PointData(i + 1) = 50.9 / 1000 : i = i + 2
PointData(i) = 145.9 / 1000 : PointData(i + 1) = 48.6 / 1000 : i = i + 2
PointData(i) = 97.3 / 1000 : PointData(i + 1) = 44.4 / 1000 : i = i + 2
PointData(i) = 72.9 / 1000 : PointData(i + 1) = 40.5 / 1000 : i = i + 2
PointData(i) = 48.6 / 1000 : PointData(i + 1) = 37.3 / 1000 : i = i + 2
PointData(i) = 24.3 / 1000 : PointData(i + 1) = 32.7 / 1000 : i = i + 2
PointData(i) = 0 / 1000 : PointData(i + 1) = 12.8 / 1000 : i = i + 2
PointData(i) = 24.3 / 1000 : PointData(i + 1) = 1.4 / 1000 : i = i + 2
PointData(i) = 48.6 / 1000 : PointData(i + 1) = 2.1 / 1000 : i = i + 2
PointData(i) = 72.9 / 1000 : PointData(i + 1) = 2.8 / 1000 : i = i + 2
PointData(i) = 97.3 / 1000 : PointData(i + 1) = 4.3 / 1000 : i = i + 2
PointData(i) = 145.9 / 1000 : PointData(i + 1) = 5.7 / 1000 : i = i + 2
PointData(i) = 194.5 / 1000 : PointData(i + 1) = 6.1 / 1000 : i = i + 2
PointData(i) = 243.1 / 1000 : PointData(i + 1) = 6.8 / 1000 : i = i + 2
PointData(i) = 291.8 / 1000 : PointData(i + 1) = 7.1 / 1000 : i = i + 2
PointData(i) = 340.4 / 1000 : PointData(i + 1) = 7.1 / 1000 : i = i + 2
PointData(i) = 389.0 / 1000 : PointData(i + 1) = 5.7 / 1000 : i = i + 2
PointData(i) = 437.6 / 1000 : PointData(i + 1) = 2.8 / 1000 : i = i + 2
PointData(i) = 486.3 / 1000 : PointData(i + 1) = 0 / 1000 : i = i + 2

Dim objBSpline As SolidEdgeFrameworkSupport.BSplineCurve2d
objBSpline = objProfile.BSplineCurves2d.AddByPoints(Order:=4, ArraySize:=25, Array:=PointData)
Dim objLine As SolidEdgeFrameworkSupport.Line2d
objLine = objProfile.Lines2d.AddBy2Points(PointData(48), PointData(49), PointData(0), PointData(1))

Dim objRelations As SolidEdgeFrameworkSupport.Relations2d
objRelations = objProfile.Relations2d
objProfile.Relations2d.addkeypoint( _
objLine, SolidEdgeConstants.KeypointIndexConstants.igLineEnd, _
objBSpline, SolidEdgeConstants.KeypointIndexConstants.igBsplineCurveStart)
objRelations.AddKeypoint( _
objLine, SolidEdgeConstants.KeypointIndexConstants.igLineStart, _
objBSpline, 25 - 1) ' Array 갯수과 관련이 있음.
' End and validate the profile.
Dim ordStatus As Boolean
ordStatus = objProfile.End(ValidationCriteria:=SolidEdgePart.ProfileValidationType.igProfileClosed)
If ordStatus <> 0 Then
MsgBox("Invalid Profile")
Exit Function
End If

End Function

[KRC] 티비

텔레비젼 32인치가 크다..

중소기업기준검토표를 조사하다가...
1. 자산 = 부채 + 자본입니다..
1600 = 1200 + 자본이므로 자본은 400이 되어야 합니다.
2. 자기자본은 자본의 구성요소를 모두 합친 것을 말합니다..
자본금 600
주식발행초과금 400
당기순이익 100
전기이월결손금 600
다 합치면 600 + 400 + 100 - 600 = 500입니다... 이상하지요... 뭔가 빠져있습니다.

[kRC] 복합기

사무실에 사용되는 복합기는 잉크젯일 까 레이저 일까

가장 많이 쓰는 모델이 HP5610 약 20 만원

무선랜이되는 옵션을 달아야 겠다.

[FE] FLEXLM V11

ANSYS V11이 깔렸습니다. VISTA에서 돌아갑니다.

부고

모시던 Seo 님의 아내가 투병을 끝내고 영면하셨습니다.
이제 추억만 남은 듯합니다.
대구의 경대병원

피곤합니다.

ANsys를 돌려야 합니다.

[KRC] 어둠의 경로

BLACK Cartia v16을 vista에 설치하는 방법이란다.
1. cd1, cd2 iso를 폴더로 푼다. 가상CD는 어떨까?
2. 재부팅시 F8로 네트워크 안전모드로 로그인한다.
3. 설치한다. 56%정도에서 CD2 넣으라고 하면 CD2의 내용을 CD1에 복사한다.
4. 설치완료하고 나머지 크 한다.

cartia를 이제 배워야 겠네... 이제 써보지 않은 S/W가 없는 듯...

기술이전이라기 보다는 생산기술 설계 계획서라고 해야할 것 같다.
그렇다면 관련된 업체 리스트를 모두 목록화 해야 한다.

[KRC] 시연

에버다이ㅁ 연구소에서 왔다.

[kRC] 네임 등록

- 3가지가 필요하다
1. 시작이 좀 성대하고 해야 하지만, 이제 그렇게 될 것이다. Technology Transfer식만해도 큰행사가 될 것이다. 아반테를 그랜져로 바꿔야 할지도 모른다.
2. 생산기술을 위해 필요한 내용을 채워야 한다. 또, PPT만드는데 필요한 내용이 필요하다.
3. 좋은 곳 있으면 소개해 줘.

비번을 0901에서 FAX로 바꿨다.

도메인 네임을 KRC로 찾아봐야 겠다.

[KRC] 스킨스쿠버 미팅

CNU에 차량등록을 하였다. 54,000원 6개월분을 했다.

HAEYEON ENG와 만남이 있었다. 스킨스쿠버 인부 2명에 대해 월 천만원 이상 든다고 한다.

실전용 인원을 배치해 주기로 하였다.

깊은 관계가 필요할 것 같다.

가구가 들어왔다. 배치를 하였다.

이제 E mart를 가야 겠다.

[KRC] 창업 D-DAY

ckddnjs에 내려오는 기차 KTX를 탔다.
10시 35분발.
아내가 친이 모셔오니 편하였다. 한편으로는 앞으로의 일이 머리에서 떠나질 않는다.
아내는 가방에 무얼 그리 많이 집어 넣었는지, 아마 걱정이겠지.
노트북 가방도 무거운데, 여행백 가방도 무거우니 거동이 불편하였다.

어제 먹은 술과 오징어.
아~ 오징어, 속이 메슥거린다.
새벽까지 떳다, 그녀. 써커스를 했더니 몸에 기운이 없다.
자꾸 가벼운 마음으로 가야하느데, 세상이 쉽게 받아 주지 않는 것 같다.

ckddnjsdur에 도착하기 전에 픽업을 온다고 하였다.
일요일에 출발하여 온다고 하였으나, 어제 온듯하다.
전 회계사와 법무사, 우선 술과 수다로 놀고, 나머지 돈으로 업무를 처리하자는 듯 하다.
초치기다. 전문가 들이다 보니 90%는 해결을 보았다.

오피스 텔은 중2층으로 주로 거주용일 듯 싶다.
오피스 가구까지 마련하고
원할머니 보쌈을 먹으러 갔다.

페브리즈를 뿌리러 오피스 728호에 다시 왔다.
다시 맥주를 마시러 나갔다.

그들은 11시, 12시, 1시 차중에서 1시차로 떠났다.

[펌]