*진* 스토어

*진*

개인인증

팔로워1 팔로우

소개

등록된 소개글이 없습니다.

전문분야 등록된 전문분야가 없습니다.

판매자 정보

학교정보

입력된 정보가 없습니다.

직장정보

입력된 정보가 없습니다.

자격증

입력된 정보가 없습니다.

판매지수

판매중 자료수

15개
전체 판매량

238개
최근 3개월 판매량

1개
자료후기 점수

평균A+
자료문의 응답률

-

전체자료 15개

[인하대 토질역학 및 실험] 체분석 시험 보고서 (A+)

토질역학 실험 보고서[체분석 실험]12160990사회인프라공학과박 진 웅1. 실험 제목 : 체분석 시험2. 실험 이론(1) 체분석체분석은 점차적으로 더 작은 체눈을 갖는 한 세트의 체를 사용하여 흙 시료를 흔드는 것이다.표준 체의 번호와 체눈의 크기는 [표1]과 같다.체 번호체눈 크기(mm)체 번호체눈 크기(mm)44.750*350.50054.000400.42563.350500.35572.2800600.25082.360700.212102.000800.180121.7001000.150141.4001200.125161.1801400.106181.0001790.090200.8502000.075*250.7102700.053300.600[표1] 미국 표준 체크(2) 입도분포곡선입도분포곡선은 주어진 흙 시료에 대한 4개의 매개변수를 결정하는데 사용된다.① 유효경(effective sie,D _{10}): 이 매개변수는 입도분포곡선에서 흙 시료의 가적통과율이 10%에 해당되는 흙입자의 직경이다. 사질토의 유효경은 투수계수과 흙을 통과하는 배수능력을 산정하는데 유용하게 쓰인다.② 균등계수(uniformity coefficient,C _{u}): 이 매개변수는 다음과 같이 정의된다.?C _{u} = {D _{60}} over {D _{10}} (여기서D _{60}은 흙시료의 가적통과율이 60%에 해당되는 직경)③ 곡률계수(coefficient of gradation,C _{c}): 이 매개변수는 다음과 같이 정의된다.?C _{c} = {D _{30} ^{2}} over {D _{60} TIMESD _{10}}(3) 통일분류법통일분류법(Unified Soil Classification System)의 원래 방법은 제 2차 대전 중에 미국 공병단의 비행기 활주로 공사에 사용하기 위해 Casagrande가 1942년에 개발했다. 현재 공학자들이 널리 사용하는 방법(ASTM 규정 D-2487)은 미국 개척국의 협력 하에 미국 공병단이 1952년에 개정한 것이다.이 분류법은 흙을 두 가지 주요 분류로 나눈다.① No. 200체 통과량이 50%보다 적은 자연상태의 자갈질 그리고 모래질 조립토이다. 이 그룹의 기호는 G나 S의 접두사로 시작된다. G자는 자갈이나 자갈질 흙을 나타내고, S자는 모래 또는 모래질 흙을 나타낸다.② No. 200체 통과량이 50% 이상인 세립토이다. 이 그룹의 기호는 무기질 실트의 경우는 접두사 M, 무기질 점토의 경우는 C, 유기질 실트와 점토인 경우는 O로 시작된다. 이탄과 썩은 흙, 기타 유기질이 많은 흙은 Pt로 표현된다.분류에 사용되는 그 밖의 기호는 다음과 같다.W : 입도분포가 좋음P : 입도분포가 나쁨L : 액성한계가 50%이하로 소성이 작음H : 액성한계가 50%이상으로 소성이 큼이 분류법을 사용하려면 다음의 사항을 숙지해야 한다.① 자갈의 백분율: 76.2mm 체를 통과하고 No.4체에 남은 양② 모래의 백분율: No.4체를 통과하고 No.200체에 남은 양③ 실트와 점토의 백분율: No.200체보다 세립분④ 균등계수(C _{u})와 입도계수(C _{c})⑤ No.40체를 통과한 흙에 대한 액성한계와 소성지수조립토의 분류기호는 GW, GP, GM, GC, GC-GM, GW-GM, GW-GC, GP-GM, GP-GC이다.마찬가지로 세립토의 분류기호는 CL, ML, OL, CH, MH, OH, CL-ML, Pt이다.3. 실험 결과가 활용되는 내용균등계수, 곡률계수입도분포곡선을 통해 균등계수(C _{u} = {D _{60}} over {D _{10}})와 곡률계수(C _{c} = {D _{30} ^{2}} over {D _{60} TIMESD _{10}})를 구할 수 있다. 여기서, D10, D30 및 D60은 각각 통과질량백분율 10%, 30% 및 60%에 대한 입경이다.흙의 공학적 성질 추정입도로 흙의 성질을 추정하는데 이용할 수 있는 것은 흙의 동상성을 0.002㎜입경과 관계시킨 경우, 필 댐에서 축제 재료에 입경가적곡선을 이용하는 경우 및D _{10}으로 사징토의 투수성을 추정하는 경우 등에 사용한다.4. 실험 결과[체분석 Data][입도분포곡선][입도분포곡선 ? CAD 활용][계산과정]D _{10}에 해당하는 값?가적통과율 10%에 해당하는 선과 입도분포곡선이 만나는 점을 찾아서 0.5와 0.6 사이의 길이를 1로 가정한 후, 얼마의 길이에 해당하는지 잰 후 비례식을 활용하여 구한다.log( {0.6} over {0.5} ):log {x} over {0.5} =1: {97.06} over {224.98} `````````````````````````#THEREFORE x=0.5409D _{30}에 해당하는 값?가적통과율 30%에 해당하는 선과 입도분포곡선이 만나는 점을 찾아서 0.9와 1.0 사이의 길이를 1로 가정한 후, 얼마의 길이에 해당하는지 잰 후 비례식을 활용하여 구한다.log( {1.0} over {0.9} ):log {x} over {0.9} =1: {73} over {132.33} `````````````````````````#THEREFORE x=0.9005D _{60}에 해당하는 값?가적통과율 60%에 해당하는 선과 입도분포곡선이 만나는 점을 찾아서 2.0와 3.0 사이의 길이를 1로 가정한 후, 얼마의 길이에 해당하는지 잰 후 비례식을 활용하여 구한다.log( {3} over {2} ):log {x} over {2} =1: {3287} over {51817} `````````````````````````#THEREFORE x=2.0521균등계수C _{u}?C _{u} = {D _{60}} over {D _{10}} = {2.0521} over {0.5409} =3.7591곡률계수C _{c}?C _{c`} =` {(D _{30} ) ^{2}} over {D _{10} BULLET D _{60}} = {0.9005 ^{2}} over {0.5409 TIMES 2.0521} =0.7306D _{10}D _{30}D _{60}균등계수곡률계수0.54090.90052.05213.75910.7306[흙의 판별]① No. 200체 통과율이 41.96%로 50%보다 낮으므로 조립토이다.② No. 4체 통과율이 85.52%로 50%보다 크므로 모래(S)이다.③ 균등계수는C _{u} =3.7591 로,C _{u} >6조건에 만족하지 못한다.④ 곡률계수 ��C _{c} =0.7306 로,1

