C,NODRAW;
VARU:=C>REF(C,1) AND C>REF(C,2);
VARD:=C
CU:=REF(VARD,1) AND VARU; {藍>紅}
CD:=REF(VARU,1) AND VARD; {紅>藍}
{TEST};
DISUP:BARSLAST(VARU),NODRAW,COLORGRAY; {紅突破距離}
DISDN:BARSLAST(VARD) ,NODRAW,COLORGRAY; {藍突破距離}
{UD1:=BARSLAST(VARU||DISUP
DD1:=BARSLAST(VARD||DISUP>DISDN),NODRAW;}
ZZ:=IF(C>REF(C,1),1,IF(CFF1:=IF(ZZ,C,IF(ZZ=0,REF(C,1),0)); {純色頂}
FF2:=IF(ZZ,REF(C,1),IF(ZZ=0,C,0)); {純色底} {老FF勿刪}
TT:=NOT(VARD)&&NOT(VARU),NODRAW,COLORC0C0C0; {開始橫}
TT1:=BARSLAST(TT=0),NODRAW; {累計橫次數}
TTU:=REF(VARU,TT1); {TT1>0&&TTU = UU}
TTD:=REF(VARD,TT1); {TT1>0&&TTD = DD}
UU:TT1>0&&TTU,NODRAW; {紅橫}
DD:TT1>0&&TTD,NODRAW; {藍橫}
DDA:=TT&&DISUP>DISDN,NODRAW,COLORGRAY; {藍橫} {老DD和UU}
UUA:=TT&&DISUP
DD1:=BARSLAST(DD<>1); {累計藍橫次數}
UU1:=BARSLAST(UU<>1); {累計紅橫次數}
DD2:=BARSLAST(DD);
UU2:=BARSLAST(UU);
DUD:=REF(BARSLAST(UU||DD),TT1)+TT1; {上次橫到現在橫的距離}
{連續震 判斷}
F0:=(VARU=REF(VARU,1))||(VARD=REF(VARD,1));
F33:=IF(DISUPF34:=IF(DISUP>DISDN,1,0); {F1 F2增強版}
F35:=IF(UU2F36:=IF(UU2>DD2,1,0);
F3:=(VARU<>REF(VARU,1)||VARD<>REF(VARD,1))&&VARD<>VARU; {另類F3}
{F3:=F33<>REF(F33,1)&&F34<>REF(F34,1); {連續震} {老F3勿刪}
{F3Z:=F1&&F2&&NOT(UU||DD); {連續震開始 已經起碼走了2個}
{F4:=BARSLAST(F3=0); {記錄連續F3累計值}
F4:IF(F3=0&&REF(F3>0,TT1),TT1+REF(BARSLAST(F3=0),TT1),BARSLAST(F3=0)),COLORWHITE,NODRAW; {不依賴F4}
VUP:=REF(VARU||UU,F4),NODRAW; {連震開頭前}
VDN:=REF(VARD||DD,F4),NODRAW; {連震開頭前}
VUP1:=REF(UU,F4),NODRAW; {任何狀態的開頭前一個漲}
VDN1:=REF(DD,F4),NODRAW; {任何狀態的開頭前一個跌}
F5:=IF(REF(VUP,BARSLAST(F4=0)),REF(FF2,BARSLAST(F4=0)),
IF(REF(VDN,BARSLAST(F4=0)),REF(FF1,BARSLAST(F4=0)),0)); {連續震死分界 遇到EX1不會更新}
EX0:=REF(ZZ,F4)=REF(ZZ,F4-1); {第一破跟前面柱子方向一樣}
EX3:=REF(ZZ=-1,F4); {震前平線}
{純色頂底價}
HFF1:=IF((UU||DD)&&ZZ,C,REF(C,1));
HFF2:=IF((UU||DD)&&ZZ=0,C,REF(C,1));
FFA:=ZZ=REF(ZZ,1)&&REF((UU||DD),1);
{FF1:=IF(VARU||VARD,FF1A,IF(UU||DD,HFF1,0));
FF2:=IF(VARU||VARD,FF2A,IF(UU||DD,HFF2,0));}
FF1N:=IF(ZZ,C,IF(FFA&&ZZ=0,MAX(REF(C,2),REF(C,1)),REF(C,1))); {純色頂} {新FF}
FF2N:=IF(ZZ=0,C,IF(FFA&&ZZ,MIN(REF(C,2),REF(C,1)),REF(C,1))); {純色底}
Z1:=IF(VUP,1,0),NODRAW; {紅1 藍0}
Z2:=IF(Z1=0,REF(FF1,F4),0),NODRAW; {藍分界}
Z3:=IF(Z1,REF(FF2,F4),0),NODRAW; {紅分界}
Z4:IF(Z1,Z3,Z2),NODRAW; {分界}
Z4C:FF1>Z4&&FF2
EX0A:=(VARU||VARD)&&REF(Z4C&&TT,1)&&ZZ<>REF(ZZ,1);
EX0B:=EX0A||BARSLAST(EX0A)+1=F4; {橫反破}
EX1A:=(VARU||VARD)&&REF(Z4C&&TT,1)&&ZZ=REF(ZZ,1);
EXC1:=((VARU&&REF(UU,1))||(VARD&&REF(DD,1)))&&REF(Z4C=0&&TT1>1,1)&&ZZ=REF(ZZ,1);
PC1:=(EX1A||BARSLAST(EX1A)+1=F4)||(EXC1||BARSLAST(EXC1)+1=F4);
DHFP:=BARSLAST(EX0B=0);
FF1A:=IF(VARD&&REF(TT,1)&&EX1A=0,REF(FF1,1),FF1);
FF2A:=IF(VARU&&REF(TT,1)&&EX1A=0,REF(FF2,1),FF2);
Z4P1:=IF(DHFP>0,REF(Z4,DHFP),
IF(PC1,REF(C,F4),Z4));
Z4C1:=FF1>Z4P1&&FF2
Z4P:=IF(DHFP>0&&REF(PC1,F4),REF(Z4P1,DHFP),
IF(REF(FF1>Z4P1&&FF2IF(REF(Z4C1=0,F4)&&REF(DD&&FF2>=Z4,F4),REF(FF2,F4),
IF(REF(Z4C1=0,F4)&&REF(UU&&FF1<=Z4,F4),REF(FF1,F4),Z4P1))));
UU3:=UU&&FF1<=Z4P&&ZZ<>-1; {分界下的UU} {藍色UU}
DD3:=DD&&FF2>=Z4P&&ZZ<>-1; {分界上的DD} {紅色DD}
UU4:=(UU||DD)&&FF2>=Z4P; {紅色UUDD}
DD4:=(UU||DD)&&FF1<=Z4P; {藍色UUDD}
Z5P:=IF(BARSLAST(F4=0)>F4&&EX0=0&&REF(ZZ=-1,F4)=0,F5,
IF(EX0&&F4=BARSLAST(EX0=0)&&REF(UU||DD,F4),REF(C,F4),Z4)); {預處理}
Z5F:=BARSLAST(Z5P<>REF(Z5P,1))=BARSLAST(F4=0); {過濾}
Z5:=IF(BARSLAST(EX0=0)+1=F4&&REF(ZZ=-1,F4)=0,REF(Z4,F4),
IF(BARSLAST(EX0=0)=F4&&REF(UU||DD,F4)&&REF(ZZ=-1,F4)=0,REF(C,F4),Z4)); {修復EX1畫線}
{REF((VARU||VARD)&&REF(UU||DD,1)&&EX0=0,F4-1) EX1規則}
{排除}
EX1:=(VARU||VARD)&&REF(Z4C,1)&&ZZ=REF(ZZ,1); {反轉前面有彩色UU/DD 無需補色} {純色}
EX2:=REF(Z4C,1)&&ZZ<>REF(ZZ,1); {反轉前面有彩色UU/DD 需補色}
AC1:=REF(UU3&&Z4C=0,1)&&VARU; {補色規則 反色UU+VARU 補藍色}
AC2:=REF(DD3&&Z4C=0,1)&&VARD;
STICKLINE(REF(DD3=0,1)&&FF1>=Z4P&&FF2STICKLINE(REF(UU3=0,1)&&FF1>Z4P&&FF2
STICKLINE(REF(DD&&Z4C=0&&DD3=0,1)&&VARU&&F4<=1||AC1,REF(FF2,1),REF(FF1,1),2,0),COLORFCE668; {VARU補藍}
STICKLINE(FF1<=Z4P,FF1,FF2,2,0),COLORFCE668; {單色}
STICKLINE(FF2>=Z4P,FF1,FF2,2,1),COLORRED; {單色}
STICKLINE(REF(UU&&Z4C=0&&UU3=0,1)&&VARD&&F4<=1||AC2,REF(FF2,1),REF(FF1,1),2,1),COLORRED; {VARD補紅};
STICKLINE(ZZ=-1&&(DD||REF(Z4C&&(UU||DD)&&ZZ=0,1)),FF1,FF2,2,0),COLORFCE668; {平線}
STICKLINE(ZZ=-1&&(UU||REF(Z4C&&(UU||DD)&&ZZ,1)),FF1,FF2,2,1),COLORRED; {平線}
STICKLINE(REF(ZZ=-1&&DD&&FF1STICKLINE(REF(ZZ=-1&&UU,F4)&&VARD,REF(FF1,1),FF1,2,1),COLORRED; {平線}
{STICKLINE(VARD&&F4<=1&&NOT(EX2),Z4,FF2,2,0),COLORFCE668; {藍}
{STICKLINE(VARU&&F4<=1&&NOT(EX2),FF1,Z4,2,1),COLORRED; {紅};
{STICKLINE(DD4&&REF(CUD=0,2)&&F4>2,FF1,FF2,2,0),COLORFCE668; {DD} {勿刪}
{STICKLINE(UU4&&REF(CUD=0,2)&&F4>2,FF1,FF2,2,1),COLORRED; {UU} {勿刪};
{--------TEST--------}
PB:=(FF1A
PR:=(FF2A>REF(FF1A,1)||FF2A>REF(FF1A,2))&&(VARU||UU);
PA:=PR||PB;
{NC:=IF(PB,FF1,
IF(PR,FF2,
IF(UU&&REF(PR,TT1),FF2,
IF(DD&&REF(PB,TT1),FF1,0))));
{純色新方法};
{IF(REF(Z4C,F4)&&REF(ZZ,F4)<>REF(ZZ,F4-1),REF(Z4,F4),DRAWNULL); {前彩色}
{IF(REF(Z4C=0,F4)&&REF(DD&&FF2>=Z4,F4),REF(FF2,F4),
IF(REF(Z4C=0,F4)&&REF(UU&&FF1<=Z4,F4),REF(FF1,F4),DRAWNULL)); {反色UUDD};
/z4p,f4)&&varu,ref(ff1,1),ff2,2,0),colorfce668;>/z4p1;
/dd2,1,0);>/ref(c,1)>
打印本文
關閉窗口