在个股付图中显示大盘K线图(大智慧)

在个股付图中显示大盘K线图(大智慧)

源码正文：

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;

&nbsp{X.G*5.1.C.N.{};