|
以下是通达信天量洗缩量突破“黄石小勇子版”主图选股源码（无源码的请下载附件导入）
请妞妞老师预警--天量突破
请妞妞老师帮忙写个放天量的选股公式，天量的标准是2年内放天量的，，当股价突破该天量位置时当天量小于天量，突破预警。。
{主图 带价格标注}
T:=HHVBARS(VOL,200);
TJ:=REF(COUNT(H>REF(MAX(C,O),T),T)<2,1) AND VOL<REF(VOL,T)AND T>20;
XG:=COUNT(CROSS(C,REF(MAX(C,O),T)),T)=1 AND CROSS(C,REF(MAX(C,O),T)) AND TJ;
STICKLINE(T>=0,REF(MAX(C,O),T),REF(MAX(C,O),T),4,0),COLOR0066CC;
DRAWTEXT(T=0,H*1.02,VARCAT(VARCAT('天量价：',VAR2STR(REF(MAX(C,O),T),2)),'元'))COLORYELLOW;
STICKLINE(XG,H,L,0,0),COLORFF00FF;
STICKLINE(XG,C,O,3,0),COLOR990099;
STICKLINE(XG,C,O,2,0),COLORBB00BB;
STICKLINE(XG,C,O,1,0),COLORDD00DD;
STICKLINE(XG,C,O,0.3,0),COLORFF00FF;
DRAWICON(XG,L*0.93,38);
{主图 价格显示在窗口}
T:=HHVBARS(VOL,200);
TJ:=REF(COUNT(H>REF(MAX(C,O),T),T)<2,1) AND VOL<REF(VOL,T)AND T>20;
XG:=COUNT(CROSS(C,REF(MAX(C,O),T)),T)=1 AND CROSS(C,REF(MAX(C,O),T)) AND TJ;
天量价:REF(MAX(C,O),T),NODRAW,COLORYELLOW;
STICKLINE(T>=0,REF(MAX(C,O),T),REF(MAX(C,O),T),4,0),COLOR0066CC;
STICKLINE(XG,H,L,0,0),COLORFF00FF;
STICKLINE(XG,C,O,3,0),COLOR990099;
STICKLINE(XG,C,O,2,0),COLORBB00BB;
STICKLINE(XG,C,O,1,0),COLORDD00DD;
STICKLINE(XG,C,O,0.3,0),COLORFF00FF;
DRAWICON(XG,L*0.93,38);
{幅图}
T:=HHVBARS(VOL,200);
TJ:=REF(COUNT(H>REF(MAX(C,O),T),T)<2,1) AND VOL<REF(VOL,T)AND T>20;
XG:=COUNT(CROSS(C,REF(MAX(C,O),T)),T)=1 AND CROSS(C,REF(MAX(C,O),T)) AND TJ;
STICKLINE(XG,0,8,1.7,0),COLORLIMAGENTA;
{选股}
T:=HHVBARS(VOL,200);
TJ:=REF(COUNT(H>REF(MAX(C,O),T),T)<2,1) AND VOL<REF(VOL,T)AND T>20;
XG:COUNT(CROSS(C,REF(MAX(C,O),T)),T)=1 AND CROSS(C,REF(MAX(C,O),T)) AND TJ;
610533693.jpg
61100323.jpg
61166743.jpg
610344647.rar
(2.44 KB, 下载次数: 0, 售价: 1 金钱)
|
