鬱病と友達になって社会復帰する

お久しぶり　元気です

Mon, 08 Mar 2010 22:15:26 +0900

最近、株取引のシステムを個人的にやっています。

３０銘柄の株をとある条件で、買ったり売ったりするシステムです。

エクセルでやってます。

条件をいろいろ変えて、「期待値」が高い条件を探しています。

そのために、マクロ（ＶＢＡ）を使っています。

そのマクロを実行するのに、僕のＰＣでは、３時間かかります。

そのテストの方法は、

２０００年　２００１年　の２年間で、テスト　＝＞　３時間
２００２年　２００３年　の２年間で、テスト　＝＞　３時間
２００４年　２００５年　の２年間で、テスト　＝＞　３時間
２００６年　２００８年　の２年間で、テスト　＝＞　３時間
２００８年　２００９年　の２年間で、テスト　＝＞　３時間

こんなに時間がかかります。

このテストを自分のＰＣじゃなくて、クラウドでやりたいと思ってます。
そしたら、自分のＰＣを使えるから。

マクロ実行中は、パソコン使えないよ。

なにしろ、僕のＰＣはペンティアムＭなので。

テストでわかったことは、

買いばかりのテストでは、２００８　２００９年では、期待値がとっても悪い。
リーマンショック以降株は調子わるいもんね。

売りばかりのテストでは、２００８　２００９年は、とても期待値が良い。

そして、思ったことは、買いばかり、売りばかりのサインで取引せずに、
買いも売りもサインがでたら、発注する。
そして、とある条件で買いなら売るし、売りなら買い戻す

で、テストをしてみたら、期待値が５倍くらいに増えた。

これはなかなかの思いつき　　誰でも思いつくか（とほほ）

ということで、今エクセルでやっている事を１０００銘柄以上やろうものなら、

何年かかるねん？？

という状況に陥ったので、

Google App Engine

で、ただでテストしたいと考えているワケです。

クラウドなら、自分がいなくても、勝手にやってくれるし、寝ていてもやってくれるとか

いろいろメリットはある。

自分のパソコンの場合、やっぱり会社に行っているときは、放ったらかしにしておくことも出来ないし。
火事になったりしても困るので。

でも、一番の問題は、JAVAがまったく分からないことです。

CSVファイルを読み込んで、移動平均を計算して、損切りを計算してといった、エクセルなら
何でもないことをJAVAでやるには、どうやったら良いのか？

まったく知らない。

という事で、JAVAの勉強が絶対に必要になってきました。

JAVAわかるかな？

なんとか生きてます

Sat, 20 Feb 2010 08:33:12 +0900

google apps を利用しはじめました。

もともとは、ロリポップ＋ムームードメインでしたが、ロリポップのホームページを使わなくなったので、

メールだけでいいなと思っていました。

そんな時に、google　apps　が独自ドメインを持ち込めて、メールができて、ホームページもできると知り、

やってみました。

参考にしたページは、http://blog.zuzara.com/2009/01/09/306/

一応、僕にもできました。

僕のドメインは、家族で利用しているので、ちょうどいいです。

生きてますよ

Sun, 03 Jan 2010 20:41:43 +0900

元気に生きてます。

だれもペタしてくれないので、寂しいです。

ペタしてよん

テキストファイルの半分から最後までを切り出すバッチ

Sat, 28 Nov 2009 08:53:18 +0900

半分から最後まで.bat ファイル名

rem 半分から最後まで
for /f %%A in ('find /c /v "" ^< %1') do set /a han=%%A/2 & more +%han% %1 > aaa.txt

テキストファイルの１行目から半分までを切り出すバッチ

Sat, 28 Nov 2009 08:51:32 +0900

前半半分切り出し.bat ファイル名

rem １から半分まで
@ECHO OFF
for /f %%A in ('find /c /v "" ^< %1') do set /a han=%%A/2
(FOR /F "delims=[] tokens=1*" %%0 IN ('FIND /N /V ""') DO (
IF %%0 GTR %han% GOTO :EOF
IF %%0 GEQ 1 ECHO=%%1
)
)<%1 >bbb.txt

テキストファイルの何行目から何行目までを切り出すバッチ

Sat, 28 Nov 2009 08:14:57 +0900

http://scripting.cocolog-nifty.com/blog/2007/03/post_649b.html
からのパクリです

