大智慧上升通道短線預(yù)警指標(biāo)公式源碼

作者：大智慧來(lái)源：cxh99.com 發(fā)布時(shí)間：2013年04月19日

相關(guān)標(biāo)簽: 融勝超級(jí)短線預(yù)警指標(biāo) 、短線王股票預(yù)警系統(tǒng) 、融勝超級(jí)短線預(yù)警系統(tǒng) 、短線狙擊手預(yù)警源碼、短線漲停股票預(yù)警系統(tǒng) 、融勝短線預(yù)警、薛斯通道2預(yù)警、薛斯通道預(yù)警選股公式、薛斯通道上穿預(yù)警、

大智慧上升通道短線預(yù)警指標(biāo)公式源碼

INPUT:M(5,1,250,1);均線:(MA(CLOSE,M) * 1),LINETHICK2,COLORYELLOW;DRAWGBKLAST(1,STRIP(RGB(10,10,50),RGB(50,10,10),0));
MA3:MA(CLOSE,3); MA4:MA(CLOSE,4);MA10:MA(C,10),COLORE66878;
警報(bào):=CROSS(MA4,MA3);DRAWTEXT(警報(bào),H*1.05,'↓'),LINETHICK6,ALIGN1,COLORFFFFFF;安全:=CROSS(MA3,MA4);DRAWTEXT(安全,L*0.95,'↑'),LINETHICK6,ALIGN1,colorRED;
SD:=HHV(HIGH,13)=HIGH AND HIGH>ref(HIGH,1);
a:="LTFunc5@FORLT2";
s1:="LTFunc5@LT_S1";
hs:="LTFunc5@LT_HS";
ls:="LTFunc5@LT_LS";
p1:="LTFunc5@LT_P1";
upp:="LTFunc5@LT_UPP";
udd:=LTFunc5@LT_UDD;
{hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd};
買入:p1=1 and ref(p1,1)=0,LINETHICK0,Precis0,ColorRed;
d1:=eMA(ABS("ddx.ddx"),60);
d2:=MAx("ddx.ddx"/d1+7.5,7.5);
d3:=min("ddx.ddx"/d1,10);
fb:=if(s1=0,hs,ls);
tr0:=ifs(p1=1,'明日收盤價(jià)<'+numtostrn(udd,2)+',出現(xiàn)S點(diǎn)\n','若明日收盤價(jià)>'+numtostrn(upp,2)+',出現(xiàn)B點(diǎn)\n');
tr1:=ifs(s1=1,'明日收盤價(jià)<'+numtostrn(ls,2)+',短線賣出機(jī)會(huì)','若明日收盤價(jià)>'+numtostrn(hs,2)+'短線買入機(jī)會(huì)');
tr2:=ifs(p1=1,ifs(cross(p1,0),'B點(diǎn)','持股'),ifs(cross(1,p1),'S點(diǎn)','持幣'));
tr3:=ifs(s1=0,'向下,','向上,');
tr4:='3.能量級(jí)別:'+numtostrn(d3,1)+'級(jí)';
bs:=''+datestr(date)+'買賣點(diǎn)決策系統(tǒng)提示\n'+'1.BS點(diǎn):'+tr2+','+tr0+'2.短線:'+tr3+tr1+'\n'+tr4;
drawflagtext(1,fb,bs);
STICKLINE(p1=1 and c>=o and o<>0,c,o,d2,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,c,o,7.5,0),colorblack;
STICKLINE(p1=1 and c>=o and o<>0,c,c,7.5,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,o,o,7.5,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,o,c,7.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,o,c,7.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,l,c,0.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,h,o,0.5,1),color5454ff;
STICKLINE((p1<>1 or barsCOUNT(c)<3) and c>=o,c,o,7.5,1),colorffff54;
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.tumamayizhan.com',CURRENTTIME>180000 and CXH=5);
DRAWTEXTREL(10 ,10 ,'指標(biāo)公式');
STICKLINE((p1<>1 or barsCOUNT(c)<3) and c>=o,c,h,0.5,1),colorffff54;
STICKLINE((p1<>1 or barsCOUNT(c)<3) and c>=o,l,o,0.5,1),colorffff54;
drawbmp(p1=1 and ref(p1,1)=0,l,'buy1.bmp'),align1,valign0;
drawbmp(p1=0 and ref(p1,1)=1,h,'sell1.bmp'),align1,valign2;
drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,'bs.bmp'),align1,valign0;
drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,'ss.bmp'),align1,valign2; SD1:=FILTER(SD,12);
SF:=LLV(LOW,13)=LOW AND LOW<ref(LOW,1);
SF1:=FILTER(SF,12);
AA1:=MA(CLOSE,20);
AA2:=(CLOSE > MA(CLOSE,5));
AA3:=(MA(CLOSE,5) > MA(CLOSE,10));
AA4:=(CLOSE > MA(CLOSE,10));
AA5:=(MA(CLOSE,5) > MA(CLOSE,20));
AA6:=(CLOSE > MA(CLOSE,20));
AA7:=ref(AA1,1);
AA8:=(AA1 > AA7);
AAX:=(((((IF(AA2,10,(0 - 10)) + IF(AA3,10,(0 - 10))) + IF(AA4,10,(0 - 10))) + IF(AA5,10,(0 - 10))) + IF(AA6,10,(0 - 10))) + IF(AA8,10,(0 - 10)));
DSLX:=(CLOSE / INDEXC); {內(nèi)容來(lái)至程序化交易網(wǎng) CXH99.COM}
DSLX1:=MA(DSLX,5);
DSLX2:=MA(DSLX,10);
V1:=MA(VOL,5);
V2:=MA(VOL,10);
T := BARSLAST(DISPSTATUS=1)+1;
IF BARSTATUS=2 and c<200 and ((CROSS(AAX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'的量能理想，有明顯走強(qiáng)跡象，可以考慮中線進(jìn)場(chǎng)參與，倉(cāng)位在2/3左右。'),colorRED,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(AAX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'雖然走勢(shì)趨強(qiáng)，但量能還顯不足，可以考慮短線進(jìn)場(chǎng)，倉(cāng)位在1/2左右。'),colorYELLOW,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(AAX,1) AND (V1 > V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'量?jī)r(jià)配合良好，但相對(duì)其它股票并沒(méi)有明顯走強(qiáng)，可以考慮短線進(jìn)場(chǎng)，倉(cāng)位1/2左右。'),colorYELLOW,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(AAX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'形態(tài)尚可，但量能不足，股票也未完全走強(qiáng)，可以短線參與，倉(cāng)位1/3左右。'),colorYELLOW,LINETHICK1,ALIGN1; {本文來(lái)至CXH99.COM}
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'形態(tài)變壞，但走勢(shì)相對(duì)其它股票尚可，重倉(cāng)者減持大半，清倉(cāng)者可以觀望。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'隨大盤一起下跌，呈明顯縮量走勢(shì)，考慮到大盤風(fēng)險(xiǎn)，減持或清倉(cāng)。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'放量下跌，走勢(shì)明顯偏弱，離場(chǎng)觀望。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'縮量下跌，走勢(shì)偏弱，離場(chǎng)觀望。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX >= 1) AND (ref(AAX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'形態(tài)良好，強(qiáng)勢(shì)明顯，量能充足，可以繼續(xù)持有。'),colorRED,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX >= 1) AND (ref(AAX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'上行趨勢(shì)不變，強(qiáng)勢(shì)依然，但量能開始轉(zhuǎn)弱，注意風(fēng)險(xiǎn)。'),colorRED,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX >= 1) AND (ref(AAX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'仍然具備上漲潛力，但股性偏弱，可考慮減倉(cāng)。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX >= 1) AND (ref(AAX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'走勢(shì)趨弱，量能不足，減持大部分籌碼。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX < 1) AND (ref(AAX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'形態(tài)不佳，注意成交量的變化，但目前不適合參與。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX < 1) AND (ref(AAX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'趨勢(shì)不明，股價(jià)偏弱，注意量能變化，目前不宜參與。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX < 1) AND (ref(AAX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'有走強(qiáng)跡象，但量能不足，趨勢(shì)不明，不適合操作。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX < 1) AND (ref(AAX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'走勢(shì)太弱，沒(méi)有參與價(jià)值。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'大盤量能理想，有明顯走強(qiáng)跡象，可以考慮中線進(jìn)場(chǎng)參與，倉(cāng)位在2/3左右，'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'如前期經(jīng)過(guò)一輪下跌，此時(shí)為最佳買點(diǎn)，但如果前期有過(guò)一段漲幅則介入需謹(jǐn)慎。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 < V2)) THEN
DRAWTEXTREL(500,20,'大盤雖然走勢(shì)趨強(qiáng)，但量能還顯不足，如果前期經(jīng)過(guò)一輪下跌，'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 < V2)) THEN
DRAWTEXTREL(500,20,'可以考慮短線進(jìn)場(chǎng)，倉(cāng)位在1/2左右，一旦量能放大可以加倉(cāng)買入。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(1,AAX) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'大盤形態(tài)走壞，重倉(cāng)者可以減去大部分倉(cāng)位。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(1,AAX) AND (V1 < V2)) THEN
DRAWTEXTREL(500,20,'大盤縮量調(diào)整，注意風(fēng)險(xiǎn)，短線清倉(cāng)觀望。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX >= 1) AND (ref(AAX,1) > 0)) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'大盤走勢(shì)良好，量能理想，可以繼續(xù)持有強(qiáng)勢(shì)股。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX >= 1) AND (ref(AAX,1) > 0)) AND (V1 < V2)) THEN
DRAWTEXTREL(500,20,'大盤形態(tài)良好，但量能稍顯不足，隨時(shí)準(zhǔn)備減倉(cāng)。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX < 1) AND (ref(AAX,1) < 0)) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'大盤趨勢(shì)不明，注意成交量變化，目前不適宜進(jìn)場(chǎng)。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX < 1) AND (ref(AAX,1) < 0)) AND (V1 < V2)) THEN
DRAWTEXTREL(500,20,'大盤趨勢(shì)向下，量能萎縮，不適合進(jìn)場(chǎng)。'),color8000FF,LINETHICK1,ALIGN1;
MA20:=MA(C,20);
MA40:=MA(C,40);
MA60:=MA(C,60);
BIAS:=(C-MA20)/MA20*100;
SHOPEN:=OPEN;
SHHIGH:=HIGH;
SHLOW:=LOW;
SHCLOSE:=CLOSE;
SHAMOUNT:=AMOUNT;
SHVOL:=VOL;
J12:=(HIGH - ((HIGH - LOW) / 3));
J23:=(LOW + ((HIGH - LOW) / 3));
t1:=(((IF((CLOSE = OPEN),1,0) + IF((CLOSE >= J12),1,0)) + IF((CLOSE <= J23),1,0)) > 1);
t2:=((((CLOSE > J23) AND (CLOSE < J12)) AND (OPEN > J23)) AND (OPEN < J12));
t3:=((CLOSE >= J12) AND (OPEN <= J23));
t4:=(((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE > J12));
t5:=(((OPEN <= J23) AND (CLOSE <= J12)) AND (CLOSE >= J23));
t6:=((CLOSE <= J23) AND (OPEN >= J12));
t7:=(((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE < J23));
t8:=(((OPEN >= J12) AND (CLOSE <= J12)) AND (CLOSE >= J23));
t9:=(((SHAMOUNT / SHVOL) / 100) > ref(HIGH,1));
t10:=(((SHAMOUNT / SHVOL) / 100) < ref(LOW,1));
if DISPSTATUS=2 then begin;
GP:='';
if t9>0then GP:=GP+'上漲趨勢(shì)。';
if t10>0then GP:=GP+'下跌趨勢(shì)。';
if t1>0then GP:=GP+'極端行情,在未來(lái)的幾日內(nèi)有85%的機(jī)會(huì)變更方向。';
if t2>0then GP:=GP+'中性行情,多空雙方都未能取得當(dāng)日行情主動(dòng)性的控制權(quán)';
if t3>0then GP:=GP+'爬升行情,整個(gè)交易期間都有買方主導(dǎo)。';
if t4>0then GP:=GP+'爬升行情,信息很少,但收盤期間是買方主導(dǎo),其他未知。';
if t5>0then GP:=GP+'爬升行情,買方把收盤價(jià)拉升到開盤價(jià)之上,賣方也在盤中主導(dǎo)一段行情,但不知道是誰(shuí)主導(dǎo)最后的行情。';
if t6>0then GP:=GP+'漂流行情,整個(gè)交易期間都有賣方主導(dǎo)。';
if t7>0then GP:=GP+'漂流行情,信息很少,但收盤期間是賣方主導(dǎo),其他未知。';
if t8>0then GP:=GP+'漂流行情,賣方把收盤價(jià)壓至到開盤價(jià)之下,買方也在盤中主導(dǎo)一段行情,但不知道是誰(shuí)主導(dǎo)最后的行情。';
if MA20>=MA60 AND CROSS(MA40,MA60) then GP:=GP+'形成季托，待股價(jià)回落到20天均線或40天均線時(shí)介入，20天均價(jià)為:'+MA20+'，40天均價(jià)為:'+MA40+' 。';
if BIAS>9.5 AND (C-ref(C,1))/ref(C,1)*100<9.8 then GP:=GP+'短線漲幅過(guò)大，有整理要求。';
if MA20>=MA60 AND H>=MA20 AND L<=MIN(MA40,MA60) AND C>O AND C>ref(C,1) then GP:=GP+'芙蓉出水，趨勢(shì)向好。';
if BIAS<-18 AND (C-ref(C,1))/ref(C,1)*100>-9.8 then GP:=GP+'股價(jià)嚴(yán)重超跌，有爆發(fā)要求。';
if BIAS<-7 AND ALL(CLOSE<OPEN,5) then GP:=GP+'連收五陰，超跌有反彈要求。';
if ABS(HIGH-ref(HIGH,1))/HIGH<0.001 then GP:=GP+'平頂，該高點(diǎn)有一定阻力。';
if ABS(LOW-ref(LOW,1))/LOW<0.001 and ABS(ref(LOW,1)-ref(LOW,2))/ref(LOW,1)<=0.00 then GP:=GP+'平底，該低點(diǎn)有一定支撐。';
if CLOSE=OPEN ANDHIGH<>CLOSE and LOW<>CLOSE and HIGH/LOW > 1.03 then GP:=GP+' 長(zhǎng)十字，多空激爭(zhēng) 前途未明。';
if OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018 then GP:=GP+' 大陰燭，今日空方有絕對(duì)優(yōu)勢(shì)。';
if ref(CLOSE,1)<ref(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98 then GP:=GP+'雙飛烏鴉，多頭力竭，行情走軟。';
if (MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667 then GP:=GP+'長(zhǎng)下影，下檔支撐強(qiáng)或空方試探進(jìn)攻。';
if (HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667 then GP:=GP+'長(zhǎng)上影，上檔阻力大或多方試探進(jìn)攻。';
if CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH then GP:=GP+'垂死十字，在頂部時(shí)重要表強(qiáng)力多頭開始疲軟。';
if HIGH=CLOSE AND HIGH<>LOW then GP:=GP+'光頭陽(yáng)線，今日尾盤多方氣盛，行情可能延續(xù)到明天。';
if (HIGH<ref(LOW,1) OR LOW>ref(HIGH,1)) then GP:=GP+'跳空缺口，當(dāng)日未補(bǔ)，有與跳空同向進(jìn)行，上漲欲望強(qiáng)烈，三日內(nèi)為回補(bǔ)觀察期。';
if LOW=CLOSE AND HIGH<>LOW then GP:=GP+'赤腳陰線，尾盤空方勝。注意股價(jià)下跌延續(xù)至次日。';
if CLOSE=OPEN AND HIGH<>CLOSE and LOW<>CLOSE and HIGH <>CLOSE then GP:=GP+'十字星，警告信號(hào)。原趨勢(shì)停頓或反轉(zhuǎn)，依上下影線長(zhǎng)度判后市。';
if CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018 then GP:=GP+'大陽(yáng)燭，上升行情中意味行情劇烈向上攀升；下跌行情中意味行情劇烈向上反彈。';
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) THEN
GP:=GP+'早晨十字 - 如同晨星。從看空平衡到看漲轉(zhuǎn)強(qiáng)；左右跳空曰棄嬰。';
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) THENGP:=GP+'上升三部曲，空方賣壓被吸納。趨勢(shì)易順勢(shì)走漲。';
IF (ref(HIGH,2) -ref(o,2))/ref(HIGH,2)<=0.0003 AND (c-LOW)/o<=0.0003 AND ref(c,2)<ref(o,2) AND ref(c,2)>ref(o,1) AND ref(c,1)>o AND ref(c,1)<ref(o,1) AND ref(HIGH,1)-ref(o,1)>0 AND ref(LOW,1)-ref(c,1)<0 AND HIGH-o>0 AND ref(c,2)-ref(LOW,2)>0 THENGP:=GP+'三胎烏鴉，多頭走勢(shì)被扭轉(zhuǎn)。黑K價(jià)愈深量愈大，跳空愈大，反轉(zhuǎn)信號(hào)愈強(qiáng)。';
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)) THEN
GP:=GP+'友好反攻 - 陰(陽(yáng))線結(jié)合，極線多方跳空向下(跳空向上)后反彈有企穩(wěn)跡象。';
IF CLOSE<>OPEN and MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5) THEN
GP:=GP+'射擊之星 - 如伴大量上遇阻力，有短期見(jiàn)頂可能，股價(jià)轉(zhuǎn)疲。';
IF ref(CLOSE,1)-ref(OPEN,1)<0 AND CLOSE-OPEN>0 AND OPEN-ref(CLOSE,1)<0 AND CLOSE<ref(OPEN,1) AND CLOSE>ref(CLOSE,1) AND CLOSE>(ref(CLOSE,1)+ref(OPEN,1))/2 THEN {文章來(lái)至程序化交易網(wǎng) cxh99.com}
GP:=GP+'貫穿線，多頭力道的反撲或是空單回補(bǔ)力道。長(zhǎng)陰線之后開低收在昨天1/2之上，為多頭反轉(zhuǎn)信號(hào)。';
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)) THEN
GP:=GP+'身懷六甲 - 陰(陽(yáng))懷陽(yáng)(陰)，怪異的走勢(shì)，顯示該股行情可能轉(zhuǎn)向。若量由大轉(zhuǎn)縮，下跌趨勢(shì)更明確。';
IF (ref(c,1)-ref(o,1)<0 AND c-o>0 AND c>ref(o,1) AND o<ref(c,1)) THEN
GP:=GP+'需量能配合量。 ';
IF ((ref(c,2)-ref(o,2)>0 AND (ABS(ref(c,2)-ref(o,2)))/(ABS(ref(c,3)-ref(o,3)))>2.4 AND ABS(c-o)>3 AND ABS(ref(c,2)-ref(o,2))>(ABS(ref(c,1)-ref(o,1))) AND ref(c,1)-ref(o,1)>0 AND c-o<0 AND ref(o,1) >ref(c,2) AND o<ref(o,1) AND c<ref(c,2) AND c>ref(o,2)) OR (ref(c,2)-ref(o,2)>0 AND (ABS(ref(c,2)-ref(o,2)))/(ABS(ref(c,3)-ref(o,3)))>2.4 AND ABS(c-o)>3 AND (ABS(ref(c,2)-ref(o,2)))>(ABS(ref(c,1)-ref(o,1))) AND ref(c,1)-ref(o,1)<0 AND c-o<0 AND ref(c,1) >ref(c,2)AND c<ref(c,2) AND c>ref(o,2) AND o<ref(c,1))) THEN {本文來(lái)至CXH99.COM}
GP:=GP+'夜星 - 從看多平衡到看空轉(zhuǎn)弱，轉(zhuǎn)空。 ';
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)) THEN
GP:=GP+'十字胎 - 似身懷六甲，轉(zhuǎn)向可能性更大，量縮觀望為宜。';
IF ref(c,1)<ref(o,1) AND c-o>0 AND c>ref(H,1) AND o<ref(L,1) and ref(O,1)>ref(MAx(O,C),2) and ref(C,1)>ref(min(O,C),2) and ref(MAx(O,C),2)>ref(MAx(O,C),3) THEN
GP:=GP+' 雙人殉情 - 在上升趨勢(shì)中最后之空頭吞噬，也就是所謂的不見(jiàn)長(zhǎng)紅不回頭。 ';
IF (ref(c,1)-ref(o,1)>0 AND c-o<0 AND c<ref(o,1) AND o>ref(c,1)) THEN
GP:=GP+'陰線吞噬，陰包陽(yáng)，向空反轉(zhuǎn)。 ';
IF ref(CLOSE,1)/ref(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPEN<ref(CLOSE,1) AND CLOSE>ref(CLOSE,1) THEN GP:=GP+'曙光，與烏云蓋頂相反，行情將演化為V型反轉(zhuǎn)或止跌橫盤趨勢(shì) 。';
IF (ref(c,1)-ref(o,1)<0 AND c-o>0 AND c<ref(o,1) AND o>ref(c,1)) THEN
GP:=GP+'多頭孕育線，陰育陽(yáng)。多頭反轉(zhuǎn)可能。';
IF (ref(c,1)-ref(o,1)>0 AND (ABS(ref(c,1)-ref(o,1)))/(ABS(ref(c,2)-ref(o,2)))>2.4 AND c-o<0 AND c>ref(o,1) AND ref(c,1)-o>2) THEN
GP:=GP+'空頭孕育線，陽(yáng)育陰。看空。';
IF (ref(c,1)-ref(o,1)<0 AND c-o<0 AND c>ref(c,1) AND o<ref(o,1) AND o-c <6) THEN
GP:=GP+'空頭孕育線，陰育陰。看空。';
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) THEN
GP:=GP+'三只烏鴉 - 強(qiáng)烈轉(zhuǎn)空趨勢(shì)，陰線越深量越大越易下跌。';
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) THEN
GP:=GP+'下跌三部曲，多方弱勢(shì)不堪一擊，趨勢(shì)易順勢(shì)走跌。';
IF ref(CLOSE,4)/ref(OPEN,4)>1.02 AND ref(CLOSE,3)<ref(OPEN,3) AND ref(CLOSE,2)<ref(OPEN,2) AND ref(CLOSE,1)<ref(OPEN,1) AND ref(CLOSE,4)<=ref(CLOSE,3) AND ref(HIGH,2)<ref(HIGH,3) AND ref(LOW,2)>=ref(OPEN,4) AND ref(HIGH,1)<ref(CLOSE,4) AND ref(LOW,1)>ref(OPEN,4) AND CLOSE/OPEN>1.01 AND OPEN>=ref(OPEN,1) AND CLOSE>=ref(HIGH,3) THEN
GP:=GP+'連續(xù)型態(tài)之執(zhí)墊，比上升三法更具多頭意義。';
IF ref(O,1)/ref(C,1) > 1.05 AND ref(H,1)/ref(L,1) < ref(O,1)/ref(C,1)+0.018 and C>O and O<ref(L,1) and C=ref(L,1) THEN
GP:=GP+'頸上線 - 下降趨勢(shì)。若第二天大量，維持原趨勢(shì)的可能性大增。';
IF (ref(c,1)-ref(o,1)>0 AND (ABS(ref(c,1)-ref(o,1)))/(ABS(ref(c,2)-ref(o,2)))>2.5 AND c-o<0 AND c>ref(o,1) AND c<(ref(CLOSE,1)+ref(OPEN,1))/2 AND o>ref(c,1)) THEN
GP:=GP+'烏云罩頂 - 上漲遇重大阻力。空頭聚力。';
IF (ref(c,1)-ref(o,1)>0 AND c-o<0 AND c<ref(o,1) AND o>ref(c,1)) THEN
GP:=GP+'最后吞噬 - 在下降趨勢(shì)中為一陰一陽(yáng)組合，多頭吞噬；在上升趨勢(shì)中為一陽(yáng)一陰組合，空頭吞噬。';
IF ref(OPEN,1)<>ref(CLOSE,1) and 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) THEN
GP:=GP+'晨星 - 多方勢(shì)盛變盤信號(hào)';
IF MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5) THENGP:=GP+' 倒轉(zhuǎn)槌頭 - 高位拋壓或低位多空爭(zhēng)執(zhí)';
IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5) THENGP:=GP+'槌頭 - 下影線有多頭意義。在下降趨勢(shì)之后看漲。注意反彈賣壓。';
IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE > MA(CLOSE,5) THENGP:=GP+'吊頸線 - 高檔看跌。';
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))) THEN
GP:=GP+' 穿頭破腳 - 若第一根K為陰(陽(yáng)) 表強(qiáng)勁上漲(下跌)力量。';
IF ref(OPEN,1)<>ref(CLOSE,1) and 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) THEN
GP:=GP+'黃昏之星 - 空方勢(shì)盛。反轉(zhuǎn)信號(hào)，跳空成棄嬰。';
IF ref(CLOSE,2)>ref(OPEN,2) AND (ref(CLOSE,2)-ref(OPEN,2))/ref(OPEN,2)>=2/100AND 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 THENGP:=GP+'二陽(yáng)夾一陰，必須從后續(xù)的走勢(shì)來(lái)研判。';
IF OPEN=ref(OPEN,1) AND (CLOSE-OPEN)*(ref(CLOSE,1)-ref(OPEN,1))<0 THEN
GP:=GP+' 分離 - 兩日開盤相同一陰一陽(yáng) 變盤前徹底整理。';
IF ((O>C and OPEN>MA(C,5) and OPEN>MA(C,10) and O>MA(C,20) and CLOSE<MA(C,5) and CLOSE<MA(C,10) and CLOSE<MA(C,20)) OR (O<C and OPEN<MA(C,5) and OPEN<MA(C,10) and O<MA(C,20) and CLOSE>MA(C,5) and CLOSE>MA(C,10) and CLOSE>MA(C,20))) THEN GP:=GP+'斷頭鍘刀(出水芙蓉) -一根大陰(陽(yáng))線切斷了三根均線如果改變了其后均線的排列為空頭(多頭)排列后勢(shì)看空(多) 。';
end;
TIPTEXT(DISPSTATUS=2,0,GP);

