打印本文
關閉窗口
?
?來源:程序化99
改寫參考：
?
早晨之星:=REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND
CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);
黃昏之星:=REF(CLOSE,2)/REF(OPEN,2) > 1.03 AND REF(OPEN,1) > REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.02 AND
CLOSE/OPEN<0.97 AND CLOSE<REF(CLOSE,2);
長十字:=CLOSE=OPEN AND HIGH/LOW >1.03;
垂死十字:=CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH;
早晨十字星:=REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND
CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);
黃昏十字星:=REF(CLOSE,2)/REF(OPEN,2) > 1.05 AND REF(OPEN,1) > REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND
CLOSE/OPEN<0.95 AND CLOSE<REF(CLOSE,2);
射擊之星:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5);
倒轉錘頭:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5);
錘頭:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5);
吊頸:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE>MA(CLOSE,5);
穿頭破腳:=(REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.96 AND CLOSE<REF(OPEN,1) AND OPEN>REF(CLOSE,1))
OR (REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.04 AND CLOSE>REF(OPEN,1) AND OPEN<REF(CLOSE,1));
烏云蓋頂:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.97 AND OPEN>REF(CLOSE,1) AND CLOSE<REF(CLOSE,1);
曙光初現:=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPEN<REF(CLOSE,1) AND CLOSE>REF(CLOSE,1);
身懷六甲:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 AND ABS(CLOSE-OPEN)/CLOSE<0.005 AND
MAX(CLOSE,OPEN) < MAX(REF(CLOSE,1),REF(OPEN,1)) AND MIN(CLOSE,OPEN) > MIN(REF(CLOSE,1),REF(OPEN,1));
十字胎:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 AND CLOSE=OPEN AND
CLOSE < MAX(REF(CLOSE,1),REF(OPEN,1)) AND CLOSE > MIN(REF(CLOSE,1),REF(OPEN,1));
平頂:=ABS(HIGH-REF(HIGH,1))/HIGH<0.001;
平底:=(ABS(LOW-REF(LOW,1))/LOW<0.001 AND ABS(REF(LOW,1)-REF(LOW,2))/REF(LOW,1)<=0.001);
大陽燭:=CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018;
紅三兵:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND CLOSE>OPEN
AND REF(CLOSE,1)>REF(CLOSE,2) AND CLOSE>REF(CLOSE,1);
雙飛烏鴉:=REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98;
孕育線:=REF(CLOSE,2)>REF(OPEN,2) AND (REF(CLOSE,2)-REF(OPEN,2))/REF(OPEN,2)>=2/100 AND REF(OPEN,1)>=REF(CLOSE,1) AND
(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<=2/100 AND REF(OPEN,1)<=REF(CLOSE,2) AND REF(CLOSE,1)>=REF(OPEN,2) AND C>=OPEN AND
(CLOSE-OPEN)/OPEN>=2/100 AND CLOSE>=REF(OPEN,1) AND OPEN<=REF(CLOSE,1) AND (MAX(CLOSE,REF(C,2))-MIN(CLOSE,REF(CLOSE,2)))/MIN(CLOSE,REF(CLOSE,2))<=1/100;
多方炮:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN;
出水芙蓉:=(OPEN<EMA(C,20) OR OPEN<EMA(C,40) OR OPEN<EMA(C,60)) AND (C>MAX(EMA(C,20),MAX(EMA(C,40),EMA(C,60))))
AND (V/MA(V,30)>1.2 AND C/REF(C,1)>1.049);
上升三部曲:=REF(CLOSE,4)/REF(OPEN,4)>1.03 AND REF(CLOSE,3)<REF(OPEN,3) AND REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND
REF(LOW,4)<REF(LOW,3) AND REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND
REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN>1.03 AND CLOSE>REF(CLOSE,4);
下跌三部曲:= REF(CLOSE,4)/REF(OPEN,4)<0.97 AND REF(CLOSE,3)>REF(OPEN,3) AND REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND
REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN<0.97 AND
CLOSE<REF(CLOSE,4);
跳空缺口:=HIGH<REF(LOW,1) OR LOW>REF(HIGH,1);
三只烏鴉:=REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND REF(CLOSE,1)<REF(CLOSE,2) AND CLOSE<REF(CLOSE,1);
光腳陰線:=LOW=CLOSE AND HIGH<>LOW;
光頭陽線:=HIGH=CLOSE AND HIGH<>LOW;
分離:=OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0;
長下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667;
長上影:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667;
十字星:=CLOSE=OPEN AND HIGH<>LOW;
大陰燭:=OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018;
好友反攻:=(REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002)
OR (REF(CLOSE,1)>REF(OPEN,1) AND CLOSE<OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002);
傾盆大雨:=REF(C,1)/REF(O,1)>=1.03 AND O<REF(C,1) AND O>REF(O,1) AND C<REF(O,1);
DRAWNUMBER1(長下影 OR 長上影 OR 傾盆大雨,H+H*0.02,IF(長上影,長上影,IF(長下影,長下影,傾盆大雨)),0),COLORBLUE;
DRAWNUMBER1(黃昏之星 OR 早晨之星,IF(早晨之星,H,L),IF(黃昏之星,IF(十字星,黃昏十字星,黃昏之星),IF(十字星,早晨十字星,早晨之星)),0),COLORGREEN;
DRAWNUMBER1(大陰燭 OR 大陽燭 OR 十字星,IF(大陰燭,L,H),IF(大陰燭,大陰燭,IF(大陽燭,大陽燭,十字星)),0),COLORCYAN;
DRAWNUMBER1(下跌三部曲 OR 上升三部曲 OR 長十字,H+H*0.03,IF(下跌三部曲,下跌三部曲,IF(上升三部曲,上升三部曲,長十字)),0),COLORRED;
DRAWNUMBER1(光腳陰線 OR 光頭陽線 OR 跳空缺口,O,IF(光腳陰線,光腳陰線,IF(光頭陽線,光頭陽線,跳空缺口)),0),COLORMAGENTA;
DRAWNUMBER1(紅三兵 OR 三只烏鴉 OR 分離,L+L*0.03,IF(紅三兵,紅三兵,IF(三只烏鴉,三只烏鴉,分離)),0);
//{三只烏鴉}
DRAWTEXT(紅三兵 ,L+L*0.03,'三兵',COLORMAGENTA;
//{紅三兵COLORLIRED}
DRAWNUMBER1(烏云蓋頂 OR 曙光初現 OR 好友反攻,IF(烏云蓋頂,H,L-L*0.01),IF(烏云蓋頂,'云蓋頂'IF(曙光初現,'光初現''友反攻'),0),COLORGRAY;
DRAWNUMBER1(射擊之星 OR 吊頸 OR 十字胎,IF(射擊之星,H,L),IF(射擊之星,'擊之星'IF(吊頸,'頸''字胎'),0),COLORBLUE;
DRAWNUMBER1(錘頭 OR 倒轉錘頭 OR 孕育線,IF(錘頭,H,L),IF(錘頭,'頭'IF(倒轉錘頭,'轉錘頭''育線'),0),COLORGREEN;
DRAWNUMBER1(平頂 OR 平底,IF(平頂,H,L),IF(平底,'底''頂',0),COLORCYAN;
DRAWNUMBER1(穿頭破腳 OR 身懷六甲 OR 雙飛烏鴉,IF(穿頭破腳,L,H+H*0.05),IF(穿頭破腳,'頭破腳'IF(身懷六甲,'懷六甲''飛烏鴉'),0),COLORRED;
DRAWNUMBER1(多方炮 OR 出水芙蓉,L-L*0.0005,IF(多方炮,'方炮''水芙蓉',0),COLORYELLOW;
墓碑十字星:=H/MAX(C,O)>=1.04 AND MIN(C,O)/L<=1.003 AND BETWEEN(MAX(C,O)/MIN(C,O),1.005,1.001);
吊頸線:=H/MAX(C,O)<=1.008 AND L/MIN(C,O)<=0.97 AND BETWEEN(MAX(C,O)/MIN(C,O),1.005,1.001);
STICKLINE(墓碑十字星,O,O+(C-O)/3,4,0),COLOR0000FF;
STICKLINE(吊頸線,O,O+(C-O)/3,4,0),COLOR008800;
DRAWTEXT(墓碑十字星,L,'墓碑',COLORWHITE;
DRAWTEXT(吊頸線,H*1.007,'吊頸',COLORWHITE;
搓揉線:=(REF(H,1)-MAX(REF(C,1),REF(O,1)))/(REF(H,1)-REF(L,1))>0.6
AND (MIN(O,C)-L)/(H-L)>0.6;
DRAWTEXT(搓揉線,H*1.007,'搓揉線',COLORWHITE;