|
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;
202108211323.gif
| 
