联系方式 Contact

云指标公式网

淘宝:zb-mart.taobao.com

电话:18020657357

微信:18020657357

Q Q:396950280

点击这里给我发消息

网址:www.yzhibiao.com

搜索 Search

带买点的“冷暖气带”源码,成功率90%以上,熊市也能赚钱!

2015-4-5 10:38:05点击:

加微信:zb-mart免费验证!

{冷暖气带}
MA3:MA(CLOSE,3),PRECIS2;
MA7:MA(CLOSE,6),PRECIS2;
MA18:MA(CLOSE,18),PRECIS2;
MA34:MA(CLOSE,34),PRECIS2;
MA55:MA(CLOSE,60),PRECIS2;
MA144:MA(CLOSE,120),PRECIS2;
{彩带}
FILLRGN(MA55,MA144,MA55>MA144,RGB(86,0,0),MA55<MA144,RGB(0,86,0)),LAYER7;
FILLRGN(MA3,MA7,MA3>MA7,RGB(128,0,128),MA3<MA7,RGB(20,92,100)),LAYER7;
{DRAWTEXTREL(0,980,'【细雨无声自用指标】'),Color999933,linethick1;}
A:=BARSLAST(DISPSTATUS=1)+1; HH:=HHV(H,A); LL:=LLV(L,A);
上涨:BARSSINCE(BACKSET(DISPSTATUS=2,BARSLAST(L=LL)+1)),COLOR3333CC,linethick0;
↑空间%:(C/REF(L,上涨)-1)*100,COLOR339999,linethick0;
最高%:(HHVALL(HH)/REF(L,上涨)-1)*100,COLORDD66DD,linethick0;
下跌:BARSSINCE(BACKSET(DISPSTATUS=2,BARSLAST(H=HH)+1)),COLOR008800,linethick0;
↓空间%:(C/REF(H,下跌)-1)*100,COLOR998888,linethick0;
最低%:(LLVALL(LL)/REF(H,下跌)-1)*100,COLORFF9900,linethick0;
DRAWTEXTABS(40,08,'所属板块:'+BKNAME),Color009999,linethick1,LAYER6;
DRAWTEXTABS(40,26,'流通盘:'+CAPITAL/1000000+'亿股,利润增长:'+FINANCE2(10)+'%。每股收益:'+FINANCE2(3)+'元'+' 市盈率:'+DYNAINFO(39)+'%'),ColorFFBB33,linethick1,LAYER6;
{买卖指示}
Var0:=SMA(MAX(CLOSE-ref(c,1),0),12,1)/SMA(ABS(CLOSE-ref(c,1)),15,1)*100; 
DRAWTEXT(CROSS(82,Var0),high,'卖'),colorwhite; 
s:=C-REF(C,1); 
DX:=100*EMA(EMA(s,6),6)/EMA(EMA(ABS(s),6),6); 
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0); 
DRAWTEXT(filter(买=1,5),LOW-0.03,'升'),ColorFFDE00; 
da:=(EMA(C,1)+EMA(C,2)+EMA(C,3)+EMA(C,4))/4; 
db:=(EMA(C,10)+EMA(C,20)+EMA(C,40)+EMA(C,80))/4; 
DRAWTEXT(CROSS(da-db,0),L*0.99,'B'),ALIGN1,VALIGN0,COLOR00FFFF,linethick5; 
JH:=SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100; 
DRAWTEXT(CROSS(84,JH),H*1.02,'S'),ALIGN1,VALIGN0,COLORGREEN,linethick4; 
YC:=REF(CLOSE,1); 
止损价位:(YC*1.0035*97+0.2)/99.65,PRECIS2,ColorFFCC33,LINETHICK0;
盘子:CAPITAL/1000000,linethick0;
盘子1:CAPITAL/100,linethick0;
盘子2:FINANCE2(37),linethick0;
{缺口}
STICKLINE(L>REF(H,1),L,REF(H,1),50,1001),Color408080;
STICKLINE(REF(L,1)>H,ref(L,1),H,50,1001),Color808040;
DRAWTEXT(L>REF(H,1),REF(H,1),NUMTOSTRN(REF(H,1),2)+'-'+NUMTOSTRN(L,2)),Color408080;
DRAWTEXT(REF(L,1)>H,REF(L,1),NUMTOSTRN(ref(l,1),2)+'-'+NUMTOSTRN(h,2)),VALIGN2,Color808040;

