2023年12月27日发(作者：)

/*,'该股形态不佳，注意成交量的变化，目前不适合参与'),COLORFF00FF ;

DRAWTEXT(T14=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)

,'趋势不明，股价偏弱，注意量能变化，目前不宜参与'),COLORFF00FF ;

DRAWTEXT(T15=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)

,'有走强迹象，但量能不足，趋势不明，不适合操作'),COLORFF00FF ;

DRAWTEXT(T16=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)

,'该股走势太弱，没有参与价值。'),COLORFF00FF ;

DRAWTEXT(T17=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)

,'大盘理想，有明显走强迹象，中线参与，仓位在2/3左右'),COLORFF00FF ;

DRAWTEXT(T18=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)

,'如前期经过一轮下跌，最佳买点，前期有过一段涨幅需谨慎'),COLORFF00FF ;

DRAWTEXT(T19=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)

,'考虑短线进场，仓位在1/2左右，一旦量能放大,加仓买入'),COLORFF00FF ;

DRAWTEXT(T20=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)

,'大盘形态走坏，重仓者可以减去大部分仓位。'),COLORFF0000 ;

DRAWTEXT(T21=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)

,'大盘缩量调整，注意风险，短线清仓观望。'),COLORFF0000 ;

DRAWTEXT(T22=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)

,'大盘走势良好，量能理想，可以继续持有强势股。'),COLORFF0000 ;

DRAWTEXT(T23=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)

,'大盘形态良好，但量能稍显不足，随时准备减仓。'),COLORFF0000 ;

DRAWTEXT(T24=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)

,'大盘趋势不明，注意成交量变化，目前不适宜进场。'),COLORFF0000 ;

DRAWTEXT(T25=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03)

,'大盘趋势向下，量能萎缩，不适合进场。'),COLORFF0000 ;

AA:=BARSCOUNT(C);

AH:=HHV(H,200);

AL:=LLV(L,200);

A0:=(AH-AL)/40;

B1:=L-A0;

STICKLINE((AA+0)/34=FLOOR((AA+0)/34),B1,B1-1.5*A0,2,0),COLORF00FF0;

DRAWTEXT((AA+0)/34=FLOOR((AA+0)/34),B1-1*A0,'时间窗,变盘'),COLORF00FF0;

VAR2S:=(2*CLOSE+HIGH+LOW)/4;

VAR3S:=IF(YEAR>=2099 AND MONTH>2,0,1);

VAR4S:=LLV(LOW,5); VAR5S:=HHV(HIGH,4);

散户:=EMA((VAR2S-VAR4S)/(VAR5S-VAR4S)*100,4)*VAR3S;

庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3S;

DRAWTEXT(CROSS(散户,庄家) AND 散户<30,L-0.05,'←吸'),COLORRED;

BBB1:=MA(C,1);

B2:=SMA(SMA(SMA(BBB1,2,1),2,1),2,1),COLORRED;

SMA2:=MA(B2,2);

VARB1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));

VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));

买:DRAWTEXT(CROSS(VARB1,VAR3) AND B2>SMA2,(LOW * 0.97),'←⊙买'),COLORRED;

*/

STICKLINE1(C>0,100,100,28,-1),COLOR000080;

STICKLINE1(C>0,80,80,28,-1),COLOR000080;

STICKLINE1(C>0,50,50,28,-1),COLOR000080;

STICKLINE1(C>0,20,20,28,-1),COLOR000080;

STICKLINE1(C>0,0,0,28,-1),COLOR000080;

STICKLINE1(C>0,-20,-20,28,-1),COLORBLACK;

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K:SMA(RSV,3,1),COLORCYAN;

D:SMA(K,3,1),COLORYELLOW;

J:3*K-2*D,COLORMAGENTA;

N:=5;

J底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(J,N)=LLV(J,2*N+1),N+1),N) AND

J=LLV(J,N+1),1))+1)>C AND

REF(J,BARSLAST(REF(FILTER(BACKSET(REF(J,N)=LLV(J,2*N+1),N+1),N) AND

J=LLV(J,N+1),1))+1)

FILTER(BACKSET(REF(J,N)=LLV(J,2*N+1),N+1),N) AND

J=LLV(J,N+1),COLORWHITE,NODRAW;

DRAWLINE(FILTER(BACKSET(REF(J,N)=LLV(J,2*N+1),N+1),N) AND

J=LLV(J,N+1),J,FILTER(J底背>0,5),J,0),

COLORWHITE,DOT;

DRAWTEXT(J底背,J,'J底背'),COLORMAGENTA;

