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

 {X.G-5~1.C.N.{};

海市蜃楼指标(大智慧)

源码正文：

本指标是从3个成交量指标里提取我认为的精华部分提炼加工而成。完工验图时，突感股市如茫茫大漠，幻真幻假，全凭自己慧眼来找一片绿洲。所以就虚伪了把，取名“海市蜃楼”。现拿出与大家一起分享。（指标内“CURRENTTIME”为返回函数，主要是预测成交量，不影响其他功能的正确率。另自动合计数据功能是我自己编写的，希望带给大家帮助。）
（个人观点，仅供参考。）
1.紫色竖条为预测成交量，盘中显示，收盘后消失。
2.灰色实柱是提示成交量有异状。
3.白色实柱表示该成交量是15日内最小成交量。
4.红色实柱为主动净买盘，实柱长短表示净买量多少。净买量为负时，不显示。
5.量能饱和度是指成交量在各个时段的强弱表现。一般饱和度越高风险越大，当满100时，股价又处于波段的高点时，往往预示着顶部的到来；而股价在低位时，非常有可能是主力开始拉升行情的态势。判断顶底还需其他指标配合和分析k线。
6.两条灰色虚线是成交量布林线。当布林线通道长期扁窄，成交量也一直在通道之下，而某日突然拉升，甚至突破通道，可能是主力开始拉升的迹象；而布林通道逐渐变宽，某日成交量突破布林上沿，也往往预示主力拉高出货的动作。
7.在指标界面右击，点“调整指标参数”会出现调整“起始点”和“结束点”数值窗口。当调整数值时，指标界面会出现黄色竖虚线（起始点）和绿色竖虚线（结束点），而上方的“天数”、“累计涨跌”、“累计换手”的数值也会相应变化。参数清零，则竖虚线消失。
input:起始点(0,0,1000),结束点(0,0,1000){XG51};
成交量:vol,pRECIS0,VOLstICK{XG51};
BB:=VOL/((HIGH-LOW)*2-Abs(CLOSE-OPEN)){XG51};
主动买:=IF(CLOSE>OPEN,BB*(HIGH-LOW),IF(CLOSE<OPEN,BB*((HIGH-OPEN)+ (CLOSE-LOW)),VOL/2)){XG51};
主动卖:=IF(CLOSE>OPEN,0-BB*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0- BB*(HIGH-LOW),0-VOL/2)){XG51};
净买卖:=主动买+主动卖{XG51};
STICKLINE(净买卖>0,0,净买卖,5,0),LAYER1,COLOR5B5BFF{XG51};
T:=CURRENTTIME{XG51};
H1:=intpart(T / 10000){XG51};
MM:=intpart(mod(T,10000)/100){XG51};
A1:=if(between(t,93000,113000),60*(h1-9)+mm-30,120){XG51};
A2:=if(between(t,130000,150000) and t>113000,60*(h1-13)+mm+120,240){XG51};
A:=if(t<130000,a1,a2){XG51};
预测量:IF(BARSTATUS=2,VOL*240/A,VOL),pRECIS0,linethick0,COLORFB64D6{XG51};
STICKLINE(预测量>vol and t>93000 and t<150000,0,预测量,2,0),LAYER6,COLORFB64D6{XG51};
stickline(v=llv(v,15),0,v,5,0),COLORRED{XG51};
突变:=v+ref(v,1)>=(ref(v,2)+ref(v,3)+ref(v,4)+ref(v,5)+ref(v,6))/5*3 and v<2*ref(v,1) and c>o and c>ma(c,21){XG51};
stickline(突变,0,v,5,0),COLOR5D5D5D{XG51};
V2:=IF(BARSTATUS=2,预测量/REF(VOL,1)-1,VOL/REF(VOL,1)-1){XG51};
STICKLINE(V2>=1,0,v,5,0),COLOR5D5D5D{XG51};
大盘变盘:=c>=hhv(c,15) and v>=hhv(v,15){XG51};
stickline(大盘变盘,0,v,5,0),COLOR5D5D5D{XG51};
量能饱和度:IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C) /(HHV(AMOUNT,20)/HHV(C,20))*100),COLORBA75FF,precis0,LINETHICK0{XG51};
起始日:=filter(backset(BARSTATUS=2,起始点),起始点){XG51};
结束日:=filter(backset(BARSTATUS=2,结束点),结束点){XG51};
VERTLINE(起始日,1),LAYER0,coloryellow{XG51};
VERTLINE(结束日,1),LAYER0,colorgreen{XG51};
天数:起始点-结束点+1,pRECIS0,linethick0,colorwhite{XG51};
换手率:=v/capital*100{XG51};
累计涨跌:sum((c/ref(c,1)-1)*100,天数),pRECIS2,linethick0,COLOR8C8CFF{XG51};
累计换手:sum(换手率,天数),pRECIS2,linethick0,COLOR77CBFD{XG51};
下布林线: MA(vol,20),precis0,LAYER7,DOTLINE,COLOR5D5D5D{XG51};
上布林线:下布林线 + 2*STddeV(v,20),precis0,LAYER7,DOTLINE,COLOR5D5D5D{X!G~5=1!C!N!{};