找回密码
 立即注册

QQ登录

只需一步,快速开始

广告载入中...
查看: 661|回复: 4

”实用量柱“副图。请勿作为商业用途!根据网络(感谢网络作者)资料改编,仅为爱好。

[复制链接]
发表于 2022-3-30 06:26 | 显示全部楼层 |阅读模式

马上注册,享用更多功能,让你轻松玩转本论坛。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
{ tmp0.jpg }
WOL:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
{NOTEXT成交量:V,VOLSTICK;}
AMOW:=AMOUNT/10000.0;
成交额【亿】:AMOW/10000,COLORCYAN;
连倍: AMO/REF(AMO,1),COLORYELLOW,NODRAW;
隔倍: AMO/REF(AMO,2),COLORLIMAGENTA,NODRAW;
隔二: AMO/REF(AMO,3),COLORLIGRAY,NODRAW;
量比:AMO/MA(REF(AMO,1),5),COLORGREEN,NODRAW;
{换手:VOL/CAPITAL*100,POINTDOT;}
实换手:V/FINANCE(46)*10000,COLORMAGENTA,NODRAW;
换手:=实换手;
四换手:SUM(换手,4),COLORRED;
十换手:SUM(换手,10);
廿换手:SUM(换手,20);
卅换手:SUM(换手,30),COLORYELLOW;
圆换手:SUM(换手,60),COLORCYAN;
百换手:SUM(换手,120),COLORLIGRAY;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,WOL,0,3,-1),COLORFFFFFF;
VOLUME:=VOL;
NOTEXT成交量:VOL,VOLSTICK;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主买0:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,POINTDOT;
主卖0:=IF(CLOSE>OPEN,VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,VAR1*(HIGH-LOW),VOL/2)),COLOR00FF00,POINTDOT;
{主买:=主买0;
主卖:=主卖0;}
NOTEXT主买差:主买0-主卖0,NODRAW;
{STICKLINE(主买0>0,0,主买0,2,0),COLORRED;
STICKLINE(主卖>0,主买,VOL,2,1),COLOR00FF80;
STICKLINE(主买0<REF(主买0,1)AND 主买0>0,0,主买0,2,0),COLORBLUE;}
VAR2:=1*AMOUNT;
百日天量:=HHV(VAR2,100)=VAR2,COLORMAGENTA;
一年天量:=HHV(VAR2,250)=VAR2,COLORGREEN;
STICKLINE(百日天量,VOLUME,VOLUME*0.85,1.5,0),COLORMAGENTA;
STICKLINE(一年天量,VOLUME,VOLUME*0.925,1.5,0),COLORGREEN;
DRAWTEXT(百日天量,V*0.93,'百'),COLORMAGENTA;
DRAWTEXT(一年天量,V*1.15,'年'),COLORGREEN;

