メモ帳(仮称)

2009年1月8日木曜日

2009日経平均株価予想

ロイターの記事に09年の日経平均株価予想があったので最低予想価格順に
並び替えた上で転記。
昨年はひどかったが今年はいかに。
中西文行投資情報部部長ＳＭＢＣフレンド証券 5000-14000
岩澤誠一郎チーフストラテジスト野村証券 5500-11000
森裕恭投資情報室長岡地証券 6000-9000
岡本征良資金運用グループチームリーダー十字屋証券 6000-10000
山田拓也シニアファンドマネージャーファンドクリエーション投信投資顧問 6000-13000
嶌峰義清主席エコノミスト第一生命経済研究所 6500-9500
黒瀬浩一チーフ・ストラテジストりそな信託銀行 6500-9500
吉越昭二シニア投資ストラテジスト三菱ＵＦＪ証 6500-10000
児玉克彦シニアストラテジスト東洋証券 7000-9500
宇野大介チーフストラテジスト三井住友銀行 7000-9500
水野善四郎専務丸三証券 7000-10000
若林仁トレーディング部長明治ドレスナー・アセットマネジメント 7000-10000
倉持宏朗エクイティ部長東海東京証券 7000-10000
井原翼理事リテラクレア証券 7000-11000
岡本佳久執行役員みずほ投信投資顧問 7000-11000
平川昇二チーフストラテジストＵＢＳ証券 7000-11000
松尾十作投資情報部長水戸証券 7000-11300
福永博之代表取締役インベストラスト 7000-11600
高塚孝一シニアファンドマネージャーユナイテッド投信投資顧問 7000-14000
平野憲一執行役員立花証券 7500-11000
瀬川剛エクイティストラテジスト新光証券 7500-11500
下出衛チーフエクイティストラテジストドイツ証券 7500-11500
中島肇エクイティ部次長コスモ証券 7500-12000
大西史一シニアストラテジスト日興コーディアル証券 7500-12000
高橋和宏グローバル・プロダクト企画部部長大和証券ＳＭＢＣ 7500-12000
高橋正信チーフストラテジストいちよし証券 8000-10000
木野内栄治チーフテクニカルアナリスト大和総研 8000-11500
子幡健二専務エース証券 8500-12000
矢野正義シニアマーケットアナリスト明和証券 8500-12000
大島和隆チーフストラテジスト楽天証券経済研究所 8500-12000

http://jp.reuters.com/article/wtInvesting/idJPnTK021092720081224

2009年1月3日土曜日

Apache2

Fedora 10にて、apacheを80番ポート以外で動かそうとするなら、
/etc/httpd/conf/httpd.conf
にある
Listen 80
の行を変更して、希望する数字に変更する……だけではだめで、SELinuxでそのポートを開放する必要がある。こういう機能がつくことで、一般向けになってきているのだなあ。
あ、でもFedoraって一般人が使うことを想定していないっけ？

2009年1月1日木曜日

Fedora 10 on Virtual Box

Fedora 10をVirtual Boxにインストールし、起動すると解像度が800x600と640x480しか選択できない。
Guest Additions をインストールすると、なぜか解像度1024x768が選択可能に。
ノートPCではこれ以上の解像度が必要ないので、ここで終了。

以下備忘録。

xorg.confの記述を下記のように変更しておくことで以前(Fedora 9 以前)は解像度の変更が可能だった。Fedora 10ではxorg.confが見当たらないので、この手法を使えるのか不明。Google 等で検索してみると、Fedora 10からは、xorg.confがなくても動作するようにXorgが変更されているようだが、xorg.confを作成させるコマンドが存在するようなので、作成した上で変更を行えば解像度のFedora 10でも解像度の変更を行えると推測。


