A:=5; EC:=INBLOCK('沪深Ａ股'),NODRAW;
FB:=IF(EC=1,IF(CAPITAL>=200000000,A-2,IF(CAPITAL<200000000 AND CAPITAL>20000000,A-1,A)),A-2);
FS:=IF(EC=1,IF(CAPITAL>=200000000,A-1,IF(CAPITAL<200000000 AND CAPITAL>20000000,A,A+1)),A-1);
LMK:=(LLV(L,REF(HHVBARS(H,14),1)+1))*(1+FB/100);
BJJ:=IF(CROSS(C,LMK),LMK,0);
YBN:=BARSLAST(BJJ>0 OR BARSCOUNT(C)=1);
HMK:=HHV(H,YBN+1)*(1-FS/100);
SJJ:=IF(CROSS(HMK,C),HMK,IF(REF(YBN,1)=0 AND REF(HMK,1)>C,O,0));
YSN:=BARSLAST(SJJ>0 OR BARSCOUNT(C)=1);
EX11:=HHV(BJJ>0,YSN+1);
REE:=IF(BARSCOUNT(C)=1,0,REF(EX11,1));
YBJ:=IF(EX11>REE,BJJ,0),LINETHICK1,COLOR0088FF;
YSJ:=IF(EX11<REE,SJJ,0),LINETHICK1,COLOR00FF00;
PE:=IF(EX11=0,LMK,-HMK),NODRAW;
NBJ:=YBJ; NSJ:=YSJ;
BAR:=HHV(NBJ>0,0); X0:=SUM(BAR,0);
BN:=BARSLAST(NBJ>0);
SN:=BARSLAST(NSJ>0);
EX10:=HHV(NBJ,SN+1);
RE:=IF(BARSCOUNT(C)=1,0,REF(EX10,1));
BBJ:=IF(EX10>RE,NBJ,0); SSJ:=IF(EX10<RE,NSJ,0);
RBJ:=REF(BBJ,BN);
BSYL:=100*(IF(SSJ=0,C,SSJ)*0.997/RBJ/1.003-1);{佣金费率}
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
M0:MA(L,10),COLOR00FFFF,COLORYELLOW,LINETHICK2;
预警:IF(BBJ>0,BBJ,IF(SSJ>0,SSJ,ABS(PE))),NODRAW;
多头盈利:BSYL,NODRAW;
BJ:=IF(BBJ>0,BBJ,DRAWNULL),NODRAW;
SJ:=IF(SSJ>0,SSJ,DRAWNULL),NODRAW;
DRAWICON(BJ>0,LLV(L,5),23);
DRAWICON(SJ>0 AND BSYL<0,H,2),DRAWABOVE;
DRAWICON(SJ>0 AND BSYL>0 AND BSYL<5,H,8),DRAWABOVE;
DRAWICON(SJ>0 AND BSYL>5,H,9),DRAWABOVE;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
QQ:=1000000;
信号K％:=(X0>100)*100*SUM(SSJ>0,0)/X0,NODRAW;
卖次:SUM(SSJ>0,0),NODRAW;
成功率:=(卖次>10)*100*SUM(BSYL*(SSJ>0)>0,0)/卖次,NODRAW;
股数:=100*INTPART(QQ/RBJ/1.003/100),NODRAW;
差额:=(SSJ>0)*(SSJ*0.997-RBJ*1.003)*股数,NODRAW;
总盈利率:=100*SUM(差额,0)/QQ;
DA0:=HHV(IF(BARSCOUNT(C)=1,DATE,0),0);
年:=(DATETODAY(DATE)-DATETODAY(DA0))/365,NODRAW;
年收益:(年>=1)*总盈利率/年,NODRAW;
KKT:=STRCAT('计算',CON2STR(TOTALBARSCOUNT,0));
YE:=STRCAT('K线=',CON2STR(年,2));
SY:=STRCAT('年 收益 ',CON2STR(总盈利率,1));
SY2:=STRCAT('％(+',STRCAT(CON2STR((PE<0)*BSYL,1),')'));
百K:=STRCAT('％ 信号 ', CON2STR(信号K％,1));
CG:=STRCAT('％K 成功率 ',CON2STR(成功率,1));
TX:=STRCAT(KKT,STRCAT(YE,STRCAT(SY,STRCAT(SY2,STRCAT(百K,CG)))));
DRAWTEXT_FIX(ISLASTBAR,0.0,1,0,TX),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.02,0,0,STRCAT(HYBLOCK,'板块')),COLOR0000FF;
{PDA:=1; NBJ:=IF(JK<=1,YA王.BJ,JKGS.BJ)*PDA;
BAR:=HHV(NBJ>0,0); X0:=SUM(BAR,0);
NSJ:=IF(JK<=1,YA王.SJ,JKGS.SJ)*BAR;
BJ2:=IF(JK<=1,YA王.BJ2,0)*BAR;
SN:=BARSLAST(NSJ>0 OR BARSCOUNT(C)=1);
EX10:=HHV(NBJ,SN+1);
RE:=IF(BARSCOUNT(C)=1,0,REF(EX10,1));
BBJ:=IF(EX10>RE,NBJ,0); SSJ:=IF(EX10<RE,NSJ,0);
PE:=IF(JK<=1,YA王.PE,GSJK.PE)*BAR;
TB:=CALCSTOCKINDEX('999999SH','YA王',1);
PJ2:=IF(BJ2>0 AND JK=1,BJ2,BJ);
STICKLINE(BJ>0 OR BJ2>0,PJ2,PJ2,9,0),COLORFF00FF;
STICKLINE(SJ>0,SJ ,SJ,9,0),COLOR00FF00;
P预:=IF(ISLASTBAR=0,DRAWNULL,预警);
STICKLINE(ISLASTBAR,P预,P预,9,0),COLOR00FFFF;
预:=STRCAT(IF(BBJ>0,' 预警买点',IF(SSJ>0,' 预警卖点',IF(PE>0 AND BBJ=0 AND SSJ=0,
' 预警买点',' 预警卖点 '))),CON2STR(预警,2));
DRAWTEXT_FIX(ISLASTBAR,0.8,1,0,预),COLOR0088FF;
DRAWTEXT(BJ2>0 AND BBJ=0 AND JK=1,L,'短'),COLOR0088FF;};
AB:=EMA(((2*C+H+L)/4-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,8);
BA:=EMA(AB,5);
A1{??}:=REFDATE(REF(HHV(H,96),5),DATE);
B1{μí}:=REFDATE(REF(LLV(L,96),5),DATE);
DY{?D}:=((A1)+(B1))/2;
上轨:IF(AB>0 AND AB-BA<=0,A1,A1),LINETHICK3,COLOR00FF00;
支撑:IF(AB>0 AND AB-BA<=0,DY,DY),LINETHICK3,COLOR00FF00;
下轨:IF(AB>0 AND AB-BA<=0,B1,B1),LINETHICK3,COLOR00FF00;
逃顶:IF(AB>0 AND AB-BA>0,A1,DRAWNULL),LINETHICK3,COLORRED;
压力:IF(AB>0 AND AB-BA>0,DY,DRAWNULL),LINETHICK3,COLORRED;
抄底:IF(AB>0 AND AB-BA>0,B1,DRAWNULL),LINETHICK3,COLORRED;
LC:=REF(CLOSE,1);
DIF:=EMA(DCLOSE,6)-EMA(DCLOSE,18);
DEA:=EMA(DIF,6);
AAD:=(DIF-DEA)*2*55;
起爆:=CROSS(AAD-REF(AAD,1),15),COLORRED,LINETHICK2;
DRAWTEXT(起爆,L*0.99,'ī'),COLORYELLOW,LINETHICK2;
RSI:=SMA(MAX(CLOSE-LC,0),4,1)/SMA(ABS(CLOSE-LC),4,1)*100;
VAR27:=REF(CLOSE,1);
VAR28:=SMA(MAX(CLOSE-VAR27,0),5,1)/SMA(ABS(CLOSE-VAR27),6,1)*100;
VARA:=((AMOUNT)/(VOL))/(100);
VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
VARC:=((SUM(AMOUNT,7))/(VARA))/(100);
VARD:=DMA(VARB,(VOL)/(VARC));
VARE:=((CLOSE-VARD)/(VARD))*(100);
VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
VARJ:=MA(VARE,20)+STD(VARE,20);
VARH:=(C+L+H)/3;
VARL:=EMA(VARH,6);
VARG:=EMA(VARL,5);
BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
AAF:=SMA(VARF,3,1);
VAR1:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2);
VAR2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2);
STICKLINE(VAR1,H,L,2,0),COLORFF00FF,LINETHICK2;{高位红色}
STICKLINE(VAR1,H,L,2,0),COLORFF00FF,LINETHICK2;{高位红色}
STICKLINE(VAR1,H,L,1,0),COLORFF00FF,LINETHICK2;{高位红色}
STICKLINE(VAR2,H,L,2,0),COLORWHITE,LINETHICK2;{底位白色}
STICKLINE(VAR2,H,L,2,0),COLORWHITE,LINETHICK2;{底位白色};
AA:=(REF(H,1)-MAX(REF(C,1),REF(O,1)))/(REF(H,1)-REF(L,1))>0.6 AND (MIN(O,C)-L)/(H-L)>0.6 AND VOL<REF(VOL,1);
DRAWTEXT(AA,L*0.99,'揉搓'),COLORRED;
C3:=REF(C,1);
跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0);
STICKLINE(跌停,OPEN,CLOSE,3,0),COLORBLUE;
STICKLINE(跌停,OPEN,CLOSE,2,0),COLORGREEN;
{DRAWTEXT(跌停,H+0.1,'跌停'),COLORGREEN;}
涨停:=IF(REF(C,1)*1.095-C<0.01 ,1,0);
STICKLINE(涨停,OPEN,CLOSE,3,0),COLORRED;
STICKLINE(涨停,OPEN,CLOSE,2,0),COLORYELLOW;
{DRAWTEXT(涨停,L-0.1,'板'),COLORYELLOW;}
超B:=L2_AMO(0,2)/10000.0;
大B:=L2_AMO(1,2)/10000.0;
中B:=L2_AMO(2,2)/10000.0;
小B:=L2_AMO(3,2)/10000.0;
超S:=L2_AMO(0,3)/10000.0;
大S:=L2_AMO(1,3)/10000.0;
中S:=L2_AMO(2,3)/10000.0;
小S:=L2_AMO(3,3)/10000.0;
TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0);
