编写要求:
请老师帮忙优化分时公式《买卖点提示》谢谢!这个公式我要把它合到另一个分时公式一起使用,但是图压缩得很利害看不清,请老师把公式里的柱体延长至最高50最低-50,可以吗?谢谢老师!辛苦了。
VAR1:=EMA(EMA(CLOSE,13),13);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盘<0,控盘,0,1,0),COLOR00FF00;
STICKLINE(控盘>REF(控盘,1) AND 控盘<0,控盘,0,1,0),COLORFF00FF;
无庄控盘:=控盘<0;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1,0),COLOR0000FF;
有庄控盘:=控盘>REF(控盘,1) AND 控盘>0;
VAR2:=100*WINNER(CLOSE*0.95);
STICKLINE(控盘[0,控盘,0,1,0),COLORFFFF00;
主力出货:=控盘][0;
STICKLINE(VAR2>50 AND COST(85)0,控盘,0,1,0),COLOR00FFFF;
高度控盘:=VAR2>50 AND COST(85)0,COLOR00FFFF,LINETHICK2;
A10:=CROSS(控盘,0);
控盘B:=FILTER(IF(A10,1,0),5);
{分时价格原码}
JJ:=DYNAINFO(11);
{波段买卖原码}
P:=55;S:=8;M1:=3;
财:=(EMA(CLOSE,S)-EMA(CLOSE,P))*10,COLORRED,LINETHICK2;
神:=EMA(财,M1),COLORGREEN,LINETHICK1;
DRAWBAND(财,RGB(255,0,0),神,RGB(0,100,50));
{股价与均线偏离买卖条件}
BTJ1:=(C-JJ)/JJ<-0.005;
BTJ11:=(C-JJ)/JJ<-0.03;
BTJ12:=LAST(JJ>=REF(JJ,1),5,1) AND (C-JJ)/JJ<0.005;
STJ1:=(C-JJ)/JJ>0.005;
STJ01:=控盘][0.5;
STJ02:=控盘>0;
BTJ2:=控盘>REF(控盘,1) AND 控盘<-0.2;
BTJ22:=控盘>REF(控盘,1) AND 控盘<0 ;
BTJ3:=CROSS(财,神) AND 财<-0.3;
BTJ32:=CROSS(财,神) AND 财<-0.1;
STJ31:=CROSS(神,财);
STJ32:=CROSS(神,财) AND 财>1.618;
BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,13);
BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,13);
BTJ82:=FILTER(BTJ12 AND BTJ22 AND BTJ32,13);
DRAWTEXT(BTJ811,神*1.2,'必买'),COLORWHITE;
{以下不用改};
MA(C,15),COLORRED;
阻力:REFDATE(REF(HHV(C,60),FROMOPEN-60),DATE),COLORGREEN;
斌好:=CROSS(MA(C,15),阻力);STICKLINE(斌好,0,60,1,0),COLORYELLOW;DRAWTEXT(斌好,60,'突破阻力'),COLORYELLOW;
]
解答:
?HH:=CONST(HHV(MAX(控盘,财),FROMOPEN));
阻力:REFDATE(REF(HHV(C,60),FROMOPEN-60),DATE),colorgreen,NODRAW;