咨詢內容：
老師修改下，在博弈能用
TT:=240/FROMOPEN;
比:=TT;
J12:=(HIGH - ((HIGH - LOW) / 3));
J23:=(LOW + ((HIGH - LOW) / 3));
AAA:=CONST(HHV(H,90));
BBB:=CONST(LLV(L,100));
MA1:MA(CLOSE,5),LINETHICK0;
MA2:MA(CLOSE,10),LINETHICK0;
MA3:MA(CLOSE,20),LINETHICK0;
MA4:MA(CLOSE,60),LINETHICK0;
MA5:MA(CLOSE,120),LINETHICK0;
DRAWKLINE(H,O,L,C);
T1{早晨之星}:=CONST(IF((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)),1,0));
T2{黃昏之星}:=CONST(IF((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)),1,0));
T3{長十字}:=CONST(IF((CLOSE=OPEN AND HIGH/LOW >1.03),1,0));
T4{垂死十字}:=CONST(IF((CLOSE=OPEN AND CLOSE=LOW AND CLOSE!=HIGH),1,0));
T5{早晨十字星}:=CONST(IF((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)),1,0));
T6{黃昏十字星}:=CONST(IF((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)),1,0));
T7{射擊之星}:=CONST(IF((MIN(OPEN,CLOSE)=LOW AND HIGH-LOW >?
3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5)),1,0));
T8{倒轉錘頭}:=CONST(IF((MIN(OPEN,CLOSE)=LOW AND HIGH-LOW >?
3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5)),1,0));
T9{錘頭}:=CONST(IF((HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW >?
3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5)),1,0));
T10{吊頸}:=CONST(IF((HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW >?
3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE>MA(CLOSE,5)),1,0));
T11{穿頭破腳}:=CONST(IF(((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))),1,0));
T12{烏云蓋頂}:=CONST(IF((REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.97?
AND OPEN>REF(CLOSE,1) AND CLOSE<REF(CLOSE,1)),1,0));
T13{曙光初現}:=CONST(IF((REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03?
AND OPEN<REF(CLOSE,1) AND CLOSE>REF(CLOSE,1)),1,0));
T14{身懷六甲}:=CONST(IF((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))),1,0));
T15{十字胎}:=CONST(IF((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))),1,0));
T16{平頂}:=CONST(IF((ABS(HIGH-REF(HIGH,1))/HIGH<0.001),1,0));
T17{平底}:=CONST(IF(((ABS(LOW-REF(LOW,1))/LOW<0.001 AND ABS(REF(LOW,1)
-REF(LOW,2))/REF(LOW,1)<=0.001)),1,0));
T18{大陽燭}:=CONST(IF((CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018),1,0));
T19{三個白武士}:=CONST(IF((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)),1,0));
T20{雙飛烏鴉}:=CONST(IF((REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN?
AND CLOSE/OPEN<0.98),1,0));
T21{孕育線}:=CONST(IF((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),1,0));
T22{多方炮}:=CONST(IF((REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1)?
AND CLOSE>OPEN),1,0));
T23{出水芙蓉}:=CONST(IF(((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)),1,0));
T24{上升三部曲}:=CONST(IF((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)),1,0));
T25{下跌三部曲}:=CONST(IF(( 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)),1,0));
T26{跳空缺口}:=CONST(IF(HIGH<REF(LOW,1) OR LOW>REF(HIGH,1),1,0));
T27{三只烏鴉}:=CONST(IF((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)),1,0));
T28{光腳陰線}:=CONST(IF((LOW=CLOSE AND HIGH!=LOW),1,0));
T29{光頭陽線}:=CONST(IF((HIGH=CLOSE AND HIGH!=LOW),1,0));
T30{分離}:=CONST(IF((OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)
-REF(OPEN,1))<0),1,0));
T31{長下影}:=CONST(IF(((MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667),1,0));
T32{長上影}:=CONST(IF(((HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667),1,0));
T33{十字星}:=CONST(IF((CLOSE=OPEN AND HIGH!=LOW),1,0));
T34{大陰燭}:=CONST(IF((OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018),1,0));
T35{好友反攻}:=CONST(IF(((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)),1,0));
T36{傾盆大雨}:=CONST(IF((REF(C,1)/REF(O,1)>=1.03 AND O<REF(C,1) AND O
>REF(O,1) AND C<REF(O,1)),1,0));
T37{M9}:=CONST(V*比>REF(V,1) AND MA(V,5)>REF(MA(V,5),1));
T38{M10}:=CONST(V*比<REF(V,1) AND MA(V,5)>REF(MA(V,5),1));
T39{M11}:=CONST(V*比>REF(V,1)AND MA(V,5)<REF(MA(V,5),1));
T40{M12}:=CONST(V*比<REF(V,1)AND MA(V,5)<REF(MA(V,5),1));
T41{M13}:=CONST((((IF((CLOSE = OPEN),1,0) + IF((CLOSE >= J12),1,0)) + IF((CLOSE <= J23),1,0)) > 1));
T42{M14}:=CONST((((AMOUNT / VOL) / 100) > REF(HIGH,1)));
T43{M15}:=CONST((((AMOUNT / VOL) / 100) < REF(LOW,1)));
TS1:=IF(T1=1,0+0.03,0);
TS2:=IF(T2=1,TS1+0.03,TS1);
TS3:=IF(T3=1,TS2+0.03,TS2);
TS4:=IF(T4=1,TS3+0.03,TS3);
TS5:=IF(T5=1,TS4+0.03,TS4);
TS6:=IF(T6=1,TS5+0.03,TS5);
TS7:=IF(T7=1,TS6+0.03,TS6);
TS8:=IF(T8=1,TS7+0.03,TS7);
TS9:=IF(T9=1,TS8+0.03,TS8);
TS10:=IF(T10=1,TS9+0.03,TS9);
TS11:=IF(T11=1,TS10+0.03,TS10);
TS12:=IF(T12=1,TS11+0.03,TS11);
TS13:=IF(T13=1,TS12+0.03,TS12);
TS14:=IF(T14=1,TS13+0.03,TS13);
TS15:=IF(T15=1,TS14+0.03,TS14);
TS16:=IF(T16=1,TS15+0.03,TS15);
TS17:=IF(T17=1,TS16+0.03,TS16);
TS18:=IF(T18=1,TS17+0.03,TS17);
TS19:=IF(T19=1,TS18+0.03,TS18);
TS20:=IF(T20=1,TS19+0.03,TS19);
TS21:=IF(T21=1,TS20+0.03,TS20);
TS22:=IF(T22=1,TS21+0.03,TS21);
TS23:=IF(T23=1,TS22+0.03,TS22);
TS24:=IF(T24=1,TS23+0.03,TS23);
TS25:=IF(T25=1,TS24+0.03,TS24);
TS26:=IF(T26=1,TS25+0.03,TS25);
TS27:=IF(T27=1,TS26+0.03,TS26);
TS28:=IF(T28=1,TS27+0.03,TS27);
TS29:=IF(T29=1,TS28+0.03,TS28);
TS30:=IF(T30=1,TS29+0.03,TS29);
TS31:=IF(T31=1,TS30+0.03,TS30);
TS32:=IF(T32=1,TS31+0.03,TS31);
TS33:=IF(T33=1,TS32+0.03,TS32);
TS34:=IF(T34=1,TS33+0.03,TS33);
TS35:=IF(T35=1,TS34+0.03,TS34);
TS36:=IF(T36=1,TS35+0.03,TS35);
TS37:=IF(T37=1,TS36+0.03,TS36);
TS38:=IF(T38=1,TS37+0.03,TS37);
TS39:=IF(T39=1,TS38+0.03,TS38);
TS40:=IF(T40=1,TS39+0.03,TS39);
TS41:=IF(T41=1,TS40+0.03,TS40);
TS42:=IF(T42=1,TS41+0.03,TS41);
TS43:=IF(T43=1,TS42+0.03,TS42);
DRAWTEXT(T1=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS1),'早晨之星,見底回升‖'),COLORGREEN ;
DRAWTEXT(T2=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS2),'黃昏之星,見頂回落‖'),COLORGREEN ;
DRAWTEXT(T3=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS3),'長十字,重要的警告信號,原趨勢停頓或反轉‖'),COLORGREEN ;
DRAWTEXT(T4=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS4),'垂死十字,下跌信號‖'),COLORGREEN ;
DRAWTEXT(T5=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS5),'早晨十字星,上漲信號,見底回升‖'),COLORGREEN ;
DRAWTEXT(T6=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS6),'黃昏十字星,趨勢停頓或反轉,下跌或,見頂回落‖'),COLORGREEN ;
DRAWTEXT(T7=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS7),'射擊之星,市場頂部就在眼前,可能見頂回落,可靠性低‖'),COLORGREEN ;
DRAWTEXT(T8=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS8),'倒轉錘頭構成一個看漲信號,可能見底回升‖'),COLORGREEN ;
DRAWTEXT(T9=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS9),'錘頭,可能見底回升,如有量配合,信號強烈‖'),COLORGREEN ;
DRAWTEXT(T10=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS10),'吊頸,上升行情中見頂回落,頂部出現,見頂信號‖'),COLORGREEN ;
DRAWTEXT(T11=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS11),'穿頭破腳,頂部出現,見頂回落信號‖'),COLORGREEN ;
DRAWTEXT(T12=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS12),'烏云蓋頂,見頂回落信號‖'),COLORGREEN ;
DRAWTEXT(T13=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS13),'曙光初現,將演化為V型反轉或橫盤。后市見底回升‖'),COLORGREEN ;
DRAWTEXT(T14=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS14),'身懷六甲,底部,是見底回升,頂部,是見頂回落信號‖'),COLORGREEN ;
DRAWTEXT(T15=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS15),'十字胎‖'),COLORYELLOW ;
DRAWTEXT(T16=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS16),'平頂,行情見頂,股價將反轉。但下跌力度較小‖'),COLORYELLOW ;
DRAWTEXT(T17=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS17),'平底,行情探低見底,股價行將反轉上升,但力度較小‖'),COLORYELLOW ;
DRAWTEXT(T18=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS18),'大陽燭,上升中,劇烈地向上攀升。下行中,劇烈地向上反彈
‖'),COLORYELLOW ;
DRAWTEXT(T19=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS19),'三個白武士,每日收盤價上移,表示可能見底回升‖'),COLORYELLOW ;
DRAWTEXT(T20=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS20),'雙飛烏鴉,行情開始疲軟將見頂回落‖'),COLORYELLOW ;
DRAWTEXT(T21=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS21),'孕育線,注意股價位置‖'),COLORYELLOW ;
DRAWTEXT(T22=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS22),'多方炮,底部可能上漲,中間上漲中繼,頂部見頂信號‖'),COLORYELLOW ;
DRAWTEXT(T23=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS23),'出水芙蓉,陽線穿過20、40、60日均線,上攻勢頭初現‖'),COLORYELLOW ;
DRAWTEXT(T24=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS24),'上升三部曲,上漲信號‖'),COLORYELLOW ;
DRAWTEXT(T25=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS25),'下跌三部曲,下跌信號‖'),COLORYELLOW ;
DRAWTEXT(T26=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS26),'跳空缺口,突破盤整,向上漲、向下跌開始‖'),COLORYELLOW ;
DRAWTEXT(T27=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS27),'三只烏鴉站枝頭,可能見頂回落‖'),COLORYELLOW ;
DRAWTEXT(T28=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS28),'光腳陰線,下跌信號‖'),COLORYELLOW ;
DRAWTEXT(T29=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS29),'光頭陽線,多方積極上攻態勢,后市看漲‖'),COLORYELLOW ;
DRAWTEXT(T30=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS30),'分離,注意看漲分離和看跌分離‖'),COLORYELLOW ;
DRAWTEXT(T31=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS31),'長下影,有可能止跌回升,升勢末期,須小心‖'),COLORYELLOW ;
DRAWTEXT(T32=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS32),'長上影,表明行情上檔壓力沉重,升勢受阻‖'),COLORYELLOW ;
DRAWTEXT(T33=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS33),'十字星,重要的警告信號,原趨勢停頓或反轉‖'),COLORYELLOW ;
DRAWTEXT(T34=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS34),'大陰燭,后市向淡,發生逆轉‖'),COLORYELLOW ;
DRAWTEXT(T35=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS35),'好友反攻,跌勢已盡,要展開一段反彈行情‖'),COLORYELLOW ;
DRAWTEXT(T36=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS36),'傾盆大雨,見頂信號‖'),COLORYELLOW ;?
DRAWTEXT(T37=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS37),'今日成交量大于昨日,且有繼續增大趨勢'),COLORYELLOW ;
DRAWTEXT(T38=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS38),'今日成交量小于昨日，但有放大跡象'),COLORYELLOW ;
DRAWTEXT(T39=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS39),'今日成交量大于昨日, 但有縮小跡象'),COLORRED ;
DRAWTEXT(T40=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS40),'今日成交量小于昨日，且有縮小跡象'),COLORRED ;
DRAWTEXT(T41=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS41),'極端行情,在未來的幾日內有85%的機會變更方向'),COLORWHITE ;
DRAWTEXT(T42=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS42),'上漲趨勢'),COLORRED ;
DRAWTEXT(T43=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS43),'下跌趨勢'),COLORGREEN ;
DRAWKLINE(H,O,L,C);
DH:=(((CLOSE-REF(CLOSE,1))/REF(CLOSE,1))*100);
STICKLINE(DH<=-4,(C+O)/2,C,3,0),COLORAA0000;
STICKLINE(DH<=-4,(C+O)/2,C,2,0),COLORCC0000;
STICKLINE(DH<=-4,(C+O)/2,C,1,0),COLOREE0000;
STICKLINE(DH<=-4,(C+O)/2,C,0.5,0),COLORFF0000;
?
?來源:程序化99網（ www.weiqiv.net.cn ）
博易技術人員：
FROMOPEN:=BARSLAST(REF(HOUR,1)=15 AND HOUR<>15);
TT:=240/FROMOPEN;
比:=TT;
J12:=(HIGH - ((HIGH - LOW) / 3));
J23:=(LOW + ((HIGH - LOW) / 3));
AAA:=HHV(H,90);
BBB:=LLV(L,100);
MA1:MA(CLOSE,5),LINETHICK0;
MA2:MA(CLOSE,10),LINETHICK0;
MA3:MA(CLOSE,20),LINETHICK0;
MA4:MA(CLOSE,60),LINETHICK0;
MA5:MA(CLOSE,120),LINETHICK0;
DRAWKLINE(H,O,L,C);
T1{早晨之星}:=IF((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)),1,0);
T2{黃昏之星}:=IF((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)),1,0);
T3{長十字}:=IF((CLOSE=OPEN AND HIGH/LOW >1.03),1,0);
T4{垂死十字}:=IF((CLOSE=OPEN AND CLOSE=LOW AND CLOSE!=HIGH),1,0);
T5{早晨十字星}:=IF((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)),1,0);
T6{黃昏十字星}:=IF((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)),1,0);
T7{射擊之星}:=IF((MIN(OPEN,CLOSE)=LOW AND HIGH-LOW >
3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5)),1,0);
T8{倒轉錘頭}:=IF((MIN(OPEN,CLOSE)=LOW AND HIGH-LOW >
3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5)),1,0);
T9{錘頭}:=IF((HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW >
3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5)),1,0);
T10{吊頸}:=IF((HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW >
3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE>MA(CLOSE,5)),1,0);
T11{穿頭破腳}:=IF(((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))),1,0);
T12{烏云蓋頂}:=(IF((REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.97
AND OPEN>REF(CLOSE,1) AND CLOSE<REF(CLOSE,1)),1,0));
T13{曙光初現}:=(IF((REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03
AND OPEN<REF(CLOSE,1) AND CLOSE>REF(CLOSE,1)),1,0));
T14{身懷六甲}:=(IF((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))),1,0));
T15{十字胎}:=(IF((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))),1,0));
T16{平頂}:=(IF((ABS(HIGH-REF(HIGH,1))/HIGH<0.001),1,0));
T17{平底}:=(IF(((ABS(LOW-REF(LOW,1))/LOW<0.001 AND ABS(REF(LOW,1)
-REF(LOW,2))/REF(LOW,1)<=0.001)),1,0));
T18{大陽燭}:=(IF((CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018),1,0));
T19{三個白武士}:=(IF((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)),1,0));
T20{雙飛烏鴉}:=(IF((REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN
AND CLOSE/OPEN<0.98),1,0));
T21{孕育線}:=(IF((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),1,0));
T22{多方炮}:=(IF((REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1)
AND CLOSE>OPEN),1,0));
T23{出水芙蓉}:=(IF(((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)),1,0));
T24{上升三部曲}:=(IF((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)),1,0));
T25{下跌三部曲}:=(IF(( 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)),1,0));
T26{跳空缺口}:=(IF(HIGH<REF(LOW,1) OR LOW>REF(HIGH,1),1,0));
T27{三只烏鴉}:=(IF((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)),1,0));
T28{光腳陰線}:=(IF((LOW=CLOSE AND HIGH!=LOW),1,0));
T29{光頭陽線}:=(IF((HIGH=CLOSE AND HIGH!=LOW),1,0));
T30{分離}:=(IF((OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)
-REF(OPEN,1))<0),1,0));
T31{長下影}:=(IF(((MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667),1,0));
T32{長上影}:=(IF(((HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667),1,0));
T33{十字星}:=(IF((CLOSE=OPEN AND HIGH!=LOW),1,0));
T34{大陰燭}:=(IF((OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018),1,0));
T35{好友反攻}:=(IF(((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)),1,0));
T36{傾盆大雨}:=(IF((REF(C,1)/REF(O,1)>=1.03 AND O<REF(C,1) AND O
>REF(O,1) AND C<REF(O,1)),1,0));
T37{M9}:=(V*比>REF(V,1) AND MA(V,5)>REF(MA(V,5),1));
T38{M10}:=(V*比<REF(V,1) AND MA(V,5)>REF(MA(V,5),1));
T39{M11}:=(V*比>REF(V,1)AND MA(V,5)<REF(MA(V,5),1));
T40{M12}:=(V*比<REF(V,1)AND MA(V,5)<REF(MA(V,5),1));
T41{M13}:=((((IF((CLOSE = OPEN),1,0) + IF((CLOSE >= J12),1,0)) + IF((CLOSE <= J23),1,0)) > 1));
T42{M14}:=((((AMOUNT / VOL) / 100) > REF(HIGH,1)));
T43{M15}:=((((AMOUNT / VOL) / 100) < REF(LOW,1)));
TS1:=IF(T1=1,0+0.03,0);
TS2:=IF(T2=1,TS1+0.03,TS1);
TS3:=IF(T3=1,TS2+0.03,TS2);
TS4:=IF(T4=1,TS3+0.03,TS3);
TS5:=IF(T5=1,TS4+0.03,TS4);
TS6:=IF(T6=1,TS5+0.03,TS5);
TS7:=IF(T7=1,TS6+0.03,TS6);
TS8:=IF(T8=1,TS7+0.03,TS7);
TS9:=IF(T9=1,TS8+0.03,TS8);
TS10:=IF(T10=1,TS9+0.03,TS9);
TS11:=IF(T11=1,TS10+0.03,TS10);
TS12:=IF(T12=1,TS11+0.03,TS11);
TS13:=IF(T13=1,TS12+0.03,TS12);
TS14:=IF(T14=1,TS13+0.03,TS13);
TS15:=IF(T15=1,TS14+0.03,TS14);
TS16:=IF(T16=1,TS15+0.03,TS15);
TS17:=IF(T17=1,TS16+0.03,TS16);
TS18:=IF(T18=1,TS17+0.03,TS17);
TS19:=IF(T19=1,TS18+0.03,TS18);
TS20:=IF(T20=1,TS19+0.03,TS19);
TS21:=IF(T21=1,TS20+0.03,TS20);
TS22:=IF(T22=1,TS21+0.03,TS21);
TS23:=IF(T23=1,TS22+0.03,TS22);
TS24:=IF(T24=1,TS23+0.03,TS23);
TS25:=IF(T25=1,TS24+0.03,TS24);
TS26:=IF(T26=1,TS25+0.03,TS25);
TS27:=IF(T27=1,TS26+0.03,TS26);
TS28:=IF(T28=1,TS27+0.03,TS27);
TS29:=IF(T29=1,TS28+0.03,TS28);
TS30:=IF(T30=1,TS29+0.03,TS29);
TS31:=IF(T31=1,TS30+0.03,TS30);
TS32:=IF(T32=1,TS31+0.03,TS31);
TS33:=IF(T33=1,TS32+0.03,TS32);
TS34:=IF(T34=1,TS33+0.03,TS33);
TS35:=IF(T35=1,TS34+0.03,TS34);
TS36:=IF(T36=1,TS35+0.03,TS35);
TS37:=IF(T37=1,TS36+0.03,TS36);
TS38:=IF(T38=1,TS37+0.03,TS37);
TS39:=IF(T39=1,TS38+0.03,TS38);
TS40:=IF(T40=1,TS39+0.03,TS39);
TS41:=IF(T41=1,TS40+0.03,TS40);
TS42:=IF(T42=1,TS41+0.03,TS41);
TS43:=IF(T43=1,TS42+0.03,TS42);
CURRBARSCOUNT:=DATACOUNT-BARPOS;
DRAWTEXT(T1=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS1),'早晨之星,見底回升‖'),COLORGREEN ;
DRAWTEXT(T2=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS2),'黃昏之星,見頂回落‖'),COLORGREEN ;
DRAWTEXT(T3=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS3),'長十字,重要的警告信號,原趨勢停頓或反轉‖'),COLORGREEN ;
DRAWTEXT(T4=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS4),'垂死十字,下跌信號‖'),COLORGREEN ;
DRAWTEXT(T5=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS5),'早晨十字星,上漲信號,見底回升‖'),COLORGREEN ;
DRAWTEXT(T6=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS6),'黃昏十字星,趨勢停頓或反轉,下跌或,見頂回落‖'),COLORGREEN ;
DRAWTEXT(T7=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS7),'射擊之星,市場頂部就在眼前,可能見頂回落,可靠性低‖'),COLORGREEN ;
DRAWTEXT(T8=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS8),'倒轉錘頭構成一個看漲信號,可能見底回升‖'),COLORGREEN ;
DRAWTEXT(T9=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS9),'錘頭,可能見底回升,如有量配合,信號強烈‖'),COLORGREEN ;
DRAWTEXT(T10=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS10),'吊頸,上升行情中見頂回落,頂部出現,見頂信號‖'),COLORGREEN ;
DRAWTEXT(T11=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS11),'穿頭破腳,頂部出現,見頂回落信號‖'),COLORGREEN ;
DRAWTEXT(T12=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS12),'烏云蓋頂,見頂回落信號‖'),COLORGREEN ;
DRAWTEXT(T13=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS13),'曙光初現,將演化為V型反轉或橫盤。后市見底回升‖'),COLORGREEN ;
DRAWTEXT(T14=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS14),'身懷六甲,底部,是見底回升,頂部,是見頂回落信號‖'),COLORGREEN ;
DRAWTEXT(T15=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS15),'十字胎‖'),COLORYELLOW ;
DRAWTEXT(T16=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS16),'平頂,行情見頂,股價將反轉。但下跌力度較小‖'),COLORYELLOW ;
DRAWTEXT(T17=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS17),'平底,行情探低見底,股價行將反轉上升,但力度較小‖'),COLORYELLOW ;
DRAWTEXT(T18=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS18),'大陽燭,上升中,劇烈地向上攀升。下行中,劇烈地向上反彈‖'),COLORYELLOW ;
DRAWTEXT(T19=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS19),'三個白武士,每日收盤價上移,表示可能見底回升‖'),COLORYELLOW ;
DRAWTEXT(T20=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS20),'雙飛烏鴉,行情開始疲軟將見頂回落‖'),COLORYELLOW ;
DRAWTEXT(T21=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS21),'孕育線,注意股價位置‖'),COLORYELLOW ;
DRAWTEXT(T22=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS22),'多方炮,底部可能上漲,中間上漲中繼,頂部見頂信號‖'),COLORYELLOW ;
DRAWTEXT(T23=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS23),'出水芙蓉,陽線穿過20、40、60日均線,上攻勢頭初現‖'),COLORYELLOW ;
DRAWTEXT(T24=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS24),'上升三部曲,上漲信號‖'),COLORYELLOW ;
DRAWTEXT(T25=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS25),'下跌三部曲,下跌信號‖'),COLORYELLOW ;
DRAWTEXT(T26=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS26),'跳空缺口,突破盤整,向上漲、向下跌開始‖'),COLORYELLOW ;
DRAWTEXT(T27=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS27),'三只烏鴉站枝頭,可能見頂回落‖'),COLORYELLOW ;
DRAWTEXT(T28=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS28),'光腳陰線,下跌信號‖'),COLORYELLOW ;
DRAWTEXT(T29=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS29),'光頭陽線,多方積極上攻態勢,后市看漲‖'),COLORYELLOW ;
DRAWTEXT(T30=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS30),'分離,注意看漲分離和看跌分離‖'),COLORYELLOW ;
DRAWTEXT(T31=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS31),'長下影,有可能止跌回升,升勢末期,須小心‖'),COLORYELLOW ;
DRAWTEXT(T32=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS32),'長上影,表明行情上檔壓力沉重,升勢受阻‖'),COLORYELLOW ;
DRAWTEXT(T33=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS33),'十字星,重要的警告信號,原趨勢停頓或反轉‖'),COLORYELLOW ;
DRAWTEXT(T34=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS34),'大陰燭,后市向淡,發生逆轉‖'),COLORYELLOW ;
DRAWTEXT(T35=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS35),'好友反攻,跌勢已盡,要展開一段反彈行情‖'),COLORYELLOW ;
DRAWTEXT(T36=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS36),'傾盆大雨,見頂信號‖'),COLORYELLOW ;
DRAWTEXT(T37=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS37),'今日成交量大于昨日,且有繼續增大趨勢'),COLORYELLOW ;
DRAWTEXT(T38=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS38),'今日成交量小于昨日，但有放大跡象'),COLORYELLOW ;
DRAWTEXT(T39=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS39),'今日成交量大于昨日, 但有縮小跡象'),COLORRED ;
DRAWTEXT(T40=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS40),'今日成交量小于昨日，且有縮小跡象'),COLORRED ;
DRAWTEXT(T41=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS41),'極端行情,在未來的幾日內有85%的機會變更方向'),COLORWHITE ;
DRAWTEXT(T42=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS42),'上漲趨勢'),COLORRED ;
DRAWTEXT(T43=1 AND CURRBARSCOUNT=58,AAA-(AAA*TS43),'下跌趨勢'),COLORGREEN ;
DRAWKLINE(H,O,L,C);
DH:=(((CLOSE-REF(CLOSE,1))/REF(CLOSE,1))*100);
STICKLINE(DH<=-4,(C+O)/2,C,3,0),COLORAA0000;
STICKLINE(DH<=-4,(C+O)/2,C,2,0),COLORCC0000;
STICKLINE(DH<=-4,(C+O)/2,C,1,0),COLOREE0000;
STICKLINE(DH<=-4,(C+O)/2,C,0.5,0),COLORFF0000;
來源 程序化久久網
打印本文
關閉窗口