北沙月周日框A
2018-04-06 作者:admin 来源:网络
{月金叉红柱}
DRAWGBK(CURRBARSCOUNT=1, RGB(110,108,108),RGB(88,30,0),0,,0);
DRAWTEXT_FIX(1,0.88,5,0,财神805优化作品),COLORRED;
均价:=AMOUNT/V/100;
ZT:=REF(C,1)*1.1-C<0.01 AND H=C;{涨停}
BA:STICKLINE(ZT,OPEN,CLOSE,0.1,0),COLORYELLOW;
N:=30;{此数值可视需要调整}
BL:=V=HHV(V,N) AND V>REF(V,1)*2;
XGA:=ZT AND BL;
TSS:=BARSLAST(XGA);
NOTEXTEE:IF(TSS<=9,DRAWLINE(XGA,均价,REF(XGA,1),REF(均价,1),1),DRAWNULL),COLORYELLOW;
DRAWNUMBER(ISLASTBAR,NOTEXTEE,NOTEXTEE),COLORYELLOW;
NOTEXT2:IF(TSS<=9,REF(C,TSS),DRAWNULL),COLORGRAY;
NOTEXT3:IF(TSS<=9,REF(L,TSS),DRAWNULL),COLORGRAY;
ED:DRAWNUMBER(BETWEEN(TSS,1,9),REF(L,TSS),TSS),COLORLIGRAY;
{www.tzj123.com}
DRAWRECTREL(300,125,900,125,80);
DRAWRECTREL(300,250,900,250,80);
DRAWRECTREL(300,375,900,375,80);
DRAWRECTREL(300,500,900,500,80);
DRAWRECTREL(300,625,900,625,80);
DRAWRECTREL(300,750,900,750,80);
DRAWRECTREL(300,875,900,875,80);
STICKLINE(C<REF(C,1),H,L,0,0),COLORCYAN;
STICKLINE(C<REF(C,1),C,O,0,0),COLORBLUE;
DRAWTEXT_FIX(1,0.3,0.875,1,第一防线),COLORYELLOW;
DRAWTEXT_FIX(1,0.3,0.75,1,第二防线),COLORYELLOW;
DRAWTEXT_FIX(1,0.3,0.625,1,第三防线),COLORYELLOW;
DRAWTEXT_FIX(1,0.3,0.5,1,第四防线),COLORYELLOW;
DRAWTEXT_FIX(1,0.3,0.375,1,第五防线),COLORYELLOW;
DRAWTEXT_FIX(1,0.3,0.25,1,第六防线),COLORYELLOW;
DRAWTEXT_FIX(1,0.3,0.125,1,第七防线),COLORYELLOW;
筹码峰值价:SSRP.SSRP,COLOR40408F,LINETHICK2;
MA5:MA(C,5),COLORWHITE,LINETHICK1;
IF(MA5>REF(MA5,1),MA5,DRAWNULL),COLORRED,LINETHICK2;
IF(MA5<REF(MA5,1),MA5,DRAWNULL),COLORGREEN,LINETHICK2;
MA13:MA(CLOSE,13),COLORYELLOW;
MA21:MA(CLOSE,21),COLORMAGENTA;
MA34:=MA(CLOSE,34);
MA60:MA(CLOSE,60),COLORGREEN;
MA120:MA(CLOSE,120),COLORBLUE;
JC:="MACD.MACD#MONTH"<0;
TS:=BARSLAST(JC),NODRAW;
起点:=FILTERX(TS=1,BARSSINCE(C));
终点:=FILTERX(TS>=1 AND REFX(TS,1)=0,BARSSINCE(C));
天数:=BARSLAST(起点);
红柱最高价:IF(天数>=0 AND REFX(TS>=1,BARSNEXT(ISLASTBAR)),CONST(HHV(H,TS)),DRAWNULL),COLORYELLOW,LINETHICK2;
红柱最低价:IF(天数>=0 AND REFX(TS>=1,BARSNEXT(ISLASTBAR)),CONST(LLV(L,TS)),DRAWNULL),COLORYELLOW,LINETHICK2;
STICKLINE(起点,红柱最高价,红柱最低价,0,-1),COLORYELLOW;
STICKLINE(ISLASTBAR,红柱最高价,红柱最低价,0,-1),COLORYELLOW;
N01:=10;
T01:=CONST(HHVBARS(V,10)),COLOR0000FF,LINETHICK1;
量能平台:IF(CURRBARSCOUNT<=N01+15,CONST(IF(T01=0,C,REF(C,T01))),DRAWNULL)
,COLORLIBLUE,LINETHICK4;
新量能点:IF(CURRBARSCOUNT=T01+1,量能平台,DRAWNULL),CIRCLEDOT,COLORFFFFFF,LINETHICK9;
DRAWTEXT(ISLASTBAR,量能平台, 量能平台),COLOR00F0F0;
HV:=HHV(V,5)=V OR V/REF(V,1)>=5;
FT:=BARSLAST(HV);
量能平台1:=IF(HV,C,REF(C,FT));
DRAWTEXT(量能平台1>REF(量能平台1,1)AND C<REF(C,1),L,*带量跌),COLORGREEN;
DRAWTEXT(量能平台1<REF(量能平台1,1) AND C>REF(C,1),L,*低买),COLORYELLOW;
DRAWTEXT(量能平台1>REF(量能平台1,1) AND C>REF(C,1) AND C>MA(C,13) AND C=HHV(C,20)
AND C/REF(C,1)>1.05,L,*量),COLORFFFFFF;
{月死叉绿柱}
SC:="MACD.MACD#MONTH">0;
TS1:=BARSLAST(SC),NODRAW;
起点1:=FILTERX(TS1=1,BARSSINCE(C));
终点1:=FILTERX(TS1>=1 AND REFX(TS1,1)=0,BARSSINCE(C));
天数1:=BARSLAST(起点1);
绿柱最高价:IF(天数1>=0 AND REFX(TS1>=1,BARSNEXT(ISLASTBAR)),CONST(HHV(H,TS1)),DRAWNULL),COLORLIBLUE;
绿柱最低价:IF(天数1>=0 AND REFX(TS1>=1,BARSNEXT(ISLASTBAR)),CONST(LLV(L,TS1)),DRAWNULL),COLORLIBLUE;
STICKLINE(起点1,绿柱最高价,绿柱最低价,0,-1),COLORLIBLUE,LINETHICK2;
STICKLINE(ISLASTBAR,绿柱最高价,绿柱最低价,0,-1),COLORLIBLUE,LINETHICK2;
{周金叉红柱}
ZJC:="MACD.MACD#WEEK"<0;
ZTS:=BARSLAST(ZJC),NODRAW;
Z起点:=FILTERX(ZTS=1,BARSSINCE(C));
Z终点:=FILTERX(ZTS>=1 AND REFX(ZTS,1)=0,BARSSINCE(C));
Z天数:=BARSLAST(Z起点);
Z红柱最高价:IF(Z天数>=0 AND REFX(ZTS>=1,BARSNEXT(ISLASTBAR)),CONST(HHV(H,ZTS)),DRAWNULL),COLORMAGENTA;
Z红柱最低价:IF(Z天数>=0 AND REFX(ZTS>=1,BARSNEXT(ISLASTBAR)),CONST(LLV(L,ZTS)),DRAWNULL),COLORMAGENTA;
STICKLINE(Z起点,Z红柱最高价,Z红柱最低价,0,-1),COLORMAGENTA;
STICKLINE(ISLASTBAR,Z红柱最高价,Z红柱最低价,0,-1),COLORMAGENTA;
{周死叉绿柱}
ZSC:="MACD.MACD#WEEK">0;
ZTS1:=BARSLAST(ZSC),NODRAW;
Z起点1:=FILTERX(ZTS1=1,BARSSINCE(C));
Z终点1:=FILTERX(ZTS1>=1 AND REFX(ZTS1,1)=0,BARSSINCE(C));
Z天数1:=BARSLAST(Z起点1);
Z绿柱最高价:IF(Z天数1>=0 AND REFX(ZTS1>=1,BARSNEXT(ISLASTBAR)),CONST(HHV(H,ZTS1)),DRAWNULL),COLORGREEN;
Z绿柱最低价:IF(Z天数1>=0 AND REFX(ZTS1>=1,BARSNEXT(ISLASTBAR)),CONST(LLV(L,ZTS1)),DRAWNULL),COLORGREEN;
STICKLINE(Z起点1,Z绿柱最高价,Z绿柱最低价,0,-1),COLORGREEN;
STICKLINE(ISLASTBAR,Z绿柱最高价,Z绿柱最低价,0,-1),COLORGREEN;
{日金叉红柱}
RJC:="MACD.MACD#DAY"<0;
RTS:=BARSLAST(RJC),NODRAW;
R起点:=FILTERX(RTS=1,BARSSINCE(C));
R终点:=FILTERX(RTS>=1 AND REFX(RTS,1)=0,BARSSINCE(C));
R天数:=BARSLAST(R起点);
R红柱最高价:IF(R天数>=0 AND REFX(RTS>=1,BARSNEXT(ISLASTBAR)),CONST(HHV(H,RTS)),DRAWNULL),COLORLIRED;
R红柱最低价:IF(R天数>=0 AND REFX(RTS>=1,BARSNEXT(ISLASTBAR)),CONST(LLV(L,RTS)),DRAWNULL),COLORLIRED;
STICKLINE(R起点,R红柱最高价,R红柱最低价,0,-1),COLORLIRED;
STICKLINE(ISLASTBAR,R红柱最高价,R红柱最低价,0,-1),COLORLIRED;
{日死叉绿柱}
RSC:="MACD.MACD#DAY">0;
RTS1:=BARSLAST(RSC),NODRAW;
R起点1:=FILTERX(RTS1=1,BARSSINCE(C));
R终点1:=FILTERX(RTS1>=1 AND REFX(RTS1,1)=0,BARSSINCE(C));
R天数1:=BARSLAST(R起点1);
R绿柱最高价:IF(R天数1>=0 AND REFX(RTS1>=1,BARSNEXT(ISLASTBAR)),CONST(HHV(H,RTS1)),DRAWNULL),COLORGRAY;
R绿柱最低价:IF(R天数1>=0 AND REFX(RTS1>=1,BARSNEXT(ISLASTBAR)),CONST(LLV(L,RTS1)),DRAWNULL),COLORGRAY;
STICKLINE(R起点1,R绿柱最高价,R绿柱最低价,0,-1),COLORGRAY;
STICKLINE(ISLASTBAR,R绿柱最高价,R绿柱最低价,0,-1),COLORGRAY;
DRAWKLINE(H,O,L,C);
DRAWTEXT_FIX(1,0.02,0.90,0,财神805-正品标志),COLOR00FFFF,LINETHICK2;
{www.tzj123.com}
DRAWTEXT_FIX(C>0,0.00,0.10,0,STRCAT(主题投资：,EXTERNSTR(0,7))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.65,0.8,0,HYBLOCK),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.75,0.8,0,DYBLOCK),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.65,0.9,0,GNBLOCK),COLORYELLOW;
{以上为显示所属板块，地域，概念等};
总股本:=STRCAT(STRCAT(总股本: ,CON2STR(TOTALCAPITAL/1000000,2)),亿);
流通盘:=STRCAT(STRCAT( 流通盘: ,CON2STR(CAPITAL/1000000,2)),亿);
全流通:=STRCAT( 全流通: ,CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2));
市值:=STRCAT(STRCAT( 流通市值: ,CON2STR((CAPITAL/1000000)*C,2)),亿);
上市日期:=STRCAT( 上市天数: ,CON2STR(FINANCE(42),0));
股本市值:=STRCAT(股本市值: ,STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市日期));
阅读:487 评论:0