[2017/11/10/17:20アップデート]
レーダースクリーンでも表示できるようにしました。
・「手目」の項目は「最後の値」です。現在下がっている可能性もあります。
・シグナルの右にある数字は「一本前」の「◯手目」です。
「0 腹八分:9」という表示は前日は「9手目だったが現在は下がって底値と判断」という感じで考えてください。

レーダースクリーンで表示するためには以下の設定が必要です。
「累積計算のため追加データをロード」チェックをいれ
「ロードする追加バー」「50」以上にしてください。
14d564acc25c38e8eba0b93df00bc886

[2017/11/04/23:55修正]
カウントがおかしくなる場所があったのを修正しました。
【説明を追加】
プログラムの関係上始点と1が多くなります。
カウントは13までとなっています。
それ以上は1から数えなおすので不自然な所が出てきます。
その辺りはご自身の判断でカウントを調整してください。

[2017/11/04/23:05修正]
出来高表示On/Offを追加しました。


今回は話題の(?)「新値八手を自動でカウントしてくれるプログラムです。
「売りExit」と表示されますが、あくまでも目安なので
最終的な判断はご自身で行ってください。

「新値八手」についてはGoogleで検索してね(ง ˙ω˙)ว
39c1a445008095a05d2b058f42f79665
──────────────────ここから──────────────────
Using elsystem;
using elsystem.drawing; 
using elsystem.drawingobjects;

Inputs: string Start ("始点") [DisplayName="始点の表示を変えれます"],
Int Num_Size ( 20 ) [DisplayName="文字の大きさ デフォルト:20"],
Bool Vol_On ( True ) [DisplayName="出来高の表示=1/非表示=0"];

Vars : TextLabel PoTX (null),
Int AppType ( 0 ),
String Signal ( "" ),
Double HiHi ( 0 ),
Double LoLo ( 0 );
// TextLabelの設定
Method void CreatePoTX(DateTime DT,Double Price,String TX) begin
    PoTX = new TextLabel(); 
    PoTX.Color = Color.White; 
    PoTX.HStyle = HorizontalStyle.Center; 
    PoTX.VStyle = VerticalStyle.Bottom; 
    PoTX.Name = "PoTX"; 
    PoTX.Persist = true; 
    PoTX.Font = new Font("Microsoft Sans Sefif", Num_Size, FontStyle.Regular);
    PoTX.SetPointValue(DTPoint.Create(DT, Price));
    PoTX.TextString = TX;
end;

// カウントリセット
If Lowest ( High, 10) = High or ( High + Value3 )/2 > High or Value1 > 7 and Lowest ( High, 5 ) = High Then
Begin
Value1 = 0;
Value2 = -1;
Value3 = 0;
HiHi = 0;
End;

// 始点の取得
If Highest(High,5) = High or Value1 > 0 Then
Begin
If High = 0 then
HiHi = High 
Else If High > HiHi then 
begin
Value1 += 1;
HiHi = High ;
End ;
End;
// 出力
AppType = GetAppInfo ( Aiapplicationtype );
Plot2(Value1, "手目");
If AppType = 2 Then
Begin
Plot4 ( Signal, "シグナル");
SetPlotColor ( 4, White );
SetPlotBGColor ( 4, Black );
End
Else Begin
Plot3(Value1,"手目",Red);
// この線を超えたら危ない
Plot99(10,"天井間近",RGB(128,0,0));
End;

//テキストの出力,バーの色を変える
If Value1 <> Value2 Then
Begin

