通达信实用小公式——仓位管控源码
{仓位管控}
M10:MA(C,10),COLORGREEN;
M30:MA(C,30),COLORYELLOW;
X:=CURRBARSCOUNT=1;
X1:DRAWTEXT(C>M10 AND C>M30 AND M10>M30 AND X,M30*0.98,'仓位：80%'),COLORWHITE;
X2:DRAWTEXT(C<M10 AND C>M30 AND M10>M30 AND X,M30*0.98,'仓位：50%'),COLORWHITE;
X3:DRAWTEXT(C<M10 AND C<M30 AND M10>M30 AND X,M30*0.98,'仓位：20%'),COLORWHITE;
X4:DRAWTEXT(C>M10 AND C>M30 AND M10<M30 AND X,M10*0.98,'仓位：50%'),COLORWHITE;
X5:DRAWTEXT(C>M10 AND C<M30 AND M10<M30 AND X,M10*0.98,'仓位：20%'),COLORWHITE;
X6:DRAWTEXT(C<M10 AND C<M30 AND M10<M30 AND X,M10*0.98,'仓位：空仓'),COLORWHITE;
XA:DRAWTEXT_FIX(1,0,0.88,0,'1、实际仓位高于80%、说明头脑发热；'),COLORWHITE,LINETHICK1;
XB:DRAWTEXT_FIX(1,0,1,0,'2、活下来最重要、能吃到鱼身已很好了；'),COLORYELLOW,LINETHICK1;
ZT:=C>=ZTPRICE(REF(CLOSE#DAY,1),0.1);
DT:=C<=DTPRICE(REF(CLOSE#DAY,1),0.1);
BA:STICKLINE(ZT,(H+L)/2,CLOSE,0,0),COLORYELLOW;
BC:STICKLINE(DT,(H+L)/2,CLOSE,0,0),COLORBLUE;
DA:=YEAR AND MONTH AND DAY;
AXA:=STRCAT(CON2STR(YEAR,0),'年');
AAB:=STRCAT(CON2STR(MONTH,0),'月');
AA33:=STRCAT(CON2STR(DAY,0),'日');
AA4:=STRCAT('【',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,
'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
AA1:=STRCAT(STRCAT(STRCAT(AXA,AAB),STRCAT(AA33,AA4)),'】');
S1:DRAWTEXT_FIX(DA,0.7,1,0,AA1),COLORFFAAFF;
