同花顺多空划线副图源码

多空划线指标
 由明日星指标改编而成。
 用法：多空k线为红色线段区为多头，多空线为黄色线段区为空头。

MA5:MA(CLOSE,5);
 MA10:MA(CLOSE,10);
 MA30:MA(CLOSE,30);
 MA60:MA(CLOSE,60);
红轨道:=MA(MA(CLOSE,3),1),LINETHICK1,coloryellow;
绿轨道:=MA(MA(CLOSE,3),3);
上升:IF(红轨道>=绿轨道,绿轨道,DRAWNULL),colorred,LINETHICK3;
 AA1:=3*SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1)-2*SMA(SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1),3,1);
加仓:=IF(CROSS(AA1,REF(AA1+0.01,1)) AND LLV(AA1,2)=LLV(AA1,8) AND
 BETWEEN(AA1,20,60),1,0);
波段底:=(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));
 DRAWICON(CROSS(波段底,3),L*0.97,1);
 A:=(3*C+L+O+H)/6;
 X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
 14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
 +7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
 REF(A,20))/210;
 MTM:=C-REF(C,1);
 DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
 CB:=EMA(X,13);
卖:=IF(HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX),1,0);
 DRAWTEXT(FILTER(卖=1,1),HIGH*1.02,''),colorwhite;
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
 DRAWTEXT(FILTER(买=1,5),LOW-0.03,''),colorred;
 RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
 K:=SMA(RSV,3,1);
 D:=SMA(K,3,1);
 J:=3*K-2*D;
 BDGD:=HHV(J,2)=HHV(J,8) AND J>80;
注意:=IF(CROSS(REF(J-0.01,1),J) AND REF(BDGD,1),1,0);
 DRAWTEXT(注意 AND
卖!=1,HIGH*1.02,''),colorliblue;
加仓A:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10;
 DRAWTEXT(FILTER((CROSS(加仓A,0) OR CROSS(CLOSE,CB)) AND
买!=1,3),LOW-0.03,''),COLOR0080FF;
 MA18:=MA(C,18);
跟:=IF(MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18),1,0);
 DRAWTEXT(MA18>=REF(MA18,3) AND
 CROSS(CLOSE,MA18),LOW*0.96,''),COLOR7F52AF;
买价:=((C-REF(MA5,1))/5+MA5)*1.004;
买条件:=CROSS(C,买价) AND 买价>REF(买价,1);
白K线买进:IF(买条件,L,H),colorwhite,POINTDOT;
 STICKLINE(买条件,H,L,0,1),colorwhite,LINETHICK2;
 STICKLINE(买条件,O,C,4,1),colorwhite,LINETHICK2;
加码价:=((C-REF(MA10,1))/20+MA10)*1.004;
加码条件:=CROSS(C,加码价) AND
加码价>REF(加码价,1);
黄K线加码:IF(加码条件,L,H),coloryellow,POINTDOT;
 STICKLINE(加码条件,H,L,0,1),coloryellow,LINETHICK2;
 STICKLINE(加码条件,O,C,4,1),coloryellow,LINETHICK2;
 P1:=5;
 P2:=10;
 P3:=20;
 P4:=30;
 P5:=60;
 P6:=120;
 P7:=240;
 P8:=340;
 N:=4;
 WX:=MA(CLOSE,0);
 M1:=MA(CLOSE,P1);
 M2:=(MA(CLOSE,P2) * IF((N < 2),WX,1));
 M3:=(MA(CLOSE,P3) * IF((N < 3),WX,1));
 M4:=(MA(CLOSE,P4) * IF((N < 4),WX,1));
 M5:=(MA(CLOSE,P5) * IF((N < 5),WX,1));
 M6:=(MA(CLOSE,P6) * IF((N < 6),WX,1));
 M7:=(MA(CLOSE,P7) * IF((N < 7),WX,1));
 M8:=(MA(CLOSE,P8) * IF((N < 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);
 H1:=IF(((M - N9) > 0),CLOSE,ET2);
 H2:=IF((A = 1),CLOSE,C2);
 H3:=IF(((M - N9) < 0),CLOSE,XB2);
 H4:=IF((A = 1),CLOSE,XB2);
 H5:=IF((((M - N9) > 0) OR (A = 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 W) AND (BBP < 96.5)),(H5 * 1.022),'看涨'),coloryellow;
 DRAWTEXT(((ISLASTBAR AND TW) AND (BBP > 1)),((H5 + H4) / 2),'看跌'),colorgreen;
 DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
 DEA:=EMA(DIF,9);
 MACD:=(DIF-DEA)*2;
上穿0轴选股:CROSS(MACD,0);