공학/기술| 2018.05.13| 6페이지| 3,000원| 조회(576)

실험, 토질, 인하대, 토질역학, 체분석

미리보기

닫기
[인하대 컴퓨터프로그래밍] 기말프로젝트 철근 콘크리트 보고서 (A+)

컴퓨터 프로그래밍기말 Project시험일시2017 년 11 월 30 일점 수과ㆍ학년사회인프라공학과 학년학 번12160990성 명박 진 웅1. Visual Basic 언어로 철근콘크리트 T-형 단면을 해석하는 프로그램을 작성한다.2. 실습06의 프로그램을 다음과 같이 수정한다.① 실습자료와 다른 독창적이고 체계적인 Form이 되도록 다시 설계한다. 설계된 Form에는 복부 폭과 플랜지 높이를 입력하기 위한 도구 BoxWebWid와 BoxFlangeHeight 그리고 인장 및 압축철근지수를 위한 도구 BoxIndexTen과 BoxIndexCom을 적절한 위치에 삽입하고, Form[디자인] 창에 속성을 설정한다.② Class RCSection의 생성자 New에 복부 폭과 플랜지 높이를 속성으로 추가하고,보강철근의 유효깊이 계산의 폭과 높이가 지정되는 AddSteel과단면해석이 실행되는 AnalyzeSection의 단위 프로그램을 수정한다.③ Form[코딩] 창의 SetProperties 부프로그램에서 복부 폭과 플랜지 높이를 읽고,이들이 적용된 콘크리트단면 객체 RCSection의 참조 conSection을 생성하며,계산 결과를 Form에 출력한다.④ 철근콘크리트의 T-형 단면과 보강철근의 배근을 그릴 수 있도록Form[코딩] 창의 DrawSection과 DrawSteel의 부프로그램을 수정한다.⑤ 주어진 단면과 해석된 수치를 나타내는 치수선을 그리기 위한Form[코딩] 창의 SetDimension과 부프로그램을 수정한다.3. 다음 자료를 프린터로 인쇄해서 제출한다.① Form의 계산결과 화면(직사각형과 T-형 단면의 기본자료를 임의로 설정하고, 화면 capture를 사용한다.)② 수정된 단위 부프로그램과 광역변수③ 압축철근지수omega^`'의 증가에 대한 설계기준을 만족하는 최대 사용가능 인장철근지수omega와 공칭강도M_n 변화의 분석결과Dim conIndex As Single = conSection.Bw * conSection.Steels(1).Depth * : strMessage = "과소 보강철근 : " & strMessageEnd SelectReturn MnEnd FunctionEnd Class▶ [Form 코딩창] 철근콘크리트 단면 생성에 복부 폭과 플랜지 높이를 적용한다.Private Sub SetProperties()Dim Section As New SizeF(Val(BoxWidth.Text), Val(BoxHeight.Text))Dim WebFlange As New SizeF(Val(BoxWebWid.Text), Val(BoxFlangeHeight.Text))consection = New RCSection(Section, WebFlange, CSng(BoxFck.Text), CSng(BoxCover.Text))Dim Steel = New RFSteel(ComboTenSize.Text, ComboTenFy.Text, UpDownTenNum.Value)consection.AddSteel(Steel)If UpDownComNum.Value > 0 ThenSteel = New RFSteel(ComboComSize.Text, ComboComFy.Text, -UpDownComNum.Value)consection.AddSteel(Steel)End IfBoxTenDepth.Text = Format(consection.Steels(1).depth, "#,0.00 mm ")Dim response(4) As SingleBoxMn.Text = Format(consection.AnalyzeSection(response), "#,0 kN m")BoxStressBlock.Text = Format(response(1), "#,0.00 mm ")BoxCc.Text = Format(response(2), "#,0 kN ")BoxTs.Text = Format(response(3), "#,0 kN ")If consection.Steels.Count > 1 ThenBoxComDepth.Text = Format(consection.Steel.Steels(nSteel).Grid.Width, numCol_= consection.Steels(nSteel).Grid.HeightDim posLeft As New CVectorP(dBw + cover, cover)If nSteel = 2 Then posLeft = New CVectorP(cover, section.Height - cover - diameter)If numCol < 2 Then numCol = 2 '최소 2개 배근Dim cenSpace = (section.Width - 2 * cover - diameter) / (numCol - 1) '철근 수평 중심간격Dim posST As CVectorP, pointSCS As PointF, posRect As RectangleF '철근 위치벡터/사각형Dim diaSCS As Single = wsScale * diameter 'SCS 직경'행과 열에 보강철근 배근For nRow = 1 To numRow : For nCol = 1 To numCol '철근 grid 그리기posST = posLeft + New CVectorP(cenSpace * (nCol - 1), diameter) '왼쪽,위 기본좌표pointSCS = GetSCS(TRsw, posST) '화면좌표 변환posRect = New RectangleF(pointSCS.X, pointSCS.Y, diaSCS, diaSCS) '타원 사각형graphics.FillEllipse(curBrush, posRect) '타원 배경 그리기graphics.DrawEllipse(curPen, posRect) '타원 경계 그리기Next nCol'다음 층의 Y-좌표 수정If nSteel = 1 Then posLeft(2) += 25 + diameter Else posLeft(2) -= 25 + diameterNext nRow '여분의 보강철근을 Y-축에 대칭이 되도록 배근Dim barRemain = consection.Steels(nSteel).GetRemainST : V(1) =_New CVectorP(section.Width + 10, depth)posSCS = GetSCS(TRsw, posV)graphics.DrawLine(penLine, posSCS(0), posSCS(1)) '철근 중심선 그리기posV(0) = New CVectorP(0, depth)nLayer -= 6posV(1) = New CVectorP(0, section.Height)Call DrawDimension(graphics, posV, nLayer) '철근위치 치수 d, d'nLayer += 8Next steelEnd Sub③ 압축철근지수omega^`'의 증가에 대한 설계기준을 만족하는 최대 사용가능 인장철근지수omega와 공칭강도M_n 변화의 분석결과Dim conIndex As Single = consection.Bw * consection.Steels(1).Depth * consection.FckBoxIndexCom.Text = Format(0)If consection.Steels.Count > 1 ThenBoxIndexCom.Text = Format(consection.Steels(2).Area * consection.Steels(2).Fy / conIndex,_"#, 0.0000000 ")End IfBoxIndexTen.Text = Format(consection.Steels(1).Area * consection.Steels(1).Fy / conIndex,_"#, 0.0000000 ")1) T형 콘크리트▲표1[T형 콘크리트 압축철근지수 증가에 따른 최대 사용가능 인장철근 지수와 휨강도]◀그래프1◀그래프2위 표1과 그래프는 압축철근지수 증가에 따른 설계기준을 만족하는 최대 사용가능 인장철근지수의 변화 그래프와 공칭강도의 변화에 대한 데이터 값이다. 인장철근과 압축철근의 종류와 강도는 각각 “D32, SD400”, “D13, SD300”으로 일정하게 지정하였고, 개수에만 변화를 주었다. 위의 두 그래프 모두X축은 압축철근지수,Y축은 각각 최대인장000-300)/2=350이 된다.If nSteel = 1 Then section = New SizeF(consection.Bw, consection.Section.Height)? 인장철근의 경우 폭과 높이를 각각 consection.Bw, consection.Section.Height로 지정해준다.Dim cover As Single = Val(BoxCover.Text), diameter As Single_= consection.Steels(nSteel).DiameterDim numRow = consection.Steels(nSteel).Grid.Width, numCol_= consection.Steels(nSteel).Grid.HeightDim posLeft As New CVectorP(dBw + cover, cover)? 인장철근의 경우, 가장 왼쪽 철근 타원을 끼고있는 사각형의 왼쪽-아래 좌표를 새로운 위치벡터(dBw + cover, cover)로 지정해준다.If nSteel = 2 Then posLeft = New CVectorP(cover, section.Height - cover ? diameter)? 압축철근의 경우, 가장 왼쪽 철근 타원을 끼고있는 사각형의 왼쪽-아래 좌표를 새로운 위치벡터(cover, section.Height - cover ? diameter)로 지정해준다.If numCol < 2 Then numCol = 2 '최소 2개 배근? 압축철근 개수가 0개나 1개이더라도 양쪽에 각각 한 개 씩 총 2개를 배근한다.Dim cenSpace = (section.Width - 2 * cover - diameter) / (numCol - 1) '철근 수평 중심간격? 압축철근의 중심간 간격은 (section.Width - 2 * cover - diameter) / (numCol ? 1) 다음과 같이 구한다. 즉, section.Width에서 양쪽의 피복만큼을 각각 빼주고, 양쪽의 반지름만큼을 빼준다. 그럼 가장 왼쪽에 있는 철근과 가장 오른쪽에리기

