通达信富力五线趋势顶底副图源码
DRAWTEXT_FIX(1,0,0.07,0,'富力五线趋势顶底'),COLOR99CC32;
RSV1:=(((CLOSE - LLV(LOW,21)) / (HHV(HIGH,21) - LLV(LOW,21))) * 100);
LSC:=REF(C,1);
RMI:=SMA(MAX(C-LSC,0),5,1)/SMA(ABS(C-LSC),5,1)*100;
RMIM:=SMA(RMI,3,1);
STICKLINE(RMIM>=50,50,RMIM,2,1),COLOR9F9F5F;
STICKLINE(RMIM>70,70,RMIM,2,0),COLORWHITE;
STICKLINE(RMIM>75,75,RMIM,2,0),COLORFF2400;
STICKLINE(RMIM>80,80,RMIM,2,0),COLORYELLOW;
STICKLINE(RMIM>88,88,RMIM,2,0),COLORRED;
STICKLINE(RMIM<50,50,RMIM,2,1),COLOR9F9F5F;
STICKLINE(RMIM<25,25,RMIM,2,0),COLORWHITE;
STICKLINE(RMIM<20,20,RMIM,2,0),COLORFF2400;
STICKLINE(RMIM<15,15,RMIM,2,0),COLORYELLOW;
STICKLINE(RMIM<10,10,RMIM,2,0),COLORRED;
V11:=AMOUNT/VOL/100;
V12:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
V13:=SUM(AMOUNT,7)/V11/100;
V14:=DMA(V12,VOL/V13);
V5:=(CLOSE-V14)/V14*100;
V6:=MA(V5,13)+STD(V5,13);
BIAS13:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
STICKLINE(REF(BIAS13,1)>=5 AND CROSS(V6,V5) AND REF("KDJ.J"(13,3,3),1)>80 AND REF("KDJ.J"(9,3,3),1)>80,90,85,2,0),COLORWHITE;
AA:=(O+H+L+C)/4;
BB:=MA(AA,3);
CC:=SUM(IF(AA>REF(AA,1),AA*VOL,0),4)/SUM(IF(AA<REF(AA,1),AA*VOL,0),4);
DDD:=REF(100-(100/(1+CC)),1);
A1:=HHV(AA,15);
A2:=LLV(AA,15);
A3:=A1-A2;
A4:=EMA((AA-A2)/A3,2)*100;
B1:=HHV(AA,60);
B2:=LLV(AA,60);
B3:=B1-B2;
B4:=EMA((AA-B2)/B3,2)*100;
C1:=HHV(AA,240);
C2:=LLV(AA,240);
C3:=C1-C2;
C4:=EMA((AA-C2)/C3,2)*100;
短线:A4,COLORFF6EC7,DOTLINE;
中线:B4,COLOR32CD32,DOTLINE;
长线:C4,COLOREBC79E,DOTLINE;
D11:=中线>REF(中线,1)AND 短线>REF(短线,1)AND 长线>REF(长线,1)AND 长线<8 AND 中线<10 AND 短线<15;
D12:=CROSS(短线,中线)AND 中线<8;
D13:=CROSS(短线,长线)AND 长线<8 AND 中线<20;
DX1:0,COLORGRAY;
TX:100,COLORGRAY;
顶部:100,COLOREBC79E;
小顶:90,COLOREBC79E;
底部:0,COLOREBC79E;
多方趋势:=7*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)
-3*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1)
-SMA(SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)
,3,1),2,1);
天线:=78.89;
STICKLINE(CROSS(天线,多方趋势),90,100,3,0),COLOR00FF00;
{主力吸筹}
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
JJ:=13*(3*D-2*K);
J:=((3 * K) - (2 * D));
MAIRU:= CROSS(K,D) AND K<20;
MAICHU:= CROSS(D,K) AND D>80;
快线:(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100,NODRAW;
慢线:SMA(快线,3,1),NODRAW;
空:SMA(慢线,3,1),NODRAW;
BBB:=IF(BARSLAST(CROSS(慢线,快线))>=3 AND CROSS(快线,慢线) AND 慢线<30,20,0);
STICKLINE(BBB,0,-10,3,0),COLORRED;
IF(BBB,-10,-10),COLOR97694F;
AAA:=IF(BARSLAST(CROSS(快线,慢线))>=4 AND CROSS(慢线,快线) AND 快线>50,20,0);
STICKLINE(AAA,100,110,3,0),COLOR00FF00;
高卖:IF(AAA,110,110),COLOR97694F;
V1:=MA(C,3)=HHV(MA(C,3),7);
V2:=MA(C,3)>MA(C,5);
V3:=MA(V,5)>MA(V,10)*1.01;
V4:=COUNT(MA(C,1)>REF(C,1),2)=2;
LC20:=REF(CLOSE,1);
RSI20:=SMA(MAX(CLOSE-LC20,0),4.1,1)/SMA(ABS(CLOSE-LC20),4.1,1)*100;
STICKLINE(CROSS(RSI20,11)*1,-10,15,3,0),COLORRED;
VAR3A:=3;
VAR2A:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
YXF:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
加仓:IF(FILTER(YXF=1,5),15,-5),STICK,COLORLICYAN,LINETHICK5;
A51:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV
(L,55))*100,5,1);
FY:=EMA(A51,5);
A54:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
LCC:=REF(CLOSE,1);
RSI5:=((SMA(MAX((CLOSE - LCC),0),5,1) / SMA(ABS((CLOSE - LCC)),5,1)) * 100);
TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10);
HD:=(HIGH - REF(HIGH,1));
LD:=(REF(LOW,1) - LOW);
DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),10);
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),10);
PDI:=((DMP * 100) / TR1);
MDI:=((DMM * 100) / TR1);
ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),5);
AV:=(RSI5 + ADX);
DXR:=(((ADX + REF(ADX,5)) / 2) + RSI5);
0,COLORFF00FF;
WR10:=((100 * (HHV(HIGH,13) - CLOSE)) / (HHV(HIGH,17) - LLV(LOW,17)));
NEWVOL:=(RSI5 - WR10);
阶段底部:=(AV + NEWVOL);
STICKLINE(CROSS(阶段底部,0),0,-10,3,0),COLORE6E8FA;
VAR18:=LLV(LOW,21);
VAR19:=HHV(HIGH,21);
KK:EMA((CLOSE-VAR18)/(VAR19-VAR18)*100,6),COLORYELLOW,LINETHICK1;
DD:EMA(0.667*REF(KK,1)+0.333*KK,2),COLORFF2400,LINETHICK2;
- 上一篇:通达信金山银海副图指标 2016/8/24
- 下一篇:通达信移山填海主图指标 2016/8/24