通达信趋势买卖点副图源码

{参数：M 1.300.24 A 1.300.5}
{背景}
STICKLINE(100,-100,100,10,0),COLORC61616;
{操盘线}
买线:=EMA(C,2);
卖线:=EMA(SLOPE(C,21)*20+C,42);
STICKLINE(买线>=卖线,REFDATE(HHV(H,130),DATE),REFDATE(LLV(L,130),DATE),5,0),
COLOR600020;
STICKLINE(买线<卖线,REFDATE(HHV(H,130),DATE),REFDATE(LLV(L,130),DATE),5,0),
COLOR404050;{公式在线提供：www.gszx.com.cn}

RSV:=((HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M))*200)-125;
空方主力:SMA(RSV,A,1),COLORYELLOW,LINETHICK2;
RSV1:=((CLOSE-LLV(LOW,M))/(HHV(HIGH,M)-LLV(LOW,M))*200)-105;
多方主力:SMA(RSV1,A,1),COLORRED,LINETHICK2;
WD:=CROSS(空方主力,-85);
WD1:=CROSS(空方主力,多方主力);
VAR1:=ZIG(CLOSE,13);
地虎买: IF(REF(VAR1,2)>REF(VAR1,1) AND VAR1>REF(VAR1,1),0,-70),COLORRED,LINETHICK2;
地虎卖: IF(REF(VAR1,2) 虎:0,POINTDOT,COLORWHITE;

N:=30;
RSV0:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV0,3,1),COLORYELLOW; D:=SMA(K,3,1),COLORWHITE,;
STICKLINE(K>D,K,D,2,0),COLOR0000FF;
STICKLINE(D>K,K,D,2,0),COLORFFFF50;

VARK1:=3*SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,5,1),3,1);
VARK2:=EMA(VARK1,3), COLORBLACK,COLORYELLOW;
STICKLINE(VARK2<=13,-20,-18,8,0),COLOR0066FF;
STICKLINE(VARK2<=13 AND (VARK2-REF(VARK2,1))/REF(VARK2,1)*100>13,-20,-10,1,0),COLORMAGENTA;

{主力资金}
A:=VOL*CLOSE;
B:=SUM(A,1)/SUM(VOL,1);
B1:=EMA(B,17);
主力:(B-B1)*100/B,COLORRED;
进:STICKLINE(主力>=0 AND 0>=REF(0,1),0,主力,3,0),COLORRED;
出:STICKLINE(主力<0 AND 0>=REF(0,1),0,主力,3,0),COLORGREEN;

P1:=5;
P2:=10;
P3:=20;
P4:=30;
P5:=60;
P6:=120;
P7:=240;
P8:=340;
N0:=4;
WX:=MA(CLOSE,0);
M1:=MA(CLOSE,P1);
M2:=(MA(CLOSE,P2) * IF((N0 < 2),WX,1));
M3:=(MA(CLOSE,P3) * IF((N0 < 3),WX,1));
M4:=(MA(CLOSE,P4) * IF((N0 < 4),WX,1));
M5:=(MA(CLOSE,P5) * IF((N0 < 5),WX,1));
M6:=(MA(CLOSE,P6) * IF((N0 < 6),WX,1));
M7:=(MA(CLOSE,P7) * IF((N0 < 7),WX,1));
M8:=(MA(CLOSE,P8) * IF((N0 < 8),WX,1));
C1:=REF(CLOSE,1);
C2:=HHV(C1,2);
C3:=LLV(C1,1);
ET:=HHV(C1,2);
ET1:=REF(ET,1);
XB:=LLV(C1,1);
XB1:=REF(XB,1);
M:=BARSLAST(((CLOSE < XB) AND (C1 >= XB1)));
M11:=REF(M,1);
N9:=BARSLAST(((CLOSE > ET) AND (C1 <= ET1)));
N1:=REF(N9,1);
M21:=(BARSLAST((((M - N9) > 0) AND (M11 <= N1))) + 1);
N2:=(BARSLAST((((N9 - M) > 0) AND (N1 <= M11))) + 1);
ET2:=HHV(ET,M21);
XB2:=LLV(XB,N2);
A0:=IF((((M - N9) > 0) AND (M11 <= N1)),1,IF((((N9 - M) > 0) AND (N1 <= M11)),0,2));
H1:=IF(((M - N9) > 0),CLOSE,ET2);
H2:=IF((A0 = 1),CLOSE,C2);
H3:=IF(((M - N9) < 0),CLOSE,XB2);
H4:=IF((A0 = 1),CLOSE,XB2);
H5:=IF((((M - N9) > 0) OR (A0 = 1)),CLOSE,H3);
H6:=REF(H5,1);
H7:=REF(H5,2);
H8:=(H5 > H6);
H9:=(((H4 = REF(H4,1)) AND (REF(H4,1) < REF(H4,2))) AND (H5 > REF(H5,2)));
H10:=(((H2 = REF(H2,1)) AND (H4 = REF(H4,1))) AND (H5 = REF(H5,2)));
W:=((H8 OR H9) OR H10);
T9:=((H5 < H6) AND (H5 < REF(H5,2)));
T10:=((H4 = REF(H4,1)) AND (H5 < REF(H5,2)));
T11:=((H3 > REF(H3,1)) AND (H5 < REF(H5,1)));
T12:=((H5 = REF(H5,1)) AND (H3 = H4));
T13:=((H2 = REF(H2,1)) AND (H2 = H5));
TW:=((((T9 OR T10) OR T11) OR T12) OR T13);
PK:=((AMOUNT * (((OPEN + CLOSE) + HIGH) + LOW)) / 4);
PK1:=IF((VOL > 0),(PK / AMOUNT),((((OPEN + CLOSE) + HIGH) + LOW) / 4));
BBP:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);

