通达信A压力支撑主图源码

支撑:= REF(LOW,BARSLAST(VAR44)), POINTDOT,COLOR00B4FF;

STICKLINE(CLOSE,REF(LOW,BARSLAST(VAR44)),REF(LOW,BARSLAST(VAR44)),2,0),COLOR00B4FF;

下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);

ARSV:=SMA(下档线,3,1);

AK:=SMA(ARSV,3,1);

AD:=((3 * ARSV) - (2 * AK));

AJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);

ARSV24:=SMA(AJ12,3,1);

AK24:=SMA(ARSV24,3,1);

AD24:=((3 * ARSV24) - (2 * AK24));

撑压位:=IF(CROSS(AD24,AD),HIGH,REF(HIGH,BARSLAST(CROSS(AD24,AD))));

底:=LLV(HIGH,30);

STICKLINE(BARSTATUS=2 ,撑压位,撑压位,30,1),LINETHICK1,COLORFFFFFF;

DRAWTEXT(ISLASTBAR ,撑压位,' 撑压'),COLORFFFFFF;

STICKLINE(BARSTATUS=2 ,底,底,30,1),COLOR00FF00,LINETHICK1;

DRAWTEXT(ISLASTBAR ,底,' 底线'),COLOR00FF00;

底2:=SUM(MA(CLOSE,10),9)/11.114;

DRAWTEXT(CROSS(LOW,底2) AND REF(底2,1)>REF(HIGH,1) OR CROSS(HIGH,底2),L,'---铁底'),COLOR00FF00;

X11:=(3*CLOSE+HIGH+LOW+OPEN)/6;

X22:=EMA(X11,10);

X3:=REF(X22,1);

X4:=(REF(HIGH,1)+REF(LOW,1))/2;

X5:=MA(CLOSE,21)+2*STD(CLOSE,21);

X6:=REF(CLOSE,1);

X7:=(SMA(MAX(CLOSE-X6,0),7,1))/(SMA(ABS(CLOSE-X6),7,1))*100;

X8:=CROSS(79,X7);

X9:=FILTER(X8,4);

WZ1:=POW(MA(CLOSE,5),2)+MA(CLOSE,5);

WZ2:=POW(MA(LOW,5),2)+MA(LOW,5);

WZ3:=POW(MA(HIGH,5),2)+MA(HIGH,5);

WZ4:=(WZ1-LLV(WZ2,9))/(HHV(WZ3,9)-LLV(WZ2,9))*150+65;

DK:=SMA(WZ4,3,1)*1.5;

DD:=SMA(DK,3,1);

DJ:=3*DK-2*DD;

WZ5:=EMA(CLOSE,12)-EMA(CLOSE,26);

WZ6:=EMA(WZ5,9);

WZ7:=2*(WZ5-WZ6);

WZ8:=REF(WZ7,1);

WZ9:=CROSS(WZ8,WZ7) AND WZ8>0;

VAR1T:=EMA(CLOSE,8);

VAR2T:=EMA(VAR1T,20);

VAR3T:=CROSS(VAR1T,VAR2T);

VAR4T:=VAR1T<MA(CLOSE,120);

VAR5T:=(HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100;

VAR6T:=SMA(VAR5T,5,1);

VAR7T:=SMA(VAR6T,8,1);

VAR8T:=CROSS(VAR6T,VAR7T) AND VAR7T<20;

VAR9T:=CLOSE>LLV(CLOSE,60)+0.3*LLV(CLOSE,60) AND VAR8T;

VARA:=IF(CLOSE>1000,VAR8T,VAR9T);

逃遁:=VARA;

XL1:=EMA(CLOSE,10)/100;

XL2:=MA((XL1-REF(XL1,10))/REF(XL1,10),3)*100;

XL3:=MA(XL2,3);

XL4:=SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1);

DRAWTEXT(IF(CROSS(3*XL4-2*SMA(XL4,3,1),8),87,0) AND X22>X3,LOW,'←反弹'),COLOR0000FF;

