非常準的主圖指標公式,請驗證[大智慧公式]

相關標簽:

?

M3:MA(C,3);
M5:=MA(C,5);
M8:=MA(C,8);
M11:MA(C,11);
M16:=MA(C,16);
M32:=MA(C,32);
M55:MA(C,55);
M89:MA(C,89);
M144:MA(C,144);
M233:MA(C,233);
M512:MA(C,512);
M1024:=MA(C,1024);

月價托:m5>m16 and m5>m8 and cross(m8,m16),coloryellow,linethick0;
季價托:m16>m55 and m16>m32 and cross(m32,m55),colorf00ff0,linethick0;
短、長價托:m5>m55 and m5>m8 and cross(m8,m55),colorred,linethick0;
drawtext(月價托,l,'月價托'),coloryellow;
stickline(月價托,l,h,0.5,1), coloryellow;
stickline(月價托,o,c,5,1),linethick3, coloryellow;
drawtext(季價托,l,'季價托'),colorf00ff0;
stickline(季價托,l,h,0.5,1), colorf00ff0;
stickline(季價托,o,c,5,1),linethick3, colorf00ff0;
drawtext(短、長價托,l,'短、長價托'),color36c0c1;
stickline(短、長價托,l,h,0.5,1), color36c0c1;
stickline(短、長價托,o,c,5,0),linethick3, color36c0c1;
vol1:=MA(VOL,5);
vol2:=MA(VOL,10);
vol3:=MA(VOL,20);
量托:vol1>=vol3 and cross(vol2,vol3) and ref(vol2,1)<ref(vol3,1),linethick0;
drawtext(量托,l,'▲'),colorwhite;
drawtext(量托,l*0.97,'量托'),colorwhite;
stickline(量托,l,h,0.5,1), colorwhite;
stickline(量托,o,c,5,1),linethick3, colorwhite;

DRAWTEXTREL(4,20,'板塊:'+BKNAME),LINETHICK1,COLORFFFFFF;
DRAWTEXTABS(4,20 ,'流通盤:'+capital/1000000+'億(小盤股<5個億<中盤股<10億<大盤股)'),COLOR00FF00,linethick1;

BDGD:=C=HHV(C,13);
GDSJ:=BARSLAST(FILTER(CROSS(0.8,BDGD),2))+1;
高點:REF(C,GDSJ),COLORFF00FF,POINTDOT,LAYER0;
突破:CROSS(C,REF(高點,1)),COLOR00FFFF,POINTDOT,LINETHICK0;
STICKLINE(GDSJ<=6,高點,高點,8,0),COLORFF00FF,LAYER0;
DRAWTEXT(突破,LOW,'↑'),COLOR00FFFF,ALIGN1;
BDDD:=C=LLV(C,13);
DDSJ:=BARSLAST(FILTER(CROSS(0.8,BDDD),2))+1;
低點:REF(C,DDSJ),COLOR00FF00,POINTDOT,LAYER0;
STICKLINE(DDSJ<=6,低點,低點,8,0),COLOR00FF00,LAYER0;

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);

DRAWTEXT(FILTER(B1>0,5),L*0.91,'M底'),COLORGREEN;{http://www.tumamayizhan.com}{MACD底背離}
A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));

DRAWTEXT(FILTER(B2>0,3),L*0.93,'K底'),COLORYELLOW;{KDJ底背離}
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));

DRAWTEXT(FILTER(B3>0,5),L*0.95,'R底'),COLORFFFF00;{RSI底背離}
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);

DRAWTEXT(FILTER(D1>0,5),H*1.06,'M頂'),COLOR0066FF;{MACD頂背離}
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));

DRAWTEXT(FILTER(D2>0,3),H*1.06,'K頂'),COLORRED;{KDJ頂背離}
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
DRAWTEXT(FILTER(D3>0,5),H*1.06,'R頂'),COLORFF00FF;{RSI頂背離};
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.99),'底背'),Color0000FF;
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'頂背'),Color00FFFF;

vll:=cross(ma(c,10),ma(c,21));
DRAWTEXT(vll,m8,''),colorwhite;
DRAWTEXT(vll,m8-0.09,'圓弧底'),colorwhite;

