name1:=\'TF00\';
name2:=\'T00\';
//MSGOUT(ISLASTBAR,name);
kopen1 :=CALLSTOCK(name1 ,vtOPEN ,2 ,0 ),COLORWHITE,LINETHICK4;//调用品种１开盘价
khigh1 :=CALLSTOCK(name1 ,vtHIGH ,2 ,0 ),COLORWHITE,LINETHICK4;//调用品种１最高价
klow1 :=CALLSTOCK(name1 ,vtLOW  ,2 ,0 ),COLORBROWN,LINETHICK4;//调用品种１最低价
kclose1 :=CALLSTOCK(name1 ,vtCLOSE,2 ,0 ),COLORGREEN,LINETHICK4;//调用品种１收盘价

kopen2 :=CALLSTOCK(name2 ,vtOPEN ,2 ,0 ),COLORWHITE,LINETHICK4;//调用品种２开盘价
khigh2 :=CALLSTOCK(name2 ,vtHIGH ,2 ,0 ),COLORWHITE,LINETHICK4;//调用品种２最高价
klow2 :=CALLSTOCK(name2 ,vtLOW  ,2 ,0 ),COLORBROWN,LINETHICK4;//调用品种２最低价
kclose2 :=CALLSTOCK(name2 ,vtCLOSE,2 ,0 ),COLORGREEN,LINETHICK4;//调用品种２收盘价

jcopen := kopen1 - kopen2 ,LINETHICK1;//计算品种１－２开盘价差
jchigh := khigh1 - khigh2 ,LINETHICK1;//计算品种１－２开最高差
jclow := klow1 - klow2  ,LINETHICK1;//计算品种１－２开最低差
jcclose := kopen1 - kopen2 ,LINETHICK1;//计算品种１－２收盘价差
价差：jcclose,LINETHICK0,COLORWHITE;
国债5年:kclose1,LINETHICK0,COLORWHITE;
国债10年:kclose2,LINETHICK0,COLORWHITE;
国债价格差：jcclose,LINETHICK2,COLORWHITE;

//KLINE(KOPEN1 ,KHIGH1 ,KLOW1 ,KCLOSE1 ,0 );//画品种１Ｋ线
//KLINE(KOPEN2 ,KHIGH2 ,KLOW2 ,KCLOSE2 ,0 );//画品种２Ｋ线
KLINE(jcOPEN ,jcHIGH ,jcLOW ,jcCLOSE ,0 );////画品种1-２价差Ｋ线??  为啥画出来的是美国K线，不是日本K线？

//name:=STKLABEL;
name1:=\'RB01\';
name2:=\'RB05\';
//MSGOUT(ISLASTBAR,name);
kopen1 :=CALLSTOCK(name1 ,vtOPEN ,2 ,0 ),COLORWHITE,LINETHICK4;//调用品种１开盘价
khigh1 :=CALLSTOCK(name1 ,vtHIGH ,2 ,0 ),COLORWHITE,LINETHICK4;//调用品种１最高价
klow1 :=CALLSTOCK(name1 ,vtLOW  ,2 ,0 ),COLORBROWN,LINETHICK4;//调用品种１最低价
kclose1 :=CALLSTOCK(name1 ,vtCLOSE,2 ,0 ),COLORGREEN,LINETHICK4;//调用品种１收盘价

kopen2 :=CALLSTOCK(name2 ,vtOPEN ,2 ,0 ),COLORWHITE,LINETHICK4;//调用品种２开盘价
khigh2 :=CALLSTOCK(name2 ,vtHIGH ,2 ,0 ),COLORWHITE,LINETHICK4;//调用品种２最高价
klow2 :=CALLSTOCK(name2 ,vtLOW  ,2 ,0 ),COLORBROWN,LINETHICK4;//调用品种２最低价
kclose2 :=CALLSTOCK(name2 ,vtCLOSE,2 ,0 ),COLORGREEN,LINETHICK4;//调用品种２收盘价