공학/기술| 2018.05.13| 13페이지| 3,500원| 조회(264)

컴퓨터, 비주얼베이직, 수리학, 철근, 인하대, 철근콘크리트, 컴퓨터프로그래밍

미리보기

닫기
[인하대 컴퓨터프로그래밍] 과제2 근로소득세 보고서 (A+)

컴퓨터 프로그래밍실습 Project #2시험일시2017 년 09 월 28 일점 수과ㆍ학년사회인프라공학과 2학년학 번12160990성 명박 진 웅1. Visual Basic 언어를 사용하여 연간 저축액(Saving)을 계산하는 프로그램을 작성한다.2. 실습03의 프로그램을 다음과 같이 수정한다.① 공적지출이 제외된 순소득을 출력하기 위한 도구 BoxNetIncome을 Form에 설계하고, 속성을 설정한다.② Form의 부프로그램 DisplayIncomeTax에 다음을 추가한다.- 공적지출과 사적지출을 계산하기 위한 변수 sumPublicPay와 sumPrivatePay- 4대보험공제와 결정세액으로부터 공적지출액을 계산하는 과정- 카드사용, 의료비, 기부금, 보험 등으로부터 사적지출액을 계산하는 과정③ Module TaxFunctions에 함수프로그램 GetIncomeDeduction과 ChildrenDeduction을 추가하고, 근로소득에 대한 세액공제과 다자녀 세액공제를 계산한다.④ 연소득에서 공적지출을 제외한 금액을 순소득으로 BoxNetIncome에 출력하고,실소득에서 사적지출이 제외된 금액을 저축액으로 BoxSaving에 출력한다.3. 다음 자료를 프린터로 인쇄해서 제출한다.① Form의 계산결과 화면 (기본자료를 임의로 설정하고, 화면 capture를 사용)② Form 코딩창의 부프로그램 DisplayIncomeTax 및 Module 창의 전체 프로그램③ 부양가족 2인에 연소득의 천만 원씩 증가에 대한 순소득과 저축액을 계산하고,연소득을 수평축으로 하는 순소득과 저축액의 그래프를 Excel을 사용하여 그린 화면(화면 capture를 사용)- 국민연금 대상자의 소득은 1천만원~2억원 이며, 공무원연금 대상자는 1천만원~1억원- 신용 및 체크카드 사용액은 공적지출이 아니며, 신용 및 체크카드 사용액의 대략적인 금액은 연소득에 따라 다음과 같으며,카드사용액 ``=`` (5백만원) `+` 300 times [연소득 `-` (5백만원))]^0.6최적의 신용카드와증가에 대한 순소득을 계산하고, 연소득을 수평축으로 하는 순소득과 저축액의 그래프를 Excel을 사용하여 그린 화면 (화면 capture를 사용)⑤ 위 그래프에서 국민연금 대상자와 공무원연금 대상자의 순소득 및 저축액에 대한 분석결과에 대한 설명※ 주의사항① 본 문제지 원본을 표지로 사용할 것② A4 용지의 한 면만 사용할 것③ 필요한 경우에는 설명서를 첨부할 것④ 그림이 필요한 경우에는 자를 대고 정확히 그릴 것Form의 계산결과 화면 (기본자료를 임의로 설정하고, 화면 capture을 사용)Form 코딩창의 부프로그램 DisplayIncomeTax 및 Module 창의 전체 프로그램Private Sub DisplayIncomeTax()'과세대상 연간근로소득Dim totalINC As Double = Val(Replace(BoxEarnedIncome.Text, ",", "")) '변수선언(15쪽)BoxEarnedIncome.Text = Format(totalINC, "#,0") '문자변환(25쪽)Dim earnedINC As Double = totalINC - 360 * 만원 : If earnedINC < 0 Then earnedINC = 0BoxTaxedIncome.Text = Format(earnedINC, "#,0") : ListIncomeDeduction.Items.Clear()'근로소득공제Dim deduction = GetEarnedINCDeduction(earnedINC), sumDeduction = deductionListIncomeDeduction.Items.Add("근로공제 : " & GetFixedLengthValue(deduction))'기본/인적deduction = 150 * 만원 : sumDeduction += deductionListIncomeDeduction.Items.Add("기본공제 : " & GetFixedLengthValue(deduction))deduction = NumericDependent.Value * 150 * 만원 & GetFixedLengthValue(deduction))'4대 보험 부담금 공제deduction = GetPensionDeduction(earnedINC, RadioNational.Checked)sumDeduction += deductionListIncomeDeduction.Items.Add("연금공제 : " & GetFixedLengthValue(deduction))'카드공제Dim creditC As Double = CDbl(Replace(BoxCredit.Text, ",", ""))Dim checkC As Double = CDbl(Replace(BoxCheck.Text, ",", ""))deduction = GetCardDeduction(earnedINC, creditC, checkC) : sumDeduction += deductionListIncomeDeduction.Items.Add("카드공제 : " & GetFixedLengthValue(deduction))'과세표준ListIncomeDeduction.Items.Add("----------------------------------")ListIncomeDeduction.Items.Add("공제합계 : " & GetFixedLengthValue(sumDeduction))Dim taxedINC = earnedINC - sumDeduction : If taxedINC < 0 Then taxedINC = 0BoxTaxedINC.Text = Format(taxedINC, "#,0")'과세표준 과세액Dim incomeTax As Double = GetStandardIncomeTax(taxedINC)BoxTax.Text = Format(incomeTax, "#,0")'세액공제ListTaxDeduction.Items.Clear()deduction = GetIncomeDeduction(earnedINC, incomeTax) : sumDeduction = deductionListTaxDeduction.Items.ADouble = CDbl(Replace(BoxRetire.Text, ",", ""))If RadioPublic.Checked Then retiredSaving = 0Dim pensionSaving As Double = CDbl(Replace(BoxSaving.Text, ",", ""))deduction = GetRetireDeduction(retiredSaving, pensionSaving, earnedINC)sumDeduction += deductionListTaxDeduction.Items.Add("퇴직연금 : " & GetFixedLengthValue(deduction))Dim medicare As Double = CDbl(Replace(BoxMedical.Text, ",", ""))deduction = GetMedicalDeduction(earnedINC, medicare) : sumDeduction += deductionListTaxDeduction.Items.Add("의 료 비 : " & GetFixedLengthValue(deduction))Dim donation As Double = CDbl(Replace(BoxDonation.Text, ",", ""))deduction = GetDonationDeduction(earnedINC, donation) : sumDeduction += deductionListTaxDeduction.Items.Add("기 부 금 : " & GetFixedLengthValue(deduction))Dim insurance As Double = CDbl(Replace(BoxInsurance.Text, ",", ""))deduction = GetInsurenceDeduction(insurance) : sumDeduction += deductionListTaxDeduction.Items.Add("보장보험 : " & GetFixedLengthValue(deduction))deduction = GetChildrenDeduction(Items.Add("다 자 녀 : " & GetFixedLengthValue(deduction))ListTaxDeduction.Items.Add("----------------------------------")If sumDeduction < 15 * 만원 Then sumDeduction = 15 * 만원ListTaxDeduction.Items.Add("공제합계 : " & GetFixedLengthValue(sumDeduction))'결정세액incomeTax = Int((incomeTax - sumDeduction) / 10) * 10If incomeTax < 0 Then incomeTax = 0BoxNationalTax.Text = Format(incomeTax, "#,0")Dim localTax As Double = Int(incomeTax / 100) * 10BoxLocalTax.Text = Format(localTax, "#,0")BoxTotalTax.Text = Format(incomeTax + localTax, "#,0")Dim sumPublicPay As Double = GetPensionDeduction(earnedINC, RadioNational.Checked) + BoxTotalTax.TextDim NetIncome As Double = totalINC - sumPublicPayBoxNetIncome.Text = Format(totalINC - sumPublicPay, "#,0")Dim sumPrivatePay As Double = creditC + checkC + medicare + donation + insuranceBoxNetSaving.Text = Format(NetIncome - sumPrivatePay, "#,0")End SubModule 창의 전체 프로그램-GetIncomeDeduction 코딩-Public Function GetIncomeDeduction(inCome As Double, incomeTax As Double) As

