编写要求:
源码:
MA5:MA(CLOSE,5);
MA10:MA(CLOSE,10);
MA20:MA(CLOSE,20);
MA60:MA(CLOSE,60);
MA120:MA(CLOSE,120);
{}
GET:=ZIG(3,7);
PL5:=ZIG(3,5);
EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);
EX1:=ZIG(3,5)=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);
PL10:=ZIG(3,10);
EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3);
EX2:=ZIG(3,10)=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3);
PL20:=ZIG(3,20);
EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3);
EX3:=ZIG(3,20)=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3);
PL40:=ZIG(3,40);
走强一:=BARSLAST(PL5REF(PL5,1));
走强二:=BARSLAST(PL10REF(PL10,1));
走强三:=BARSLAST(PL20REF(PL20,1));
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强二),0);
ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强二),0);
DTJZ5:=IF(PL10REF(PL20,1),COUNT(EN2,走强三),0);
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强三),0);
DTJZ10:=IF(PL20REF(PL20,1) AND ZTJD10=1,H,'③'),LINETHICK3,COLOR00FF00,ALIGN1,LAYER0;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L,'②'),LINETHICK3,Color0000FF,ALIGN1,LAYER0;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H,'③'),LINETHICK3,COLOR00FF00,ALIGN1,LAYER0;
DRAWGBKLAST(CLOSE,STRIP(RGB(80,105,180),RGB(0,0,0),0));
{大盘走势}
VAR1:="SH000001$CLOSE";
VAR2:=MA(VAR1,13);
VAR3:=VAR1>VAR2;
VAR4:=VAR2>VAR1;
IF BARSTATUS=2 AND VAR3 THEN BEGIN
DRAWTEXTABS(10,20,'大盘走势:★·强·★·重仓参与,积极操作'),COLORRED,LINETHICK3;
END
ELSE
IF BARSTATUS=2 AND VAR4 THEN BEGIN
DRAWTEXTABS(10,20,'大盘走势:★·弱·★·严控仓位,谨慎操作'),COLORffffff,LINETHICK3;
END;
{①}
AA:=TROUGHBARS(3,15,1)<4;
XG1:=FILTER(AA=1,5);
DRAWTEXT(XG1,L,'①'),LINETHICK3,COLOR00FFFF,ALIGN1,LAYER0;
{太阳选股}
WF:=TROUGHBARS(3,5,2)<4 OR TROUGHBARS(3,5,1)<4;
WD:=((REF(C,1)-C)/C*100>1.5 OR ((REF(C,2)-C)/C*100>1.5) AND CMA(C,13)*0.94;
XG3:=FILTER(WF=1,1) AND WD;
DRAWICON(XG3,l,12),ALIGN1,LAYER0;
TJ:=IF((C-REF(C,1))/REF(C,1)>0.025,1,0);
yl:=IF(C>REF(O,BARSLAST(TJ =1)),REF(O,BARSLAST(TJ =1)),0);
FT:=BARSLAST(yl);
YLX:=REF(yl,FT);
bt:=IF(C
解答:
?PL10:=ZIG(3,10);
PL20:=ZIG(3,20);
Copyright 2018- www.dyjian.com/ 大宇股票知识网 海口美兰韩哲棚百货商行 版权所有 琼ICP备2023001966号
免责声名:本站所发表的内容仅用于学术交流和学习,内容所带来的一切后果均与本站无关。若您发现本站存在您非授权的原创作品,请第一时间联系本站删除!