jcopen := kopen1 - kopen2 ,LINETHICK1;//计算品种１－２开盘价差
jchigh := khigh1 - khigh2 ,LINETHICK1;//计算品种１－２开最高差
jclow := klow1 - klow2  ,LINETHICK1;//计算品种１－２开最低差
jcclose := kopen1 - kopen2 ,LINETHICK1;//计算品种１－２收盘价差
价差：jcclose,LINETHICK0,COLORWHITE;
螺纹钢01:kclose1,LINETHICK0,COLORWHITE;
螺纹钢05:kclose2,LINETHICK0,COLORWHITE;

//KLINE(KOPEN1 ,KHIGH1 ,KLOW1 ,KCLOSE1 ,0 );//画品种１Ｋ线
//KLINE(KOPEN2 ,KHIGH2 ,KLOW2 ,KCLOSE2 ,0 );//画品种２Ｋ线
KLINE(jcOPEN ,jcHIGH ,jcLOW ,jcCLOSE ,0 );////画品种1-２价差Ｋ线

//varjiac:= std (chajia,300),LINETHICK2,COLORYELLOW;
//stdpjiac:= STDP(jcclose,60 ),LINETHICK2,COLORYELLOW;//及计算标准差

//majiacha:ma(jcclose,300),COLORGREEN,LINETHICK4;//计算价差均线
//majc100:ma(jcclose,100),COLORBLUE,LINETHICK4;//计算价差均线
//majc60:ma(jcclose,60),COLORYELLOW,LINETHICK4,LINEDASH;//计算价差均线
//majc40:ma(jcclose,40),COLORRED,LINETHICK4,LINEDASHDOT;//计算价差均线

majc10 :ma(jcclose,10),COLORRED,LINETHICK2,LINEDASHDOT;//计算价差均线
majc20 :ma(jcclose,20),COLORYELLOW,LINETHICK2,LINEDASH;//计算价差均线
majc30 :ma(jcclose,30),COLORBLUE,LINETHICK2;//计算价差均线
majc60 :ma(jcclose,60),COLORGREEN,LINETHICK2;//计算价差均线

//makclose120:ma(kclose1,20),LINETHICK1,COLORGRAY,MAIN;

//std1s:ma(jcclose,60)+stdpjiac,COLORWHITE,LINETHICK5;
//std1x:ma(jcclose,60)-stdpjiac,COLORWHITE,LINETHICK5;

//引入指标ｍａｃｄ
{
DIFF  := EMA(jcclose ,S) - EMA(jcclose ,P);
DEA   := EMA(DIFF,M);
MACD1  := 2*(DIFF-DEA), COLORSTICK;
}
{
DIFF : EMA(jcclose ,S) - EMA(jcclose ,P);
DEA  : EMA(DIFF,M);
MACD1 : 2*(DIFF-DEA), COLORSTICK;
}

//引入ｄｐｏ
{
dpo  := jcclose - REF(MA(jcclose,20),11);
dpo0 :=  0,LINETHICK2,COLORYELLOW;
}