J顶背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(J,N)=HHV(J,2*N+1),N+1),N) AND

J=HHV(J,N+1),1))+1)

REF(J,BARSLAST(REF(FILTER(BACKSET(REF(J,N)=HHV(J,2*N+1),N+1),N) AND

J=HHV(J,N+1),1))+1)>J AND

FILTER(BACKSET(REF(J,N)=HHV(J,2*N+1),N+1),N) AND

J=HHV(J,N+1),COLORGREEN,NODRAW;

DRAWLINE(FILTER(BACKSET(REF(J,N)=HHV(J,2*N+1),N+1),N) AND

J=HHV(J,N+1),J,FILTER(J顶背>0,5),J,0),

COLORGREEN,DOT;

DRAWTEXT(J顶背,J,'J顶背'),COLORMAGENTA;

K底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(K,N)=LLV(K,2*N+1),N+1),N) AND

K=LLV(K,N+1),1))+1)>C AND

REF(K,BARSLAST(REF(FILTER(BACKSET(REF(K,N)=LLV(K,2*N+1),N+1),N) AND

K=LLV(K,N+1),1))+1)

FILTER(BACKSET(REF(K,N)=LLV(K,2*N+1),N+1),N) AND

K=LLV(K,N+1),COLORWHITE,NODRAW;

DRAWLINE(FILTER(BACKSET(REF(K,N)=LLV(K,2*N+1),N+1),N) AND

K=LLV(K,N+1),K,FILTER(K底背>0,5),K,0),

COLORWHITE,DOT;

DRAWTEXT(K底背,K,'K底背'),COLORWHITE;

K顶背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(K,N)=HHV(K,2*N+1),N+1),N)

AND K=HHV(K,N+1),1))+1)

REF(K,BARSLAST(REF(FILTER(BACKSET(REF(K,N)=HHV(K,2*N+1),N+1),N) AND

K=HHV(K,N+1),1))+1)>K AND

FILTER(BACKSET(REF(K,N)=HHV(K,2*N+1),N+1),N) AND

K=HHV(K,N+1),COLORGREEN,NODRAW;

DRAWLINE(FILTER(BACKSET(REF(K,N)=HHV(K,2*N+1),N+1),N) AND

K=HHV(K,N+1),K,FILTER(K顶背>0,5),K,0),

COLORGREEN,DOT;

DRAWTEXT(K顶背,K,'K顶背'),COLORBLUE;

D底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(D,N)=LLV(D,2*N+1),N+1),N) AND

D=LLV(D,N+1),1))+1)>C AND

REF(D,BARSLAST(REF(FILTER(BACKSET(REF(D,N)=LLV(D,2*N+1),N+1),N) AND

D=LLV(D,N+1),1))+1)

FILTER(BACKSET(REF(D,N)=LLV(D,2*N+1),N+1),N) AND

D=LLV(D,N+1),COLORWHITE,NODRAW;

DRAWLINE(FILTER(BACKSET(REF(D,N)=LLV(D,2*N+1),N+1),N) AND

D=LLV(D,N+1),D,FILTER(D底背>0,5),D,0),

COLORWHITE,DOT;

DRAWTEXT(D底背,D,'D底背'),COLORYELLOW;

D顶背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(D,N)=HHV(D,2*N+1),N+1),N)

AND D=HHV(D,N+1),1))+1)

REF(D,BARSLAST(REF(FILTER(BACKSET(REF(D,N)=HHV(D,2*N+1),N+1),N) AND

D=HHV(D,N+1),1))+1)>D AND

FILTER(BACKSET(REF(D,N)=HHV(D,2*N+1),N+1),N) AND

D=HHV(D,N+1),COLORGREEN,NODRAW;

DRAWLINE(FILTER(BACKSET(REF(D,N)=HHV(D,2*N+1),N+1),N) AND

D=HHV(D,N+1),D,FILTER(D顶背>0,5),D,0),

COLORGREEN,DOT;

DRAWTEXT(D顶背,D,'D顶背'),COLOR4080FF;

A2:=BARSLAST(REF(CROSS(K,D),1));

B2:=REF(C,A2+1)>C AND REF(K,A2+1)

DRAWTEXT((B2>0),-10,'_金叉底背'),COLORRED;

STICKLINE1((B2>0),-10,50,0,-1),COLORRED;

C2:=BARSLAST(REF(CROSS(D,K),1));

D2:=REF(C,C2+1)K AND CROSS(D,K);

DRAWTEXT((D2>0),110,'_死叉顶背'),COLORCYAN;

STICKLINE1((D2>0),110,50,0,-1),COLORCYAN;