SolarView

 안녕하세요, 쏘티 이규남입니다 ^ ^

이 블로그에 글을 남길 수 있는 영광을 주시니 감사합니다

제 말을 쓰기에는 경황이 없는 것 같고 ^ ^;;

최근에 읽은 '우리 수학자 모두는 약간 미친겁니다'라는 책에서 좋은 글귀 있어서 써놓고 가려합니다

-풀만한 가치가 있는 문제는 저항함으로써 그 가치를 입증한다

-수학자는 커피를 정리(Theorem)로 바꾸는 기계이다

공학자 또는 프로그램을 다루는 사람에게도 똑같이 적용될 수 있는 말이 아닌가 합니다

이 책은 수학자 폴 에어디쉬의 삶을 다룬 책인데,

항상 '내 두뇌는 열려있다(My brain is open)', 또는 '너의 뇌는 열려있느냐'고 하면서

동료 수학자들에게 문제풀기에 대한 영감을 주려고 했던 그의 진정한 태도가

'Study and Share'라는 용이형님의 좌우명하고도 통하는 바가 있어

한번 읽어볼만한 책이라고 생각됩니다.

멋있는 가을 보내시길 바랍니다~

Posted by solarview

Application.UserName : 엑셀 사용자 이름

Application.Version : 현재 사용하는 엑셀 버전

Application.Path : 엑셀이 설치되어 있는 폴더(위치)

Application.StartUpPath : 시작 폴더(위치)

Application.DisplayStatusBar : 상태표시줄을 화면에 표시할 것인지 아니면 안 할 것인지를 설정

Application.StatusBar : 상태표시줄에 문자열을 표현

Posted by solarview

8mm 렌즈를 이용한 새로운 세계가 있다.

http://turingmachine.org/silvernegative/index.php?/categories/107-Peleng-8mm

Posted by solarview

2008년 대한건축학회 학술발표대회가 전남대학교에서 있었다. 참석자들과 함께 어안렌즈를 이용해서 사진을 한 장 찍었다.

이것을 다시 파노라마 형태로 변환했더니 다음과 같이 변했다. 이 때 사용한 프로그램은 IRIS이다.

아, 이러니 손이 잘렸네요. 원래 -180도인 것을 -145도로 보정했다. 그랬더니 아래와 같이 나오네요.

최종적으로 인체비례를 맞춰서 손을 봤다. 이것은 이규남 연구원이 Photoshop을 가지고 살짝 만진 것이다.

Posted by solarview

사진을 찍다 보면, 곧게 뻗어야 할 건축물의 모서리가 휘어져 찍힌다든지 둥글게 찍히는 경우가 많이 있다. 즉, 찍힌 사진이 광학적으로 왜곡된 경우을 보게 된다. 이를 보정하는 방법은 여러 가지가 있다. 여기 그 몇 가지를 소개하고자 한다.

1. http://www.astrosurf.com/buil/us/iris/iris.htm)
   - 공개용 (원래 천체사진이미지처리 프로그램 IRIS)
   - 어안렌즈의 왜곡을 처리하는 기능이 있음
2. RectFish : http://www.acapixus.dk/software/rectfish/index.htm
   - 어안렌즈 왜곡 보정하는 프로그램 (공개용)
3. 왜곡보정 설명 http://www.bythom.com/distortion.htm
4. 왜곡보정 http://webuser.hs-furtwangen.de/~dersch/
5. 왜곡보정 http://www.andromeda.com/
6. PanoTools : http://www.panoguide.com/products/dersch/panotools/

외국 사진 사이트

http://photo.net
http://www.the-digital-picture.com/Reviews/

Posted by solarview

문제) 엑셀을 이용하여 이차방정식을 풀어라

출제의도) If문을 이해한다.

해법)

 1) 첫행(셀A1부터 셀E1까지)에 방정식에 필요한 계수들을 기록한다.

2) 둘째 행을 계수의 입력과 근에 대한 출력으로 설정한다.

3) 마지막 셀(셀F2)에 프로시저를 실행시킬 '단추'를 둔다.

4) VBA로 이차방정식을 푸는 프로시저를 다음과 같이 작성한다.

특징: 실근뿐만 아니라 허근도 구한다. 불능과 부정도 판정한다. 설령 이차항의 계수가 0일지라도, 즉 이차방정식이 아닐지라도 계산한다.

[code lang-vb]Sub SolveQuadraticEquation()
    Dim a As Single
    Dim b As Single
    Dim c As Single
    'Dim x1 As Single '실근만 있을때는 유효하나, 허근이 있으면 좀 곤란하게 되지요.
    'Dim x2 As Single
    Dim d As Single '판별식 discriminant
    Dim u As Single
    Dim v As Single
    Dim output1 As String '허근의 표시 문자인 i를 출력하기 위해서,
    Dim output2 As String '그리고 부정과 불능을 출력하기 위해서 문자열로 처리함.
   
    '1) 셀에서 값을 읽어온다. Read the varibles from the excel cells
    a = Range("A2")
    b = Range("B2")
    c = Range("C2")
    '
    '2) find the roots of equation
    If a <> 0 Then ' -->quadratic equation
        d = b ^ 2 - 4 * a * c
        u = -b / (2 * a)
        If d > 0 Then
            '서로 다른 두 실근(實根)을 갖는다.
            v = Sqr(d) / (2 * a)
            output1 = u + v
            output2 = u - v
        ElseIf d < 0 Then
            '허근(虛根)을 갖는다.
            v = Sqr(-d) / (2 * a)
            output1 = u & "+" & v & "i"
            output2 = u & "-" & v & "i"
        Else 'd=0
            '중근(重根)을 갖는다.
            output1 = u
            output2 = output1
        End If
    Else 'a = 0
        If b <> 0 Then '--> linear equation
            output1 = -c / b
            output2 = "None"
        Else 'b= 0
            If c <> 0 Then
                output1 = "不能"
                output2 = "不能"
            Else 'c = 0
                output1 = "不定" 'indeterminate
                output2 = "不定"
            End If
        End If
    End If
    '
    '3)출력 Output
    Range("D2") = output1
    Range("E2") = output2
    '
End Sub[/code]

Posted by solarview

학과 학생이 그려준 캐리커쳐를 그려줬다. 아울러 이메일용 명함도 만들어줬다.

caricuture designed by Yang

Posted by solarview