通达信主散分析主图公式 源码

通达信主散分析主图公式 源码

{主散分析}
 
成交额【万】:AMOUNT/10000,POINTDOT,COLORYELLOW,NODRAW;
 
超B:=L2_AMO(0,2)/10000.0;
 大B:=L2_AMO(1,2)/10000.0;
 中B:=L2_AMO(2,2)/10000.0;
 小B:=L2_AMO(3,2)/10000.0;
 超S:=L2_AMO(0,3)/10000.0;
 大S:=L2_AMO(1,3)/10000.0;
 中S:=L2_AMO(2,3)/10000.0;
 小S:=L2_AMO(3,3)/10000.0;
 
TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0);
 大宗进:=(超B)+(大B),NODRAW;
 大宗出:=(超S)+(大S),NODRAW;
 非大宗进:=(中B)+(小B),NODRAW;
 非大宗出:=(中S)+(小S),NODRAW;
 统计额:(超B)+(大B)+(超S)+(大S)+(中B)+(小B)+(中S)+(小S),NODRAW;
 其它额:=(成交额【万】-统计额),NODRAW;
 DAZHIV:=CONST(MAX(ABS(统计额),MAX(ABS(大宗进),MAX(ABS(大宗出),MAX(ABS(非大宗进),ABS(非大宗出)))))),NODRAW;
 DRAWRECTREL(580,300,920,550,RGB(128,128,128));
 DRAWRECTREL(420-CONST(统计额*340/DAZHIV),300,420,550,RGB(128,128,128));
 DRAWRECTREL(250-CONST(大宗出*340/DAZHIV),300,250,550,RGB(0,250,0));
 DRAWRECTREL(250,300,250+CONST(大宗进*340/DAZHIV),550,RGB(250,0,0));
 DRAWRECTREL(750-CONST(非大宗出*340/DAZHIV),300,750,550,RGB(0,250,0));
 DRAWRECTREL(750,300,750+CONST(非大宗进*340/DAZHIV),550,RGB(250,0,0));
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.212,0.75,0,'主力进出'),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.712,0.75,0,'散户进出'),COLORYELLOW;
 DRAWRECTREL(749.8,300,750.2,550,RGB(0,0,60));
 DRAWRECTREL(249.8,300,250.2,550,RGB(0,0,60));
 DRAWRECTREL(500,100,500,900,RGB(250,250,0)),NODRAW;
 DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.44,0.35,0,CEILING(大宗进)),COLORYELLOW;
 DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.015,0.35,0,CEILING(大宗出))COLORYELLOW;
 DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.94,0.35,0,CEILING(非大宗进))COLORYELLOW;
 DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.52,0.35,0,CEILING(非大宗出))COLORYELLOW;
 大宗进比:=大宗进/统计额*100,NODRAW;
 大宗出比:=大宗出/统计额*100,NODRAW;
 非大宗进比:=非大宗进/统计额*100,NODRAW;
 非大宗出比:=非大宗出/统计额*100,NODRAW;
 DRAWTEXT_FIX(1,0.32,0.08,0,STRCAT(STRCAT('进',CON2STR(大宗进比,2)),'%')),COLORYELLOW;
 DRAWTEXT_FIX(1,0.12,0.08,0,STRCAT(STRCAT('出 ',CON2STR(大宗出比,2)),'% ')),COLORYELLOW;
 DRAWTEXT_FIX(1,0.80,0.08,0,STRCAT(STRCAT('进 ',CON2STR(非大宗进比,2)),'% ')),COLORYELLOW;
 DRAWTEXT_FIX(1,0.65,0.08,0,STRCAT(STRCAT('出 ',CON2STR(非大宗出比,2)),'% ')),COLORYELLOW;