NOTEXTV5:MA(VOLUME,5),COLORYELLOW,LINETHICK1;
{NOTEXTV35:MA(VOLUME,35),COLORWHITE,LINETHICK1;}
NOTEXTV60:MA(VOLUME,60),COLORMAGENTA,LINETHICK2;
DRAWTEXT(CROSS(NOTEXTV5,NOTEXTV60),V*1.15,'★'),COLORFF66E0;{5日均量线上穿60日}
NOTEXTV135:=MA(VOLUME,135),LINETHICK1;
{DRAWICON(十换手>30 AND 廿换手<80 AND ABD1 OR (ABZ1 AND ABD2),V,5);}{笑脸}
{DRAWICON(十换手>30 AND 廿换手<80 AND (ABD2 OR ABZ2 OR ((百日天量 OR 一年天量) AND 安全线<REF(安全线,30))),V,6);}{哭脸}
DRAWICON(十换手>80,-V*0.2,23);
DRAWTEXT(CURRBARSCOUNT=40 AND COUNT(十换手>80,40)>0,HHV(V,80)*0.9,'红十,有强庄');
{DRAWTEXT(CURRBARSCOUNT=40,HHV(V,80)*0.9,'10日换手>30变脸,>80红十,有强庄');}
{DRAWICON(廿换手>80 AND 十换手<80,-V*0.2,17);}
{DRAWTEXT(CURRBARSCOUNT=80,HHV(V,80)*0.95,'20日换手>80桔子'),COLOR00FFFF;
DRAWICON(廿换手>80 AND (ABD2 OR ABZ2),V,6);}{哭脸}
{洗盘量}
洗盘量:=V<REF(LLV(V,40),1) OR V<REF(LLV(V,50),1) OR V<REF(LLV(V,60),1) OR V<REF(LLV(V,80),1),COLORBROWN;
STICKLINE(洗盘量,V,0,2.5,0),COLORBROWN;
{地量群}
H_L:=0.1*CONST(HHV(V,240));
V100:= V<=LLV(V,100)*1.2 AND V>0 AND BARSCOUNT(V)>=100;
百日地量群:=COUNT(V100,5)>=3;
DRAWTEXT(FILTER(百日地量群,8),V+1.01*H_L,'地量群'),COLORGRAY;
{百日地量}
T:=DYNAINFO(8)>0;
NOTEXTVO:V=LLV(V,100) AND T;{百日地量}
NOTEXT地量:T AND NOTEXTVO,COLORYELLOW;{百日地量}
STICKLINE(NOTEXT地量,0,V,4,0),COLORYELLOW;{百日地量};
{资金异动}
资金异动:V/MA(V,60)*100,COLORYELLOW;
STICKLINE(资金异动>100 AND V<1.2*MA(V,5),0,0.5*V,0.1,0),COLORYELLOW;
STICKLINE(资金异动>100 AND V>=1.2*MA(V,5),0,0.35*V,0.1,0),COLORYELLOW;

{}
A01:=DYNAINFO(7);
A03:=BARSCOUNT(C);
A04:=(SMA((C / HHV(H,120)),3,1) * 100);
A05:=IF((A03 > 20),A04,0);
A06:=IF((L > A01),0,IF((H < A01),1,(((A01 - L) + 0.009) / ((H - L) + 0.009))));
A07:=DMA(A06,(V / CAPITAL)) * 60;
A09:=IF((((A07 > 0) AND (A07 > REF(A07,1))) AND (A05 <= 88)),A07,0);
VAR3A:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
趋势:=EMA(VAR3A,3)-10;
STICKLINE((A09>0) AND 趋势<40,0,V/6,2,0),COLORMAGENTA;{粉色机构建仓区}
A011:=DYNAINFO(5);
A013:=BARSCOUNT(H);
A014:=(SMA((H / HHV(C,120)),3,1) * 100);
A015:=IF((A013 > 20),A014,0);
A016:=IF((H < A011),0,IF((L > A011),1,(((A011 - H) + 0.009) / ((L - H) + 0.009))));
A017:=DMA(A016,(V / CAPITAL)) * 60;
A019:=IF((((A017 >0) AND (A017 > REF(A017,1))) AND (A015 >= 88)),A017,0);
VAR23:=3*SMA((H-HHV(H,55))/(LLV(L,55)-HHV(H,55))*100,5,1)-2*SMA(SMA((H-HHV(H,55))/(LLV(L,55)-HHV(H,55))*100,5,1),3,1);
趋势1:=EMA(VAR23,3)-10;
STICKLINE((A019 > 0 AND (趋势1<20 OR 趋势1>REF(趋势1,1)AND 趋势1<50)),0,V/5,2,0),COLORGREEN;{绿色机构出仓区}
{NOTEXTAAAAARAWLINE(V>=HHV(V,30),V,V<=LLV(V,10),HHV(V,6),1),COLORFFCCCC;
NOTEXTBBBBBRAWLINE(V>=HHV(V,10),V,V<=LLV(V,3),HHV(V,3),1),COLORYELLOW;}
{活跃量}
{NOTEXT活跃量:EMA(V,250),COLOR8B668B,DOTLINE,LINETHICK1;
CCC:=EMA(100*(C-LLV(L,34))/(HHV(H,34)-LLV(L,34)),3)/4;}
NOTEXT百地线LV(V,100),COLORCYAN;

发表于 2022-3-30 06:41 | 显示全部楼层
谢谢楼主的分享
回复

使用道具 举报

发表于 2022-3-30 07:41 | 显示全部楼层
谢谢楼主分享
回复

使用道具 举报

