相關標簽:k線五法指標源碼 五域 、 經傳慧眼k線 公式源碼 、 變色k線 主圖指標 、 k線形態指標公式源碼 、 慧眼k線指標公式源碼 、 k線頂底變色主圖源碼 、 五彩k線主圖源碼 、 跳空缺口主圖指標源碼 、 無懼牛熊主圖指標源碼 、 聚寶盤主圖指標源碼 、

 

MA5:MA(CLOSE,5),ColorCCCCCC;
MA10:MA(CLOSE,10),Color00BBBB;
MA20:MA(CLOSE,20),Color00AA00;
MA30:MA(CLOSE,30),Color990099;
MA40:=MA(C,40);
MA60:MA(CLOSE,60),Color000088;
MA120:MA(CLOSE,120),Color777700;買線:=ZIG(3,10);
賣線:=MA(買線,3);
BU:=cross(買線,賣線);
SEL:=cross(賣線,買線);
drawtext(bu,l*0.95,'真'),linethick2,align1,color00aaff;
DRAWICON(bu,l*0.97,7),ALIGN1,VALIGN1;
drawtext(sel,h*1.06,'真'),linethick2,align1,color00ff00;
DRAWICON(sel,h*1.02,8),ALIGN1,VALIGN1;
stickline(買線>=賣線,low,high,0.1,0),color0000CC;
stickline(買線>=賣線,close,open,7,0),color0000CC;
stickline(買線<賣線,close,open,7,0),colorCCCC00;
stickline(買線<賣線,low,high,0.1,0),colorCCCC00;
stickline(cross(買線,賣線),open,close,7,0),color00AAFF;
stickline(cross(賣線,買線),open,close,7,0),color00DD00;
VL:=REF(LOW,1);
VAR12:=(SMA(ABS(LOW-VL),13,1))/(SMA(MAX(LOW-VL,0),13,1))*100;
VAR14:=MA(VAR12,13);
VAR15:=LLV(LOW,34);
VAR18:=EMA(IF(LOW<=VAR15,VAR14,0),3);
VAR110:=SMA(SMA((CLOSE-LLV(LOW,54))/(HHV(HIGH,54)-LLV(LOW,54))*100,7,1),5,1);
VAR111:=SMA((CLOSE-LLV(LOW,54))/(HHV(HIGH,54)-LLV(LOW,54))*100,7,1)*16.18-VAR110*10.9;
T:=FILTER(IF(VAR111<=VAR110 AND VAR18>REF(VAR18,1),VAR18*8,0),20);
DRAWTEXT(T,LOW-0.4,'黎明前的黑暗'),COLORMAGENTA,ALIGN2;
bu:=cross(high,SAR(3,1,20));
sel:=cross(SAR(3,1,20),low);
var1:=last(high<SAR(3,1,20));
var2:=last(low>sar(3,1,20));
drawflagtext(bu,high,'買入'),color00aaff,linethick2;
drawflagtext(sel,low,'賣出'),colorgreen,linethick2;drawflagtext(high<SAR(3,1,20) and high>=ref(high,1),high,'明日突破'+forcast(sar(3,1,20),max(var1,2))+'建議關注');
drawflagtext(high<SAR(3,1,20) and high<ref(high,1),high,'持幣觀望');
drawflagtext(low>SAR(3,1,20) and low<=ref(low,1),low,'明日跌破'+forcast(sar(3,1,20),max(var2,2))+'注意止盈');VAR1:=(C+H+O+L)/4;
賣出:EMA(VAR1,25)*1.12,COLORGREEN,LINETHICK1;
買入:EMA(VAR1,25)*0.918,COLORMAGENTA,LINETHICK1;
EMA34多空平衡:EMA(C,34),COLORWHITE;DRAWTEXTREL(5,970,'主營收入同比增長:'+NUMTOSTRN(FINANCE2(11),2)+'%'+' 凈利潤同比增長：'+NUMTOSTRN(FINANCE2(10),2)+'%'),COLORMAGENTA;
DRAWTEXTREL(5,920,'總股本:'+NUMTOSTRn(FINANCE2(35),0)+'萬股' +' 流通A股:'+NUMTOSTRn(FINANCE2(37),0)+'萬股'+' 每股收益:'+NUMTOSTRN(FINANCE2(3),3)+'元'+' 凈資產:'+NUMTOSTRN(FINANCE2(4),2)+'元'+' 市盈率:'+NUMTOSTRN(DYNAINFO(39),2)),COLOR00FF00;
DRAWTEXTREL(5,870,'所屬板塊:'+BKNAME),Colorwhite;
DRAWTEXTREL(780,38,'股市如戰場，6份股本分批殺入，分批撤離，勿貪。'),Color8000FF,LINETHICK2,ALIGN1;LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),3,1)/SMA(ABS(CLOSE-LC),3,1)*100;
SELL1:=FILTER((CROSS(RSI1,88)),7);
SELL2:=(CROSS(88,RSI1));
KDJ:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(KDJ,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
TYP:= (HIGH + LOW + CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
DRAWTEXT(SELL2,HIGH*1.02,'▼'),ColorFFCC33,ALIGN1;
DRAWTEXT(SELL2 AND (K>80 OR CCI>160),HIGH*1.04,'▼'),ColorCC6633,ALIGN1;
DRAWTEXT(SELL2 AND K>80 AND CCI>160,HIGH*1.06,'▼'),ColorFF3300,ALIGN1;
VB1:=AMOUNT/V;
VB2:=L<VB1*0.9;
VB3:=(C-REF(C,1))/REF(C,1)*100>1.2;
VB4:=L<MA(C,5)*0.921;
VB5:=V<MA(V,5)*1.5;
VB6:=VB2 AND VB3 AND VB4 AND VB5;
VB7:=EMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,34)-LLV(LOW,27))*4,4)*25;
VB8:=IF((VB7<10),80,100);
VB9:=IF(K<20,10,0);
VB10:=LLV(J,2)=LLV(J,8);
VB11:=IF(CROSS(J,REF(J+0.01,1)) AND VB10 AND J<20,30,0);
DRAWTEXT(VB11 AND VB8=100 AND VB9=10,low*0.99,'超跌'),Color8000FF,ALIGN2;
VB12:=C-REF(C,1);
VB13:=100*EMA(EMA(VB12,6),6)/EMA(EMA(ABS(VB12),6),6);
VB14:=IF(LLV(VB13,2)=LLV(VB13,7) AND COUNT(VB13<0,2) AND CROSS(VB13,MA(VB13,2)),1,0);
VB15:=filter(VB6,5);
DRAWTEXT(VB15,LOW*0.98,'莫手癢'),COLORMAGENTA,ALIGN2;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);
DSLX1:=MA(DSLX,5);
V1:=MA(VOL,5);
V2:=MA(VOL,10);
IF BARSTATUS=2 and c<200 and ((CROSS(AAX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(780,130,'量能理想，有明顯走強跡象，可以考慮中線進場參與，倉位在2/3左右。'),colorRED,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(AAX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(780,130,'雖然走勢趨強，但量能還顯不足，可以考慮短線進場，倉位在1/2左右。'),colorYELLOW,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(AAX,1) AND (V1 > V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(780,130,'量價配合良好，但相對其它股票并沒有明顯走強，可以考慮短線進場，倉位1/2左右。'),colorYELLOW,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(AAX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(780,130,'形態尚可，但量能不足，股票也未完全走強，可以短線參與，倉位1/3左右。'),colorYELLOW,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(780,130,'形態變壞，但走勢相對其它股票尚可，重倉者減持大半，清倉者可以觀望。'),colorGREEN,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(780,130,'隨大盤一起下跌，呈明顯縮量走勢，考慮到大盤風險，減持或清倉。'),colorGREEN,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(780,130,'放量下跌，走勢明顯偏弱，離場觀望。'),colorGREEN,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(780,130,'縮量下跌，走勢偏弱，離場觀望。'),colorGREEN,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX >= 1) AND (REF(AAX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(780,930,'形態良好，強勢明顯，量能充足，可以繼續持有。'),colorRED,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX >= 1) AND (REF(AAX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(780,930,'上行趨勢不變，強勢依然，但量能開始轉弱，注意風險。'),colorRED,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX >= 1) AND (REF(AAX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(780,130,'仍然具備上漲潛力，但股性偏弱，可考慮減倉。'),colorGREEN,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX >= 1) AND (REF(AAX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(780,130,'走勢趨弱，量能不足，減持大部分籌碼。'),colorGREEN,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX < 1) AND (REF(AAX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(780,130,'形態不佳，注意成交量的變化，但目前不適合參與。'),colorGREEN,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX < 1) AND (REF(AAX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(780,130,'趨勢不明，股價偏弱，注意量能變化，目前不宜參與。'),colorGREEN,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX < 1) AND (REF(AAX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(780,130,'有走強跡象，但量能不足，趨勢不明，不適合操作。'),colorGREEN,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX < 1) AND (REF(AAX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(780,130,'走勢太弱，沒有參與價值。'),colorGREEN,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 >= V2)) THEN
DRAWTEXTREL(780,130,'大盤量能理想，有明顯走強跡象，可以考慮中線進場參與，倉位在2/3左右，'),color8000FF,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 >= V2)) THEN
DRAWTEXTREL(780,130,'如前期經過一輪下跌，此時為最佳買點，但如果前期有過一段漲幅則介入需謹慎。'),color8000FF,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 < V2)) THEN
DRAWTEXTREL(780,130,'大盤雖然走勢趨強，但量能還顯不足，如果前期經過一輪下跌，'),color8000FF,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 < V2)) THEN
DRAWTEXTREL(780,130,'可以考慮短線進場，倉位在1/2左右，一旦量能放大可以加倉買入。'),color8000FF,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(1,AAX) AND (V1 >= V2)) THEN
DRAWTEXTREL(780,130,'大盤形態走壞，重倉者可以減去大部分倉位。'),color8000FF,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(1,AAX) AND (V1 < V2)) THEN
DRAWTEXTREL(780,130,'大盤縮量調整，注意風險，短線清倉觀望。'),color8000FF,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX >= 1) AND (REF(AAX,1) > 0)) AND (V1 >= V2)) THEN
DRAWTEXTREL(780,930,'大盤走勢良好，量能理想，可以繼續持有強勢股。'),color8000FF,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX >= 1) AND (REF(AAX,1) > 0)) AND (V1 < V2)) THEN
DRAWTEXTREL(780,930,'大盤形態良好，但量能稍顯不足，隨時準備減倉。'),color8000FF,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX < 1) AND (REF(AAX,1) < 0)) AND (V1 >= V2)) THEN
DRAWTEXTREL(780,130,'大盤趨勢不明，注意成交量變化，目前不適宜進場。'),color8000FF,LINETHICK2,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX < 1) AND (REF(AAX,1) < 0)) AND (V1 < V2)) THEN
DRAWTEXTREL(780,130,'大盤趨勢向下，量能萎縮，不適合進場。'),color8000FF,LINETHICK2,ALIGN1;
BIAS:=(C-MA20)/MA20*100;
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>0 then GP:=GP+' 上漲趨勢。';
if t10>0 then GP:=GP+' 下跌趨勢。';
if t1>0 then GP:=GP+' 極端行情,在未來的幾日內有85%的機會變更方向。';
if t2>0 then GP:=GP+' 中性行情,多空雙方都未能取得當日行情主動性的控制權';
if t3>0 then GP:=GP+' 爬升行情,整個交易期間都有買方主導。';
if t4>0 then GP:=GP+' 爬升行情,信息很少,但收盤期間是買方主導,其他未知。';
if t5>0 then GP:=GP+' 爬升行情,買方把收盤價拉升到開盤價之上,賣方也在盤中主導一段行情,但不知道是誰主導最后的行情。';
if t6>0 then GP:=GP+' 漂流行情,整個交易期間都有賣方主導。';
if t7>0 then GP:=GP+' 漂流行情,信息很少,但收盤期間是賣方主導,其他未知。';
if t8>0 then 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 AND HIGH<>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) THEN GP:=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 THEN GP:=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
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
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
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) THEN GP:=GP+' 倒轉槌頭 - 高位拋壓或低位多空爭執';
IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5) THEN GP:=GP+' 槌頭 - 下影線有多頭意義。在下降趨勢之后看漲。注意反彈賣壓 。';
IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE > MA(CLOSE,5) THEN GP:=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為陰(陽) 表強勁上漲(下跌)力量。';
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/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 THEN GP:=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);V1:=ref(c,5)<ref(O,5) and ref(c,4)<ref(O,4) and ref(c,3)<ref(O,3);
DRAWICON((V1 AND all(C>O,2)) OR (V1 AND C>O AND REF(C,1)<REF(O,1) AND REF(C,2)>REF(O,2)),L*0.958,1),ALIGN2;
DRAWTEXT((V1 AND all(C>O,2)) OR (V1 AND C>O AND REF(C,1)<REF(O,1) AND REF(C,2)>REF(O,2)),L*0.97,'買點'),COLORred,ALIGN2;
V2:=(REF(HIGH,1)+REF(LOW,1))/2;
V3:=MA(CLOSE,20)+2*STD(CLOSE,20);
DRAWTEXT(CROSS(V2,V3),HIGH*1.03,'賣'),COLORgreen,ALIGN2;
V4:=REF(CLOSE,1);
V5:=SMA(MAX(CLOSE-V4,0),7,1)/SMA(ABS(CLOSE-V4),7,1)*100;
V6:=CROSS(79,V5);
V7:=FILTER(V6,4);
DRAWICON(V7,HIGH*1.025,2),ALIGN2;
DRAWTEXT(V7,HIGH*1.035,'絕賣'),COLORgreen,ALIGN2;CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://m.kzuj.com.cn',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標公式');

 

 

有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友

可聯系技術人員 QQ: 1145508240  進行 有償 編寫！（不貴！點擊查看價格！）