在个股付图中显示大盘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;