條形伸縮公式[大智慧公式]

相關標簽:

?

{引用漲幅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.tumamayizhan.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.tumamayizhan.com }

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?