Section "Screen"
        Identifier "Screen0"
        Device     "Videocard0"
        Monitor    "Monitor0"
        DefaultDepth     24
        SubSection "Display"
                Viewport   0 0
                Modes "1280x800" "1024x768" "800x600" "640x480"
                Depth     32
        EndSubSection
        SubSection "Display"
                Viewport   0 0
                Modes "1280x800" "1024x768"
                Depth     24
        EndSubSection
EndSection

2008年10月6日月曜日

wavelet transform on Haskell

久々の更新です。大学卒業したらFFTW扱う暇がなくなって、FFTWモジュールの話は作りかけとまってます。もうしばし待ってください。

で、ずっと更新しないと管理を放棄したかのように思われるので小ネタを。
wavelet変換と呼ばれる信号処理？画像処理？用の変換があります。フーリエ変換と比較して、時間(not周波数)に関しての変換が可能だったりで、多重解像度解析を利用したさまざまな応用があります。

で、普通は信号処理なのでそれっぽい言語を使って実装するところ、Haskellの練習がてら以下のコードを学生時代に書きました。


---------------この区切り表現、Haskellと相性いいかも。
import IO
import System
import List
main = do [filename] <- getArgs
          input <- openFile filename ReadMode
          x <- hGetContents input
          file <- openFile "scaling.dat" WriteMode
-- scaling coefficient
          hPutStr file $ unlines $ map sDouble $
                        [scalingCoefficient level k ((makeList x)!! 0)
                             |k<-[0..((length ((makeList x)!!0)) `div` (2^level))-1 ]]
          hClose file
-- wavelet expansion coefficient
          file <- openFile "wavelet.dat" WriteMode
          hPutStr file $ unlines $ map sDouble $ 
                        [waveletExpansionCoefficient j k ((makeList x)!! 0)
                             | j<-[1..level],
                               k<-[0..((length ((makeList x)!!0)) `div` (2^j))-1 ]]
          hClose file
          hClose input
level :: Int
level = 3
p :: [Double]
p = [0.4829629131445341,0.8365163037378077,0.2241438680420134,-0.1294095225512603]

q :: [Double]
q = zipWith (*) (cycle [1,-1]) (reverse p)
n = 4


scalingCoefficient j k x = if j==0 
                           then (x!!k)
                           else 0.5 * (sum $ zipWith (*) p [scalingCoefficient (j-1) i x| i<-drop (2*k) $cycle [0..((length x)`div`(2^(j-1))-1)]])

waveletExpansionCoefficient j k x = sum $ zipWith (*) q [scalingCoefficient (j-1) i x|
                                                          i<-drop (2*k-1) $cycle [0..((length x)-1)]]

makeList :: String -> [[Double]]
makeList x = transpose $map (map rDouble) $ map words $ lines x

rDouble :: String -> Double
rDouble = read

sDouble :: Double -> String
sDouble = show

---------------

インプットファイルは変換したい信号(波形)を等間隔でサンプリングした結果を、
0.11
0.14
0.15
......
と改行区切りで延々いれたものです。

コンパイルした後
% ghc -o wavele wavelet.hs
% ./wavelet inputfile.name
として使用してください。
scaling係数がscaling.datに、wavelet係数がwavelet.datに出力されます。
ちなみにDaubechies waveletの4。レベル3まで変換します。
信号長さが十分な場合はもっと深いレベルまで変換するのも可。

このコード、作ったのはいいものの信号量が膨大(GByteオーダー)になりすぎてGHCの速度じゃ太刀打ちできなくなって、C++で作り直したんだよなぁ……

それ以前に、汚いコードなのでまねはしないでください。

2008年4月28日月曜日

多言語対応PAGER lv

lvのインストールには
http://www.ff.iij4u.or.jp/~nrt/lv/
のダウンロードからlvVERSION.tar.gzをダウンロードして、
$tar xzf lvVERSION.tar.gz
$cd lvVERSION/build
$../src/configure
$make
$make install

最近はyum とかapt-getとかで入れられるかも。
これがあると他のOS等からもらってきたファイルの文字コードを変更しなくても、自動認識して表示してくれるのでかなり便利。