공학/기술| 2018.05.13| 6페이지| 3,500원| 조회(276)

컴퓨터, 비주얼베이직, 수리학, 인하대, 근로소득세, 컴퓨터프로그래밍, 과제2

미리보기

닫기
[인하대 컴퓨터프로그래밍] 과제1 근로소득세 보고서

컴퓨터 프로그래밍실습 Project #1시험일시2017 년 09 월 21 일점 수과ㆍ학년사회인프라공학과 2학년학 번12160990성 명박 진 웅1. Visual Basic 언어를 사용하여 순소득(net income)을 계산하는 프로그램을 작성한다.2. 실습02의 프로그램을 다음과 같이 수정한다.① 연소득에서 공적지출이 제외된 순소득을 출력하기 위한 도구 BoxNetIncome을 Form에 설계하고, 속성을 설정한다.② Form의 부프로그램 DisplayIncomeTax에 다음을 추가한다.- 공적지출을 계산하기 위한 변수 sumPublicPay- 연금공제와 결정세액으로부터 공적지출액을 계산하는 과정③ 연소득에서 공적지출을 제외한 금액을 순소득으로 BoxNetIncome에 출력한다.3. 다음 자료를 프린터로 인쇄해서 제출한다.① Form의 계산결과 화면 (대학 졸업 후 10년의 예상 소득 및 지출을 가정한 기본자료와 이에 대한 계산결과 화면의 capture)② Form 코딩창의 부프로그램 DisplayIncomeTax 및 Module 창의 전체 프로그램③ 부양가족 2인에 대해 연소득의 천만 원씩 증가에 대한 순소득을 계산하고,연소득을 수평축으로 하는 순소득의 그래프를 Excel을 사용하여 그린 화면의 captur- 국민연금 대상자의 소득은 1천만원~2억원 이며, 공무원연금 대상자는 1천만원~1억원- 신용카드와 체크카드 사용액은 공적지출이 아니며, 신용 및 체크카드 사용액의 대략적인 금액은 연소득에 따라 다음의 값을 적용한다.카드사용액 ``=`` (5백만원) `+` 300 times [연소득 `-` (5백만원))]^0.6④ 위 그래프의 다음에 대한 분석결과에 대한 설명- 국민연금 대상자와 공무원연금 대상자의 순소득- 절세를 의한 각 소득별 최적의 신용카드와 체크카드의 사용액※ 주의사항① 본 문제지 원본을 표지로 사용할 것② A4 용지의 한 면만 사용할 것③ 필요한 경우에는 설명서를 첨부할 것④ 그림이 필요한 경우에는 자를 대고 정확히 그릴 것Form의 계산결과 화면 (대학 졸업 후 10년의 예상 소득 및 지출을 가정한 기본자료와 이에 대한 계산결과 화면의 capture)? 현재 나이 22세, 대학 졸업 후, R.O.T.C로 군생활을 마친 후 약 27살 취직 → 대기업 취직 후, 경력 5년차 이므로 연소득을 약 6000만원으로 잡았다.Form의 부프로그램 DisplayIncomeTaxPrivate Sub DisplayIncomeTax()Dim totalINC As Double = Val(Replace(BoxEarnedIncome.Text, ",", ""))BoxEarnedIncome.Text = Format(totalINC, "#,0")Dim earnedINC As Double = totalINC - 360 * 만원 : If earnedINC < 0 Then earnedINC = 0BoxTaxedIncome.Text = Format(earnedINC, "#,0") : ListIncomeDeduction.Items.Clear()Dim deduction = GetEarnedINCDeduction(earnedINC), sumDeduction = deductionListIncomeDeduction.Items.Add("근로공제 : " & GetFixedLengthValue(deduction))deduction = 150 * 만원 : sumDeduction += deductionListIncomeDeduction.Items.Add("기본공제 : " & GetFixedLengthValue(deduction))deduction = NumericDependent.Value * 150 * 만원 : sumDeduction += deductionListIncomeDeduction.Items.Add("인적공제 : " & GetFixedLengthValue(deduction))deduction = GetPensionDeduction(earnedINC, RadioNational.Checked)sumDeduction += deductionListIncomeDeduction.Items.Add("연금공제 : " & GetFixedLengthValue(deduction))Dim creditC As Double = CDbl(Replace(BoxCredit.Text, ",", ""))Dim checkC As Double = CDbl(Replace(BoxCHeck.Text, ",", ""))deduction = GetCardDeduction(earnedINC, creditC, checkC) : sumDeduction += deductionListIncomeDeduction.Items.Add("카드공제 : " & GetFixedLengthValue(deduction))ListIncomeDeduction.Items.Add("----------------------------------")ListIncomeDeduction.Items.Add("공제합계 : " & GetFixedLengthValue(sumDeduction))Dim taxedINC = earnedINC - sumDeduction : If taxedINC < 0 Then taxedINC = 0BoxTaxedINC.Text = Format(taxedINC, "#,0")Dim incomeTax As Double = GetStandardIncomeTax(taxedINC)BoxTax.Text = Format(incomeTax, "#,0")incomeTax = Int(incomeTax / 10) * 10BoxNationalTax.Text = Format(incomeTax, "#,0")Dim localTax As Double = Int(incomeTax / 100) * 10BoxLocalTax.Text = Format(localTax, "#,0")BoxTotalTax.Text = Format(incomeTax + localTax, "#,0")Dim sumPublicPay As Double = GetPensionDeduction(earnedINC, RadioNational.Checked) + BoxTotalTax.TextDim NetIncome As Double = totalINC - sumPublicPayBoxNetIncome.Text = Format(totalINC - sumPublicPay, "#,0")End Sub? 표지에 나와 있듯이 공적지출을 계산하기 위한 변수 sumPublicPay을 변수 선언을 해주어야 한다.순소득=연소득-(4대 보험+결정세액)이다. 여기서 공적지출 sumPublicPay는 4대 보험과 결정세액을 합한 금액이므로 sumPublicPay= pensionDeduction+ totalTax이다. 따라서, Form 창에 Dim sumPublicPay As Double = GetPensionDeduction(earnedINC, RadioNational.Checked) + BoxTotalTax.Text 이라고 변수 선언을 해주게 된다. 순소득은 (연소득-공적지출) 이므로 totalINC-sumPublicPay이고, 이 또한 Form창에 Dim NetIncome As Double = totalINC ? sumPublicPay 이라고 변수 선언을 해주게 된다. 마지막으로, 순소득을 출력하기 위해 BoxNetIncome.Text = Format(totalINC - sumPublicPay, "#,0") 으로 코드를 적어주면 순소득을 구해줄 수 있다.Module 창의 전체 프로그램Module PublicFunctionsPublic Function GetFixedLengthValue(ByVal valueo As Double, Optional lengtho As Integer = 15) As StringDim strValue As String = Format(valueo, "#,0") '문자변환(25쪽)Dim lenValue As Integer = Len(strValue) '문자길이 반환(22쪽)Return Space(lengtho - lenValue) & strValue '문자 합End FunctionEnd ModuleModule TaxFunctionsPublic Const 만원 As Double = 10000Public Function GetEarnedINCDeduction(ByVal inCome As Double) As DoubleSelect Case inCome / 만원 '제어문(30쪽)Case Is

