극한문제

2 댓글

2012년 9월 모의고사 수리영역 가형 20번 문제.

S와 R은 내가 추가했다.

http://webfs2.kice.re.kr/sunung/2013_9/q21.pdf

AQ의 길이를 l이라 하자.

삼각형 ASQ에 대해서 코사인 제2법칙을 적용할 수 있고, l은 다음과 같이 구할 수 있다.

이때, 가운데 +부호 대신 -부호를 쓴 근은 선택하지 않는다. 문제에 주어진 조건때문에 그렇게 된다.

삼각형 APR에서 각APR이 무조건 직각이므로 선분AP의 길이는 코사인의 정의에 의해

PQ의 길이는 AP의 길이에서 AQ의 길이를 빼면 되므로,

그러므로 문제에서 주어진 극한은

로피탈 정리를 쓰면 4라는 답을 금방 얻을 수 있고, 아마 고등학교 교과과정에서 배우지는 않지만 대부분의 수험생들은 다들 쓰고 있을 것이다.

파일 이름 바꿔주는 프로그램

2 댓글

1초마다 지정된 파일을 감시해서, 파일이 존재하면 자동으로 다른 이름으로 바꿔준다.

Automover2.exe

‘Copyright: Keehwan Nam, 2012.

Public Class Form1

Private fn As String = “”

Private index As Integer = 0

Private begin As Integer = 0

Private istep As Integer = 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

OpenFileDialog1.Multiselect = False

OpenFileDialog1.InitialDirectory = My.Application.Info.DirectoryPath

OpenFileDialog1.Title = “Set the file that you want to audit”

OpenFileDialog1.CheckFileExists = False

If OpenFileDialog1.ShowDialog <> System.Windows.Forms.DialogResult.Cancel Then

fn = OpenFileDialog1.FileName

Try

begin = CInt(TextBox1.Text)

Catch

MsgBox(“Please use integers only!”)

Exit Sub

End Try

Try

istep = CInt(TextBox2.Text)

Catch

MsgBox(“Please use integers only!”)

Exit Sub

End Try

Timer1.Enabled = True

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Timer1.Enabled = False

If System.IO.File.Exists(fn) Then

Dim fns As String() = fn.Split(“.”)

Try

System.IO.File.Move(fn, System.IO.Path.GetDirectoryName(fn) & “\ThisFileMustNot.Exist”)

Do

Try

System.IO.File.Move(System.IO.Path.GetDirectoryName(fn) & “\ThisFileMustNot.Exist”, fn.Substring(0, fn.Length – fns(fns.Length – 1).Length – 1) & CStr(begin + (istep * index)) & “.” & fns(fns.Length – 1))

‘ 이 부분이 가장 신경쓴 부분이다. 자꾸 오류가 난대서…

Exit Do

Catch

End Try

index += 1

Loop

Catch

End Try

End If

Timer1.Enabled = True

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim tip As New ToolTip()

tip.AutoPopDelay = 5000

tip.InitialDelay = 1

tip.ReshowDelay = 1

tip.ShowAlways = True

tip.SetToolTip(Button1, “(c)Keehwan Nam,” & vbCr & “2012, APRI, GIST.”)

tip.SetToolTip(TextBox1, “Starting index”)

tip.SetToolTip(TextBox2, “Step”)

begin = CInt(TextBox1.Text)

istep = CInt(TextBox2.Text)

End Sub

End Class

실행에는 닷넷2.0이 필요하고 윈도우즈 전용이다. 바이러스가 의심가면 VB.net에서 위의 소스코드를 직접 빌드해도 된다. 디자인 소스는 생략.

뭐 이런걸 다 만드나 하겠지만, 누군가는 필요하고 누군가는 만들게 된다. 간단한 프로그램이라 그냥 민간에 공개한다. 코드를 읽어보면 알겠지만, 만들기가 매우 귀찮아 했다는 사실을 알 수 있다.

이 루틴을 잘 활용하면 실험실 자동화에 한걸음 다가갈 수 있을듯.

구속된 양경숙 얼굴에 반창고, 알고 보니 ‘충격’

댓글 남기기

http://news.chosun.com/site/data/html_dir/2012/08/28/2012082802626.html

반창고는 점빼서 붙인건데, 라디오21대표가 뇌물 수수 혐의로 붙잡혀간 것과 라디오21대표가 점뺀거랑 뭐가 더 충격적인 사건인지 혼란스러워진다. 그렇다면, 제목에 의하면 라디오21대표가 점 뺀 것이 더 충격적이라는 뜻인데, 이것은 라디오21대표의 뇌물 수수에 물타기 해주는 꼴이다.

이제 조선일보도 정체성을 상실한 것인가.