条形伸缩公式[大智慧公式]

相关标签:

{引用涨幅3}

原理解析：
输出A:涨幅 DRAWTEXTABS(2,15,'上证 ' +NUMTOSTRN(STKINDI('1A0001','引用涨幅3.A')*100,2)+'%'),画白色 DRAWTEXTABS(2,45,'深证 ' +NUMTOSTRN(STKINDI('399001','引用涨幅3.A')*100,2)+'%'),画白色 DRAWTEXTABS(2,75,'个股 ' +NUMTOSTRN(("引用涨幅3.A"*100),2 )+'%'),画白色 DRAWTEXTABS(180,86,'0%'),画白色 DRAWTEXTABS(280,86,'5%'),画白色 DRAWTEXTABS(380,86,'10%'),画白色 DRAWRECTABS(180,85 ,180+200 ,86 ,自定色),LAYER6,COLORAAAAAA 上证赋值:STKINDI('1A0001','引用涨幅3.A')*100*20 深证赋值:STKINDI('399001','引用涨幅3.A')*100*20 个股赋值:"引用涨幅3.A"*100*20 条件判断 上证>=0 THEN BEGIN DRAWRECTABS(180,15 ,180+上证 ,25 ,自定色),LAYER6,COLORAAAAAA END 条件判断 上证<0 THEN BEGIN DRAWRECTABS(180,15 ,180-上证 ,25 ,自定色),LAYER6,COLORAAAAAA END 条件判断 深证>=0 THEN BEGIN DRAWRECTABS(180,45 ,180+深证 ,55 ,自定色),LAYER6,COLORAAAAAA END 条件判断 深证<0 THEN BEGIN DRAWRECTABS(180,45 ,180-深证 ,55 ,自定色),LAYER6,COLORAAAAAA END 条件判断 个股>=0 THEN BEGIN DRAWRECTABS(180,75 ,180+个股 ,85 ,自定色),LAYER6,COLORAAAAAA END 条件判断 个股<0 THEN BEGIN DRAWRECTABS(180,75 ,180-个股 ,85 ,自定色),LAYER6,COLORAAAAAA END DRAWTEXTABS(20,110,STKLABEL),线宽为6,COLORFFFF00 DRAWTEXTABS(140,110,品种名称),线宽为6,COLOR00FFFF

 来源:程序化99（ WWW.CXH99.COM ）

源码：

A:DYNAINFO(14);{条形伸缩}
DRAWTEXTABS(2,15,'上证 ' +NUMTOSTRN(STKINDI('1a0001','引用涨幅3.A')*100,2)+'%'),COLORwhite;
DRAWTEXTABS(2,45,'深证 ' +NUMTOSTRN(STKINDI('399001','引用涨幅3.A')*100,2)+'%'),COLORwhite;
DRAWTEXTABS(2,75,'个股 ' +NUMTOSTRN(("引用涨幅3.a"*100),2 )+'%'),COLORwhite;
DRAWTEXTABS(180,86,'0%'),COLORwhite;
DRAWTEXTABS(280,86,'5%'),COLORwhite;
DRAWTEXTABS(380,86,'10%'),COLORwhite;
DRAWRECTABS(180,85 ,180+200 ,86 ,rgb(255,0,0 )),LAYER6,coloraaaaaa;
上证:=STKINDI('1a0001','引用涨幅3.A')*100*20;
深证:=STKINDI('399001','引用涨幅3.A')*100*20;
个股:="引用涨幅3.a"*100*20;
IF 上证>=0 THEN BEGIN DRAWRECTABS(180,15 ,180+上证 ,25 ,rgb(255,0,0 )),LAYER6,coloraaaaaa;end;
IF 上证<0 THEN BEGIN DRAWRECTABS(180,15 ,180-上证 ,25 ,rgb(0,255,0 )),LAYER6,coloraaaaaa;end;
IF 深证>=0 THEN BEGIN DRAWRECTABS(180,45 ,180+深证 ,55 ,rgb(255,0,0 )),LAYER6,coloraaaaaa;end;
IF 深证<0 THEN BEGIN DRAWRECTABS(180,45 ,180-深证 ,55 ,rgb(0,255,0 )),LAYER6,coloraaaaaa;end;
IF 个股>=0 THEN BEGIN DRAWRECTABS(180,75 ,180+个股 ,85 ,rgb(255,0,0 )),LAYER6,coloraaaaaa;end;
IF 个股<0 THEN BEGIN DRAWRECTABS(180,75 ,180-个股 ,85 ,rgb(0,255,0 )),LAYER6,coloraaaaaa;end;
DRAWTEXTABS(20,110,STKLABEL),LINETHICK6,Colorffff00;
DRAWTEXTABS(140,110,STKNAME),LINETHICK6,Color00ffff;

{程序化交易 www.cxh99.com }

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】