UID342523
积分279
学分
推广 个
预报后涨停 支
阅读权限40
在线时间 小时
注册时间2016-4-24
最后登录1970-1-1
|
楼主 |
发表于 2025-11-11 21:30
|
显示全部楼层
{每一个|死叉|红色MACD最高柱的最低价|绿色MACD最高柱的最高价|向右划线并在线末端标上最低价100元}
{简介:=STRCAT('简介:',EXTERNSTR(1,10010));DRAWTEXT_FIX(1,0,0,0,简介),COLORGREEN;}
VARY1:=EMA(C,12)-EMA(C,26);
VARY2:=EMA(VARY1,9);
VARY3:=2*(VARY1-VARY2);
VARY4:=CROSS(VARY1,VARY2);
VARY5:=CROSS(VARY2,VARY1);
VARY6:=HHVBARS(VARY3,BARSLAST(VARY4)+1);
VARY7:=CROSS(BACKSET(VARY5 OR (ISLASTBAR AND VARY1>VARY2),VARY6+1),0.1);
VARY8:=BARSLAST(VARY7);
VARY9:=REF(L,VARY8);
DRAWSL(1,VARY9,0,1,0),COLORRED;{STICKLINE(1,VARY9,VARY9,2,1),COLORRED;}
DRAWTEXT(REFX(VARY7,1) OR (ISLASTBAR AND REF(VARY1>VARY2,VARY8)),VARY9,VAR2STR(VARY9,2)),COLORRED,DRAWABOVE;
VARY10:=LLVBARS(VARY3,BARSLAST(VARY5)+1);
VARY11:=CROSS(BACKSET(VARY4 OR (ISLASTBAR AND VARY1<VARY2),VARY10+1),0.1);
VARY12:=BARSLAST(VARY11);
VARY13:=REF(H,VARY12);
DRAWSL(1,VARY13,0,1,0),COLORCYAN;
DRAWTEXT(REFX(VARY11,1) OR (ISLASTBAR AND REF(VARY1<VARY2,VARY12)),VARY13,VAR2STR(VARY13,2)),COLORCYAN,DRAWABOVE;
SX RAWLINE(VARY5,H,REF(VARY5,1),REF(H,1),1),COLORYELLOW,DOTLINE;
JG1:=REF(H,BARSLAST(VARY5));
DRAWNUMBER(CURRBARSCOUNT=1 OR (SX!=DRAWNULL AND REFX(SX=DRAWNULL,1)),JG1,JG1),COLORYELLOW,DRAWABOVE;
JX RAWLINE(VARY4,L,REF(VARY4,1),REF(L,1),1),COLORMAGENTA,DOTLINE;
JG2:=REF(L,BARSLAST(VARY4));
DRAWNUMBER(CURRBARSCOUNT=1 OR (JX!=DRAWNULL AND REFX(JX=DRAWNULL,1)),JG2,JG2),COLORMAGENTA,DRAWABOVE;
{每一次MACD最大绿柱到最大红柱之间的涨跌幅,分别在最大红绿住最高价最低处标注}
VARI6:=LLVBARS(VARY3,BARSLAST(VARY5)+1);
VARI7:=HHVBARS(VARY3,BARSLAST(VARY4)+1);
VARI8:=CROSS(BACKSET(VARY5,VARI7+1) AND VARY1>VARY2,0.1) OR CROSS(BACKSET(ISLASTBAR AND VARY1>VARY2,VARI7+1),0.1);
VARI9:=REF(L,VARI6);
VARI10:=(H-VARI9)/VARI9*100;
VARI11:=CROSS(BACKSET(VARY4,VARI6+1) AND VARY1<VARY2,0.1) OR CROSS(BACKSET(ISLASTBAR AND VARY1<VARY2,VARI6+1),0.1);
VARI12:=REF(H,VARI7);
VARI13:=(L/VARI12-1)*100;
DRAWTEXT(VARI8,H,VARCAT(VAR2STR(VARI10,2),'%')),COLORYELLOW,DRAWABOVE;
DRAWTEXT(VARI11,L*0.99,VARCAT(VAR2STR(VARI13,2),'%')),COLORGREEN;
{ZL RAWTEXT(ISLASTBAR,H,VARCAT(VAR2STR((H-VARI9)/VARI9*100,2),'%')),NODRAW,COLORGREEN;}
涨幅 H-VARI9)/VARI9*100,NODRAW,COLORMAGENTA;
{黄金柱}
SPJ:=C<=REFX(C,1) AND C<=REFX(C,2) AND C<=REFX(C,3);
CJL:=V>=REFX(V,1) AND V>=REFX(V,2) AND V>=REFX(V,3);
ZDJ:=O<=REFX(L,1) AND O<=REFX(L,2) AND O<=REFX(L,3);
STICKLINE(SPJ AND CJL AND ZDJ AND C>O,OPEN,CLOSE,3,0),COLORYELLOW;
STICKLINE(SPJ AND CJL AND ZDJ AND C>O,OPEN,CLOSE,0.1,0),COLORRED;
{画涨停跌停K线}
DT:=IF(NAMEINCLUDE('ST'),(C<=DTPRICE(REF(CLOSE,1),0.05) AND C=L),IF(FINANCE(3)=3 OR FINANCE(3)=4,(C<=DTPRICE(REF(CLOSE,1),0.2) AND C=L),(C<=DTPRICE(REF(CLOSE,1),0.1) AND C=L)));
ZT:=IF(NAMEINCLUDE('ST'),(C>=ZTPRICE(REF(CLOSE,1),0.05) AND C=H),IF(FINANCE(3)=3 OR FINANCE(3)=4,(C>=ZTPRICE(REF(CLOSE,1),0.2) AND C=H),(C>=ZTPRICE(REF(CLOSE,1),0.1) AND C=H)));
STICKLINE(ZT,C,O,-1,0),COLORRED;
STICKLINE(DT,C,O,-1,0),COLORGREEN;
个数:VARY12+1,COLORGREEN,NODRAW;
{涨停价一半划线}
VAR1:=(STR2CON(CODE)>=300000 AND STR2CON(CODE)<=302999 AND DATE>=1200824);
VAR2:=VAR1 OR (STR2CON(CODE)>=688000 AND STR2CON(CODE)<=689999);
VAR3:=(STR2CON(CODE)>=430000 AND STR2CON(CODE)<=439999) OR
(STR2CON(CODE)>=830000 AND STR2CON(CODE)<=879999) OR
(STR2CON(CODE)>=920000 AND STR2CON(CODE)<=929999);
VAR4:=IF(VAR3,ZTPRICE(REF(C,1),0.3),IF(VAR2,ZTPRICE(REF(C,1),0.2),ZTPRICE(REF(C,1),0.1)));
VAR5:=C>=VAR4 AND C=H;
VAR6:=BARSLAST(VAR5);
VAR7:=IF(O>REF(C,1),(REF(C,1)+C)/2,(O+C)/2);
DRAWSL(1,REF(VAR7,VAR6),0,1,0),COLORYELLOW;
DRAWTEXT(REFX(VAR5,1) OR ISLASTBAR,REF(VAR7,VAR6),VAR2STR(REF(VAR7,VAR6),2)),COLORYELLOW,DRAWABOVE;
B:=CURRBARSCOUNT;
B1:=DATE<>REF(DATE,1);
B2:=BARSLAST(B1)+1;
B3:=MA(C,B2);
B4:=SUM(AMO,B2)/SUM(VOL,B2)/100;
B5:=IF(CAPITAL>0,B4,B3);
均价:IF(B<=48 AND PERIOD=1 ,B5,DRAWNULL),COLORYELLOW,LINETHICK2;
B6:=REF(C,B2);
STICKLINE(PERIOD=1,B6,B6,4,1),COLORGREEN;
DRAWTEXT((ISLASTBAR OR REFX(DAY!=REF(DAY,1),1)) AND PERIOD=1,B6,VAR2STR(B6,2)),COLORGREEN,DRAWABOVE;
MA1:MA(CLOSE,5),COLORWHITE;
MA2:MA(CLOSE,10),COLORYELLOW;
MA3:MA(CLOSE,20),COLORMAGENTA;
MA4:MA(CLOSE,60),COLORGREEN;
MA5:MA(CLOSE,120),COLORGRAY;
MA6:MA(CLOSE,245),COLORBLUE;
星期几:=VARCAT(' 星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',''))))));
日期:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几);
DRAWTEXT_FIX(ISLASTBAR,0.78,1,0,日期),COLORMAGENTA;
|
|