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

/* MA5:MA(C,5);

MA10:MA(C,10);

MA20:MA(C,20);

MA30:MA(C,30);

MA60:MA(C,60);

HIGHN:=5;

LOWN:=HIGHN;

AA:=REF(C,HIGHN)=HHV(C,2*HIGHN+1);

QY:=BACKSET(AA,HIGHN+1);

CC:=FILTER(QY,HIGHN) AND C=HHV(C,HIGHN+1);

DRAWICON(CC,C*1.02,2);

DDD:=BARSLAST(CC);

CURRBARSCOUNT:=DATACOUNT-BARPOS+1;

GDTS:=IF(CC,CURRBARSCOUNT,0);

DINGBU:=IF(DDD,REF(C,DDD),C);

{顶部}

DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);

DINGBU1:=REF(DINGBU,DDD+1);

GDCS1:=REFX1(DINGBUTS,100000);

DINGBUTS1:=REF(DINGBUTS,DDD+1);

GDCS2:=REFX1(DINGBUTS1,100000);

DINGBU2:=REF(DINGBU1,DDD+1);

MM:=IF(CURRBARSCOUNT>GDCS2,0,1);

DRAWLINE1(CURRBARSCOUNT=GDCS2,C,CURRBARSCOUNT=GDCS1,C,0),COLOR008000,DOT;

DRAWLINE1(CURRBARSCOUNT=GDCS2,C,ISLASTBAR,REF(C,GDCS2-1),0),DOT,COLORBLUE;

DRAWLINE1(CURRBARSCOUNT=GDCS1,C,ISLASTBAR,REF(C,GDCS1-1),0),DOT,COLOR808040;

AA1:=REF(C,LOWN)=LLV(C,2*LOWN+1);

QY1:=BACKSET(AA1,LOWN+1);

CC1:=FILTER(QY1,LOWN) AND C=LLV(C,LOWN+1);

DRAWICON(CC1,C*0.98,1);

DRAWGBK(C>O,RGB(60,0,0),RGB(0,0,0),1);

//Z1:=STRCAT(HYBLOCK,' ');

//Z2:=STRCAT(Z1,DYBLOCK);

//Z3:=STRCAT(Z2,' ');

//DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED;

金牛:(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1+(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)),DOT,COLORYELLOW;

金钻趋势:REFX1(MA(REFX1(MA(L,25),25/2),25),25/2)-(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1,LINETHICK2,COLORRED;

金牛2:EMA(金钻趋势,25),COLORCYAN,LINETHICK2;

FILLRGN(金钻趋势>金牛2,金钻趋势,金牛2,RGB(55,0,0));

FILLRGN(金钻趋势<金牛2,金钻趋势,金牛2,RGB(0,91,0));

DRAWKLINE1(H,O,L,C);

STICKLINE(金钻趋势>LOW AND 金钻趋势

STICKLINE(金钻趋势>MIN(C,O) AND 金钻趋势

STICKLINE(金钻趋势>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;

STICKLINE(金钻趋势>HIGH,HIGH,LOW,0,0),COLORYELLOW;

VAR23:=100*REFX1(MA(REFX1(MA((C-REF(C,1)),6),3),6),3)/REFX1(MA(REFX1(MA(ABS((C-REF(C,1))),6),3),6),3);

回调买:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));

XG:=金钻趋势>HIGH AND 回调买 AND L<=金钻趋势;

DRAWTEXT(XG,L,'▲买入'),COLORRED;

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

QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);

CAPITAL:=GETPRICE1('流通股本');

QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));

QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));

QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));

QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));

DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK1;

V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);

FROMOPEN:=IF(HOUR<12,60*(HOUR-9)-30+MINUTE,120+60*(HOUR-13)+MINUTE);

V5:=SMA(V2*120/FROMOPEN*5,2,1);

V10:=SMA(V5,5,1);

B5:=主差*4+1;

B6:=主差*5+1;

B7:=主差*6+1;

B8:=主差*7+1;

B9:=主差*8+1;

B10:=主差*9+1;

B11:=主差*10+1;

B12:=主差*11+1;

B13:=主差*12+1;

B14:=主差*13+1;

B15:=主差*14+1;

B16:=主差*15+1;

B17:=主差*16+1;

B18:=主差*17+1;

B19:=主差*18+1;

B20:=主差*19+1;

S1:=EMA(B1,主线);

S2:=EMA(B2,主线);

S3:=EMA(B3,主线);

S4:=EMA(B4,主线);

S5:=EMA(B5,主线);

S6:=EMA(B6,主线);

S7:=EMA(B7,主线);

S8:=EMA(B8,主线);

S9:=EMA(B9,主线);

S10:=EMA(B10,主线);

S11:=EMA(B11,主线);

S12:=EMA(B12,主线);

S13:=EMA(B13,主线);

S14:=EMA(B14,主线);

S15:=EMA(B15,主线);

S16:=EMA(B16,主线);

S17:=EMA(B17,主线);

S18:=EMA(B18,主线);

S19:=EMA(B19,主线);

S20:=EMA(B20,主线);

NOTETEXT1:REF(HHV(主,S1),前N),COLORGREEN;

NOTETEXT2:REF(HHV(主,S2),前N),COLORGREEN;

NOTETEXT3:REF(HHV(主,S3),前N),COLORGREEN;

NOTETEXT4:REF(HHV(主,S4),前N),COLORGREEN;

NOTETEXT5:REF(HHV(主,S5),前N),COLORGREEN;

NOTETEXT6:REF(HHV(主,S6),前N),COLORGREEN;

NOTETEXT7:REF(HHV(主,S7),前N),COLORGREEN;

NOTETEXT8:REF(HHV(主,S8),前N),COLORGREEN;

NOTETEXT9:REF(HHV(主,S9),前N),COLORGREEN;

NOTETEXT10:REF(HHV(主,S10),前N),COLORGREEN;

NOTETEXT11:REF(HHV(主,S11),前N),COLORGREEN;

NOTETEXT12:REF(HHV(主,S12),前N),COLORGREEN;

NOTETEXT13:REF(HHV(主,S13),前N),COLORGREEN;

NOTETEXT14:REF(HHV(主,S14),前N),COLORGREEN;

NOTETEXT15:REF(HHV(主,S15),前N),COLORGREEN;

NOTETEXT16:REF(HHV(主,S16),前N),COLORGREEN;

NOTETEXT17:REF(HHV(主,S17),前N),COLORGREEN;

NOTETEXT18:REF(HHV(主,S18),前N),COLORGREEN;

NOTETEXT19:REF(HHV(主,S19),前N),COLORGREEN;

NOTETEXT20:REF(HHV(主,S20),前N),COLORGREEN;

NOTETEXF1:REF(LLV(主,S1),前N),COLORRED;

NOTETEXF2:REF(LLV(主,S2),前N),COLORRED;

NOTETEXF3:REF(LLV(主,S3),前N),COLORRED;

NOTETEXF4:REF(LLV(主,S4),前N),COLORRED;

NOTETEXF5:REF(LLV(主,S5),前N),COLORRED;

NOTETEXF6:REF(LLV(主,S6),前N),COLORRED;

NOTETEXF7:REF(LLV(主,S7),前N),COLORRED;

NOTETEXF8:REF(LLV(主,S8),前N),COLORRED;

NOTETEXF9:REF(LLV(主,S9),前N),COLORRED;

NOTETEXF10:REF(LLV(主,S10),前N),COLORRED;

NOTETEXF11:REF(LLV(主,S11),前N),COLORRED;

NOTETEXF12:REF(LLV(主,S12),前N),COLORRED;

NOTETEXF13:REF(LLV(主,S13),前N),COLORRED;

NOTETEXF14:REF(LLV(主,S14),前N),COLORRED;

NOTETEXF15:REF(LLV(主,S15),前N),COLORRED;

NOTETEXF16:REF(LLV(主,S16),前N),COLORRED;

NOTETEXF17:REF(LLV(主,S17),前N),COLORRED;

NOTETEXF18:REF(LLV(主,S18),前N),COLORRED;

NOTETEXF19:REF(LLV(主,S19),前N),COLORRED;

NOTETEXF20:REF(LLV(主,S20),前N),COLORRED;

天值:MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(NOTETEXT1,NOTETEXT2),NOTETEXT3),NOTETEXT4),NOTETEXT5),NOTETEXT6),NOTETEXT7),NOTETEXT8),NOTETEXT9),NOTETEXT10),NOTETEXT11),NOTETEXT12),NOTETEXT13),NOTETEXT14),NOTETEXT15),NOTETEXT16),NOTETEXT17),NOTETEXT18),NOTETEXT19),NOTETEXT20),COLORYELLOW,LINETHICK3;

地值:MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MI

N(NOTETEXF1,NOTETEXF2),NOTETEXF3),NOTETEXF4),NOTETEXF5),NOTETEXF6),NOTETEXF7),NOTETEXF8),NOTETEXF9),NOTETEXF10),NOTETEXF11),NOTETEXF12),NOTETEXF13),NOTETEXF14),NOTETEXF15),NOTETEXF16),NOTETEXF17),NOTETEXF18),NOTETEXF19),NOTETEXF20),COLORGREEN,LINETHICK3;

价格:C,COLORRED,LINETHICK2;

DRAWICON(FILTER(NOTETEXT1=NOTETEXT20,25),NOTETEXT1,23),COLORYELLOW;

V20:=SMA(V10,5,1);

CURRBARSCOUNT:=DATACOUNT-BARPOS+1;

DY:=CURRBARSCOUNT=1 AND C

DY2:=REF(V2,1)-DY;

XG2:=C>O AND DY2<0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02 AND H<金牛;

//{DRAWTEXT(XG2,L,'▲抓牛'),COLORYELLOW;}

DRAWTEXT(XG2 AND L<金钻趋势,L,'↖金钻起涨'),COLORMAGENTA;

DD1:=BARSLAST(CC1);

DDTS:=IF(CC1,CURRBARSCOUNT,0);

YDB:=IF(DD1,REF(C,DD1),C);

DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);

DDCS1:=REFX1(DDTS1,10000);

ZDB:=REF(YDB,DD1+1);

DDTS2:=REF(DDTS1,DD1+1);

DDCS2:=REFX1(DDTS2,10000);

DRAWLINE1(CURRBARSCOUNT=DDCS2,C,CURRBARSCOUNT=DDCS1,C,0),COLORRED,DOT;

DRAWLINE1(CURRBARSCOUNT=DDCS1,C,ISLASTBAR,REF(C,DDCS1-1),0),DOT,COLORMAGENTA;

DRAWLINE1(CURRBARSCOUNT=DDCS2,C,ISLASTBAR,REF(C,DDCS2-1),0),DOT,COLORBLACK; */

