Tag Archive for '移動平均線ネタ'
最適な移動平均線を探る②
まず最初に反発ポイントを見つけておきます。
なんとなく下値っぽいところを見つける関数を作ってみた。
Private Function Seek安値(chart As 分足Chart, items As 分足Data70.分足Items) As 分足Data70.分足Item() Dim list As New List(Of 分足Data70.分足Item) Dim min As 分足Data70.分足Item = items(items.Count - 1) For i As Integer = items.Count - 1 To 0 Step -1 Dim dis As Single = (min.日時_Slow.BaseDate - items(i).日時_Slow.BaseDate).TotalHours If items(i).株価 < min.株価 Then min = items(i) Else If 20 < dis Then list.Add(min) chart.DrawMarker(min.日時_Slow, min.株価, 10, Color.Yellow) End If End If Next Return list.ToArray End Function