切り出し.CMD 開始行終了行ファイル

@ECHO OFF
(FOR /F "delims=[] tokens=1*" %%0 IN ('FIND /N /V ""') DO (
IF %%0 GTR %2 GOTO :EOF
IF %%0 GEQ %1 ECHO=%%1
)
)<%3

或いは、

@ECHO OFF
SETLOCAL
(FOR /F %%n IN ('FIND /C /V ""') DO SET /A n=%%n-%2)<%3
SORT /+10000 %3 | MORE +%n% | SORT /+10000 | MORE +%1

元気に会社行ってます

Tue, 10 Nov 2009 19:47:19 +0900

先日、友人と晩御飯食べに行きました。

今、白髪で短髪にしてるので、白髪は第一印象が悪いと言われた。

でも、染めて髪の毛が弱くなった気がしてきたので、つい最近染めるのやめた

ばっかりだったので、困っちゃった。

ま、１年くらい白髪頭でがんばりますわよ！！

最近、エクセルのマクロをいじっていてブログ書くのをサボってます。

明日も、元気に会社へ行くぞ！！！

昨日のエクセル

Mon, 02 Nov 2009 06:35:40 +0900

Option Explicit
Sub auto_open()

Dim Son As Integer
Dim Retu(1 To 20) As Integer
Dim Tejima As Integer
Dim Folder As String
Dim FName, ThisName As String
Dim Inai As Integer
Dim Takane As Integer
Dim Yasune As Integer
Dim aaa As Double
Dim kitaichi1 As Double
Dim kitaichi2(1 To 3) As Double
Dim sheetNO As Integer
Dim copi As Integer
Dim DD, kaisu, Zgyo, Zgyo2, igyo2, nissu As Long
Dim fs As Variant
Dim Kankaku As Integer
Dim marubatu(0, 1 To 3), kaisuEND, j As Integer

'On Error Resume Next
Windows("マクロ「買い」CB-PB期待値高いリストアップ_時差攻撃_2003～2009_D.xls").Activate
ThisName = ThisWorkbook.Name

Folder = ThisWorkbook.Path
FName = Dir(Folder & "\????.xls")
'↓－－－－－－－－－←||||||||
'????.xls となっているので、「銘柄名４桁＋.xls」しか対象にしない

Do While FName <> ""

With Application
.Calculation = xlManual
.CalculateBeforeSave = True
End With

DD = Range("A1")
Cells(DD, 25).Select
ActiveCell.FormulaR1C1 = "=NOW()"
Cells(DD, 25).Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Cells(DD, 26) = FName

Range("Y1").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("Y1").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

Application.ScreenUpdating = False

Workbooks.Open Folder & "\" & FName

For Takane = 18 To 22 Step 2 '18 to 22
Range("i6") = Takane

For Inai = 10 To 7 Step -1 '10 to 7
Range("i7") = Inai

For Yasune = 5 To 2 Step -1 '6 to 2
Range("i8") = Yasune

For Tejima = 3 To 32 Step 2 '3 to 32
If Tejima = 17 Then
Tejima = 20
End If
If Tejima = 22 Then
Tejima = 25
End If
If Tejima = 27 Then
Tejima = 30
End If
If Tejima = 32 Then
Tejima = 40
End If
Range("i9") = Tejima

Application.ScreenUpdating = True
Application.ScreenUpdating = False

For Son = 1 To 9 ' 1 to 9

Range("i10").Value = Son
'------------------------------------------------------------------------------------------------------
Calculate

If 30 > Range("AC1").Value Then
Exit For
Else
aaa = Application.WorksheetFunction.Max(Range("I5:Z5"))
If aaa < 10000 Then
Else

If aaa < Range("I10").Value * 2000 Then
Else

For j = 1 To 20
Retu(j) = Cells(4, j + 29).Value

Next j

kaisuEND = Range("AC5").Value
For kaisu = 1 To kaisuEND
' Windows(FName).Activate

If Cells(1, Retu(kaisu)).Value > 30 Then
If Cells(2, Retu(kaisu)).Value > 0.1 Then
If Cells(5, Retu(kaisu)).Value < 10000 Then
'期待値が１万円より大

Else

If Cells(5, Retu(kaisu)).Value > Cells(10, Retu(kaisu)).Value * 2000 Then
'損切りの２倍以上になるように

kitaichi1 = Cells(5, Retu(kaisu)).Value

