【通达信源码分享】A神主图公式 波段操作一目了然 源码通达信
2022-08-10 来源：未知 编辑：掌上指标
DRAWRECTREL(300,985,900,980,80); DRAWTEXT_FIX(1,0.8,0.985,1,深挖洞，广积粮),COLORYELLOW; AE1:=EMA(CLOSE,13)-EMA(CLOSE,55); AE2:=EMA((0.618*REF(AE1,1)+0.382*AE1),3);
DRAWRECTREL(300,985,900,980,80);
DRAWTEXT_FIX(1,0.8,0.985,1,'深挖洞，广积粮'),COLORYELLOW;
AE1:=EMA(CLOSE,13)-EMA(CLOSE,55);
AE2:=EMA((0.618*REF(AE1,1)+0.382*AE1),3);
STICKLINE(AE1>=AE2,H,L,0,0),COLOR00FFFF;
STICKLINE(AE1>=AE2,O,C,-1,0),COLOR0099DD;
STICKLINE(AE1>=AE2,O,C,2,0),COLOR00ABEE;
STICKLINE(AE1>=AE2,O,C,1,0),COLOR00DDFF;
STICKLINE(AE1>=AE2,O,C,0.1,0),COLOR00FFFF;
STICKLINE(AE1<AE2,H,L,0,0),COLOR00FF00;
STICKLINE(AE1<AE2,O,C,-1,0),COLOR009900;
STICKLINE(AE1<AE2,O,C,2,0),COLOR00AB00;
STICKLINE(AE1<AE2,O,C,1,0),COLOR00DD00;
STICKLINE(AE1<AE2,O,C,0.1,0),COLOR00FF00;
P1:=EMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,5);
P2:=(HHV(HIGH,55)-LLV(LOW,55))/EMA((CLOSE-LLV(LOW,55)),5);
P3:=CROSS(P2,P1);
P4:=REF(P2,2)<REF(P2,1) AND P2<REF(P2,1);
P5:=COUNT(P3,7)>0 AND P4;
P6:=3*SMA((CLOSE-LLV(LOW,89))/(HHV(HIGH,89)-LLV(LOW,89))*100,5,1)-2*SMA((CLOSE-LLV(LOW,89))/(HHV(HIGH,89)-LLV(LOW,89))*100,5,1);
P7:= (CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
MW:= EMA(P6,5);
NU:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
NU0:=SMA(NU,3,1);
NU00:=SMA(NU0,3,1);
NU10:=3*NU0-2*NU00;
NU1:=EMA(3*NU0-2*NU00,4);
NU2:=SMA(NU1,5,1);
NW:=MA(3*SMA(P7,6,1)-2*SMA(SMA(P7,5,1),5,1),2);
HW:=CROSS(NW,0) AND MW<56;
DP:=IF(P5 AND COUNT(P5,5)=1,1,0);
TP:=(HW AND DP) OR ((CROSS(IF(P6<3 AND NU2<5 AND NW<4,1,0),0.5))AND LLV(L,34)/HHV(H,144)<0.78),NODRAW;
STICKLINE(TP,H,L,0,0),COLOR0000FF;
STICKLINE(TP,O,C,-1,0),COLOR000099;
STICKLINE(TP,O,C,2,0),COLOR0000AB;
STICKLINE(TP,O,C,1,0),COLOR0000DD;
STICKLINE(TP,O,C,0.1,0),COLOR0000FF;
DRAWTEXT(TP,C*0.96,'TURNING POINT'),COLORRED;
E1:=EXPMA(C,7),COLORGREEN;
E5:=EXPMA(C,17),COLORGREEN;
A1A:=CROSS(C,E1) AND CROSS(C,E5);
DRAWICON(A1A,L*0.99,23);
S1 :=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
RSI3:=SMA(MAX(CLOSE-LC,0),24,1)/SMA(ABS(CLOSE-LC),24,1)*100;
S2:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
S3:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
DRAWICON(CROSS(S3,S1) AND RSI1>RSI2 AND RSI2>RSI3,L*0.978,24);
DRAWICON(RSI1>RSI2 AND RSI2>RSI3 AND CROSS(RSI2,RSI3) AND REF(RSI1,2)>50 AND REF(RSI1,1)<50 AND RSI1>50,L*0.97,14);
A1:=IF(REF(S1,1)<-6 AND S1>-6,1,0);
红球:=(A1 AND L>REF(L,1) AND REF(O,1)>REF(C,1))*O;
DRAWICON(红球=O,L*0.99,13);
RSI5:=((SMA(MAX((CLOSE - LC),0),5,1) / SMA(ABS((CLOSE - LC)),5,1)) * 100);
VARR1:=SMA(MAX(CLOSE-REF(C,1),0),12,1)/SMA(ABS(CLOSE-REF(C,1)),15,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);
WR10:=((100 * (HHV(HIGH,10) - CLOSE)) / (HHV(HIGH,10) - LLV(LOW,10)));
NEWVOL:=(RSI5 - WR10);
抄底:=(AV + NEWVOL);
DRAWICON(CROSS(抄底,0),L*0.98,25);
VAR4:=EMA(C,3), LINETHICK1,COLORWHITE;
DRAWICON(COUNT(REF(VAR4,1)<REF(VAR4,2),5)=5 AND VAR4>REF(VAR4,1),L,26);
N:=5;
走势:=4*SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1)-
3*SMA(SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1),3.2,1),COLOR0099FF,LINETHICK1;
RSV:=(CLOSE-LLV(LOW,4))/(HHV(HIGH,4)-LLV(LOW,4))*100;
超级短线:=SMA(RSV,2,1);
短线:=SMA(超级短线,2,1);
短线狙击:=CROSS(超级短线,短线) AND 超级短线<20;
DRAWICON(短线狙击=1,L*0.985,34);
RSI1A:=SMA(MAX(CLOSE-LC,0),2,1)/SMA(ABS(CLOSE-LC),2,1)*100;
RSI2A:=SMA(MAX(CLOSE-LC,0),3,1)/SMA(ABS(CLOSE-LC),3,1)*100;
RSI3A:=SMA(MAX(CLOSE-LC,0),4,1)/SMA(ABS(CLOSE-LC),4,1)*100;
RSI4:=SMA(MAX(CLOSE-LC,0),5,1)/SMA(ABS(CLOSE-LC),5,1)*100;
RSI5A:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI6:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
RSI7:=SMA(MAX(CLOSE-LC,0),8,1)/SMA(ABS(CLOSE-LC),8,1)*100;
RSI8:=SMA(MAX(CLOSE-LC,0),9,1)/SMA(ABS(CLOSE-LC),9,1)*100;
RSI9:=SMA(MAX(CLOSE-LC,0),10,1)/SMA(ABS(CLOSE-LC),10,1)*100;
RSI10:=SMA(MAX(CLOSE-LC,0),11,1)/SMA(ABS(CLOSE-LC),11,1)*100;
RSI11:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
RSI12:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;
RSI13:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;
RSI14:=SMA(MAX(CLOSE-LC,0),15,1)/SMA(ABS(CLOSE-LC),15,1)*100;
RSI15:=SMA(MAX(CLOSE-LC,0),16,1)/SMA(ABS(CLOSE-LC),16,1)*100;
RSI16:=SMA(MAX(CLOSE-LC,0),17,1)/SMA(ABS(CLOSE-LC),17,1)*100;
RSI17:=SMA(MAX(CLOSE-LC,0),18,1)/SMA(ABS(CLOSE-LC),18,1)*100;
RSI18:=SMA(MAX(CLOSE-LC,0),19,1)/SMA(ABS(CLOSE-LC),19,1)*100;
RSI19:=SMA(MAX(CLOSE-LC,0),20,1)/SMA(ABS(CLOSE-LC),20,1)*100;
RSI21:=SMA(MAX(CLOSE-LC,0),21,1)/SMA(ABS(CLOSE-LC),21,1)*100;
短线RSI:=(RSI1A+RSI2A+RSI3A+RSI4+RSI5A)/5;
中线RSI:=(RSI6+ RSI7+ RSI8+ RSI9+ RSI10+ RSI11+ RSI12+ RSI13+ RSI14+ RSI15+ RSI16+ RSI17+ RSI18+ RSI19+ RSI21)/15;
红色箭头:=CROSS(短线RSI,中线RSI);
DRAWICON(红色箭头=1,L*0.98,1);
A01:=(C-LLV(LOW,3))/(HHV(HIGH,3)-LLV(LOW,3));
A11:=SMA(A01,2,1);
A21:=SMA(A11,2,1);
A31:=3*A11-2*A21 ;
A41:=2*A31-0.5;
生命线:=C*(1-(A41-A21)/15),COLORRED,LINETHICK1;
A线:=HHV(H,20);
B线:=LLV(L,20);
C线:=(A线+B线)/2;
做多线:IF(C线,C线,DRAWNULL)COLORFF00FF;
MA1:MA(CLOSE,5),COLORWHITE,LINETHICK2;
MA2:MA(CLOSE,10),COLORYELLOW,LINETHICK2;
MA3:MA(CLOSE,30),COLORGREEN,LINETHICK2;
MA4:MA(CLOSE,60),COLORBLUE,LINETHICK2;
MA3A:=MA(CLOSE,20);
DRAWTEXT(CROSS(C,MA1)&&MA1>MA2 AND O<MA3A AND C>MA3A AND MA4>REF(MA4,1) AND O>MA4 AND V>REF(V,1),L*0.995,'黑马出现'),COLORYELLOW;
黑马:=(CROSS(C,MA1)&&MA1>MA2 AND O<MA3A AND C>MA3A AND MA4>REF(MA4,1) AND O>MA4 AND V>REF(V,1));
DRAWICON(黑马=1,L*0.978,18);
进场:=CROSS(C,生命线);
DRAWICON(进场=1,L,7);
未来压力线:CONST(POW(SQRT(REF(LLV(C,60),60))+1,2));
未来底线:=CONST(POW(SQRT(REF(HHV(C,240),60))-1,2));
超越后压力线1:IF(C>未来压力线,CONST(POW(SQRT(未来压力线)+1,2)),IF(C>未来压力线 AND CURRBARSCOUNT<10,CONST(POW(SQRT(未来压力线)+1,2)),DRAWNULL));
超越后压力线2:IF(C>超越后压力线1,CONST(POW(SQRT(超越后压力线1)+1,2)),IF(C>超越后压力线1 AND CURRBARSCOUNT<10,CONST(POW(SQRT(超越后压力线1)+1,2)),DRAWNULL));
超越后压力线3:IF(C>超越后压力线2,CONST(POW(SQRT(超越后压力线2)+1,2)),IF(C>超越后压力线2 AND CURRBARSCOUNT<10,CONST(POW(SQRT(超越后压力线2)+1,2)),DRAWNULL));