STICKLINE((ISLASTBAR AND W),(H5 * 1.025),(H5 * 0.99),0.5,0),COLORFF8800;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,8,0),COLOR102088;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,7,0),COLOR102099;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,6,0),COLOR1020AA;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,5,0),COLOR1020BB;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,4,0),COLOR1020CC;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,3,0),COLOR1020DD;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,2,0),COLOR1020EE;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,1,0),COLOR1020FF;
DRAWTEXT((ISLASTBAR AND (BBP >= 96.5)),(H5 * 1.022),'明见\N0 短高\N0 龙头\N0 除外'),COLORRED;
DRAWTEXT((ISLASTBAR AND (BBP < 1)),((H5 + H4) / 1.96),'明见\N0 短低\N0 跌停\N0 除外'),COLORGREEN;
DRAWTEXT(((ISLASTBAR AND W) AND (BBP < 96.5)),(H5 * 1.022),'明日\N0 看涨'),COLORYELLOW;
DRAWTEXT(((ISLASTBAR AND TW) AND (BBP > 1)),((H5 + H4) / 2),'明日\N0 看跌'),COLORGREEN;
{觅庄建仓}
VAR2:=REF(LOW,1);
VAR3:=SMA(ABS(LOW-VAR2),13,1)/SMA(MAX(LOW-VAR2,0),13,1)*100;
VAR4:=EMA(IF(CLOSE*1.2,VAR3*13,VAR3/13),13);
VAR5:=LLV(LOW,34);
VAR6:=HHV(VAR4,34);
VAR7:=IF(LLV(LOW,56),1,0);
VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7;
XL1:=MA(LOW,2)*0.96;
XL2:=MA(LOW,26)*0.85;
XL3:=REF(XL1,1) STICKLINE(XL3,0,VAR8*3,4,0),COLOR006EFF;
DRAWTEXT(XL3,-5,'觅庄建仓'),COLORRED;
↑买:DRAWICON(XL3,0,4),COLORRED;
{庄见愁}
庄筹线:=EMA(WINNER(C)*70,5);
散筹线:=EMA((WINNER(C*1.1)-WINNER(C*0.9))*70,5);
CC:=FILTER((CROSS(5,庄筹线) AND 散筹线<20 )*60,10 ),COLORFF00FF;
DRAWTEXT(CC ,-70 ,'海底捞活鱼(抄底)' ),COLORYELLOW ;
AA:= REF(庄筹线,30)>40 OR REF(庄筹线,20)>40;
AA1:=CROSS(庄筹线,散筹线);
DRAWTEXT(AA1,-70,'鸡雀升天'),COLORYELLOW ;
BB:=CROSS(28,庄筹线) AND 散筹线>40 AND AA=1 AND LLV(L ,60 )>LLV(L ,250 );
DRAWTEXT(BB,-70,'决战诱空'),COLORYELLOW;
{建仓}
VAR3A:=LLV(LOW,5)=LLV(LOW,45) AND CLOSE>=OPEN