相關標簽: 融勝超級短線預警指標 、 短線王股票預警系統 、 融勝超級短線預警系統 、 短線狙擊手預警源碼 、 短線漲停股票預警系統 、 融勝短線預警 、 薛斯通道2預警 、 薛斯通道預警選股公式 、 薛斯通道上穿預警 、

 大智慧上升通道短線預警指標公式源碼

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;
警報:=CROSS(MA4,MA3);DRAWTEXT(警報,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,'明日收盤價<'+numtostrn(udd,2)+',出現S點\n','若明日收盤價>'+numtostrn(upp,2)+',出現B點\n'); {內容來至程序化交易網 CXH99.COM}
tr1:=ifs(s1=1,'明日收盤價<'+numtostrn(ls,2)+',短線賣出機會','若明日收盤價>'+numtostrn(hs,2)+'短線買入機會');
tr2:=ifs(p1=1,ifs(cross(p1,0),'B點','持股'),ifs(cross(1,p1),'S點','持幣'));
tr3:=ifs(s1=0,'向下,','向上,');
tr4:='3.能量級別:'+numtostrn(d3,1)+'級';
bs:=''+datestr(date)+'買賣點決策系統提示\n'+'1.BS點:'+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; {本文來至程序化交易網 cxh99.com}
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.weiqiv.net.cn',CURRENTTIME>180000 and CXH=5);
DRAWTEXTREL(10 ,10 ,'指標公式');
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); {內容來至程序化交易網 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,'的量能理想，有明顯走強跡象，可以考慮中線進場參與，倉位在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,'雖然走勢趨強，但量能還顯不足，可以考慮短線進場，倉位在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,'量價配合良好，但相對其它股票并沒有明顯走強，可以考慮短線進場，倉位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,'形態尚可，但量能不足，股票也未完全走強，可以短線參與，倉位1/3左右。'),colorYELLOW,LINETHICK1,ALIGN1; {本文來至CXH99.COM}
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'形態變壞，但走勢相對其它股票尚可，重倉者減持大半，清倉者可以觀望。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'隨大盤一起下跌，呈明顯縮量走勢，考慮到大盤風險，減持或清倉。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'放量下跌，走勢明顯偏弱，離場觀望。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'縮量下跌，走勢偏弱，離場觀望。'),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,'形態良好，強勢明顯，量能充足，可以繼續持有。'),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,'上行趨勢不變，強勢依然，但量能開始轉弱，注意風險。'),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,'仍然具備上漲潛力，但股性偏弱，可考慮減倉。'),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,'走勢趨弱，量能不足，減持大部分籌碼。'),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,'形態不佳，注意成交量的變化，但目前不適合參與。'),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,'趨勢不明，股價偏弱，注意量能變化，目前不宜參與。'),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,'有走強跡象，但量能不足，趨勢不明，不適合操作。'),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,'走勢太弱，沒有參與價值。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'大盤量能理想，有明顯走強跡象，可以考慮中線進場參與，倉位在2/3左右，'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'如前期經過一輪下跌，此時為最佳買點，但如果前期有過一段漲幅則介入需謹慎。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 < V2)) THEN {內容來至程序化交易網 CXH99.COM}
DRAWTEXTREL(500,20,'大盤雖然走勢趨強，但量能還顯不足，如果前期經過一輪下跌，'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 < V2)) THEN
DRAWTEXTREL(500,20,'可以考慮短線進場，倉位在1/2左右，一旦量能放大可以加倉買入。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(1,AAX) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'大盤形態走壞，重倉者可以減去大部分倉位。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(1,AAX) AND (V1 < V2)) THEN
DRAWTEXTREL(500,20,'大盤縮量調整，注意風險，短線清倉觀望。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX >= 1) AND (ref(AAX,1) > 0)) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'大盤走勢良好，量能理想，可以繼續持有強勢股。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX >= 1) AND (ref(AAX,1) > 0)) AND (V1 < V2)) THEN
DRAWTEXTREL(500,20,'大盤形態良好，但量能稍顯不足，隨時準備減倉。'),color8000FF,LINETHICK1,ALIGN1; {內容來至程序化交易網 CXH99.COM}
IF BARSTATUS=2 and c>200 and (((AAX < 1) AND (ref(AAX,1) < 0)) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'大盤趨勢不明，注意成交量變化，目前不適宜進場。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX < 1) AND (ref(AAX,1) < 0)) AND (V1 < V2)) THEN
DRAWTEXTREL(500,20,'大盤趨勢向下，量能萎縮，不適合進場。'),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)); {內容來至程序化交易網 CXH99.COM}
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+'上漲趨勢。';
if t10>0then GP:=GP+'下跌趨勢。';
if t1>0then GP:=GP+'極端行情,在未來的幾日內有85%的機會變更方向。';
if t2>0then GP:=GP+'中性行情,多空雙方都未能取得當日行情主動性的控制權';
if t3>0then GP:=GP+'爬升行情,整個交易期間都有買方主導。';
if t4>0then GP:=GP+'爬升行情,信息很少,但收盤期間是買方主導,其他未知。';
if t5>0then GP:=GP+'爬升行情,買方把收盤價拉升到開盤價之上,賣方也在盤中主導一段行情,但不知道是誰主導最后的行情。'; {本文來至程序化交易網 cxh99.com}
if t6>0then GP:=GP+'漂流行情,整個交易期間都有賣方主導。';
if t7>0then GP:=GP+'漂流行情,信息很少,但收盤期間是賣方主導,其他未知。';
if t8>0then GP:=GP+'漂流行情,賣方把收盤價壓至到開盤價之下,買方也在盤中主導一段行情,但不知道是誰主導最后的行情。';
if MA20>=MA60 AND CROSS(MA40,MA60) then GP:=GP+'形成季托，待股價回落到20天均線或40天均線時介入，20天均價為:'+MA20+'，40天均價為:'+MA40+' 。';
if BIAS>9.5 AND (C-ref(C,1))/ref(C,1)*100<9.8 then GP:=GP+'短線漲幅過大，有整理要求。';
if MA20>=MA60 AND H>=MA20 AND L<=MIN(MA40,MA60) AND C>O AND C>ref(C,1) then GP:=GP+'芙蓉出水，趨勢向好。';
if BIAS<-18 AND (C-ref(C,1))/ref(C,1)*100>-9.8 then GP:=GP+'股價嚴重超跌，有爆發要求。';
if BIAS<-7 AND ALL(CLOSE<OPEN,5) then GP:=GP+'連收五陰，超跌有反彈要求。';
if ABS(HIGH-ref(HIGH,1))/HIGH<0.001 then GP:=GP+'平頂，該高點有一定阻力。';
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+'平底，該低點有一定支撐。';
if CLOSE=OPEN ANDHIGH<>CLOSE and LOW<>CLOSE and HIGH/LOW > 1.03 then GP:=GP+' 長十字，多空激爭 前途未明。';
if OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018 then GP:=GP+' 大陰燭，今日空方有絕對優勢。';
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+'長下影，下檔支撐強或空方試探進攻。';
if (HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667 then GP:=GP+'長上影，上檔阻力大或多方試探進攻。';
if CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH then GP:=GP+'垂死十字，在頂部時重要 表強力多頭開始疲軟。';
if HIGH=CLOSE AND HIGH<>LOW then GP:=GP+'光頭陽線，今日尾盤多方氣盛，行情可能延續到明天。';
if (HIGH<ref(LOW,1) OR LOW>ref(HIGH,1)) then GP:=GP+'跳空缺口，當日未補，有與跳空同向進行，上漲欲望強烈，三日內為回補觀察期。';
if LOW=CLOSE AND HIGH<>LOW then GP:=GP+'赤腳陰線，尾盤空方勝。 注意股價下跌延續至次日。';
if CLOSE=OPEN AND HIGH<>CLOSE and LOW<>CLOSE and HIGH <>CLOSE then GP:=GP+'十字星，警告信號。原趨勢停頓或反轉，依上下影線長度判后市。';
if CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018 then GP:=GP+'大陽燭，上升行情中意味行情劇烈向上攀升；下跌行情中意味行情劇烈向上反彈。';
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+'早晨十字 - 如同晨星。 從看空平衡到看漲轉強；左右跳空曰棄嬰 。';
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+'上升三部曲，空方賣壓被吸納。 趨勢易順勢走漲。';
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+'三胎烏鴉，多頭走勢被扭轉。黑K價愈深量愈大，跳空愈大，反轉信號愈強。';
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+'友好反攻 - 陰(陽)線結合，極線多方跳空向下(跳空向上)后反彈有企穩跡象 。';
IF CLOSE<>OPEN and MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5) THEN
GP:=GP+'射擊之星 - 如伴大量上遇阻力，有短期見頂可能，股價轉疲。';
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 {文章來至程序化交易網 cxh99.com}
GP:=GP+'貫穿線，多頭力道的反撲或是空單回補力道。長陰線之后開低收在昨天1/2之上，為多頭反轉信號。';
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+'身懷六甲 - 陰(陽)懷陽(陰)，怪異的走勢，顯示該股行情可能轉向。 若量由大轉縮，下跌趨勢更明確。';
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 {本文來至CXH99.COM}
GP:=GP+'夜星 - 從看多平衡到看空轉弱，轉空。 ';
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+'十字胎 - 似身懷六甲，轉向可能性更大，量縮觀望為宜 。';
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+' 雙人殉情 - 在上升趨勢中最后之空頭吞噬，也就是所謂的不見長紅不回頭。 ';
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(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型反轉或止跌橫盤趨勢 。';
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,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+'空頭孕育線，陽育陰。看空 。';
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+'三只烏鴉 - 強烈轉空趨勢，陰線越深量越大越易下跌。';
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+'下跌三部曲，多方弱勢不堪一擊，趨勢易順勢走跌。';
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+'連續型態之執墊，比上升三法更具多頭意義。';
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+'頸上線 - 下降趨勢。若第二天大量，維持原趨勢的可能性大增。';
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 {內容來至程序化交易網 CXH99.COM}
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+'最后吞噬 - 在下降趨勢中為一陰一陽組合，多頭吞噬；在上升趨勢中為一陽一陰組合，空頭吞噬。';
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+'晨星 - 多方勢盛 變盤信號';
IF MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5) THENGP:=GP+' 倒轉槌頭 - 高位拋壓或低位多空爭執';
IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5) THENGP:=GP+'槌頭 - 下影線有多頭意義。在下降趨勢之后看漲。注意反彈賣壓 。';
IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE > MA(CLOSE,5) THENGP:=GP+'吊頸線 - 高檔看跌。'; {文章來至程序化交易網 cxh99.com}
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為陰(陽) 表強勁上漲(下跌)力量。';
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+'黃昏之星 - 空方勢盛。反轉信號，跳空成棄嬰。';
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+'二陽夾一陰，必須從后續的走勢來研判。';
IF OPEN=ref(OPEN,1) AND (CLOSE-OPEN)*(ref(CLOSE,1)-ref(OPEN,1))<0 THEN
GP:=GP+' 分離 - 兩日開盤相同 一陰一陽 變盤前徹底整理。';
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+'斷頭鍘刀(出水芙蓉) -一根大陰(陽)線切斷了三根均線 如果改變了其后均線的排列為空頭(多頭)排列 后勢看空(多) 。';
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} {內容來至程序化交易網 CXH99.COM}
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); {本文來至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);
買點1:=Var10;
買點2:=(Var11+Var13+Var15+Var17);
賣點1:=(Var12+Var14+Var16+Var18);
Var22:=買點1 AND VarF AND VarC AND Var21 AND Var4<0AND Var5=0 AND Var6=0 AND Var20<(-110);
DRAWTEXT(買點1>0,L-0.15,'B'),LINETHICK4,ALIGN1,colorred;{B}
DRAWTEXT(買點2>0,L-0.25,{'B'}'買'),LINETHICK2,ALIGN1,COLORYELLOW;{B}
DRAWTEXT(賣點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;

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