DRAWTEXT(CROSS(80,RSI) ,high*1.02,'見頂'),coloryellow;
cxhb:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
cxhc:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;
cxhd:=BARSCOUNT(CLOSE);
cxh1:=(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3))*100-60;
cxh2:=SMA(cxh1,3,1)+100;
cxh3:=(CLOSE-LLV(LOW,3))/(HHV(HIGH,3)-LLV(LOW,3))*1000;
cxh4:=SMA(cxh3,3,1);cxh5:=SMA(cxh4,3,1)+100;cxh6:=cxh5-cxh2;
主力:=EMA( (CLOSE-MA(CLOSE,3))/MA(CLOSE,3)*4800,2);
散戶:=EMA( (CLOSE-MA(CLOSE,20))/MA(CLOSE,20)*4800,7);
drawtext(cross(主力,散戶) and 主力<0 and 散戶<0,low,'見底'),colorred;
drawtext(cross(散戶,主力) and 主力<0 and 散戶<0,high*1.02,'清倉'),COLORGREEN;{http://www.tumamayizhan.com}
cxh120:='■今日上穿';
if CROSS(c,ma(c,5)) AND BARSTATUS=2THEN cxh120:=cxh120+'【5】均線'+NUMTOSTRN(ma(c,5),2)+'元';
if CROSS(c,ma(c,10)) AND BARSTATUS=2THEN cxh120:=cxh120+'【10】均線'+NUMTOSTRN(ma(c,10),2)+'元';
if CROSS(c,ma(c,20)) AND BARSTATUS=2THEN cxh120:=cxh120+'【20】均線'+NUMTOSTRN(ma(c,20),2)+'元';
if CROSS(c,ma(c,30)) AND BARSTATUS=2THEN cxh120:=cxh120+'【30】均線'+NUMTOSTRN(ma(c,30),2)+'元';
if CROSS(c,ma(c,40)) AND BARSTATUS=2THEN cxh120:=cxh120+'【40】均線'+NUMTOSTRN(ma(c,40),2)+'元';
if CROSS(c,ma(c,50)) AND BARSTATUS=2THEN cxh120:=cxh120+'【50】均線'+NUMTOSTRN(ma(c,50),2)+'元';
if CROSS(c,ma(c,60)) AND BARSTATUS=2THEN cxh120:=cxh120+'【60】均線'+NUMTOSTRN(ma(c,60),2)+'元';
if CROSS(c,ma(c,120)) AND BARSTATUS=2THEN cxh120:=cxh120+'【120】均線';
if (c>=ma(c,10)) AND BARSTATUS=2THEN cxh120:=cxh120+'■在10均線上方■'+NUMTOSTRN(ma(c,10),2)+'元';
DRAWTEXTREL(600,900,cxh120),Color8000FF;


cxh121:='■今日下破';
if CROSS(ma(c,5),c) AND BARSTATUS=2THEN cxh121:=cxh121+'【5】均線'+NUMTOSTRN(ma(c,5),2)+'元';
if CROSS(ma(c,10),c) AND BARSTATUS=2THEN cxh121:=cxh121+'【10】均線'+NUMTOSTRN(ma(c,10),2)+'元';
if CROSS(ma(c,20),c) AND BARSTATUS=2THEN cxh121:=cxh121+'【20】均線'+NUMTOSTRN(ma(c,20),2)+'元';
if CROSS(ma(c,30),c) AND BARSTATUS=2THEN cxh121:=cxh121+'【30】均線'+NUMTOSTRN(ma(c,30),2)+'元';
if CROSS(ma(c,40),c) AND BARSTATUS=2THEN cxh121:=cxh121+'【40】均線'+NUMTOSTRN(ma(c,40),2)+'元';
if CROSS(ma(c,50),c) AND BARSTATUS=2THEN cxh121:=cxh121+'【50】均線'+NUMTOSTRN(ma(c,50),2)+'元';
if CROSS(ma(c,60),c) AND BARSTATUS=2THEN cxh121:=cxh121+'【60】均線'+NUMTOSTRN(ma(c,60),2)+'元';
if CROSS(ma(c,120),c) AND BARSTATUS=2THEN cxh121:=cxh121+'【120】均線';
if (ma(c,10)>=c) AND BARSTATUS=2THEN cxh121:=cxh121+'■在10均線下方■'+NUMTOSTRN(ma(c,10),2)+'元';
DRAWTEXTREL(600,960,cxh121),Color00FF00;

每股收益:=FINANCE2(3);
每股市盈率:=DYNAINFO(39);
每股凈資產:=FINANCE2(4);
銷shou毛利率:=FINANCE2(12);
主營收入同比:=FINANCE2(11);
凈利潤同比增長:=FINANCE2(10);
DRAWTEXTABS(20,40,'基本面提示：'),ColorFFFFFF,LINETHICK1;
DRAWTEXTABS(100,40,'每股收益：'+NUMTOSTRN(每股收益,2)+'元'),ColorFFFFFF;
DRAWTEXTABS(200,40,'每股市盈率：'+NUMTOSTRN(每股市盈率,1)+'倍'),ColorFFFFFF;
DRAWTEXTABS(350,40,'每股凈資產：'+NUMTOSTRN(每股凈資產,2)+'元'),ColorFFFFFF;
DRAWTEXTABS(85,55,' 銷shou毛利率：'+NUMTOSTRN(銷shou毛利率,2)+'%'),LINETHICK1,ColorFFFFFF;
DRAWTEXTABS(200,55,'主營收入同比增長：'+NUMTOSTRN(主營

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?

 

有思路，想編寫各種指標公式，交易模型，選股公式，還原公式的朋友

可聯系技術人員 QQ: 262069696  或微信：cxhjy888 進行 有償收費 編寫！(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)

（怎么收費，代編流程等詳情請點擊查閱！）

(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)