MACD3:=1;

DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORRED,LINETHICK2;

DEA:EMA(DIFF,9),COLORGREEN,LINETHICK1;

MACD:(DIFF-DEA)*2*MACD3,COLORSTICK;

STICKLINE(MACD<0 AND MACD>REF(MACD,2),0,MACD,0,0),COLORGREEN;

STICKLINE(MACD<0 AND MACD<=REF(MACD,2),0,MACD,0.1,0),COLORCYAN;

STICKLINE(MACD>=0 AND MACD>REF(MACD,2),0,MACD,0.1,0) ,COLORRED;

STICKLINE(MACD>=0 AND MACD<=REF(MACD,2),0,MACD,0,0),COLORYELLOW;

STICKLINE(DIFF<0 AND CROSS(DIFF,DEA),DEA,0,0,0),COLORRED;

STICKLINE(DIFF>0 AND CROSS(DEA,DIFF),DEA,0,0,0),COLORGREEN;

STICKLINE(DIFF<0 AND CROSS(DIFF,DEA),DEA,0,0,0),COLORRED;

STICKLINE(DIFF>0 AND CROSS(DEA,DIFF),DEA,0,0,0),COLORGREEN;

DRAWTEXT(DIFF<0 AND CROSS(DIFF,DEA),DEA/2,'———————————');

