以下内容为程序代码:

1 s_czsc_high=ref(H,1);//前一K线处理完包含关系之后的高，初值暂定为前K高
2 s_czsc_low=ref(L,1);//前一K线处理完包含关系之后的低，初值暂定为前K低
3 s_direction=1;//前一K线时的方向？这个应该只有0和1，-1三个选项。
4 s_status=0;
5
6 //包含
7 czsc_high=0;; //当前K线高点,
8 czsc_low=0; //当前K线低点
9 //分型
10 direction:=0; //当前K线方向
11 status:=0; //当前K线状态(0.表示延续方向 1.表示K线转变方向)
12
13
14 If(s_czsc_high＞0 or s_czsc_low＞0)begin then //如果前高大于零或者前低大于零 //存在缠中说禅K线的
15 If((s_czsc_high＞High and s_czsc_low＜Low) or (High＞s_czsc_high and Low＜s_czsc_low)) //是否存在包含关系
16 If(s_direction＞0) ///如果前一K线方向为0,0应该是延续之前的方向，1则是逆转了之前的方向，也就是出了新的顶或者底。 //依据上一根K线方向确定当前K线方向
17 direction=1;
18 status=0;