공학/기술| 2018.05.13| 7페이지| 3,000원| 조회(263)

컴퓨터, 비주얼베이직, 수리학, 인하대, 근로소득세, 컴퓨터프로그래밍, 과제1

미리보기

닫기
[인하대 측량학 및 실습] 트래버스 측량 보고서 (A+)

측량학 실습 보고서[트래버스 측량]12160990박 진 웅● 실습일자 :- 2017년 6월 2일● 실습내용 :- 폐합 트래버스 측량- 데오돌라이트를 이용한 방위각 및 수평각 관측 수행- 폐합 트래버스의 오차 조정, 좌표산출 및 면적 계산● 실습대상 및 지역 :- 도서관 앞 잔디밭- 오각형 형태의 폐합 트래버스 구성(임의) 후, 방위각 및 수평각 관측 수행※ 각측량 실습과 동일한 방식으로 구성※ 측점 간 간격은 최소 10 m 이상● 측량장비- 전자식 데오돌라이트, 줄자, 측점 및 야장※ 수평각 관측은 배각관측으로 수행● 측량 외업 및 내업 순서예) 오각형 형태 폐합 트래버스1. 시야를 가리지 않고, 데오돌라이트로 수평각 측정이 원활하게끔 폐합 트래버스를 설치한다. 이때, 각 측점은 말뚝, 못 등으로 측점이 명확하게 들어나게 표시한다.※ 주의 : 폐합 트래버스 설치 시, 각 측점 간 거리는 10 m 이상이어야 한다.2. 기준측선으로부터 방위각을 결정한다. 이후 각 측선에 이르는 각을 측정한다. 각의 측정은 배각 측정한다.※ 주의 : 기계 설치 후, 정준과 구심이 변하지 않도록 유의한다.※ 주의 : 모든 관측은 개인 별(개별 관측값)로 수행한다.3. 각 측량을 시작한 첫 측점 A의 좌표는 다음과 같다.① 방위각 계산 시 도북을 기준으로 한다.② 방위각 측정은 ‘인하대학교 5호관 시계탑 상단 피뢰침’을 기준으로 한다.③ 시작점의 좌표는 (100.000, 100.000)으로 한다.4. 모든 계산은 소수점 4째 자리에서 반올림한다.5. 각 측정 및 거리 측정의 정밀도가 동일하다는 가정 하에서 폐합오차를 조정한다.※ Compass 법칙 활용6. 다각형의 면적은 배횡거법을 활용하여 계산한다.7. 결정된 좌표를 기반으로 폐합 트래버스 측량 결과(조정 전/후)를 CAD를 사용하여 제도하며, 도면을 보고서와 함께 제출한다.1. 측량 결과측점시준점배수관측각평균각15/20000°0′0″102°48′24″1102°48′46″3308°25′12″21/30000°0′0″122°07′23″232°03′42″43/50000°0′0″140°38′23″1140°38′45″3421°55′09″54/10000°0′0″96°15′51″196°16′09″3288°47′33″측선측선각(배각 측정 후, 평균)조정량조정각방위각방위거리(m)12102°48′24″9′45″102°58′09″54°17′40″N54°17′40″E10.5423122°07′23″9′45″122°17′08″112°00′32″S67°59′28″E12.303477°21′14″9′45″77°30′59″214°29′33″S34°29′33″W9.6845140°38′23″9′45″140°48′08″253°41′25″S73°41′25″W10.885196°15′51″9′45″96°25′36″337°15′49″N22°44′11″W10.37계539°11′15″48′45″540°00′00″--53.77※ 방위각 계산 = 하나 앞 측선의 방위각 + 180도± 수정각측선위거(거리TIMES cos(방위각))경거(거리TIMES sin(방위각))위거조정량경거조정량N(+)S(-)E(+)S(-)126.15148.5588-0.0142-0.0060234.609411.4036-0.0165-0.0069347.97835.4818-0.0131-0.0055453.055410.4422-0.0147-0.0062519.56424.0079-0.0140-0.0059계15.715615.643119.962419.9319-0.0725-0.0305+0.0725+0.0305※ 위거 조정량 공식을 통해 계산한 결과, 위거 조정량이 원래는 ?0.0726이 나왔다. -0.0001의 오차가 나서 가장 긴 측선인 23 측선의 위거 조정량에서 0.0001을 빼주었다.※ 경거 조정량 공식을 통해 계산한 결과, 경거 조정량이 원래는 ?0.0306이 나왔다. -0.0001의 오차가 나서 가장 긴 측선인 23 측선의 경거 조정량에서 00001을 빼주었다.위와 같은 조정위거가 설정되었다.측선조정위거조정경거N(+)S(-)E(+)W(-)126.13728.5528234.62596874-15.6874+19.9495-19.949500측점합위거합경거N좌표E좌표배횡거배면적1001001008.552852.490226.13728.5528106.1372108.552828.5023-131.848831.511319.9495101.5113119.949534.4117-274.99774-6.480114.462293.5199114.462218.4760-56.72325-9.55024.013890.4498104.01384.013838.3226계-372.7469?측점2의 E좌표 : 100+8.5528=108.5528?측점3의 E좌표 : 108.5528+11.3967=119.9495?측점4의 E좌표 : 119.9495-5.4873=114.4622?측점5의 E좌표 : 114.4622-10.4484=104.0138※ 측점 1의 좌표가 주어졌으므로, 조정위거와 조정경거를 통해 각 측점의 좌표값을 구할 수 있다.?측점2의 N좌표 : 100+6.1372=106.1372?측점3의 N좌표 : 106.1372-4.6259=101.5113?측점4의 N좌표 : 101.5113-7.9914=93.5199?측점5의 N좌표 : 93.5199-3.0701=90.4498※ 1 번째 배횡거는 그 측선의 경거2 번째 배횡거는 (첫 번째 측선의 배횡거+ 첫 번째 측선의 경거 + 두 번째 측선의 경거)3 번째 배횡거는 (두 번째 측선의 배횡거+ 두 번째 측선의 경거 + 세 번째 측선의 경거)4 번째 배횡거는 (세 번째 측선의 배횡거+ 네 번째 측선의 경거 + 세 번째 측선의 경거)5 번째 배횡거는 (세 번째 측선의 배횡거+ 네 번째 측선의 경거 + 세 번째 측선의 경거)를 통하여 구한다.※ 오각형의 총 면적은{1} over {2} LEFT | 배면적의`합 RIGHT |이므로 186.3735m ^{2}이다.? 캐드 도면은 결과 및 고찰 부분에서 언급 예정.2. 고찰이번 실습은 트래버스 측량으로 데오돌라이트를 이용해 방위각과 수평각을 관측했고 줄자로 거리를 측정 하였다. 방위각 계산은 도북을 기준으각 측선 사이의 각을 더하였더니 539°11′15″가 나왔고, 각각의 측선 사이의 각에 9′45″를 더하여 총 합 540°를 맞추었다.※ 각 측선이 이루는 각은 위의 측량결과표에 기록했기 때문에 적지 않았다.왼쪽 그림이 수정을 통하기 전의 도면이다. 얼핏 보면 폐합되는 것 같아 보이지만 점 부분을 확대해보면 오른쪽 그림과 같이 폐합이 되지 않는 것을 볼 수 있다. 원래 측선{bar{12}}의 길이는 10.54m이지만 폐합되지 못한 부분을 연장시켜보면 10.56m가 된다. 즉, 2cm의 오차가 난다. 저번 실험에서는 폐합되지 못한 부분의 길이가 이정도 짧지 않았던 것 같지는 않은데 이번에는 저번보다는 정확하게 측량을 한 것 같다.또한, 폐합비 공식{sqrt {(위거`조정량의`합) ^{2} +(경거`조정량의`합) ^{2}}} over {거리의`총`합}을 통해 0.0015의 폐합비를 얻었다. 오차가 가장 많은 산림지와 같이 장애물이 많고, 측량작업이 어려운 장소인 경우에0.001이하가 되어야 한다. 0.001보다는 조금 크지만 그래도 꽤 정확했던 측량이라고 생각한다.? 다음 장 : 수정 후 부분※ 각 측선이 이루는 각은 위의 측량결과표에 기록했기 때문에 적지 않았다.왼쪽 그림이 각 조정을 통해 새로 그린 ‘수정 후 도면’이다. 이 도면 또한 얼핏 보면 폐합 되는 것 같아 보이지만 오른쪽 그림에서 볼 수 있듯이 점 부분을 확대해보면 정확한 폐합이 이루어지지는 않았다. 원래대로면 수정을 통하여 딱 점에 폐합됐어야 했지만 6cm 안쪽으로 벗어난 곳에 선이 도달하였다.원래 길이(m)좌표를 통한 길이(m)길이 차이{bar{12}}10.5410.531cm{bar{23}}12.3012.300cm{bar{34}}9.689.691cm{bar{45}}10.8810.891cm{bar{51}}10.3710.361cm조정 각좌표를통한 각각도 차이ANGLE 215102°58′09″102°51′56″0°06‘13“ANGLE 321122°17′08″122°14′45″0°02‘23“ANGLE 40″0°02‘52“ANGLE 45196°25′36″96°25′18″0°0‘18“합540°00′00″539°59′59″0°0‘1“위 그림은 조정위거, 조정경거를 통해 점의 좌표를 (100,100)으로 놓고 각 점의 좌표만을 찍어 캐드 도면에 작성한 것이다. 즉, 위 오각형은 완전히 폐합되었다. 하지만, 좌표만을 통하여 작성하였더니 원래 우리가 측정하고 수정한 값과 다르게 거리와 각도에서 작은 오차가 발생하였다.{bar{23}}의 길이는 우리가 처음에 측정한 길이와 동일하게 나왔으나 나머지 길이들이±0.01m의 오차가 발생하였다. 또한, 각도에서도 오차가 발생하였는데, 좌표만을 통하여 그린 도면에서의 내각의 합은 539°59′59″로서 1“가 모자랐다. 또한 측선이 이루는 각에서도 수 분에서 수 초의 오차가 발생하였다.지금까지 수정 전, 수정 후, 좌표만을 통해 그린 도면을 살펴보았다. 수정 전과 수정 후에서는 완전히 폐합되지는 않았고, 좌표만을 통해 그린 도면은 당연히 폐합되었다. 하지만 위 3가지 경우 모두 오차가 발생하였다. 폐합되지 않은 이유에는 여러 가지가 있을 수 있다.첫 번째로, 가장 기본적인 정준과 구심이 안 맞았을 수도 있다. 각 측점에서 기계를 세우고 정준과 구심을 맞추고 측량을 시작하는데 어떤 측점에서는 다리가 아니니 정준나사만을 이용해 정준을 맞춰 구심이 틀어졌을 수도 있다. 다리만을 이용하여 정준을 맞췄다면 구심도 틀어지지 않고 조금 더 정확한 측량을 할 수 있었을 것 같다. 또한, 관형 기포관을 삼면에서 맞추었다 하더라도 그 측점에서의 3배각 측정이 끝나고 나면 항상 조금씩 틀어진 모습을 볼 수 있었다. 이것 또한 오차의 원인이 될 수 있다.두 번째로, 또한 기본적인 거리 측정에서 오차가 발생했을 수 있다. 좌표만을 통해 그린 캐드 도면을 보면±1cm정도의 오차가 발생하고 있다. 줄자를 가지고 측정을 하다 보니 줄자가 팽팽하게 안 당겨졌을 수도 있고, 잔디위에서 측정을 하기 때문에 잔디에 의해서도 줄자에 경사가 생겼을 수도 있다. 만약, 각한다.

공학/기술| 2018.05.13| 7페이지| 2,000원| 조회(319)

실험, 보고서, 수리학, 측량학, 인하대, 측량, 트래버스

미리보기

닫기