DRAWTEXT(DIFF>0 AND CROSS(DEA,DIFF),DEA/2,'———————————');

IF(DIFF

DIF:=DIFF;

N1:=BARSLAST(CROSS(DEA,DIF));

CL1:=LLV(CLOSE,(N1 + 1));

DIFL1:=LLV(DIF,(N1 + 1));

CL2:=REF(CL1,(N1 + 1));

DIFL2:=REF(DIFL1,(N1 + 1));

CL3:=REF(CL2,(N1 + 1));

DIFL3:=REF(DIFL2,(N1 + 1)),LINETHICK1;

钝化L:=((MACD < 0) AND (((CL1 < CL2) AND ((DIF > DIFL2) AND ((REF(MACD,1) < 0) AND (DIF <=

REF(DIF,1))))) OR ((CL1 < CL3) AND ((DIF > DIFL3) AND ((REF(MACD,1) < 0) AND ((DIF <=

REF(DIFL2,1)) AND (CL3 < CL2)))))));

消失L:=(REF(钝化L,1) AND ((DIF < DIFL2) AND (DIF < DIFL3)));

结构L:=(REF(钝化L,1) AND (DIF > REF(DIF,1))) AND REF(DIF,1)<0;

DRAWTEXT(FILTER(钝化L,20),((DIF + MACD))/(1.5),'钝化'),COLORYELLOW;

DRAWTEXT(FILTER(消失L,20),((DIF + MACD))/(1.5),'消失'),COLORGREEN;

DRAWTEXT(FILTER(结构L,20),((DIF + MACD))/(1.5),'结构形成'),COLORMAGENTA;

M1:=BARSLAST(CROSS(DIF,DEA));

CH1:=HHV(CLOSE,(M1 + 1));

CH2:=REF(CH1,(M1 + 1));

CH3:=REF(CH2,(M1 + 1));

DIFH1:=HHV(DIF,(M1 + 1));

DIFH2:=REF(DIFH1,(M1 + 1));

DIFH3:=REF(DIFH2,(M1 + 1));

钝化H:=((MACD > 0) AND (((CH1 > CH2) AND ((DIF < DIFH2) AND ((REF(MACD,1) > 0) AND (DIF >=

REF(DIF,1))))) OR ((CH1 > CH3) AND ((DIF < DIFH3) AND ((REF(MACD,1) > 0) AND ((DIF >=

REF(DIFL2,1)) AND (CL3 > CL2)))))))*MACD3;

消失H:=(REF(钝化H,1) AND ((DIF > DIFH2) AND (DIF > DIFH3)))*MACD3;

结构H:=(REF(钝化H,1) AND (DIF < REF(DIF,1))) AND REF(DIF,1)>0;

DRAWTEXT(FILTER(钝化H,20),((DIF + MACD))/(1.5),'钝化'),COLORYELLOW;

DRAWTEXT(FILTER(消失H,20),((DIF + MACD))/(1.5),'消失'),COLORGREEN;

DRAWTEXT(FILTER(结构H,20),((DIF + MACD))/(1.5),'结构'),COLORCYAN;

HIGHN:=5;

RSI1:=MACD*MACD3;

LOWN:=HIGHN;

AA:=REF(RSI1,HIGHN)=HHV(RSI1,2*HIGHN+1);

QY:=BACKSET(AA,HIGHN+1);

CC:=FILTER(QY,HIGHN) AND RSI1=HHV(RSI1,HIGHN+1);

DRAWICON(CC,RSI1*1.02,2);

DDD:=BARSLAST(CC);

CURRBARSCOUNT:=REFX1(BARPOS,9999)-BARPOS+1;

GDTS:=IF(CC,CURRBARSCOUNT,0);

DINGBU:=IF(DDD,REF(RSI1,DDD),RSI1);

//{顶部}

DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);