{支撐壓力}
gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);
明日阻力:=l+(gj-l)+(c-l);
明日支撐:=l+(c-gj);
明日阻力:=l+(gj-l)+(c-l);
明日支撐:=l+(c-gj);
今日阻力:=ref(明日阻力 , 1);
今日支撐:=ref(明日支撐 , 1);
STICKLINE(DISPSTATUS=2and c>=今日阻力,今日阻力,今日阻力,30,0),Color0000FF;
STICKLINE(DISPSTATUS=2and c<今日阻力,今日阻力,今日阻力,30,0),Color00FF00;
STICKLINE(DISPSTATUS=2and c>=今日支撐,今日支撐,今日支撐,30,0),ColorFF00FF;
STICKLINE(DISPSTATUS=2and c<今日支撐,今日支撐,今日支撐,30,0),ColorFF0000;
下檔線:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
aRSV:=SMA(下檔線,3,1);
aK:=SMA(aRSV,3,1);
aD:=((3 * aRSV) - (2 * aK));
aJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
aRSV24:=SMA(aJ12,3,1);
aK24:=SMA(aRSV24,3,1);
aD24:=((3 * aRSV24) - (2 * aK24));
撐壓位:=IF(CROSS(aD24,aD),HIGH,ref(HIGH,BARSLAST(CROSS(aD24,aD)))){,LINETHICK2,COLORFFFFFF};
底:=LLV(HIGH,30){,COLOR00FF00,LINETHICK2};
STICKLINE(BARSTATUS=2 ,撐壓位,撐壓位,30,1),LINETHICK1,COLORFFFFFF;
DRAWTEXT(BARSTATUS=2 ,撐壓位,' 撐壓'),COLORFFFFFF,VALIGN1;
STICKLINE(BARSTATUS=2 ,底,底,30,1),COLOR00FF00,LINETHICK1;
DRAWTEXT(BARSTATUS=2 ,底,' 底線'),COLOR00FF00,VALIGN0;{43}
DRAWGBK(c,'7' );
Var3:=LLV(H,240);
Var4:=100*(C-Var3)/Var3;
Var5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100;
Var6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100;
{Var7:=0;}
Var8:=MA(HHV(C-ref(C,1),0),34)/MA(ABS(C-ref(C,1)),7)*100;
Var9:=MA(HHV(C-ref(C,1),0),13)/MA(ABS(C-ref(C,1)),13)*100;
VarA:=BARSCOUNT(C);
VarB:=Var8<20 AND Var9<23 AND VarA>35;
VarC:=VarB AND COUNT(VarB,1)=1;
VarD:=EMA(C,21)-EMA(C,8);
VarE:=EMA(VarD,5);
VarF:=TROUGH(3,6,1)<4 AND CROSS(VarD,VarE);
Var10:=IF(TROUGH(3,16,1)=0 AND H>L+0.04,4,0);
Var11:=ZIG(3,6)>ref(ZIG(3,6),1) AND ref(ZIG(3,6),1)<=ref(ZIG(3,6),2) AND ref(ZIG(3,6),2)<=ref(ZIG(3,6),3);
Var12:=ZIG(3,6)<ref(ZIG(3,6),1)AND ref(ZIG(3,6),1)>=ref(ZIG(3,6),2) AND ref(ZIG(3,6),2)>=ref(ZIG(3,6),3);
Var13:=ZIG(3,22)>ref(ZIG(3,22),1)AND ref(ZIG(3,22),1)<=ref(ZIG(3,22),2)AND ref(ZIG(3,22),2)<=ref(ZIG(3,22),3);
Var14:=ZIG(3,22)<ref(ZIG(3,22),1)AND ref(ZIG(3,22),1)>=ref(ZIG(3,22),2)AND ref(ZIG(3,22),2)>=ref(ZIG(3,22),3); {本文來(lái)至CXH99.COM}
Var15:=ZIG(3,51)>ref(ZIG(3,51),1)AND ref(ZIG(3,51),1)<=ref(ZIG(3,51),2) AND ref(ZIG(3,51),2)<=ref(ZIG(3,51),3);
Var16:=ZIG(3,51)<ref(ZIG(3,51),1)AND ref(ZIG(3,51),1)>=ref(ZIG(3,51),2)AND ref(ZIG(3,51),2)>=ref(ZIG(3,51),3);
Var17:=ZIG(3,72)>ref(ZIG(3,72),1) AND ref(ZIG(3,72),1)<=ref(ZIG(3,72),2)AND ref(ZIG(3,72),2)<=ref(ZIG(3,72),3);
Var18:=ZIG(3,72)<ref(ZIG(3,72),1) AND ref(ZIG(3,72),1)>=ref(ZIG(3,72),2)AND ref(ZIG(3,72),2)>=ref(ZIG(3,72),3);
Var19:=EMA(C,2)-EMA(C,150);
Var1A:=EMA(Var19,100);
Var1B:=2*(Var19-Var1A);
Var1C:=POW(Var1B,3)*0.1+POW(Var1B,1);
Var1D:=SQRT(SQRT(L*H*O*C));
Var1E:=EMA(Var1D*0.97,3);
Var1F:=(H+L+C)/3;
Var20:=(Var1F-MA(Var1F,14))/(0.015*AVEDEV(Var1F,14));
Var21:=CROSS(Var1E,L);
買點(diǎn)1:=Var10;
買點(diǎn)2:=(Var11+Var13+Var15+Var17);
賣點(diǎn)1:=(Var12+Var14+Var16+Var18);
Var22:=買點(diǎn)1 AND VarF AND VarC AND Var21 AND Var4<0AND Var5=0 AND Var6=0 AND Var20<(-110);
DRAWTEXT(買點(diǎn)1>0,L-0.15,'B'),LINETHICK4,ALIGN1,colorred;{B}
DRAWTEXT(買點(diǎn)2>0,L-0.25,{'B'}'買'),LINETHICK2,ALIGN1,COLORYELLOW;{B}
DRAWTEXT(賣點(diǎn)1>0,H+0.95,{'S'}'賣'),LINETHICK2,ALIGN1,ColorGREEN;{S};出:EMA(c+(h-l)*0.618,3),Color0099FF,LINETHICK0;入:EMA((o+h+l)/3,4),COLORCYAN,LINETHICK0;