发表于 2024-7-24 12:42 | 显示全部楼层

WOL:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
{NOTEXT成交量:V,VOLSTICK;}
AMOW:=AMOUNT/10000.0;
成交额【亿】:AMOW/10000,COLORCYAN;
连倍: AMO/REF(AMO,1),COLORYELLOW,NODRAW;
隔倍: AMO/REF(AMO,2),COLORLIMAGENTA,NODRAW;
隔二: AMO/REF(AMO,3),COLORLIGRAY,NODRAW;
量比:AMO/MA(REF(AMO,1),5),COLORGREEN,NODRAW;
{换手:VOL/CAPITAL*100,POINTDOT;}
实换手:V/FINANCE(46)*10000,COLORMAGENTA,NODRAW;
换手:=实换手;
四换手:SUM(换手,4),COLORRED;
十换手:SUM(换手,10);
廿换手:SUM(换手,20);
卅换手:SUM(换手,30),COLORYELLOW;
圆换手:SUM(换手,60),COLORCYAN;
百换手:SUM(换手,120),COLORLIGRAY;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,WOL,0,3,-1),COLORFFFFFF;
VOLUME:=VOL;
NOTEXT成交量:VOL,VOLSTICK;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主买0:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,POINTDOT;
主卖0:=IF(CLOSE>OPEN,VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,VAR1*(HIGH-LOW),VOL/2)),COLOR00FF00,POINTDOT;
{主买:=主买0;
主卖:=主卖0;}
NOTEXT主买差:主买0-主卖0,NODRAW;
{STICKLINE(主买0>0,0,主买0,2,0),COLORRED;
STICKLINE(主卖>0,主买,VOL,2,1),COLOR00FF80;
STICKLINE(主买0<REF(主买0,1)AND 主买0>0,0,主买0,2,0),COLORBLUE;}
VAR2:=1*AMOUNT;
百日天量:=HHV(VAR2,100)=VAR2,COLORMAGENTA;
一年天量:=HHV(VAR2,250)=VAR2,COLORGREEN;
STICKLINE(百日天量,VOLUME,VOLUME*0.85,1.5,0),COLORMAGENTA;
STICKLINE(一年天量,VOLUME,VOLUME*0.925,1.5,0),COLORGREEN;
DRAWTEXT(百日天量,V*0.93,'百'),COLORMAGENTA;
DRAWTEXT(一年天量,V*1.15,'年'),COLORGREEN;

NOTEXTV5:MA(VOLUME,5),COLORYELLOW,LINETHICK1;
{NOTEXTV35:MA(VOLUME,35),COLORWHITE,LINETHICK1;}
NOTEXTV60:MA(VOLUME,60),COLORMAGENTA,LINETHICK2;
DRAWTEXT(CROSS(NOTEXTV5,NOTEXTV60),V*1.15,'★'),COLORFF66E0;{5日均量线上穿60日}
NOTEXTV135:=MA(VOLUME,135),LINETHICK1;
{DRAWICON(十换手>30 AND 廿换手<80 AND ABD1 OR (ABZ1 AND ABD2),V,5);}{笑脸}
{DRAWICON(十换手>30 AND 廿换手<80 AND (ABD2 OR ABZ2 OR ((百日天量 OR 一年天量) AND 安全线<REF(安全线,30))),V,6);}{哭脸}
DRAWICON(十换手>80,-V*0.2,23);
DRAWTEXT(CURRBARSCOUNT=40 AND COUNT(十换手>80,40)>0,HHV(V,80)*0.9,'红十,有强庄');
{DRAWTEXT(CURRBARSCOUNT=40,HHV(V,80)*0.9,'10日换手>30变脸,>80红十,有强庄');}
{DRAWICON(廿换手>80 AND 十换手<80,-V*0.2,17);}
{DRAWTEXT(CURRBARSCOUNT=80,HHV(V,80)*0.95,'20日换手>80桔子'),COLOR00FFFF;
DRAWICON(廿换手>80 AND (ABD2 OR ABZ2),V,6);}{哭脸}
{洗盘量}
洗盘量:=V<REF(LLV(V,40),1) OR V<REF(LLV(V,50),1) OR V<REF(LLV(V,60),1) OR V<REF(LLV(V,80),1),COLORBROWN;
STICKLINE(洗盘量,V,0,2.5,0),COLORBROWN;
{地量群}
H_L:=0.1*CONST(HHV(V,240));
V100:= V<=LLV(V,100)*1.2 AND V>0 AND BARSCOUNT(V)>=100;
百日地量群:=COUNT(V100,5)>=3;
DRAWTEXT(FILTER(百日地量群,8),V+1.01*H_L,'地量群'),COLORGRAY;
{百日地量}
T:=DYNAINFO(8)>0;
NOTEXTVO:V=LLV(V,100) AND T;{百日地量}
NOTEXT地量:T AND NOTEXTVO,COLORYELLOW;{百日地量}
STICKLINE(NOTEXT地量,0,V,4,0),COLORYELLOW;{百日地量};
{资金异动}
资金异动:V/MA(V,60)*100,COLORYELLOW;
STICKLINE(资金异动>100 AND V<1.2*MA(V,5),0,0.5*V,0.1,0),COLORYELLOW;
STICKLINE(资金异动>100 AND V>=1.2*MA(V,5),0,0.35*V,0.1,0),COLORYELLOW;