Select Case Retu(kaisu)
Case 9 'i
Zgyo = 0
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 10 'j
Zgyo = 1
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 11 'k
Zgyo = 2
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 12 'l
Zgyo = 3
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 13 'm
Zgyo = 4
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 14 'n
Zgyo = 5
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 15 'o
Zgyo = 6
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 16 'p
Zgyo = 7
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 17 'q
Zgyo = 8
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 18 'r
Zgyo = 9
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 19 's
Zgyo = 10
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 20 't
Zgyo = 11
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 21 'u
Zgyo = 12
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 22 'v
Zgyo = 13
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 23 'w
Zgyo = 14
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 24 'x
Zgyo = 15
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 25 'y
Zgyo = 16
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 26 'z
Zgyo = 17
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 27 'AA
Zgyo = 18
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

Case 28 'AB
Zgyo = 19
Zgyo2 = 3000 * Zgyo
igyo2 = Cells(Zgyo2 + 13, 8).Value '移動元の下

End Select

For copi = 3 To 1 Step -1 'kopi 150日　75日　20日

'データをコピーして消去(移動）
If copi = 3 Then
nissu = 20

Windows(FName).Activate
Range(Cells(1, Retu(kaisu)), Cells(10, Retu(kaisu))).Copy

Windows(ThisName).Activate
DD = Range("A1").Value
Cells(DD, 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Windows(FName).Activate

ElseIf copi = 2 Then
nissu = 75
ElseIf copi = 1 Then
nissu = 130
End If

Range("A" & (igyo2 + Zgyo2) + 1 & ":F" & (igyo2 + Zgyo2) + nissu + 1).Value = _
Range("A" & (igyo2 + Zgyo2) - nissu & ":F" & (igyo2 + Zgyo2)).Value
'------------------------------------------------------------------------------------------------------
Calculate

'期待値の再取得
kitaichi2(copi) = Cells(5, Retu(kaisu)).Value
'MsgBox "期待値１ " & kitaichi1 & " 期待値２ " & kitaichi2

'－－－－－－－－－－－－－－－－－－－－－－－－－
'半年で期待値がよくなることを確認するためのロジック
'－－－－－－－－－－－－－－－－－－－－－－－－－

'－－－－－－－－－－－－－－－－－－－－－－－－－
If kitaichi1 < kitaichi2(copi) Then
'MsgBox "期待値１だよ " & kitaichi1 & " 期待値２ " & kitaichi2
marubatu(0, copi) = 1 '○

Else
marubatu(0, copi) = 0 '×

End If

Next copi
'データを移動元に戻して消去
Range("A" & (igyo2 + Zgyo2) + 1 & ":F" & (igyo2 + Zgyo2) + 130 + 1).ClearContents
'------------------------------------------------------------------------------------------------------
'Calculate

Windows(ThisName).Activate
Range(Cells(DD, 13), Cells(DD, 13 + 2)).Value = marubatu
Windows(FName).Activate

'－－－－－－－－－－－－－－－－－－－－－－－－－

End If
End If
End If
End If

Next kaisu
End If
End If
End If
Next Son
Next Tejima
Next Yasune
Next Inai
Next Takane

'XLSファイルにもどり、閉じる
Windows(FName).Activate
Application.CutCopyMode = False
ActiveWindow.Close False '←保存せず
'XLSファイルを削除する
' Kill Folder & "\" & FName

Set fs = CreateObject("Scripting.FileSystemObject")
fs.MoveFile Folder & "\" & FName, Folder & "\" & "一時退避" & "\" & FName

Windows(ThisName).Activate
ActiveWorkbook.Save

'次のxlsファイル
FName = Dir()

Application.ScreenUpdating = True

Loop

Application.Calculation = xlAutomatic

ActiveWorkbook.Save
Application.Quit
ThisWorkbook.Close False

End Sub

元気でやってます

Sun, 01 Nov 2009 21:59:05 +0900

今日は、実家にいってイーモバイルのＡＤＳＬの接続をしてきました。

メールアドレスも変わったので、変更しましたメールも出してきました。

明日行ったら、あさっては休みだから、がんばるぞ！！！

今日も会社行きました

Tue, 27 Oct 2009 22:41:11 +0900

最近、仕事に余裕があります。

っつ～か暇

だから、古くなったシステムのリプレースの設計を勝手にやってます。