預(yù)測(cè)明日買點(diǎn):=EMA((o+h+l)/3,4)+((h+l)/2-ref((o+h+l)/3,3))/4;
DRAWTEXTREL(800,950,'測(cè)今日低點(diǎn)：'+NUMTOSTRN(ref(預(yù)測(cè)明日買點(diǎn),1),2 )),ColorGREEN;
預(yù)測(cè)明日賣點(diǎn):=EMA(c+(h-l)*0.618,3)+(EMA(c+(h-l)*0.618,3)-入)*0.618;
DRAWTEXTREL(580,950,'測(cè)今日高點(diǎn)：'+NUMTOSTRN(ref(預(yù)測(cè)明日賣點(diǎn),1),2 )),Colorred;{一品資料說(shuō)明}
WW:=BARSLAST(DISPSTATUS=1);
低漲:(C/LLV(LOW,WW)-1)*100,COLOR0000FF,LINETHICK0,PRECIS2;
天:BARSLAST(L=LLV(LOW,WW)),COLOR00FFFF,LINETHICK0,PRECIS0;
DRAWTEXTABS(0,30,'◇低點(diǎn)至今上漲:'+NUMTOSTRN(低漲,2)+'％'+NUMTOSTRN(天,0)+'天'),COLOR0000FF;
DRAWTEXTABS(0,10,'◇目前可見(jiàn)K線:'+NUMTOSTRN(WW+1,0)+'天'),COLORYELLOW;