%> 在个股付图中显示大盘K线图_一百万教程网
在个股付图中显示大盘K线图 2893

DRAWGBKLAST(C>0,STRIP(RGB(0,0,0),RGB(0,50,50),0));


DRAWTEXTABS(10 ,5 ,'沙吾提制作' ),COLOR00FFFF,LINETHICK2;


DPC:=INDEXC;


DPO:=INDEXO;


DPH:=INDEXH;


DPL:=INDEXL;


STICKLINE(DPC>DPO,DPC,DPO,8,0),COLOR0000FF;


STICKLINE(DPC>DPO,DPH,DPL,0.5,0),COLOR0000FF;


STICKLINE(DPC<DPO,DPC,DPO,8,0),COLOR00FF00;


STICKLINE(DPC<DPO,DPH,DPL,0.5,0),COLOR00FF00;


SH:=STKINDI('1A0001','1A0001');


SZ:=STKINDI('399001','399001');


IF STRCMP(MARKETLABEL,'SH')=0 THEN BEGIN DRAWTEXTABS(200,0,'上证指数'),LINETHICK5,Color6666FF;END;


IF STRCMP(MARKETLABEL,'SZ')=0 THEN BEGIN DRAWTEXTABS(200,0,'深圳成份指数'),LINETHICK5,Color6666FF;END;


上证MA1:=STKINDI('1A0001','MA.MA1');


深证MA1:=STKINDI('399001','MA.MA1');


上证MA2:=STKINDI('1A0001','MA.MA2');


深证MA2:=STKINDI('399001','MA.MA2');


上证MA3:=STKINDI('1A0001','MA.MA3');


深证MA3:=STKINDI('399001','MA.MA3');


上证MA4:=STKINDI('1A0001','MA.MA4');


深证MA4:=STKINDI('399001','MA.MA4');


上证MA5:=STKINDI('1A0001','MA.MA5');


深证MA5:=STKINDI('399001','MA.MA5');


上证MA6:=STKINDI('1A0001','MA.MA6');


深证MA6:=STKINDI('399001','MA.MA6');


大盘MA5:IF(STRCMP(MARKETLABEL,'SH')=0,上证MA1,深证MA1),COLORFFFFFF;


大盘MA10:IF(STRCMP(MARKETLABEL,'SH')=0,上证MA2,深证MA2),COLOR00FFFF;


大盘MA20:IF(STRCMP(MARKETLABEL,'SH')=0,上证MA3,深证MA3),COLOR3333FF;


大盘MA30:IF(STRCMP(MARKETLABEL,'SH')=0,上证MA4,深证MA4),COLOR5399FF;


大盘MA60:IF(STRCMP(MARKETLABEL,'SH')=0,上证MA5,深证MA5),COLOR9900CC;


大盘MA120:IF(STRCMP(MARKETLABEL,'SH')=0,上证MA6,深证MA6),COLOR39FF00;


DRAWTEXTABS(5 ,30 ,'目前指数:'+INDEXC+' 点'),COLORFFFFFF;


DRAWTEXTABS(5 ,50 ,'昨日收盘:'+REF(INDEXC,1)+' 点'),COLORFFFFFF;


DRAWTEXTABS(5 ,70 ,'今日开盘:'+INDEXO+' 点'),COLORFFFFFF;


DRAWTEXTABS(5 ,90 ,'今日最高:'+INDEXH+' 点'),COLORFFFFFF;


DRAWTEXTABS(5 ,110 ,'今日最低:'+INDEXL+' 点'),COLORFFFFFF;


DRAWTEXTABS(5 ,130 ,'指数涨幅:'+((INDEXC-REF(INDEXC,1))/INDEXC)*100+' %'),COLORFFFFFF;


DRAWTEXTABS(5,150 ,'上涨家数:'+INDEXADV+' 家'),COLORFF00FF;


DRAWTEXTABS(5,170 ,'走平家数:'+INDEXDEC+' 家'),COLOR00FFFF;


DRAWTEXTABS(5,190 ,'下跌家数:'+INDEXDEC+' 家'),COLOR39FF00;


上证DIFF:=STKINDI('1A0001','MACD.DIFF');


