首先感谢冷妞妞老师提供的两个原码.感谢注册111老师的帮助.我自己完成金子塔个人感觉还可以.发出来共享希望各位老师在优化.同时也感谢帮助和指导过我的老师和朋友祝福大家发财
X:=30;
D:=60;
M5:=EMA(C,X);
M10:=EMA(C,D);
T:=BARSLAST(CROSS(M5,M10));
ST:=BARSLAST(CROSS(M10,M5));
T1:=SUMBARS(T=0,2);
T2:=SUMBARS(T=0,3);
ST1:=SUMBARS(ST=0,2);
ST2:=SUMBARS(ST=0,3);
H1:=IF(CONST(M5) CONST(M10),HHV(H,T+1),REF(HHV(H,T+1),ST));
L1:=IF(CONST(M5) CONST(M10),LLV(L,ST+1),REF(LLV(L,ST+1),T));
H2:=IF(CONST(M5) CONST(M10),REF(HHV(H,T+1),ST),REF(HHV(H,T+1),ST1-1));
L2:=IF(CONST(M5) CONST(M10),REF(LLV(L,ST+1),T),REF(LLV(L,ST+1),T1-1));
H3:=IF(CONST(M5) CONST(M10),REF(HHV(H,T+1),ST1-1),REF(HHV(H,T+1),ST2-1));
L3:=IF(CONST(M5) CONST(M10),REF(LLV(L,ST+1),T1-1),REF(LLV(L,ST+1),T2-1));
TJ1:=CONST(M5) CONST(M10) AND CURRBARSCOUNT =CONST(T2) AND CURRBARSCOUNT =CONST(ST2) AND L=CONST(L3);
TJ2:=CONST(M5) CONST(M10) AND CURRBARSCOUNT =CONST(ST1) AND CURRBARSCOUNT =CONST(T2) AND H=CONST(H3);
TJ3:=CONST(M5) CONST(M10) AND CURRBARSCOUNT =CONST(T1) AND CURRBARSCOUNT =CONST(ST1) AND L=CONST(L2);
TJ4:=CONST(M5) CONST(M10) AND CURRBARSCOUNT =CONST(ST) AND CURRBARSCOUNT =CONST(T1) AND H=CONST(H2);
TJ5:=CONST(M5) CONST(M10) AND CURRBARSCOUNT =CONST(T)+1 AND CURRBARSCOUNT =CONST(ST)+1 AND L=CONST(L1);
TJ6:=CONST(M5) CONST(M10) AND H=CONST(H1) AND CURRBARSCOUNT =CONST(ST2);
TJ7:=CONST(M5) CONST(M10) AND CURRBARSCOUNT =CONST(ST2) AND CURRBARSCOUNT =CONST(T2) AND H=CONST(H3);
TJ8:=CONST(M5) CONST(M10) AND CURRBARSCOUNT =CONST(T1) AND CURRBARSCOUNT =CONST(ST2) AND L=CONST(L3);
TJ9:=CONST(M5) CONST(M10) AND CURRBARSCOUNT =CONST(ST1) AND CURRBARSCOUNT =CONST(T1) AND H=CONST(H2);
TJ10:=CONST(M5) CONST(M10) AND CURRBARSCOUNT =CONST(T) AND CURRBARSCOUNT =CONST(ST1) AND L=CONST(L2);
TJ11:=CONST(M5) CONST(M10) AND CURRBARSCOUNT =CONST(ST)+1 AND CURRBARSCOUNT =CONST(T)+1 AND H=CONST(H1);
TJ12:=CONST(M5) CONST(M10) AND L=CONST(L1)AND CURRBARSCOUNT =CONST(T2);
DRAWLINE(TJ1,L,TJ2,H,0),COLORMAGENTA;
DRAWLINE(TJ2,H,TJ3,L,0),COLORMAGENTA;
DRAWLINE(TJ3,L,TJ4,H,0),COLORMAGENTA;
DRAWLINE(TJ4,H,TJ5,L,0),COLORMAGENTA;
DRAWLINE(TJ5,L,TJ6,H,0),COLORMAGENTA;
DRAWLINE(TJ7,H,TJ8,L,0),COLORGREEN;
DRAWLINE(TJ8,L,TJ9,H,0),COLORGREEN;
DRAWLINE(TJ9,H,TJ10,L,0),COLORGREEN;
DRAWLINE(TJ10,L,TJ11,H,0),COLORGREEN;
DRAWLINE(TJ11,H,TJ12,L,0),COLORGREEN;
HH:=CONST(MAX(MAX(H1,H2),H3));
LL:=CONST(MIN(MIN(L1,L2),L3));
Z:=(HH-LL)/2+LL;
DRAWLINE(TJ7,Z,ISLASTBAR,Z,0),COLORGREEN,DOTLINE;
DRAWTEXT(TJ7,CONST(Z)*1.01,VARCAT(VARCAT('中区价位:',VAR2STR(CONST(Z),2)),'元')),COLORGREEN;
HH1:=CONST(MAX(H1,MAX(H2,H3)));
LL1:=CONST(MIN(MIN(L1,L2),L3));
Z1:=(HH1-LL1)/2+LL1;
DRAWLINE(TJ1,Z1,ISLASTBAR,Z1,0),COLORMAGENTA,DOTLINE;
DRAWTEXT(TJ1,CONST(Z)*1.01,VARCAT(VARCAT('中区价位:',VAR2STR(CONST(Z1),2)),'元')),COLORMAGENTA;
LT:=BARSLAST(L=LLV(L,120));
CT:=CONST(LT)+1;
HT:=FINDHIGHBARS(H,CT,CT,1);
{HH:=FINDHIGH(H,CT,CT,1);
LL:=CONST(REF(L,LT));}
QD:=CURRBARSCOUNT=CT*2;
ZD:=CURRBARSCOUNT=CT;
DRAWLINE(QD,CONST(HH),ISLASTBAR,CONST(HH),0),COLORYELLOW;
DRAWLINE(QD,CONST(HH),ZD,LL,0),COLORYELLOW;
DRAWLINE(ZD,LL,ISLASTBAR,CONST(HH),0),COLORYELLOW;
KT的
X:=30;
D:=60;
M5:=EMA(C,X);
M10:=EMA(C,D);
T:=BARSLAST(CROSS(M5,M10));
ST:=BARSLAST(CROSS(M10,M5));
T1:=SUMBARS(T=0,2);
T2:=SUMBARS(T=0,3);
ST1:=SUMBARS(ST=0,2);
ST2:=SUMBARS(ST=0,3);
H1:=IF(refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS),HHV(H,T+1),REF(HHV(H,T+1),ST));
L1:=IF(refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS),LLV(L,ST+1),REF(LLV(L,ST+1),T));
H2:=IF(refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS),REF(HHV(H,T+1),ST),REF(HHV(H,T+1),ST1-1));
L2:=IF(refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS),REF(LLV(L,ST+1),T),REF(LLV(L,ST+1),T1-1));
H3:=IF(refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS),REF(HHV(H,T+1),ST1-1),REF(HHV(H,T+1),ST2-1));
L3:=IF(refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS),REF(LLV(L,ST+1),T1-1),REF(LLV(L,ST+1),T2-1));
TJ1:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T2,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST2,DATACOUNT-BARPOS) AND L=refx(L3,DATACOUNT-BARPOS);
TJ2:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST1,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T2,DATACOUNT-BARPOS) AND H=refx(H3,DATACOUNT-BARPOS);
TJ3:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T1,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST1,DATACOUNT-BARPOS) AND L=refx(L2,DATACOUNT-BARPOS);
TJ4:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T1,DATACOUNT-BARPOS) AND H=refx(H2,DATACOUNT-BARPOS);
TJ5:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T,DATACOUNT-BARPOS)+1 AND DATACOUNT-BARPOS+1 =refx(ST,DATACOUNT-BARPOS)+1 AND L=refx(L1,DATACOUNT-BARPOS);
TJ6:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND H=refx(H1,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST2,DATACOUNT-BARPOS);
TJ7:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST2,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T2,DATACOUNT-BARPOS) AND H=refx(H3,DATACOUNT-BARPOS);
TJ8:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T1,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST2,DATACOUNT-BARPOS) AND L=refx(L3,DATACOUNT-BARPOS);
TJ9:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST1,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T1,DATACOUNT-BARPOS) AND H=refx(H2,DATACOUNT-BARPOS);
TJ10:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST1,DATACOUNT-BARPOS) AND L=refx(L2,DATACOUNT-BARPOS);
TJ11:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST,DATACOUNT-BARPOS)+1 AND DATACOUNT-BARPOS+1 =refx(T,DATACOUNT-BARPOS)+1 AND H=refx(H1,DATACOUNT-BARPOS);
TJ12:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND L=refx(L1,DATACOUNT-BARPOS)AND DATACOUNT-BARPOS+1 =refx(T2,DATACOUNT-BARPOS);
DRAWLINE(TJ1,L,TJ2,H,0),COLORMAGENTA;
DRAWLINE(TJ2,H,TJ3,L,0),COLORMAGENTA;
DRAWLINE(TJ3,L,TJ4,H,0),COLORMAGENTA;
DRAWLINE(TJ4,H,TJ5,L,0),COLORMAGENTA;
DRAWLINE(TJ5,L,TJ6,H,0),COLORMAGENTA;
DRAWLINE(TJ7,H,TJ8,L,0),COLORGREEN;
DRAWLINE(TJ8,L,TJ9,H,0),COLORGREEN;
DRAWLINE(TJ9,H,TJ10,L,0),COLORGREEN;
DRAWLINE(TJ10,L,TJ11,H,0),COLORGREEN;
DRAWLINE(TJ11,H,TJ12,L,0),COLORGREEN;
HH:=refx(MAX(MAX(H1,H2),H3),DATACOUNT-BARPOS);
LL:=refx(MIN(MIN(L1,L2),L3),DATACOUNT-BARPOS);
Z:=(HH-LL)/2+LL;
DRAWLINE(TJ7,Z,ISLASTBAR,Z,0),COLORGREEN,LINEDOT;
DRAWTEXT(TJ7,refx(Z,DATACOUNT-BARPOS)*1,'中区价位:'+NUMTOSTR(refx(Z,DATACOUNT-BARPOS),2)+'元'),COLORGREEN;
HH1:=refx(MAX(H1,MAX(H2,H3)),DATACOUNT-BARPOS);
LL1:=refx(MIN(MIN(L1,L2),L3),DATACOUNT-BARPOS);
Z1:=(HH1-LL1)/2+LL1;
DRAWLINE(TJ1,Z1,ISLASTBAR,Z1,0),COLORMAGENTA,LINEDOT;
DRAWTEXT(TJ1,refx(Z1,DATACOUNT-BARPOS)*1,'中区价位:'+NUMTOSTR(refx(Z1,DATACOUNT-BARPOS),2)+'元'),COLORMAGENTA;
LT:=BARSLAST(L=LLV(L,120));
CT:=refx(LT,DATACOUNT-BARPOS)+1;
HT:=FINDHIGHBARS(H,CT,CT,1);
HH:=FINDHIGH(H,CT,CT,1);
LL:=refx(REF(L,LT),DATACOUNT-BARPOS);
QD:=DATACOUNT-BARPOS+1=CT*2;
ZD:=DATACOUNT-BARPOS+1=CT;
DRAWLINE(QD,refx(HH,DATACOUNT-BARPOS),ISLASTBAR,refx(HH,DATACOUNT-BARPOS),0),COLORYELLOW;
DRAWLINE(QD,refx(HH,DATACOUNT-BARPOS),ZD,LL,0),COLORYELLOW;
DRAWLINE(ZD,LL,ISLASTBAR,refx(HH,DATACOUNT-BARPOS),0),COLORYELLOW;
AA:=EMA(C,5) EMA(C,20);
BB:=EMA(C,5) EMA(C,20);
CC:= EMA(C,5) EMA(C,10);
CC1:=EMA(C,5) EMA(C,10);
DD:=C
STICKLINE(AA,H,L,0,0),COLORRED;
STICKLINE(AA,O,C,8,1),COLORRED;
STICKLINE(AA AND DD,O,C,8,0),COLORRED;
STICKLINE(BB,H,L,0,0),COLORGREEN;
STICKLINE(BB,O,C,8,1),COLORGREEN;
STICKLINE(BB AND DD,O,C,8,0),COLORGREEN;
STICKLINE(BB AND CC,H,L,0,1),COLORWHITE;
STICKLINE(BB AND CC,O,C,8,1),COLORWHITE;
STICKLINE(BB AND CC AND DD,O,C,8,0),COLORWHITE;
STICKLINE(AA AND CC1,H,L,0,0),COLORWHITE;
STICKLINE(AA AND CC1,O,C,8,1),COLORWHITE;
STICKLINE(AA AND CC1 AND DD,O,C,8,0),COLORWHITE;
金字塔
X:=30;
D:=60;
M5:=EMA(C,X);
M10:=EMA(C,D);
T:=BARSLAST(CROSS(M5,M10));
ST:=BARSLAST(CROSS(M10,M5));
T1:=SUMBARS(T=0,2);
T2:=SUMBARS(T=0,3);
ST1:=SUMBARS(ST=0,2);
ST2:=SUMBARS(ST=0,3);
H1:=IF(refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS),HHV(H,T+1),REF(HHV(H,T+1),ST));
L1:=IF(refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS),LLV(L,ST+1),REF(LLV(L,ST+1),T));
H2:=IF(refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS),REF(HHV(H,T+1),ST),REF(HHV(H,T+1),ST1-1));
L2:=IF(refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS),REF(LLV(L,ST+1),T),REF(LLV(L,ST+1),T1-1));
H3:=IF(refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS),REF(HHV(H,T+1),ST1-1),REF(HHV(H,T+1),ST2-1));
L3:=IF(refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS),REF(LLV(L,ST+1),T1-1),REF(LLV(L,ST+1),T2-1));
TJ1:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T2,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST2,DATACOUNT-BARPOS) AND L=refx(L3,DATACOUNT-BARPOS);
TJ2:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST1,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T2,DATACOUNT-BARPOS) AND H=refx(H3,DATACOUNT-BARPOS);
TJ3:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T1,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST1,DATACOUNT-BARPOS) AND L=refx(L2,DATACOUNT-BARPOS);
TJ4:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T1,DATACOUNT-BARPOS) AND H=refx(H2,DATACOUNT-BARPOS);
TJ5:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T,DATACOUNT-BARPOS)+1 AND DATACOUNT-BARPOS+1 =refx(ST,DATACOUNT-BARPOS)+1 AND L=refx(L1,DATACOUNT-BARPOS);
TJ6:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND H=refx(H1,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST2,DATACOUNT-BARPOS);
TJ7:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST2,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T2,DATACOUNT-BARPOS) AND H=refx(H3,DATACOUNT-BARPOS);
TJ8:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T1,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST2,DATACOUNT-BARPOS) AND L=refx(L3,DATACOUNT-BARPOS);
TJ9:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST1,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T1,DATACOUNT-BARPOS) AND H=refx(H2,DATACOUNT-BARPOS);
TJ10:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(T,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST1,DATACOUNT-BARPOS) AND L=refx(L2,DATACOUNT-BARPOS);
TJ11:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND DATACOUNT-BARPOS+1 =refx(ST,DATACOUNT-BARPOS)+1 AND DATACOUNT-BARPOS+1 =refx(T,DATACOUNT-BARPOS)+1 AND H=refx(H1,DATACOUNT-BARPOS);
TJ12:=refx(M5,DATACOUNT-BARPOS) refx(M10,DATACOUNT-BARPOS) AND L=refx(L1,DATACOUNT-BARPOS)AND DATACOUNT-BARPOS+1 =refx(T2,DATACOUNT-BARPOS);
DRAWLINE(TJ1,L,TJ2,H,0),COLORMAGENTA;
DRAWLINE(TJ2,H,TJ3,L,0),COLORMAGENTA;
DRAWLINE(TJ3,L,TJ4,H,0),COLORMAGENTA;
DRAWLINE(TJ4,H,TJ5,L,0),COLORMAGENTA;
DRAWLINE(TJ5,L,TJ6,H,0),COLORMAGENTA;
DRAWLINE(TJ7,H,TJ8,L,0),COLORGREEN;
DRAWLINE(TJ8,L,TJ9,H,0),COLORGREEN;
DRAWLINE(TJ9,H,TJ10,L,0),COLORGREEN;
DRAWLINE(TJ10,L,TJ11,H,0),COLORGREEN;
DRAWLINE(TJ11,H,TJ12,L,0),COLORGREEN;
HH:=refx(MAX(MAX(H1,H2),H3),DATACOUNT-BARPOS);
LL:=refx(MIN(MIN(L1,L2),L3),DATACOUNT-BARPOS);
Z:=(HH-LL)/2+LL;
DRAWLINE(TJ7,Z,ISLASTBAR,Z,0),COLORGREEN,LINEDOT;
DRAWTEXT(TJ7,refx(Z,DATACOUNT-BARPOS)*1,'中区价位:'+NUMTOSTR(refx(Z,DATACOUNT-BARPOS),2)+'元'),COLORGREEN;
HH1:=refx(MAX(H1,MAX(H2,H3)),DATACOUNT-BARPOS);
LL1:=refx(MIN(MIN(L1,L2),L3),DATACOUNT-BARPOS);
Z1:=(HH1-LL1)/2+LL1;
DRAWLINE(TJ1,Z1,ISLASTBAR,Z1,0),COLORMAGENTA,LINEDOT;
DRAWTEXT(TJ1,refx(Z1,DATACOUNT-BARPOS)*1,'中区价位:'+NUMTOSTR(refx(Z1,DATACOUNT-BARPOS),2)+'元'),COLORMAGENTA;
HT:=BARSLAST(H=HHV(H,100));
LT:=BARSLAST(L=LLV(L,100));
CT:=refx(HT,DATACOUNT-BARPOS)+1;
HH:=refx(REF(H,HT),DATACOUNT-BARPOS);
LL:=refx(REF(L,LT),DATACOUNT-BARPOS);
QD:=DATACOUNT-BARPOS-1=CT*2;
ZD:=DATACOUNT-BARPOS-1=CT;
DRAWLINE(QD,refx(HH,DATACOUNT-BARPOS),ISLASTBAR,refx(HH,DATACOUNT-BARPOS),0),COLORYELLOW;
DRAWLINE(QD,refx(HH,DATACOUNT-BARPOS),ZD,LL,0),COLORYELLOW;
DRAWLINE(ZD,LL,ISLASTBAR,refx(HH,DATACOUNT-BARPOS),0),COLORYELLOW;
AA:=EMA(C,5) EMA(C,20);
BB:=EMA(C,5) EMA(C,20);
CC:= EMA(C,5) EMA(C,10);
CC1:=EMA(C,5) EMA(C,10);
DD:=C
STICKLINE(AA,H,L,0,0),COLORRED;
STICKLINE(AA,O,C,9,1),COLORRED;
STICKLINE(AA AND DD,O,C,9,0),COLORRED;
STICKLINE(BB,H,L,0,0),COLORGREEN;
STICKLINE(BB,O,C,9,1),COLORGREEN;
STICKLINE(BB AND DD,O,C,9,0),COLORGREEN;
STICKLINE(BB AND CC,H,L,0,1),COLORWHITE;
STICKLINE(BB AND CC,O,C,9,1),COLORWHITE;
STICKLINE(BB AND CC AND DD,O,C,9,0),COLORWHITE;
STICKLINE(AA AND CC1,H,L,0,0),COLORWHITE;
STICKLINE(AA AND CC1,O,C,9,1),COLORWHITE;
STICKLINE(AA AND CC1 AND DD,O,C,9,0),COLORWHITE;