{
INPUT:M1(10,1,10000,10);
INPUT:M2(20,10,10000,10);
INPUT:M3(40,10,10000,10);
INPUT:M4(1000,10,10000,10);

VOLUME:VOL,VOLSTICK;

MAvolvol1:MA(VOL,M1);
MAvol2:MA(VOL,M2);
MAvol3:MA(VOL,M3);
MAvol4:MA(VOL,M4),LINETHICK2,COLORYELLOW;
stdvol:=STD(vol,M4);

shang:=ISUP;
xia:=ISDOWN;

stdvol1:= ( vol >= (MAvol4+1.0*stdvol))  and  ( vol < (MAvol4+2.0*stdvol)); 
stdvol2:= ( vol >= (MAvol4+2.0*stdvol))  and  ( vol < (MAvol4+3.0*stdvol)); 
stdvol3:= ( vol >= (MAvol4+3.0*stdvol))  and  ( vol < (MAvol4+4.0*stdvol)); 
stdvol4:= ( vol >= (MAvol4+4.0*stdvol))  and  ( vol < (MAvol4+5.0*stdvol)); 
stdvol5:= ( vol >= (MAvol4+5.0*stdvol))  and  ( vol < (MAvol4+6.0*stdvol)); 
stdvol6:= ( vol >= (MAvol4+6.0*stdvol))  ;

dvolstd1:=stdvol1 and shang; 
dvolstd2:=stdvol2 and shang; 
dvolstd3:=stdvol3 and shang; 
dvolstd4:=stdvol4 and shang; 
dvolstd5:=stdvol5 and shang; 
dvolstd6:=stdvol6 and shang;

kvolstd1:=stdvol1 and xia; 
kvolstd2:=stdvol2 and xia; 
kvolstd3:=stdvol3 and xia; 
kvolstd4:=stdvol4 and xia; 
kvolstd5:=stdvol5 and xia; 
kvolstd6:=stdvol6 and xia;

DRAWTEXT(DVOLSTD1, HIGH+1,\'1vol\',COLORYELLOW,0),MAIN;
DRAWTEXT(DVOLSTD2, HIGH+1,\'2vol\',COLORYELLOW,0),MAIN;
DRAWTEXT(DVOLSTD3, HIGH+1,\'3vol\',COLORYELLOW,0),MAIN;
DRAWTEXT(DVOLSTD4, HIGH+1,\'4vol\',COLORYELLOW,0),MAIN;
DRAWTEXT(DVOLSTD5, HIGH+1,\'5vol\',COLORYELLOW,0),MAIN;
DRAWTEXT(DVOLSTD6, HIGH+1,\'6vol\',COLORYELLOW,0),MAIN;

DRAWTEXT(kVOLSTD1, LOW-1,\'1vol\',COLORWHITE,0),MAIN;
DRAWTEXT(kVOLSTD2, LOW-1,\'2vol\',COLORWHITE,0),MAIN;
DRAWTEXT(kVOLSTD3, LOW-1,\'3vol\',COLORWHITE,0),MAIN;
DRAWTEXT(kVOLSTD4, LOW-1,\'4vol\',COLORWHITE,0),MAIN;
DRAWTEXT(kVOLSTD5, LOW-1,\'5vol\',COLORWHITE,0),MAIN;
DRAWTEXT(kVOLSTD6, LOW-1,\'6vol\',COLORWHITE,0),MAIN;

//name:=STKLABEL;
name1:=\'RB01\';
name2:=\'RB05\';
//MSGOUT(ISLASTBAR,name);
kopen1 :=CALLSTOCK(name1 ,vtOPEN ,2 ,0 ),COLORWHITE,LINETHICK4;//调用品种１开盘价
khigh1 :=CALLSTOCK(name1 ,vtHIGH ,2 ,0 ),COLORWHITE,LINETHICK4;//调用品种１最高价
klow1 :=CALLSTOCK(name1 ,vtLOW  ,2 ,0 ),COLORBROWN,LINETHICK4;//调用品种１最低价
kclose1 :=CALLSTOCK(name1 ,vtCLOSE,2 ,0 ),COLORGREEN,LINETHICK4;//调用品种１收盘价

kopen2 :=CALLSTOCK(name2 ,vtOPEN ,2 ,0 ),COLORWHITE,LINETHICK4;//调用品种２开盘价
khigh2 :=CALLSTOCK(name2 ,vtHIGH ,2 ,0 ),COLORWHITE,LINETHICK4;//调用品种２最高价
klow2 :=CALLSTOCK(name2 ,vtLOW  ,2 ,0 ),COLORBROWN,LINETHICK4;//调用品种２最低价
kclose2 :=CALLSTOCK(name2 ,vtCLOSE,2 ,0 ),COLORGREEN,LINETHICK4;//调用品种２收盘价

jcopen := kopen1 - kopen2 ,LINETHICK1;//计算品种１－２开盘价差
jchigh := khigh1 - khigh2 ,LINETHICK1;//计算品种１－２开最高差
jclow := klow1 - klow2  ,LINETHICK1;//计算品种１－２开最低差
jcclose := kopen1 - kopen2 ,LINETHICK1;//计算品种１－２收盘价差
价差：jcclose,LINETHICK0,COLORWHITE;
螺纹钢01:kclose1,LINETHICK0,COLORWHITE;
螺纹钢05:kclose2,LINETHICK0,COLORWHITE;