コマ足について、計算式、チャート、エクセルVBAコード

 

コマ足は平均足とも呼ばれ、4本値からブレを排除したロウソク足を描画し、トレンドを図る指標で、通常陰線や陽線がある程度一方向に続くロウソク足として描かれます。

 

 

 

 

コマ足（平均足）計算式

1本目）

コマ足始値：前日4本値平均値

コマ足高値：当日高値

コマ足安値：当日安値

コマ足終値：当日4本値平均値

 

2本目以降）

コマ足始値：前日コマ足実体部分中心値

=前日コマ足始値と前日コマ足終値の平均

コマ足高値：当日高値

コマ足安値：当日安値

コマ足終値：当日4本値平均値

 

 

 

コマ足（平均足）チャート

 

 

 

以前アップした指標談義のコマ足の陰線陽線の本数数値化は、この指標を使用したものです。https://atmtech.net/main/?p=2973

(青線：過去10本陰陽合計　赤線：過去15本陰陽合計)

 

 

今回、ついでと言っては何ですが、上記コマ足の陰陽数値化指標をストキャスティクス化し、STCに近いラインの描画を行ってみました。

水色線：コマ陰陽線%K(7)　赤線：コマ陰陽線%D(7)　黄色線：コマ陰陽線S%D(3)

 

 

 

コマ足（平均足）エクセルVBAコード（VBAはコマ足の描画のみ）

‘※　エクセルの1列目(A列)に行番号、2列目(B列)に日時、
‘※　3列目(C列)～6列目(F列)に始値・高値・安値・終値
‘********************************
‘ num：現在の行
‘ cell_open：コマ足始値書込み列
‘ cell_high：コマ足始値書込み列
‘ cell_low：コマ足始値書込み列
‘ cell_close：コマ足始値書込み列
‘********************************

If Cells(num – 1, 6) <> “” Then
If Cells(num – 1, cell_open) = “” Then
Cells(num, cell_open) = _
Application.Average(Range(Cells(num – 1, 3), Cells(num – 1, 6)))
Else
Cells(num, cell_open) = _
(Cells(num – 1, cell_open) + Cells(num – 1, cell_close)) / 2
End If

Cells(num, cell_high) = Cells(num, 4)
Cells(num, cell_low) = Cells(num, 5)
Cells(num, cell_close) = _
Application.Average(Range(Cells(num, 3), Cells(num, 6)))
End If

 

 

テクニカル指標一覧

罫線談義一覧

(外部リンク)テクニカル指標(Wikipedia)