DRAWTEXT(IF(CROSS((VAR1T-LLV(VAR1T,4))/(HHV(VAR1T,4)-LLV(VAR1T,4))*4*25,87.5) AND VAR1T<40,87,0) AND X22>X3,LOW,'←短买'),COLOR00AAAA;

DRAWTEXT(IF(CROSS(2*(EMA((CLOSE*2+HIGH+LOW)/4,12)-EMA((CLOSE*2+HIGH+LOW)/4,26)-(EMA(EMA((CLOSE*2+HIGH+LOW)/4,12)-EMA((CLOSE*2+HIGH+LOW)/4,26),2)))*5.8,0.47),LOW,0) AND X22>X3,LOW,'←加仓'),COLORFF5ED8;

DRAWTEXT(CROSS(X4,X5),HIGH+C*0.01,'←减'),COLORB4FF00;

{DRAWTEXT(FILTER((WZ9 AND DJ>250) OR X9 ,5),HIGH+C*0.02,'←跑'),COLORBCFF8B;}

DRAWTEXT(逃遁>0,HIGH,'●←逃'),COLOR7FFFD6;

VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);

VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0);

DRAWTEXT(FILTER((VAR4AA>90),45),(LOW),'★大胆搏 '),COLOR00FFFF;

L23:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;

L24:=(HIGH+LOW+CLOSE)/3;

L25:=(L24-MA(L24,14))/(0.015*AVEDEV(L24,14));

L26:=(L24-MA(L24,70))/(0.015*AVEDEV(L24,70));

L27:=IF(L25>=150 AND L25<200 AND L26>=150 AND L26<200,10,0);

L28:=IF(L25<=-150 AND L25>-200 AND L26<=-150 AND L26>-200,-10,L27);

L29:=100-ABS((CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100);

L30:=IF(L29<90,L29,100);

L31:=IF(L23>0,L23,0);

XL11:=(IF(L28>=200 AND L25>=150,15,IF(L26<=-200 AND L25<=-150,-15,L28)))+60;

XL22:=L31>48 AND XL11>60 AND L30<100;

DRAWTEXT(XL22 AND COUNT(XL22,30)=1,L,'大笔买入'),COLORFF00FF;

VAR3TD:=100-3*SMA((CLOSE-LLV(LOW,42))/(HHV(HIGH,42)-LLV(LOW,42))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,42))/(HHV(HIGH,42)-LLV(LOW,42))*100,20,1),15,1);

VAR4TD:=100-3*SMA((OPEN-LLV(LOW,42))/(HHV(HIGH,42)-LLV(LOW,42))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,42))/(HHV(HIGH,42)-LLV(LOW,42))*100,20,1),15,1);

VAR2TD:=VAR3TD<REF(VAR4TD,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);

DRAWTEXT(VAR2TD AND COUNT(VAR2TD,30)=1,L,'大资金进场'),COLORFF00FF;

FA:=REF(H,N1)=HHV(H,2*N1+1);

FAA:=FILTER(FA,N1);

FB:=BACKSET(FAA,N1+1);

FC1:=FILTER(FB,N1);

FC:=FC1 OR BARSTATUS=2;

FA2:=REF(L,N1)=LLV(L,2*N1+1);

FAA2:=FILTER(FA2,N1);

FB2:=BACKSET(FAA2,N1+1);

FC22:=FILTER(FB2,N1);

FC2:=FC22 AND NOT(FC1);

FEA:=BACKSET(FC,REF(BARSLAST(FC2),1)+1);

FEB:=FEA>REF(FEA,1);

FEE:=BACKSET(FEB,2);

FFF1:=FEE>REF(FEE,1);

FEE2:=BACKSET(FFF1 AND COUNT(FC,REF(BARSLAST(FC2),1)+2)=0,REF(BARSLAST(FC2),1)+2);

FFF2:=FEE2>REF(FEE2,1);

FEE3:=BACKSET(FFF2 AND COUNT(FC,REF(BARSLAST(FC2),1)+2)=0,REF(BARSLAST(FC2),1)+2);

FFF3:=FEE3>REF(FEE3,1);

FJS:=IF(FC,COUNT(FC2,REF(BARSLAST(FC),1)+1),0);

上一页  [1] [2] [3] [4] [5]  下一页