nØthing specia¡

파생결합증권 즉 ELS 투자설명서를 하나 다운 받으려고 갔더니 온갖 잡스러운 보안 프로그램이 입구부터 막아 선다.

'에잇 지저분하게~ 이런 걸 깔라구'

그래서 크롬 브라우저로 해봤더니 역시 마찬가지이다.

'내 생각엔 크롬이 니네 보안프로그램들 보다는 더 안전해 보이는데...'

할 수 없어 내 거룩한 시스템을 쓰레기로 더럽힌 후 메뉴를 클릭하니 이번에는 로그인 해야 한단다.

'다른 증권사는 이러지는 않던데...너무 하는 군'

결국 검색하기 불편한 금감원 dart로 가서 다운로드 했다.

그냥 접속하는 건데, 각종 보안 프로그램을 설치하도록 강요하는 것은 문제가 있어 보인다.
로그인을 요구하는 거야 그회사 맘이지만...

어제 저녁에 영국 원유선물회사에서 일하는 형과 채팅을 했는데, 그쪽 회사에서 트레이딩시스템으로 고려중인 시스템이 orc group(http://www.orc-group.com/)의 Orc Liquidator와 Orc Trader인데, 비용에 놀랐다. 

Head First Data Analysis : 당신을 최고의 데이터 분석가로 이끌어줄 마법 같은 학습서

최근 관심사가 기계학습, 데이터 마이닝쪽으로 가고 있는 차에 이 책이 눈에 확 들어오고 있어 오전에 주문했습니다. 사실 Head First 시리즈를 첨 봤을 때, 느낌은 편집이 참신해서 흥미를 이끌어 내는 게 장점입니다. 대신 정독을 해야 하죠. 어찌보면 구성이 산만하여 원하는 내용을 찾기 어려우니까요... 사전이나 레퍼런스, 매뉴얼 같은 구성에 익숙해진 얄팍한 독자인 저로서는 차근 차근 읽어 나가야 하는 점이 고역이지만 시류에 적절한 책이라 굳이 마다하지 않습니다. 최근에 생각하는 것이 헤지펀드 투자분석 방법으로 데이터 마이닝이나 기계학습을 어떻게 적용할 까 하는 것입니다. 기계학습 분야에서는 SVM을 공부중인데, SVM을 이용한 회귀분석을 롱숏전략에 도입하여 기존의 직교회귀나 공적분에 의한 헤지비율산출과 시그널이 얼마나 효율적인지, 데이터마이닝을 이용하여 뉴스의 영향력을 분석하고 싶은 게 희망사항이죠

과연 이 책이 나를 데이터분석가로 만들어 줄까요? 저도 궁금합니다.

[URL]Head First Data Analysis : 당신을 최고의 데이터 분석가로 이끌어줄 마법 같은 학습서

다른 언어를 사용하다가 C++언어에서 가장 옮겨오고 싶은 것이 있다면 STL이다. STL은 다 아시다시피 자료구조와 알고리즘을 모은 표준템플릿 라이브러리이다. STL에서 자주 사용하는 것이 vector라는 컨테이너 라이브러리이다. 자주 사용하는 이유는 배열을 대신할 수 있기 때문이다.

VBA에서는 Collection이라는 개체가 배열을 대신할 수 있는 데, Iterator와 결합하여 사용하는 vector에 비하면 초라하다. 그러면 VBA에서 vector 를 만들어 보는 것은 어떨까? 다음은 VBA로 만든 vector 클래스이다. 다만 자주 사용하는 엑셀이 아니라 액세스에서 구현한 것이지만 Option Compare Database를 제외하고는 액세스에 뭔가 엮인 것은 없으니 소스코드를 그대로 사용할 수 도 있고, 입맛에 맞게 고쳐쓰면 좋을 듯...

Option Compare Database  
Option Explicit

' Copyright 2007, 2008 by Promino AG
' Author: Guido Gloor
'
' This program is free software: you can redistribute it and/or modify
' it under the terms of the GNU Lesser General Public License as published by
' the Free Software Foundation, either version 3 of the License, or
' (at your option) any later version.
'
' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU Lesser General Public License for more details.
'
' You should have received a copy of the GNU Lesser General Public License
' along with this program.  If not, see <http://www.gnu.org/licenses/>.

Private itemCount As Integer
Private itemBufferSize As Integer
Private itemBuffer() As Variant

Private Sub Class_Initialize()
    itemCount = 0
    itemBufferSize = 100
    NewDimensions
End Sub

Private Sub NewDimensions()
    ReDim Preserve itemBuffer(itemBufferSize) As Variant
End Sub

Private Sub CheckDimensions()
    If itemCount > itemBufferSize - 2 Then
        itemBufferSize = itemBufferSize * 2
        NewDimensions
    End If
End Sub

Public Sub ShrinkDimensions()
    itemCount = itemBufferSize + 10
    NewDimensions
End Sub

Public Function GetSize() As Integer
    GetSize = itemCount
End Function

Public Sub AddItem(item As Variant)
    CheckDimensions
    itemBuffer(itemCount) = item
    itemCount = itemCount + 1
End Sub

Public Function GetItem(index As Integer) As Variant
    GetItem = itemBuffer(index)
End Function

Public Function PopItem() As Variant
    PopItem = itemBuffer(itemCount - 1)
    DeleteItem itemCount - 1
End Function

Public Function GetNextQueueItem() As Variant
    GetNextQueueItem = itemBuffer(0)
    DeleteItem 0
End Function

Public Function ContainsItem(item As Variant) As Boolean
    Dim i As Integer
    ContainsItem = False
    
    For i = 0 To itemCount - 1
        If itemBuffer(i) = item Then ContainsItem = True
    Next i
End Function

Public Sub InsertItem(index As Integer, item As Variant)
    Dim i As Integer
    
    CheckDimensions
    For i = itemCount - 1 To index Step -1
        itemBuffer(i + 1) = itemBuffer(i)
    Next i
    itemBuffer(index) = item
    itemCount = itemCount + 1
End Sub

Public Sub DeleteItem(index As Integer)
    Dim i As Integer
    
    For i = index + 1 To itemCount - 1
        itemBuffer(i - 1) = itemBuffer(i)
    Next i
    itemCount = itemCount - 1
End Sub

Public Function IsEmpty() As Boolean
    IsEmpty = itemCount <= 0
End Function

위의 소스는 clsVector.cls 인데, 원본파일에는 clsObjectVector 가 하나 더 있다.

[URL]VBA VECTOR CLASSES
[DOWNLOAD]Vectors.mdb