{}
A01:=DYNAINFO(7);
A03:=BARSCOUNT(C);
A04:=(SMA((C / HHV(H,120)),3,1) * 100);
A05:=IF((A03 > 20),A04,0);
A06:=IF((L > A01),0,IF((H < A01),1,(((A01 - L) + 0.009) / ((H - L) + 0.009))));
A07:=DMA(A06,(V / CAPITAL)) * 60;
A09:=IF((((A07 > 0) AND (A07 > REF(A07,1))) AND (A05 <= 88)),A07,0);
VAR3A:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
趋势:=EMA(VAR3A,3)-10;
STICKLINE((A09>0) AND 趋势<40,0,V/6,2,0),COLORMAGENTA;{粉色机构建仓区}
A011:=DYNAINFO(5);
A013:=BARSCOUNT(H);
A014:=(SMA((H / HHV(C,120)),3,1) * 100);
A015:=IF((A013 > 20),A014,0);
A016:=IF((H < A011),0,IF((L > A011),1,(((A011 - H) + 0.009) / ((L - H) + 0.009))));
A017:=DMA(A016,(V / CAPITAL)) * 60;
A019:=IF((((A017 >0) AND (A017 > REF(A017,1))) AND (A015 >= 88)),A017,0);
VAR23:=3*SMA((H-HHV(H,55))/(LLV(L,55)-HHV(H,55))*100,5,1)-2*SMA(SMA((H-HHV(H,55))/(LLV(L,55)-HHV(H,55))*100,5,1),3,1);
趋势1:=EMA(VAR23,3)-10;
STICKLINE((A019 > 0 AND (趋势1<20 OR 趋势1>REF(趋势1,1)AND 趋势1<50)),0,V/5,2,0),COLORGREEN;{绿色机构出仓区}
{NOTEXTAAAAARAWLINE(V>=HHV(V,30),V,V<=LLV(V,10),HHV(V,6),1),COLORFFCCCC;
NOTEXTBBBBBRAWLINE(V>=HHV(V,10),V,V<=LLV(V,3),HHV(V,3),1),COLORYELLOW;}
{活跃量}
{NOTEXT活跃量:EMA(V,250),COLOR8B668B,DOTLINE,LINETHICK1;
CCC:=EMA(100*(C-LLV(L,34))/(HHV(H,34)-LLV(L,34)),3)/4;}
NOTEXT百地线LV(V,100),COLORCYAN;
回复

使用道具 举报

发表于 2024-8-4 16:39 | 显示全部楼层
收藏了,谢谢分享机会留给有准备的人!
🐂🐂🐂🐂🐂🐂🐂🐂🐂🐂🐂🐂🐂🐂
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|股海明灯官网 ( 京ICP备18020431号 )

GMT+8, 2024-11-26 11:10 , Processed in 0.097193 second(s), Total 13, Slave 13 queries , Gzip On, MemCached On.

Powered by Discuz! X3.5

Copyright © 2001-2024 Tencent Cloud.

快速回复 返回顶部 返回列表