源码
P1:=28;P2:=32;P3:=35;n:=3;m:=20;
//说明:见底信号与笑脸同时出现,成功机率比较大.
ma5:MA(CLOSE,5);
ma10:MA(CLOSE,10);
ma20:MA(CLOSE,20),colorwhite;
//成本:DMA(AMOUNT/V/100,V/CAPITAL),colorred;
VAR2:=LLV(LOW,10);
VAR3:=HHV(HIGH,25);
K1:=(P1/10)*100;
K2:=(P2/10)*100;
K3:=(P3/10)*100;
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1),COLORFFFFFF;
D:=SMA(K,3,1),COLOR00FFFF;
J:=3*K-2*D,COLORFF00FF;
X:=LLV(J,2)=LLV(J,8);
Y:=IF(CROSS(J,REF(J+0.01,1)) AND X AND J<20,30,0),COLOR00FF00;
主力:=EMA( (CLOSE-MA(CLOSE,n))/MA(CLOSE,n)*4800,2);
散户:=EMA( (CLOSE-MA(CLOSE,m))/MA(CLOSE,m)*4800,7);
动能趋势线:=100*EMA((CLOSE-VAR2)/(VAR3-VAR2)*4,4),COLORA0A0FF;
DRAWTEXT(CROSS(动能趋势线,K1),HIGH*1.02,'风险'),colorgreen;
DRAWTEXT(CROSS(动能趋势线,K2),HIGH*1.02,'减仓'),COLOR00FF00;
DRAWTEXT(CROSS(动能趋势线,K3),HIGH*1.02,'出局'),colorwhite;
DRAWTEXT(CROSS(J,REF(J+0.01,1)) AND X AND J<20,LOW,'短进'),COLORFF00FF;
DRAWTEXT(CROSS(主力,散户) AND 主力<0 AND 散户<0,LOW,'见 底'),colorred;
DRAWICON(CROSS(主力,散户) AND 主力<0 AND 散户<0,LOW,1);
TY:=C;
HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);
LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);
A:=REF(C,BARSLAST(HD));
B:=REF(C,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
LC:=REF(CLOSE,1);
U2L:=IF((CLOSE >= MA(CLOSE,20)),80,50);
L2L:=IF((CLOSE >= MA(CLOSE,20)),50,20);
RSI:=((SMA(MAX((CLOSE - LC),0),6,1) / SMA(ABS((CLOSE - LC)),6,1)) * 100);
RSI12:=((SMA(MAX((CLOSE - LC),0),12,1) / SMA(ABS((CLOSE - LC)),12,1)) * 100);
RSI24:=((SMA(MAX((CLOSE - LC),0),24,1) / SMA(ABS((CLOSE - LC)),24,1)) * 100);
RH1:=IF(((RSI < U2L) AND (REF(RSI,1) >= U2L)),HHV(REF(HIGH,1),(BARSLAST(((RSI >= U2L) AND (REF(RSI,1) < U2L))) - 1)),REF(HHV(REF(HIGH,1),(BARSLAST(((RSI >= U2L) AND (REF(RSI,1) < U2L))) - 1)),BARSLAST(((RSI < U2L) AND REF(RSI,1)))));
RH4:=IF((HIGH > RH1),LOW,REF(LOW,BARSLAST((HIGH > RH1))));
RH42:=IF((HIGH > RH1),RSI,REF(RSI,BARSLAST((HIGH > RH1))));
RH5:=IF((((HIGH > RH4) AND (RSI < RH42)) AND (RSI < RSI24)),HIGH,REF(HIGH,BARSLAST((((HIGH > RH4) AND (RSI < RH42)) AND (RSI < RSI24)))));
RL1:=IF(((RSI > L2L) AND (REF(RSI,1) <= L2L)),LLV(REF(LOW,1),(BARSLAST(((RSI <= L2L) AND (REF(RSI,1) > L2L))) - 1)),REF(LLV(REF(LOW,1),(BARSLAST(((RSI <= L2L) AND (REF(RSI,1) > L2L))) - 1)),BARSLAST(((RSI > L2L) AND REF(RSI,1)))));
RL4:=IF((LOW < RL1),HIGH,REF(HIGH,BARSLAST((LOW < RL1))));
RL42:=IF((LOW < RL1),RSI,REF(RSI,BARSLAST((LOW < RL1))));
RL5:=IF((((LOW < RL4) AND (RSI > RL42)) AND (RSI > RSI24)),LOW,REF(LOW,BARSLAST((((LOW < RL4) AND (RSI > RL42)) AND (RSI > RSI24)))));
顶:IF(T1,A,A),POINTDOT,COLORFF00FF,LINETHICK2;
顶1:RH5,POINTDOT,LINETHICK2,COLORFF00FF;
底:IF(T2,B,B),POINTDOT,LINETHICK2,COLOR80FF00;
底1:RL5,POINTDOT,LINETHICK2,COLOR80FF00;
//{选股}
//见底:IF(CROSS(主力,散户) AND 主力<0 AND 散户<0,1,0),colorred;
//短进:IF(CROSS(J,REF(J+0.01,1)) AND X AND J<20,1,0),COLORFF00FF;
A3:=BARSLAST(REF(CROSS("RSI.RSI$1"(6,12,24),"RSI.RSI$2"(6,12,24)),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI$1"(6,12,24),A3+1)<"RSI.RSI$1"(6,12,24) AND CROSS("RSI.RSI$1"(6,12,24),"RSI.RSI$2"(6,12,24));
DRAWTEXT(FILTER(B3>0,5),L-0.99,'底背'),COLORFFFF00;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,5.2,0),color070084;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,4,0),color0000A3;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,3.5,0),color0000B7;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,3,0),color0000CD;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,2.5,0),color0000E9;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,2,0),color0754E9;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,1.5,0),color076EF3;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,1,0),color077BF3;
STICKLINE((CLOSE > OPEN),OPEN,LOW,1,0),color077BF3;
STICKLINE((CLOSE > OPEN),CLOSE,HIGH,1,0),color077BF3;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,5.2,0),color070084;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,4,0),color0000A3;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,3.5,0),color0000B7;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,3,0),color0000CD;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,2.5,0),color0000E9;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,2,0),color0754E9;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,1.5,0),color076EF3;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,1,0),color077BF3;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),OPEN,LOW,1,0),color077BF3;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,HIGH,1,0),color077BF3;
STICKLINE((OPEN > CLOSE),CLOSE,OPEN,5.2,0),colorFF5B00;
STICKLINE((OPEN > CLOSE),CLOSE,OPEN,4,0),colorFF6C00;
STICKLINE((OPEN > CLOSE),CLOSE,OPEN,3.5,0),colorFF7B00;
STICKLINE((OPEN > CLOSE),CLOSE,OPEN,3,0),colorFF9C00;
STICKLINE((OPEN > CLOSE),CLOSE,OPEN,2.5,0),colorFFBE00;
STICKLINE((OPEN > CLOSE),CLOSE,OPEN,2,0),colorFFCC00;
STICKLINE((OPEN > CLOSE),CLOSE,OPEN,1,0),colorFFFF00;
STICKLINE((OPEN > CLOSE),CLOSE,LOW,1,0),colorFFFF00;
STICKLINE((OPEN > CLOSE),OPEN,HIGH,1,0),colorFFFF00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,OPEN,5.2,0),colorFF5B00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,OPEN,4,0),colorFF6C00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,OPEN,3.5,0),colorFF7B00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,OPEN,3,0),colorFF9C00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,OPEN,2.5,0),colorFFBE00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,OPEN,2,0),colorFFCC00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,OPEN,1,0),colorFFFF00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,LOW,1,0),colorFFFF00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),OPEN,HIGH,1,0),colorFFFF00;
