主题：[求助]请帮忙修改下面这个公式让金字塔完全可用

以下内容为程序代码:

1 {========画原始K线========}
2 STICKLINE(C＞=O,H,L,0,1),COLORRED;
3 STICKLINE(C＞=O,C,O,8,1),COLORRED;
4 STICKLINE(C＜O,C,O,8,0),COLORCYAN;
5 STICKLINE(C＜O,H,L,0,1),COLORCYAN;
6 {========状态交易========}
7 Y:=(H+L)/2;
8 AO:=MA(Y,5)-MA(Y,34);
9 MAO:=MA(AO,5);
10 AC:=AO-MAO;
11 STICKLINE(AO＞REF(AO,1) AND AC＞REF(AC,1) AND C＞=O,H,L,0,1),COLORGREEN;
12 STICKLINE(AO＞REF(AO,1) AND AC＞REF(AC,1) AND C＞=O,C,O,8,1),COLORGREEN;
13 STICKLINE(AO＞REF(AO,1) AND AC＞REF(AC,1) AND C＜O,C,O,8,0),COLORGREEN;
14 STICKLINE(AO＞REF(AO,1) AND AC＞REF(AC,1) AND C＜O,H,L,0,1),COLORGREEN;
15 STICKLINE(AO＜REF(AO,1) AND AC＜REF(AC,1) AND C＞=O,H,L,0,1),COLORRED;
16 STICKLINE(AO＜REF(AO,1) AND AC＜REF(AC,1) AND C＞=O,C,O,8,1),COLORRED;
17 STICKLINE(AO＜REF(AO,1) AND AC＜REF(AC,1) AND C＜O,C,O,8,0),COLORRED;
18 STICKLINE(AO＜REF(AO,1) AND AC＜REF(AC,1) AND C＜O,H,L,0,1),COLORRED;
19 STICKLINE(AO＞REF(AO,1) AND AC＜REF(AC,1) AND C＞=O,H,L,0,1),COLORGRAY;
20 STICKLINE(AO＞REF(AO,1) AND AC＜REF(AC,1) AND C＞=O,C,O,8,1),COLORGRAY;
21 STICKLINE(AO＞REF(AO,1) AND AC＜REF(AC,1) AND C＜O,C,O,8,0),COLORGRAY;
22 STICKLINE(AO＞REF(AO,1) AND AC＜REF(AC,1) AND C＜O,H,L,0,1),COLORGRAY;
23 STICKLINE(AO＜REF(AO,1) AND AC＞REF(AC,1) AND C＞=O,H,L,0,1),COLORGRAY;
24 STICKLINE(AO＜REF(AO,1) AND AC＞REF(AC,1) AND C＞=O,C,O,8,1),COLORGRAY;
25 STICKLINE(AO＜REF(AO,1) AND AC＞REF(AC,1) AND C＜O,C,O,8,0),COLORGRAY;
26 STICKLINE(AO＜REF(AO,1) AND AC＞REF(AC,1) AND C＜O,H,L,0,1),COLORGRAY;
27 {========鳄鱼组线========}
28 AA:=IF(BARSCOUNT(Y)＞=6,SMA(Y,5,1),MA(Y,6));
29 BB:=IF(BARSCOUNT(Y)＞=9,SMA(Y,8,1),MA(Y,9));
30 CC:=IF(BARSCOUNT(Y)＞=14,SMA(Y,13,1),MA(Y,14));
31 绿线:AA,SHIFT3,PRECISION1,COLORGREEN;
32 红线:BB,SHIFT5,PRECISION1,COLORRED;
33 蓝线:CC,SHIFT8,PRECISION1,COLORBLUE;
34 R1:=REF(SMA(Y,8,1),5);
35 {红线}
36 R2:=IF(C＜R1,0,R1);
37 R3:=IF(C＞R1,0,R1);
38 DRAWNUMBER(ISLASTBAR,1.012*R1,R2,1),SHIFT5,COLORRED;
39 DRAWNUMBER(ISLASTBAR,R1,R3,1),SHIFT5,COLORRED;
40 {========AO及AC方向========}
41 DRAWTEXT(ISLASTBAR AND AO＞REF(AO,1) AND AC＞REF(AC,1),1.024*R1,'「↑↑」'),SHIFT5,COLORGREEN;
42 DRAWTEXT(ISLASTBAR AND AO＜REF(AO,1) AND AC＜REF(AC,1),1.024*R1,'「↓↓」'),SHIFT5,COLORRED;
43 DRAWTEXT(ISLASTBAR AND AO＞REF(AO,1) AND AC＜REF(AC,1),1.024*R1,'「↑↓」'),SHIFT5,COLORWHITE;
44 DRAWTEXT(ISLASTBAR AND AO＜REF(AO,1) AND AC＞REF(AC,1),1.024*R1,'「↓↑」'),SHIFT5,COLORWHITE;
45 {========用罗列法寻找分形========}
46 A:=H;A1:=REF(H,1);
47 A2:=REF(H,2);
48 A3:=REF(H,3);
49 A4:=REF(H,4);
50 A5:=REF(H,5);
51 A6:=REF(H,6);
52 A7:=REF(H,7);
53 A8:=REF(H,8);
54 B:=L;
55 B1:=REF(L,1);
56 B2:=REF(L,2);
57 B3:=REF(L,3);
58 B4:=REF(L,4);
59 B5:=REF(L,5);
60 B6:=REF(L,6);
61 B7:=REF(L,7);
62 B8:=REF(L,8);
63 FF1:=A2＞A1 AND A2＞A AND A2＞A3 AND A2＞A4;
64 FF2:=A3=A2 AND A2＞A1 AND A2＞A AND A2＞A4 AND A2＞A5;
65 FF3:=A4=A3 AND A3=A2 AND A2＞A1 AND A2＞A AND A2＞A5 AND A2＞A6;
66 FF4:=A2=A4 AND A2＞A1 AND A2＞A AND A2＞A3 AND A2＞A5 AND A2＞A6;
67 FF44:=A2=A3 AND A2=A4 AND A2=A5 AND A2＞A1 AND A2＞A AND A2＞A6 AND A2＞A7;
68 FF5:=A6=A4 AND A4=A2 AND A2＞A1 AND A2＞A AND A2＞A7 AND A2＞A8 AND A2＞A3 AND A2＞A5;
69 FF6:=B2＜B1 AND B2＜B AND B2＜B3 AND B2＜B4;
70 FF7:=B3=B2 AND B2＜B1 AND B2＜B AND B2＜B4 AND B2＜B5;
71 FF8:=B2=B3 AND B4=B2 AND B2＜B1 AND B2＜B AND B2＜B5 AND B2＜B6;
72 FF9:=B2=B4 AND B2＜B1 AND B2＜B AND B2＜B3 AND B2＜B5 AND B2＜B6;
73 FF99:=B2=B3 AND B2=B4 AND B2=B5 AND B2＜B1 AND B2＜B AND B2＜B6 AND B2＜B7;
74 FF10:=B2=B4 AND B2=B6 AND B2＜B1 AND B2＜B AND B2＜B3 AND B2＜B5 AND B2＜B7 AND B2＜B8;
75 FF11:=FF1 OR FF2 OR FF3 OR FF4 OR FF44 OR FF5;
76 FF12:=FF6 OR FF7 OR FF8 OR FF9 OR FF99 OR FF10;
77 FF13:=BACKSET(FF11,3);
78 FF133:=FILTER(FF13,2);
79 FF14:=BACKSET(FF12,3);
80 FF144:=FILTER(FF14,2);
81 SF:=IF(FF11,A2,REF(A2,BARSLAST(FF11)));
82 XF:=IF(FF12,B2,REF(B2,BARSLAST(FF12)));
83 DRAWICON(FF133 AND H＞R1,1.0001*H,'UPG'),ALIGN0;
84 {=================上分形标志，向上绿箭头}
85 DRAWICON(FF144 AND L＜R1,0.9999*L,'DOR'),ALIGN0;
86 {=================下分形标志，向下红箭头}
87 TJ1:=H＞SF;
88 TJ2:=H＜REF(H,1) AND REF(H,1)＞SF;
89 TJ3:=L＜XF;
90 TJ4:=L＞REF(L,1) AND REF(L,1)＜XF;
91 上分形:IF(TJ1 OR TJ2,0,SF),PRECISION1,COLORYELLOW,LINETHICK0;
92 下分形:IF(TJ3 OR TJ4,0,XF),PRECISION1,COLORWHITE,LINETHICK0;
93 DRAWNUMBER(ISLASTBAR,0.988*R1,上分形,1),SHIFT5,COLORYELLOW;
94 DRAWNUMBER(ISLASTBAR,0.976*R1,下分形,1),SHIFT5,COLORWHITE;
95 TJ5:=IF(H＞SF AND REF(H,1)＜=SF,1,0);
96 TJ52:=IF(H＞SF AND REF(H,1)＜=SF AND REF(H,2)＞SF,0,1);
97 TJ6:=IF(L＜XF AND REF(L,1)＞=XF,1,0);
98 TJ62:=IF(L＜XF AND REF(L,1)＞=XF AND REF(L,2)＜XF,0,1);
99 STICKLINE(TJ5+TJ52=2 AND SF＞R1,SF,1.0002*SF,10,0),COLORYELLOW;
100 {=========上分形突破标志，黄色横线}
101 STICKLINE(TJ6+TJ62=2 AND XF＜R1,XF,0.9998*XF,10,0),COLORWHITE;
102 {==========下分形突破标志，白色横线}
103