INPUT:DA(6,1,30),FY(5,0,8),CT(1,0,2),P(0,0,1),N(3,0,10);
{超级疯子}
STICKLINE((OPEN>=CLOSE),CLOSE,OPEN,7,1),colorFFFF50;
STICKLINE((OPEN>=CLOSE),HIGH,OPEN,0,0),colorFFFF50;
STICKLINE((OPEN>=CLOSE),CLOSE,LOW,0,0),colorFFFF50;
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,7,1),color5050FF;
STICKLINE((CLOSE>=OPEN),CLOSE,HIGH,0,0),color5050FF;
STICKLINE((CLOSE>=OPEN),LOW,OPEN,0,0),color5050FF;
X:=(BARSLAST((SYSPARAM(2)=BARPOS))+1);
NS:=IF((HHV(ABS(((HHV(CLOSE,DA)/LLV(CLOSE,DA))-1)),DA)>(10/100)),3,DA);
N1:=IF((DATATYPE=2),(NS*48),IF((DATATYPE=3),(NS*16),IF((DATATYPE=4),(NS*8),IF((DATATYPE=5),(NS*4),NS))));
MM:=IF((((STKTYPE=0) OR (P=0)) OR (VOL=0)),MA(CLOSE,N1),((SUM(AMOUNT,N1)/SUM(VOL,N1))/100));
M1:=REF(MM,1);
买入:=IF(CROSS(CLOSE,M1),M1,0);
卖出:=IF(CROSS(M1,CLOSE),M1,0);
YE:=BARPOS;
费用:=(FY/1000);
DW:=BARSLAST((卖出>0));
EX10:=HHV((买入>0),(DW+1));
BJ:=IF((EX10>REF(EX10,1)),买入,0);
SJ:=IF((EX10<REF(EX10,1)),卖出,0);
BNN:=BARSLAST((BJ>0));
CC:=REF(BJ,BNN);
盈利:=((SJ*(1-费用))-(CC*(1+费用)));
YL:=SUM(IF((SJ>0),盈利,0),0);
每股盈利:YL,LINETHICK0,PRECISION2,colorFFFFFF;
CN:=SUM(IF(((SJ>0) AND (REF(CC,1)>0)),1,0),0);
CG:=SUM(IF(((SJ>0) AND (盈利>0)),1,0),0);
成功率:((100*CG)/CN),LINETHICK0,PRECISION1,color88FF;
H1:=HHV(IF((CT=2),成功率,YL),X);
L1:=LLV(IF((CT=2),成功率,YL),X);
AH:=H1[DATACOUNT];
AL:=L1[DATACOUNT];
AHL:=(AH-AL);
POLYLINE((CT=2),成功率),color88FF;
买入均价:(SUM(BJ,0)/CN),LINETHICK0,PRECISION1,colorFF;
年收益:((100*((240*YL)/YE))/买入),LINETHICK0,PRECISION1,colorFF;
持股时间:(SUM(IF(((SJ>0) AND (CC>0)),(REF(BNN,1)+1),0),0)/YE),LINETHICK0,PRECISION2,colorFF00FF;
交易:CN,LINETHICK0,PRECISION0,colorAAAAAA;
（次）成功:CG,LINETHICK0,PRECISION0,colorAAAAAA;
年交均次:=((240*CN)/YE);
MON:=SUM(IF((MONTH<>REF(MONTH,1)),1,0),0);
上市年:=(MON/12);
DRAWNUMBER((BJ>0),(LOW*0.97),BJ,2),ALIGN0,colorFF;
DRAWICON(((BJ>0) AND (CT=1)),(LOW*0.99),4);
DRAWTEXT(((BJ>0) AND (CT=1)),(LOW*0.95),'★\n 买入'),ALIGN0,colorFFFF;
STICKLINE(((BJ>0) AND (CT=1)),MM,(MM+0.04),16,1),ALIGN0,colorFFFF;
STICKLINE(((BJ>0) AND (CT=1)),CLOSE,OPEN,4,0),ALIGN0,colorFFFF;
DRAWNUMBER((((SJ>0) AND (CT=1)) AND (((盈利/(CC*(1+费用)))*100)>=0)),(HIGH*1.07),((盈利/(CC*(1+费用)))*100),1),ALIGN0,colorFF;
DRAWNUMBER((((SJ>0) AND (CT=1)) AND (((盈利/(CC*(1+费用)))*100)<0)),(HIGH*1.07),((盈利/(CC*(1+费用)))*100),1),ALIGN0,colorFFFF;
DRAWICON(((SJ>0) AND (CT=1)),(HIGH*1.025),5);
STICKLINE(((SJ>0) AND (CT=1)),SJ,(SJ+0.04),16,1),ALIGN0,colorFF;
DRAWNUMBER(((SJ>0) AND (CT=1)),(HIGH*1.05),SJ,2),ALIGN0,colorFF00;
Ｎ波动:(SUM(IF((((SJ>0) AND (CC>0)) AND ((REF(BNN,1)+1)<=N)),(REF(BNN,1)+1),0),0)/YE),LINETHICK0,PRECISION2,colorFF00FF;
买价:IF((BJ>0),BJ,0),LINETHICK0,PRECISION2,colorFF;
卖价:IF((SJ>0),SJ,0),LINETHICK0,PRECISION2,colorFF00;
DRAWTEXTEX(CLOSE,1,0,0,(((((((((((((((((('年盈利:'+NUMTOSTR(YL,2))+'元 成功率:')+NUMTOSTR(成功率,1))+'% 年收益:')+NUMTOSTR(年收益,1))+'%')+' 持股时间比:')+NUMTOSTR(持股时间,1))+'\n')+'交易:')+NUMTOSTR(交易,0))+'次 成功:')+NUMTOSTR(CG,0))+'次 年均:')+NUMTOSTR(年交均次,1))+'次 总共:')+NUMTOSTR(YE,0))+'K线')),colorEE5555;
临界:=(((CLOSE/M1)-1)*100);
增减:=(临界-(100*((REF(CLOSE,1)/REF(M1,1))-1)));
DRAWTEXTEX(CLOSE,1,630,0,(((((((('当前 信号持续:'+NUMTOSTR(BNN,0))+'(K线)')+' 最高盈利:')+NUMTOSTR(HHV((((HIGH/CC)-1)*100),(BNN+1)),1))+'% 买卖临界点:')+NUMTOSTR(临界,1))+'% 增减:')+NUMTOSTR(IF(((BNN>0) AND (DATATYPE=6)),增减,IF((BNN=0),0,-100)),1))),colorEE5599;
DRAWTEXT(((SYSPARAM(3)=BARPOS) AND (CT<3)),HIGH,'.'),color1;
DRAWTEXT(((SYSPARAM(3)=BARPOS) AND (CT<3)),LOW,'.'),color1;
参考介入价:MM,LINETHICK0,PRECISION2,colorFFFFFF;
FUA:=HHV(HIGH,15);
FUB:=LLV(LOW,15);
DRAWTEXTEX(CLOSE,1,720,60,(('15日最高价:'+NUMTOSTR(FUA,2))+' ')),ALIGN2,colorFF;
DRAWTEXTEX(CLOSE,1,840,60,(('15日最低价:'+NUMTOSTR(FUB,2))+' ')),ALIGN2,colorBB0000;
DRAWTEXTEX(CLOSE,1,950,60,(('参考介入价:'+NUMTOSTR(MM,2))+' ')),ALIGN2,colorEE9999;
VAR2:=(((CLOSE+HIGH)+LOW)/3);
VAR33:=EMA(VAR2,10);
VAR44:=REF(VAR33,1);
FILLRGN((VAR33>VAR44),VAR33,VAR44),colorFF;
FILLRGN((VAR33<VAR44),VAR44,VAR33),colorFF0000;  |
