|
组合主图彩色筹码峰（主图、源码、贴图）通达信+大智慧版
{彩色筹码峰通达信版}
DA1:=IF(130>TOTALBARSCOUNT,TOTALBARSCOUNT,130); DA:=IF(CURRBARSCOUNT>DA1,0,DA1); HI:=REFDATE(HHV(H,DA),DATE); LO:=REFDATE(LLV(L,DA),DATE); C1:=IF(CURRBARSCOUNT<=DA,C,DRAWNULL); GZ:=EXP(LN(HI/LO)/10); LH1:=SUM(IF(C1>=(HI/GZ),V,0),DA); LH2:=SUM(IF(C1>=(HI/POW(GZ,2)) AND C1<(HI/GZ),V,0),DA); LH3:=SUM(IF(C1>=(HI/POW(GZ,3)) AND C1<(HI/POW(GZ,2)),V,0),DA); LH4:=SUM(IF(C1>=(HI/POW(GZ,4)) AND C1<(HI/POW(GZ,3)),V,0),DA); LH5:=SUM(IF(C1>=(HI/POW(GZ,5)) AND C1<(HI/POW(GZ,4)),V,0),DA); LH6:=SUM(IF(C1>=(HI/POW(GZ,6)) AND C1<(HI/POW(GZ,5)),V,0),DA); LH7:=SUM(IF(C1>=(HI/POW(GZ,7)) AND C1<(HI/POW(GZ,6)),V,0),DA); LH8:=SUM(IF(C1>=(HI/POW(GZ,8)) AND C1<(HI/POW(GZ,7)),V,0),DA); LH9:=SUM(IF(C1>=(LO*GZ) AND C1<LO*POW(GZ,2),V,0),DA); LH10:=SUM(IF(C1>=LO AND C1<LO*GZ,V,0),DA); L1:=REFDATE(HHV(LH1,DA),DATE); L2:=REFDATE(HHV(LH2,DA),DATE); L3:=REFDATE(HHV(LH3,DA),DATE); L4:=REFDATE(HHV(LH4,DA),DATE); L5:=REFDATE(HHV(LH5,DA),DATE); L6:=REFDATE(HHV(LH6,DA),DATE); L7:=REFDATE(HHV(LH7,DA),DATE); L8:=REFDATE(HHV(LH8,DA),DATE); L9:=REFDATE(HHV(LH9,DA),DATE); L10:=REFDATE(HHV(LH10,DA),DATE); SS:=(L1+L2+L3+L4+L5+L6+L7+L8+L9+L10); STICKLINE(CEILING(DA*L1/SS)*3>=CURRBARSCOUNT,HI*99/100,HI/GZ,9,0), ,COLOR002288,LINETHICK3; STICKLINE(CEILING(DA*L2/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,1)*99/100 ,HI/POW(GZ,2),9,0),COLOR800600,LINETHICK3; STICKLINE(CEILING(DA*L3/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,2)*99/100 ,HI/POW(GZ,3),9,0),COLOR808300,LINETHICK3; STICKLINE(CEILING(DA*L4/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,3)*99/100 ,HI/POW(GZ,4),9,0),COLOR883D88,LINETHICK3; STICKLINE(CEILING(DA*L5/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,4)*99/100 ,HI/POW(GZ,5),9,0),COLOR777700,LINETHICK3; STICKLINE(CEILING(DA*L6/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,5)*99/100 ,HI/POW(GZ,6),9,0),COLOR804000,LINETHICK3; STICKLINE(CEILING(DA*L7/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,6)*99/100 ,HI/POW(GZ,7),9,0),COLOR003377,LINETHICK3; STICKLINE(CEILING(DA*L8/SS)*3>=CURRBARSCOUNT,LO*POW(GZ,2),LO*POW(GZ,3) *99/100,9,0),COLORLICYAN,LINETHICK3; STICKLINE(CEILING(DA*L9/SS)*3>=CURRBARSCOUNT,LO*POW(GZ,1),LO*POW(GZ,2) *99/100,9,0),COLORLIMAGENTA,LINETHICK3; STICKLINE(CEILING(DA*L10/SS)*3>=CURRBARSCOUNT,LO,LO*POW(GZ,1)*99/100,9,0) ,COLORBROWN,LINETHICK3; DRAWKLINE(H,O,L,C); DRAWKLINE(H,O,L,C); DRAWTEXT(CURRBARSCOUNT=98,LOW*0.88,'☆压力越大暗条越长,做多越短越好★'),COLORYELLOW; N:=10; T1:=CONST(HHVBARS(V,10)),COLOR0000FF,LINETHICK1; 量能平台:IF(CURRBARSCOUNT<=N+15,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL)COLOR0000FF,LINETHICK2; 新量能点:IF(CURRBARSCOUNT=T1+1,量能平台,DRAWNULL),CIRCLEDOT,COLORLIGRAY,LINETHICK1; DRAWTEXT(ISLASTBAR,量能平台,' 量能平台'); JJ:=(CLOSE+HIGH+LOW)/3; A:=EMA(JJ,10); B:=REF(A,1); 持股区域:STICKLINE(A>B,A,B,2,0),COLORYELLOW; 持币区域:STICKLINE(A<B,A,B,2,0),COLORBLUE; {彩色筹码峰大智慧版} JJ:=(CLOSE+HIGH+LOW)/3; A:=EMA(JJ,10); B:=REF(A,1); 持股区域:STICKLINE(A>B,A,B,6,0),COLORYELLOW; 持币区域:STICKLINE(A<B,A,B,6,0),COLORBLUE; N:=(130); Var6:="XWUS@CMBL"(n,5); Var7:="XWUS@CMBL"(n,6); Var8:="XWUS@CMBL"(n,7); Var9:="XWUS@CMBL"(n,8); VarA:="XWUS@CMBL"(n,9); VarB:="XWUS@CMBL"(n,10); VarC:="XWUS@CMBL"(n,11); VarD:="XWUS@CMBL"(n,12); VarE:="XWUS@CMBL"(n,13); VarF:="XWUS@CMBL"(n,14); Var10:="XWUS@CMBL"(n,15); Var11:="XWUS@CMBL"(n,16); Var12:="XWUS@CMBL"(n,17); Var13:="XWUS@CMBL"(n,18); Var14:="XWUS@CMBL"(n,19); Var15:="XWUS@CMBL"(n,20); Var16:="XWUS@CMBL"(n,21); Var17:="XWUS@CMBL"(n,22); Var18:="XWUS@CMBL"(n,23); Var19:="XWUS@CMBL"(n,24); Var1A:="XWUS@CMBL"(n,25); Var1B:="XWUS@CMBL"(n,26); Var1C:="XWUS@CMBL"(n,27); Var1D:="XWUS@CMBL"(n,28); Var1E:="XWUS@CMBL"(n,29); Var1F:="XWUS@CMBL"(n,30); Var20:="XWUS@CMBL"(n,31); Var21:="XWUS@CMBL"(n,32); Var22:="XWUS@CMBL"(n,33); Var23:="XWUS@CMBL"(n,34); Var24:="XWUS@CMBL"(n,35); Var25:="XWUS@CMBL"(n,36); Var26:="XWUS@CMBL"(n,37); Var27:="XWUS@CMBL"(n,38); Var28:="XWUS@CMBL"(n,39); Var29:="XWUS@CMBL"(n,40); Var2A:="XWUS@CMBL"(n,41); POLYLINE(Var6>0,Var6);
POLYLINE(Var7>0,Var7); POLYLINE(Var8>0,Var8); POLYLINE(Var9>0,Var9),color808080; POLYLINE(VarA>0,VarA); POLYLINE(VarB>0,VarB); POLYLINE(VarC>0,VarC); POLYLINE(VarD>0,VarD),color808080; POLYLINE(VarE>0,VarE); POLYLINE(VarF>0,VarF); POLYLINE(Var10>0,Var10); POLYLINE(Var11>0,Var11),color808080; POLYLINE(Var12>0,Var12); POLYLINE(Var13>0,Var13); POLYLINE(Var14>0,Var14); POLYLINE(Var15>0,Var15),color808080; POLYLINE(Var16>0,Var16); POLYLINE(Var17>0,Var17); POLYLINE(Var18>0,Var18); POLYLINE(Var19>0,Var19),color808080; POLYLINE(Var1A>0,Var1A); POLYLINE(Var1B>0,Var1B); POLYLINE(Var1C>0,Var1C); POLYLINE(Var1D>0,Var1D),color808080; POLYLINE(Var1E>0,Var1E); POLYLINE(Var1F>0,Var1F); POLYLINE(Var20>0,Var20); POLYLINE(Var21>0,Var21),color808080; POLYLINE(Var22>0,Var22); POLYLINE(Var23>0,Var23); POLYLINE(Var24>0,Var24); POLYLINE(Var25>0,Var25),color808080; POLYLINE(Var26>0,Var26); POLYLINE(Var27>0,Var27); POLYLINE(Var28>0,Var28); POLYLINE(Var29>0,Var29),color808080; DRAWTEXTABS(170,15,'■所属板块：'+BKNAME),ColorYELLOW,linethick1; 流通盘大小:=FINANCE2(37)/1000000*100; DRAWTEXTABS(20,15,'流通盘大小：'+NUMTOSTRN(流通盘大小,2)+'亿'),LINETHICK1,ColorYELLOW; 主动买卖盘:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN)); 主动买盘:=IF(CLOSE>OPEN,主动买卖盘*(HIGH-LOW),IF(CLOSE<OPEN,主动买卖盘*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)); 主动卖盘:=IF(CLOSE>OPEN,0-主动买卖盘*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-主动买卖盘*(HIGH-LOW),0-VOL/2)); 买卖比:=主动买盘/主动卖盘; WJ:=(HIGH+LOW+CLOSE)/3; VD1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE)); VD2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-WJ); VD3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW); VD4:=IF(HIGH=LOW,1,WJ-MIN(CLOSE,OPEN)); VD5:=VOL/IF(HIGH=LOW,4,HIGH-LOW); VD6:=(VD1*VD5); VD7:=(VD2*VD5); VD8:=(VD3*VD5); VD9:=(VD4*VD5); 买入量:=(VD9+VD8); 卖出量:=(VD6+VD7); 买入资金:=买入量*close/100; 卖出资金:=卖出量*close/100; 总成交资金:=买入资金+卖出资金; 资金进出:=买入资金-卖出资金; 买卖资金比:=买入资金-卖出资金; DRAWTEXTABS(0,30,'■买入量:'+主动买盘),Color00ff00; DRAWTEXTABS(0,45,'■卖出量:'+主动卖盘),Coloryellow; DRAWTEXTABS(0,60,'■买卖比:'+买卖比),ColorFF00FF; DRAWTEXTABS(0,75,'■成交资金万元: '+总成交资金),Colorred,LINETHICK1; DRAWTEXTABS(0,90,'■买入资金万元: '+买入资金),Color00ff00,LINETHICK1; DRAWTEXTABS(0,105,'■卖出资金万元: '+卖出资金),Coloryellow,LINETHICK1; DRAWTEXTABS(0,120,'■增量资金: '+买卖资金比),Coloryellow,LINETHICK1; DRAWTEXTREL(0,850,'■主题库：'+SELFSTRING('主题投资')),linethick1,COLORYELLOW; 本文来源于好股票软件下载网 http://www. |
|
|