If Lowest(High[1], 5) = High[1] and High[1] < High and Value1 = 0 Then
Begin
If AppType = 1 Then
Begin
CreatePoTX(BarDateTime[1],High[1],Start);
DrawingObjects.Add(PoTX);
If Vol_On Then
Value9 = Text_New(Date[1], Time, High[1]*0.995, "出来高 "+NumToStr(Value4,0));
Value8 = Text_SetStyle(Value9, 2, 1);
End;
If BarType >= 2 and BarType < 5 Then
Value4 = Volume
Else
Value4 = Ticks;
Value1 = 1;
Value2 = 1;
Value3 = Low;
End;
If Value1 <> 0 Then
Begin
If AppType = 1 Then
Begin
CreatePoTX(BarDateTime[0],High,NumToStr(Value1,0));
DrawingObjects.Add(PoTX);
If Vol_On Then
Value9 = Text_New(Date, Time, High*1.001, "出来高 "+NumToStr(Value4,0));
Value8 = Text_SetStyle(Value9, 0, 2);
End;
If BarType >= 2 and BarType < 5 Then
Value4 = Volume
Else
Value4 = Ticks;
Value2 = Value1;
HiHi = High;
End;
If AppType = 1 Then
Begin
Switch ( Value1 )
Begin
Case 8 To 9:
Text_SetString(Value9, "※売りExit※出来高 "+NumToStr(Value4,0));
Text_SetColor(Value9, Yellow);
Case >= 10:
Text_SetString(Value9, "※天井付近※出来高 "+NumToStr(Value4,0));
Text_SetColor(Value9, RGB(255, 168,0));
End;
End;
End
Else If Value1 = Value2 Then
Begin
If BarType >= 2 and BarType < 5 Then
Value4 = Value4 + Volume
Else
Value4 = Value4 + Ticks;
End;
Switch ( Value1 )
Begin
Case 0:
If AppType = 1 Then
SetPlotColor(2, RGB(128, 128, 128))
Else Begin
SetPlotBGColor ( 2, RGB ( 0, 0, 0 ) );
SetPlotColor(2, White );
SetPlotBGColor ( 4, RGB ( 0, 0, 0 ) );
SetPlotColor(4, White );
Signal = "休憩中:"+NumToStr(Value1,0);
End;
Case 1 To 2:
If AppType = 1 Then
SetPlotColor(2, RGB(200, 200, 200))
Else Begin
SetPlotBGColor ( 2, GradientColor( Value1, 1, 5, White, Yellow) );
SetPlotColor(2, Black );
SetPlotBGColor ( 4, Blue );
SetPlotColor(4, White );
Signal = "やっすい所:"+NumToStr(Value1,0);
End;
Case 3 To 5:
If AppType = 1 Then
SetPlotColor(2, RGB(255, 255, 0))
Else Begin
SetPlotBGColor ( 2,  GradientColor( Value1, 1, 5, White, Yellow) );
SetPlotColor(2, Black );
SetPlotBGColor ( 4, RGB ( 0, 0, 0 ) );
SetPlotColor(4, White );
Signal = ":"+NumToStr(Value1,0);
End;
Case 6 To 7:
If AppType = 1 Then
SetPlotColor(2, RGB(255, 168, 0))
Else Begin
SetPlotBGColor ( 2,  GradientColor( Value1, 5, 8, Yellow, Red ) );
SetPlotColor(2, Black );
SetPlotBGColor ( 4, RGB ( 0, 0, 0 ) );
SetPlotColor(4, White );
Signal = ":"+NumToStr(Value1,0);
End;
Case 8 To 9:
If AppType = 1 Then
SetPlotColor(2, Red)
Else Begin
SetPlotBGColor ( 2,  GradientColor( Value1, 5, 8, Yellow, Red) );
SetPlotColor(2, White );
SetPlotBGColor ( 4, RGB ( 0, 0, 0 ) );
SetPlotColor(4, White );
Signal = "腹八分:"+NumToStr(Value1,0);
End;
Case 10 To 12:
If AppType = 1 Then
SetPlotColor(2, RGB(128, 0, 0))
Else Begin
SetPlotBGColor ( 2,  GradientColor( Value1, 8, 13, Red, RGB ( 128, 0, 0 ) ) );
SetPlotColor(2, White );
SetPlotBGColor ( 4, RGB ( 0, 0, 0 ) );
SetPlotColor(4, White );
Signal = "食べ過ぎ注意:"+NumToStr(Value1,0);
End;
Case >= 13:
If AppType = 1 Then
Begin
NoPlot(2);
NoPlot(3);
Value1 = 0;
Value5 = 0;
End
Else Begin
SetPlotBGColor ( 2,  GradientColor( Value1, 13, 40, RGB ( 128, 0, 0 ), Black ) );
SetPlotColor(2, White );
SetPlotBGColor ( 4, Black );
SetPlotColor(4, White );
Signal = "肥満:"+NumToStr(Value1,0);
End;

Default :
Signal = "エラー??";
End;
──────────────────ここまで──────────────────