个股PK大盘

{个股PK大盘
用法
选择PK起点方式: Param#1
1,个股上市日起点;
2,本年初为起点;
3,大盘波谷为起点;
4,大盘波峰为起点;
大盘转折幅度: Param#2 %

按以上格式设置参数精灵}
INPUT:选择起点(4,1,4),大盘转折幅度(30,1,99);
起点1:=BARSCOUNT(C)-1;
年:=年份;
起点2:=BARSLAST(CROSS(年份=年[DATACOUNT],0.5));
起点3:=TROUGHBARS("SH1A0001$CLOSE",大盘转折幅度,1);
起点4:=PEAKBARS("SH1A0001$CLOSE",大盘转折幅度,1);
起点:=IF(选择起点=1,起点1,IF(选择起点=2,起点2,IF(选择起点=3,起点3,起点4)));
图起点:=BARPOS>=DATACOUNT-起点[DATACOUNT];
VERTLINE(起点=0 AND 图起点),LINEDASHDOT,COLORDD00DD;

C0:=REF(C,起点)*图起点;
O0:=REF(O,起点)*图起点;
H0:=REF(H,起点)*图起点;
L0:=REF(L,起点)*图起点;
ZC:=(C)/O0; ZO:=(O)/O0; ZH:=(H)/O0; ZL:=(L)/O0;

DC0:=REF("SH1A0001$CLOSE",起点)*图起点;
DO0:=REF("SH1A0001$OPEN",起点)*图起点;
DH0:=REF("SH1A0001$HIGH",起点)*图起点;
DL0:=REF("SH1A0001$LOW",起点)*图起点;
DZC:=("SH1A0001$CLOSE")/DO0; DZO:=("SH1A0001$OPEN")/DO0; DZH:=("SH1A0001$HIGH")/DO0; DZL:=("SH1A0001$LOW")/DO0;

收:=DO0*(ZC),LINETHICK;
开:=DO0*(ZO),LINETHICK;
高:=DO0*(ZH),LINETHICK;
低:=DO0*(ZL),LINETHICK;
D收:=DO0*(DZC),LINETHICK;
D开:=DO0*(DZO),LINETHICK;
D高:=DO0*(DZH),LINETHICK;
D低:=DO0*(DZL),LINETHICK;

DMA5:=MA(D收,5);
DMA20:=MA(D收,20);
DMAM2:=MA((DMA5+DMA20)/2,10);
DMA15:=MA(D收,15);
DMA30:=MA(D收,30);
DMAM3:=MA((DMA15+DMA30)/2,18);
FILLRGN(DMAM2=30,DMAM2,DMAM3),COLOR9FA9A9;
FILLRGN(DMAM2>DMAM3 AND 图起点 AND 起点>=30,DMAM2,DMAM3),COLORDDDDDD;
MA5:=MA(收,5);
MA20:=MA(收,20);
MAM2:=MA((MA5+MA20)/2,10);
MA15:=MA(收,15);
MA30:=MA(收,30);
MAM3:=MA((MA15+MA30)/2,18);
FILLRGN(MAM2=30,MAM2,MAM3),COLOR9FA9A9;
FILLRGN(MAM2>MAM3 AND 图起点 AND 起点>=30,MAM2,MAM3),COLORDDDDDD;
STICKLINE(DZC>=DZO AND 图起点,D高,D低,0,0),COLOR5050AA;
STICKLINE(DZC>=DZO AND 图起点,D收,D开,7.8,0),COLOR5050AA;
STICKLINE(DZC<DZO AND 图起点,D高,D低,0,0),COLORAAAA50;
STICKLINE(DZC<DZO AND 图起点,D收,D开,7.8,0),COLORAAAA50;
STICKLINE(C>=O AND 图起点,高,低,0,0),COLOR5050FF;
STICKLINE(C>=O AND 图起点,收,开,7.8,0),COLOR5050FF;
STICKLINE(C<O AND 图起点,高,低,0,0),COLOR6FFF50;
STICKLINE(C<O AND 图起点,收,开,7.8,0),COLOR6FFF50;
PARTLINE( 图起点 AND 起点>=20,MA(收,20)),COLOR0000FF,LINETHICK2;PARTLINE( 图起点 AND 起点>=9,SMA(MA(收,3),3,1)),COLORFFFF66,LINETHICK2;
PARTLINE( 图起点 AND 起点>=20,MA(D收,20)),COLOR0000FF,LINETHICK2;PARTLINE( 图起点 AND 起点>=9,SMA(MA(D收,3),3,1)),COLORFFFF66,LINETHICK2;
上证指数:D收,LINETHICK;
个股对应上证指数:收,LINETHICK;
超车:CROSS(收,D收) AND 起点>3 ,LINETHICK;
PK方式:=IF(选择起点=1,'本年初为起点',IF(选择起点=2,'大盘波谷为起点',IF(选择起点=3,'大盘波谷为起点','大盘波峰为起点')));
当日PK:(收-REF(收,1))/REF(收,1)-(D收-REF(D收,1))/REF(D收,1),LINETHICK;
五日PK:(收-REF(收,5))/REF(收,5)-(D收-REF(D收,5))/REF(D收,5),LINETHICK;
SS:=SYSPARAM(3)-MAX(SYSPARAM(2),(DATACOUNT-起点[DATACOUNT]));
中线DL:=LLV(D低,SS);
中线GL:=LLV(低,SS);
中线DH:=HHV(D高,SS);
中线GH:=HHV(高,SS);
中线G:=MAX(中线DH,中线GH);
中线D:=MIN(中线DL,中线GL);
中线:=(中线G-中线D)/2+中线D;
PARTLINE( 超车 AND 图起点,中线[SYSPARAM(3)]),CIRCLEDOT,PXUP23,COLOR00FFFF;
PARTLINE( 超车 AND 图起点,中线[SYSPARAM(3)]),CIRCLEDOT,PXUP11,COLOR0000FF;
PARTLINE( 超车 AND 图起点,中线[SYSPARAM(3)]),CIRCLEDOT,PXUP5,COLORFF00FF;

DRAWTEXTEX(图起点,1,10,10,STKLABEL+' '+STKNAME+' P K 上证指数 P K 起点日期; '+NUMTOSTR(REF(YEAR,起点),0)+'年'+NUMTOSTR(REF(MONTH,起点),0)+'月'+NUMTOSTR(REF(DAY,起点),0)+'日'
+' 上证指数: '+NUMTOSTR(REF("SH1A0001$CLOSE",起点),0)+'点'),COLOR66AAFF;
DRAWTEXTEX(图起点 ,1,10,10,' \n \nPK方式: '+PK方式 ),COLORFFFFFF;
DRAWTEXTEX(图起点 AND 当日PK[SYSPARAM(0)]>0,1,10,10,' \n \n \n \n 当日 P K 赢' ),COLOR6666FF;
DRAWTEXTEX(图起点 AND 当日PK[SYSPARAM(0)]<0,1,10,10,' \n \n \n \n 当日 P K 输' ),COLOR66FF6F;
DRAWTEXTEX(图起点 AND 五日PK[SYSPARAM(0)]>0,1,10,10,' \n \n \n \n \n \n 五日 P K 赢' ),COLORFF66FF;
DRAWTEXTEX(图起点 AND 五日PK[SYSPARAM(0)]<0,1,10,10,' \n \n \n \n \n \n 五日 P K 输' ),COLORFFFF6F;