主题：分支语句的多层嵌套问题

以下内容为程序代码:

1 s_czsc_high:ref(H,1);//前一K线处理完包含关系之后的高，初值暂定为前K高
2 s_czsc_low:ref(L,1);//前一K线处理完包含关系之后的低，初值暂定为前K低
3 s_direction:0;
4 s_status:0;
5
6 //包含
7 czsc_high:=0;//当前K线高点,初值暂定为前K高
8 czsc_low:=0; //当前K线低点，初值暂定为前K低
9 //分型
10 direction:=0; //当前K线方向
11 status:=0;
12 //分型
13 direction:=0; //当前K线方向
14 status:=0;
15 //当前K线状态(0.表示延续方向 1.表示K线转变方向)
16 If (s_czsc_high＞0 or s_czsc_low＞0)then begin //如果前高大于零或者前低大于零 IF1 //存在缠中说禅K线的
17 If ((s_czsc_high＞High and s_czsc_low＜Low) or (High＞s_czsc_high and Low＜s_czsc_low))then begin //是否存在包含关系IF2
18 If (s_direction＞0)then begin //IF3 //依据上一根K线方向确定当前K线方向
19 direction=1;
20 status=0;
21 czsc_high=Max(s_czsc_high,High);
22 czsc_low=Max(s_czsc_low,Low);
23 end //对应IF3
24 //更新最高点和最低点
25 Else begin
26 if (s_direction＜0)then begin//IF4
27 direction=-1;
28 status=0;
29 czsc_high=Min(s_czsc_high,High);
30 czsc_low=Min(s_czsc_low,Low);
31 end//对应IF4
32 end//对应IF2
33
34 ///---------------上边暂时没问题了
35 Else begin //不存在包含关系
36 If (s_direction＞0)then begin //IF5 //依据上一根K线方向确定当前K线方向
37 If (High＜s_czsc_high)then begin //IF6 //是否发生转向
38 direction=-1; status=1;
39 czsc_high=High;
40 czsc_low=Low;
41 end//对应IF6
42 Else begin
43 direction=1;
44 status=0;
45 czsc_high=Max(s_czsc_high,High);
46 czsc_low=Max(s_czsc_low,Low);
47 end //对应F5
48 Else begin
49 If (s_direction＜0)then begin
50 If (Low＞s_czsc_low)then begin
51 direction=1;
52 status=1;
53 czsc_high=High;
54 czsc_low=Low;
55 end
56 Else begin
57 direction=-1;
58 status=0;
59 czsc_high=Min(s_czsc_high,High);
60 czsc_low=Min(s_czsc_low,Low);
61
62 Else begin
63 If ((High＞High[1] and Low＜Low[1]) or (High[1]＞High and Low[1]＜Low))then begin //当不存在缠中说禅K线时用K线高低点作为依据判断存在包含关系
64 If (High[1]＞High[2])then begin //判断方向
65 direction=1;
66 status=0;
67 czsc_high=Max(High[1],High);
68 czsc_low=Max(Low[1],Low);
69 end
70 Else begin
71 If (Low[1]＜Low[2])then begin
72 direction=-1;
73 status=0;
74 czsc_high=Min(High[1],High);
75 czsc_low=Min(Low[1],Low);
76 end
77 Else begin
78 If (High[2]＜High[1])then begin
79 If (High[1]＞High)then begin
80 direction=-1;
81 status=1;
82 czsc_high=High;
83 czsc_low=Low;
84 Else begin
85 direction=1;
86 status=0;
87 czsc_high=Max(High[1],High);
88 czsc_low=Max(Low[1],Low);
89
90 Else begin
91 If (Low[2]＞Low[1])then begin
92 If (Low[1]＜Low)then begin
93 direction=1;
94 status=1;
95 czsc_high=High;
96 czsc_low=Low;
97 end
98 end
99 Else begin
100 direction=-1;
101 status=0;
102 czsc_high=Min(High[1],High);
103 czsc_low=Min(Low[1],Low);
104
105 If (czsc_low＞0 or czsc_high＞0)then begin
106 PlotNumeric("czsc",czsc_low,czsc_high); //输出缠中说禅K线
107 Commentary("("+Text(direction)+","+Text(status)+")");
108 end
109
110 End
111