深证DIFF:=STKINDI('399001','MACD.DIFF');


上证DEA:=STKINDI('1A0001','MACD.DEA');


深证DEA:=STKINDI('399001','MACD.DEA');


上证MACD:=STKINDI('1A0001','MACD.MACD');


深证MACD:=STKINDI('399001','MACD.MACD');


大盘DIFF:=IF(STRCMP(MARKETLABEL,'SH')=0,上证DIFF,深证DIFF);


大盘DEA:=IF(STRCMP(MARKETLABEL,'SH')=0,上证DEA,深证DEA);


大盘MACD:=IF(STRCMP(MARKETLABEL,'SH')=0,上证MACD,深证MACD);


DRAWTEXTABS(165,30,'大盘DIFF:'+大盘DIFF),COLORFFFFFF;


DRAWTEXTABS(165,50,'大盘 DEA:'+大盘DEA),COLOR00FFFF;


DRAWTEXTABS(165,70,'大盘MACD:'+大盘MACD),COLORFF00FF;


上证K:=STKINDI('1A0001','KDJ.K');


深证K:=STKINDI('399001','KDJ.K');


上证D:=STKINDI('1A0001','KDJ.D');


深证D:=STKINDI('399001','KDJ.D');


上证J:=STKINDI('1A0001','KDJ.J');


深证J:=STKINDI('399001','KDJ.J');


大盘K:=IF(STRCMP(MARKETLABEL,'SH')=0,上证K,深证K);


大盘D:=IF(STRCMP(MARKETLABEL,'SH')=0,上证D,深证D);


大盘J:=IF(STRCMP(MARKETLABEL,'SH')=0,上证J,深证J);


DRAWTEXTABS(165,90,'大

盘 K:'+大盘K),COLORFFFFFF;


DRAWTEXTABS(165,110,'大

盘 D:'+大盘D),COLOR00FFFF;


DRAWTEXTABS(165,130,'大

盘 J:'+大盘J),COLORFF00FF;


DRAWTEXTABS(310,30,'大盘5

天均线:'+大盘MA5),COLORFFFFFF,LINETHICK2;


DRAWTEXTABS(310,50,'大盘10 天均线:'+大盘MA10),COLOR00FFFF,LINETHICK2;


DRAWTEXTABS(310,70,'大盘20 天均线:'+大盘MA20),COLORFF00FF,LINETHICK2;


DRAWTEXTABS(310,90,'大盘30 天均线:'+大盘MA30),COLOR39FF00,LINETHICK2;


DRAWTEXTABS(310,110,'大盘60 天均线:'+大盘MA60),COLORFF3366,LINETHICK2;


DRAWTEXTABS(310,130,'大盘120天均线:'+大盘MA120),COLORFFCC00,LINETHICK2;


上证BIAS1:=STKINDI('1A0001','BIAS.BIAS1');


深证BIAS1:=STKINDI('399001','BIAS.BIAS1');


上证BIAS2:=STKINDI('1A0001','BIAS.BIAS2');


深证BIAS2:=STKINDI('399001','BIAS.BIAS2');


上证BIAS3:=STKINDI('1A0001','BIAS.BIAS3');


深证BIAS3:=STKINDI('399001','BIAS.BIAS3');


大盘BIAS1:=IF(STRCMP(MARKETLABEL,'SH')=0,上证BIAS1,深证BIAS1);


大盘BIAS2:=IF(STRCMP(MARKETLABEL,'SH')=0,上证BIAS2,深证BIAS2);


大盘BIAS3:=IF(STRCMP(MARKETLABEL,'SH')=0,上证BIAS3,深证BIAS3);


DRAWTEXTABS(165,150,'大盘BIAS1:'+大盘BIAS1),COLORFFFFFF;


DRAWTEXTABS(165,170,'大盘BIAS2:'+大盘BIAS2),COLOR00FFFF;


DRAWTEXTABS(165,190,'大盘BIAS3:'+大盘BIAS3),COLORFF00FF;




 


 

{股票教程网-http://ybwsoft.net承接通达信软件和公式破解,普通加密破解,完全加密破解,导入密码破解,时间限制破解,公式编写,可按您的要求写公式指标,价格按难度不同报价,有需要可以找我们}