6-2.参考に6チャートを数値で評価

(1) 評価点数をチャート図で説明


ローソク足はマクロで型を読むのは難しいので、評価点から省いて
いましたが、2016/9月の更新から、単純に陽線:買い、陰線:売り
として評価しました。

これは、前日等の複数足を見ていないので、特に型を見ている
訳ではないので、評価点数は2点と低くした。



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

0σに対して、終値のゴールデンクロスを買い建てで3点、
デッドクロスを売り建て3点としました。

クロスした日のみ評価点を付ける方式でしたが、一般的
な判断として、Σ値プラス側は買い情勢、マイナス側売り
情勢と言えるので、クロス日以外も1点付け、評価点の
合計に反映するようにした。



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

ピポットは1日以内という極めて短期的な予測ですが、相場が大き
く動いていれば翌日も動くことが多いので、

買い建ては、S2以上は9点と大きく、B1〜B2を4点とした。
売り建ては、B2以上は9点と大きく、B1〜B2を4点とした。




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

通常の移動平均より反応が早くトレンドの転換を早く知ることができ
自分としては好きなツールであり、全体の評価にも一番
反映するように、10点の最高点にした。

買い建ては、OSCIが0以上に越日は評価10点。
売り建ては、OSCIが0以下に越日は評価10点。

上記はクロス日のみであり、グラフの向により
3点付ける方式を2016/9月より追加した



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

買い建ては、ゴールデンクロスを評価5点とした。

売り建ては、デッドクロスを評価5点とした。



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

RSIは、現在の相場が高いのか、安いのかの判断基準に使用に
使用するが、ここでは、85%以上は買われ過ぎ判定
で、買い建て-1点とした。25%以下は売り-1点。

買い建ては、RSI線が上向きで、評価1点とした。
売り建ては、RSI線下向きで、評価1点とした。

買われすぎ・売られすぎ解消日3点は必要か考え中。




(2) 参考チャート評価ポイントのマクロソース

'ローソク足(2016/9/18追加)
'買い
If Cells(33, 3) < Cells(33, 6) Then '始値<終値
Cells(4, 16) = 2 '陽線2点
ElseIf Cells(33, 3) > Cells(33, 6) Then
Cells(4, 16) = -2 '陰線-2点(=は0点)
End If
 
'売り
If Cells(33, 3) > Cells(33, 6) Then '始値>終値
Cells(4, 17) = 2 '陰線2点
ElseIf Cells(33, 3) < Cells(33, 6) Then
Cells(4, 17) = -2 '陽線-2点(=は0点)
End If
 
 
 
ボリンジャー
'買い
If Cells(51, 24) > 0 Then '本日Σがプラス側(2016/9/18追加)
Cells(5, 16) = 1 '単純にΣプラ側1点
End If
 
If Cells(52, 24) < 0 Then '前日Σは0以下
If Cells(51, 24) > 0 Then '本日Σが0以上
Cells(5, 16) = 3 '-σから+σへ転換で3点
End If
End If
 
'売り
If Cells(51, 24) < 0 Then '本日Σがマイナス側(2016/9/18追加)
Cells(5, 17) = 1 '単純にΣプラ側1点
End If
 
If Cells(52, 24) > 0 Then
If Cells(51, 24) < 0 Then
Cells(5, 17) = 3 '+σから-σへ転換で3点
End If
End If
 
ピポット
'買い(S2超え)
If Cells(33, 16) < Cells(33, 6) Then 'S2<現値
Cells(6, 16) = 9 '現値がS2以上なら9点
ElseIf Cells(33, 17) < Cells(33, 6) Then
Cells(6, 16) = 4 '現値がS1 以上なら4点
End If
 
'売り(B2以下)
If Cells(33, 19) > Cells(33, 6) Then
Cells(6, 17) = 9 '現値がB2以下なら9点
ElseIf Cells(33, 19) > Cells(33, 6) Then
Cells(6, 17) = 4 '現値がB1以下なら4点
End If
 
MACD
If Cells(34, 12) < Cells(33, 12) Then '前日OSCI<本日OSCI (2016/9/18追加)
Cells(8, 16) = 3 'OSCI上向きで3点
End If
 
'買い(OSCIが0より上に)
If Cells(34, 12) < 0 Then '前日OSCI<0
If Cells(33, 12) > 0 Then '本日OSCI>0
Cells(8, 16) = 10 'OSCI棒グラフが-から+で10点
End If
ElseIf Cells(35, 12) < 0 Then '前前日OSCI<0(前日上でも)
If Cells(33, 12) > 0 Then '本日OSCI>0
Cells(8, 16) = 5 'OSCI棒グラフが前前日-から+で5点
End If
End If
 
'売り(OSCIが0より下に)
If Cells(34, 12) > Cells(33, 12) Then '前日OSCI>本日OSCI (2016/9/18追加)
Cells(8, 17) = 3 'OSCI下向きで3点
End If
 
If Cells(34, 12) > 0 Then
If Cells(33, 12) < 0 Then
Cells(8, 17) = 10 'OSCI棒グラフが+から-で10点
End If
ElseIf Cells(35, 12) > 0 Then
If Cells(33, 12) < 0 Then
Cells(8, 17) = 5 'OSCI棒グラフが前前日+から-で5点
End If
End If
 
移動平均
'買い
If Cells(70, 16) > Cells(70, 15) Then '前日移動5平均>前日終値
If Cells(69, 16) < Cells(69, 15) Then '本日移動5平均<本日終値
Cells(9, 16) = 5 '5日平均と終値ゴールデンクロス5点
End If
ElseIf Cells(71, 16) > Cells(71, 15) Then '1日前クロス
If Cells(69, 16) < Cells(69, 15) Then
Cells(9, 16) = 3 '前前5日平均と終値ゴールデンクロス3点
End If
End If
 
'売り
If Cells(70, 16) < Cells(70, 15) Then
If Cells(69, 16) > Cells(69, 15) Then
Cells(9, 17) = 5 '5日平均と終値デッドクロス5点
End If
ElseIf Cells(71, 16) < Cells(71, 15) Then
If Cells(69, 16) > Cells(69, 15) Then
Cells(9, 17) = 3 '前前日5日平均と終値デッドクロス3点
End If
End If
 
RSI
'買い
If Cells(87, 18) < Cells(86, 18) Then '前日RSI-6<本日RSI-6 (2016/9/18追加)
Cells(10, 16) = 1 'RSI-6上向きで1点
End If
 
If Cells(86, 18) < 25 Then 'RSI-6<25(売られすぎ)
Cells(10, 16) = -1 '売られ過ぎは-1点(買い環境でない)
End If
If Cells(86, 18) > 25 Then 'RSI-6>25
If Cells(87, 18) < 25 Then '前日RSI-6<25
Cells(10, 16) = 3 '売られ過ぎ解消3点
End If
End If
 
'売り
If Cells(87, 18) > Cells(86, 18) Then '前日RSI-6>本日RSI-6 (2016/9/18追加)
Cells(10, 17) = 1 'RSI-6下向きで1点
End If
 
If Cells(86, 18) > 75 Then
Cells(10, 17) = -1 '買われ過ぎは-1点(売り環境でない)
End If
If Cells(86, 18) < 75 Then
If Cells(87, 18) > 75 Then
Cells(10, 17) = 3 '買われ解消3点
End If
End If




【ホーム】  【戻る】