DINGBU1:=REF(DINGBU,DDD+1);

GDCS1:=REFX1(DINGBUTS,10000);

DINGBUTS1:=REF(DINGBUTS,DDD+1);

GDCS2:=REFX1(DINGBUTS1,10000);

DINGBU2:=REF(DINGBU1,DDD+1);

MM:=IF(CURRBARSCOUNT>GDCS2,0,1);

高点压力:=TRENDLINES(CURRBARSCOUNT=GDCS2,RSI1,CURRBARSCOUNT=GDCS1,RSI1),COLORCYAN,LINETHICK1;

S2:TRENDLINES(CURRBARSCOUNT=GDCS1,RSI1,ISLASTBAR,REF(RSI1,GDCS1-1)),COLORCYAN,DOT;

XG:CROSS(MACD,S2),NODRAW;

DRAWICON(XG,MACD,34);

AAA:=CROSS(MACD,高点压力);

DRAWICON(AAA,0,1);

AA1:=REF(RSI1,LOWN)=LLV(RSI1,2*LOWN+1);

QY1:=BACKSET(AA1,LOWN+1);

CC1:=FILTER(QY1,LOWN) AND RSI1=LLV(RSI1,LOWN+1);

//介入:DRAWICON(CC1,RSI1*0.98,1);

DD1:=BARSLAST(CC1);

DDTS:=IF(CC1,CURRBARSCOUNT,0);

YDB:=IF(DD1,REF(RSI1,DD1),RSI1);

DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);

DDCS1:=REFX1(DDTS1,10000);

ZDB:=REF(YDB,DD1+1);

DDTS2:=REF(DDTS1,DD1+1);

DDCS2:=REFX1(DDTS2,10000);

低点支撑:=TRENDLINES(CURRBARSCOUNT=DDCS2,RSI1,CURRBARSCOUNT=DDCS1,RSI1),COLORMAGENTA,LINETHICK1;

B2:TRENDLINES(CURRBARSCOUNT=DDCS1,RSI1,ISLASTBAR,REF(RSI1,DDCS1-1)),COLORMAGENTA,DOT;

DRAWICON(CROSS(B2,MACD),MACD,35);