{K线}
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0),COLOR5454FF;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,7,0),COLORFFFF00;
STICKLINE(CLOSE>OPEN,HIGH,CLOSE,0.1,0),COLOR5454FF;
STICKLINE(CLOSE>OPEN,LOW,OPEN,0.1,0),COLOR5454FF;
STICKLINE(CLOSE<OPEN,HIGH,OPEN,0.1,0),COLORFFFF00;
STICKLINE(CLOSE<OPEN,LOW,CLOSE,0.1,0),COLORFFFF00;
STICKLINE(CLOSE=OPEN AND CLOSE>REF(CLOSE,1),CLOSE,OPEN,7,0),COLOR5454FF;
STICKLINE(CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,7,0),COLORFFFF00;
STICKLINE(CLOSE=OPEN AND CLOSE>REF(CLOSE,1),HIGH,LOW,0.1,0),COLOR5454FF;
STICKLINE(CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),HIGH,LOW,0.1,0),COLORFFFF00;
{操作提示} 
均价:=(3*C+H+L+O)/6; 
VAR1:=(8*均价+7*REF(均价,1)+6*REF(均价,2)+5*REF(均价,3)+ 
4*REF(均价,4)+3*REF(均价,5)+2*REF(均价,6)+REF(均价,8))/36; 
VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3; 
SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1; 
SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) 
AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1; 
SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) AND H/VAR1>1.1; 
SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) 
AND CLOSE>VAR2 AND CLOSE<VAR1; 
SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1) 
AND CLOSE<VAR2) OR (VAR1>VAR2 AND VAR1<REF(VAR1,1) 
AND VAR2<REF(VAR2,1) AND CLOSE<VAR2);; 
SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE<VAR2; 
XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) 
AND REF(VAR1,1)=REF(VAR2,1) AND CLOSE<VAR2); 
XD2:=VAR1=VAR2 AND CLOSE>VAR1; 
SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20)); 
量能饱和度:=IF(SAT>1,1,SAT)*100; 
IF BARSTATUS=2 AND SZ1 THEN BEGIN 
DRAWTEXTABS(40,48,'操作提示:调整结束短线介入'),COLORRED,linethick3; 
END 
ELSE 
IF BARSTATUS=2 AND SZ2 THEN BEGIN 
DRAWTEXTABS(40,48,'操作提示:上升通道走势良好'),COLORRED,linethick3; 
END 
ELSE 
IF BARSTATUS=2 AND SZ3 THEN BEGIN 
DRAWTEXTABS(40,48,'操作提示:股价偏离注意调整'),COLORRED,linethick3; 
END 
ELSE 
IF BARSTATUS=2 AND SZ4 THEN BEGIN 
DRAWTEXTABS(40,48,'操作提示:上升通道调整洗盘'),COLORGREEN,linethick3; 
END 
ELSE 
IF BARSTATUS=2 AND SZ5 THEN BEGIN 
DRAWTEXTABS(40,48,'操作提示:转向特征注意离场'),COLORGREEN,linethick3; 
END 
ELSE 
IF BARSTATUS=2 AND SZ6 THEN BEGIN 
DRAWTEXTABS(40,48,'操作提示:通道改变坚决离场'),COLORGREEN,linethick3; 
END 
ELSE 
IF BARSTATUS=2 AND XD1 THEN BEGIN 
DRAWTEXTABS(40,48,'操作提示:下跌通道只宜观望'),COLORGREEN,linethick3; 
END 
ELSE 
IF BARSTATUS=2 AND XD2 THEN BEGIN 
DRAWTEXTABS(40,48,'操作提示:短期底部准备进入'),COLORYELLOW,linethick3; 
END;