同花顺杨先军自用主图源码

出现红柱，抄底，买；

出现黄柱，逃顶，卖；

简单实用易操作，

用的好请给好评！
 

  A1:=MA(C,5);

A2:=MA(C,10);; L1:=LLV(L,10);;

爆发点:=(DCLOSE-REF(C,1))/REF(C,1)*100;

XG:=CROSS(爆发点,20) OR CROSS(爆发点,18); L3:=IF(XG,O,L1*0.999),coloryellow;

STICKLINE(XG,L3,L3,100,0); DRAWTEXT(XG,L3,'∠∠暴'),colormagenta;

买线:=ZIG(3,10);

卖线:=MA(买线,2);

BU:=CROSS(买线,卖线);

SEL:=CROSS(卖线,买线);

DRAWTEXT(bu,L*0.99,'▲'),LINETHICK2,COLOR00FFFF;

DRAWTEXT(sel,H*1.0,'▼'),linethick1,colormagenta;

V10:=PEAKBARS(3,15,1)<10;

V12:=IF(V10=1,50,0);

DRAWTEXT(IF(IF(V12=50,100,0)>REF(IF(V12=50,100,0),1),H,0),H*1.02,'←∑ '),colorwhite,LINETHICK1;

V9:=TROUGHBARS(3,15,1)<10;

V11:=IF(V9=1,50,0);

DRAWTEXT(IF( IF(V11=50,50,0)>REF(IF(V11=50,50,0),1),L,0),L*0.96,'↖↖∏ '),colormagenta;

Y:=(MA(C,5)-MA(C,30))/MA(C,5)*100;

YY1:=C>MA(C,5) AND OPEN<MA(C,5);

YY3:=C>MA(C,10) AND OPEN<MA(C,10);

YY5:=C>MA(C,30) AND OPEN<MA(C,30);

DRAWTEXT(YY1 AND YY5 AND YY3,LOW*0.97,'双'),colorred;

DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.98,1) ;

DRAWICON((ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.01,2);

Var1:=ZIG(3,10)<REF(ZIG(3,10),1)

AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2);

Var2:=ZIG(3,10)>REF(ZIG(3,10),1)

AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2);

上趋势:MA(LOW,20)*1.2,color0080ff,linethick1;

次上趋势:MA(LOW,20)*1.1,coloryellow;

A1:=REF(V,1);A2:=DVOL;A3:=A2/A1;

LNX:=A3-REF(A3,1),COLOR00CCCC,LINETHICK1;

E1:=REF(C,1);E2:=DCLOSE;E3:=(E2-E1)/E1*100;

QMX:=E3-REF(E3,1),COLOR00CCCC,LINETHICK2;

XG:=CROSS(LNX,500) AND CROSS(QMX,10);

DRAWTEXT(XG=1,L*0.985,'↖↖∏'),COLORFF8868;

A1:=BARSLAST(REF(CROSS("macd.diff"(12,26,9),"macd.dea"(12,26,9)),1));

B1:=REF(C,A1+1)>C AND REF("macd.diff"(12,26,9),A1+1)<"macd.diff"(12,26,9) AND CROSS("macd.diff"(12,26,9),"macd.dea"(12,26,9));

底背离MACD:DRAWTEXT(FILTER(B1>0,5),LOW,'1'),coloryellow;

DRAWTEXT(FILTER(B1>0,5),LOW*0.98,'M￥'),colorgreen;

A2:=BARSLAST(REF(CROSS("kdj.k"(9,3,3),"kdj.d"(9,3,3)),1));

B2:=REF(C,A2+1)>C AND REF("kdj.k"(9,3,3),A2+1)<"kdj.k"(9,3,3) AND CROSS("kdj.k"(9,3,3),"kdj.d"(9,3,3));

DRAWTEXT(FILTER(B2>0,5),LOW*0.98,'K￥'),colorgreen;

A3:=BARSLAST(REF(CROSS("RSI.RSI$1"(12,26,9),"RSI.RSI$2"(12,26,9)),1));

B3:=REF(C,A3+1)>C AND REF("RSI.RSI$1"(8,55,55),A3+1)<"RSI.RSI$1"(8,55,55) AND CROSS("RSI.RSI$1"(8,55,55),"RSI.RSI$2"(8,55,55));

DRAWTEXT(FILTER(B3>0,5),LOW*0.98,'R￥'),colorgreen;

A4:=BARSLAST(REF(CROSS("dmi_ql.pdi"(14,6),"dmi_ql.mdi"(14,6)),1));

B4:=REF(C,A4+1)>C AND REF("dmi_ql.pdi"(14,6),A4+1)<"dmi_ql.pdi"(14,6) AND CROSS("dmi_ql.pdi"(14,6),"dmi_ql.mdi"(14,6));

DRAWTEXT(FILTER(B4>0,5),LOW*0.98,'D￥'),colorgreen;

DIR2:=ABS(CLOSE-REF(CLOSE,10));

VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);

ER2:=DIR2/VIR2;

CS2:=ER2*(0.8-2/24)+2/24;

CQ2:=CS2*CS2;

AMA2:EMA(DMA(CLOSE,CQ2),2),colorgreen,LINETHICK2;

AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),colorblue,LINETHICK2;

AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),colorred,LINETHICK2;

多:=EMA(C,3),colorblack;

空:=EMA(C,5),colorblack;

均衡:=EMA(空,5),colorblack,;

VARF1:=COUNT(CROSS(多,均衡),2)=1;

VARF2:=COUNT(CROSS(空,均衡),2)=1;

ZAI:=FILTER(VARF1 AND VARF2,2);

DRAWTEXT(ZAI,均衡,'△'),colorgreen;

GJTJ1:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));

GJTJ2:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));

GJTJ3:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));

GJTJ4:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));

huangjin1:=BARSLAST(CROSS(50,GJTJ1))<3 AND BARSLAST(CROSS(GJTJ1,50))<3;

huangjin2:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;

DRAWTEXT(huangjin1 AND huangjin2,L-0.03,'∠∠▆');

XG:=BARSLAST(CROSS(GJTJ4,GJTJ1))<5 AND GJTJ1>GJTJ4;

DRAWTEXT(COUNT(XG,3)=1 AND XG AND C>MA(C,20),L-0.02,'∠∠▎'),colorgreen;

Aw:=BARSLAST(CROSS(95,GJTJ1))<=2;

Bw:=BARSLAST(CROSS(95,GJTJ2))<=2;

Ew:= GJTJ4<GJTJ1 AND GJTJ1<GJTJ2 AND GJTJ1<GJTJ3;

Fw:=GJTJ2>50 AND GJTJ3>50;

Gw:=GJTJ1=100 AND GJTJ2=100;

TXw:=COUNT(Gw,2)=1;

DRAWTEXT(Aw AND Bw AND Ew AND Fw AND TXw,L-0.03,'∠∠▎');

Aq:=GJTJ3=100;

Bq:=GJTJ4<90;

DRAWTEXT(COUNT(Aq,2) = 2 AND Bq,L-0.02,'∠∠○');

B1:=MA(C,1);

B2:=SMA(SMA(SMA(B1,2,1),2,1),2,1);

SMA2:=MA(B2,3);

a13:=EMA(CLOSE,55);

a14:=MA(CLOSE,75);

a15:=EMA(a14,3);

a16:=EMA(a15,3);

a17:=(HIGH + LOW) / 5;

a18:=(MA(a17,4)) - (MA(a17,34));

a19:=CROSS(a18,0);

a20:=CROSS(0,a18);

a21:=BARSLAST(a19);

a22:=BARSLAST(a20);

a23:=REF(a19,1);

a24:=REF(a20,1);

a25:=BARSLAST(a23);

a26:=BARSLAST(a24);

a27:=IF((a25 < a26),(REF((HHV(HIGH,2)),a25)),(REF((LLV(LOW,2)),a26)));

a28:=(((REF(CLOSE,1)) <= (REF(a27,1))) AND (CLOSE > a27)) AND (a21 < a22);

a29:=(((REF(CLOSE,1)) >= (REF(a27,1))) AND (CLOSE < a27)) AND (a22 < a21);

a30:=a28 AND ((COUNT(a28,a21)) = 1);

a31:=a29 AND ((COUNT(a29,a22)) = 1);

a32:=a30 AND ((REF(BARSLAST(a31),1)) < (REF(BARSLAST(a30),1)));

a33:=a31 AND ((REF(BARSLAST(a31),1)) > (REF(BARSLAST(a30),1)));

DRAWTEXT(a32,SMA2*0.99,'←═╬∝'),coloryellow;

aaa2:=EMA((H+C+O)/3,18);

STICKLINE(MA(C,13)>O AND C>MA(C,13) AND O<C,O,C,8,0),coloryellow;

STICKLINE(MA(C,13)>O AND C>MA(C,13),H,L,0.8,1),coloryellow;

MA$1:=MA(CLOSE, 5);

MA$2:=MA(CLOSE, 10);

MA$3:=MA(CLOSE, 20);

MA$4:=MA(CLOSE, 30);

MA65:=MA(CLOSE, 65);

MA130:=MA(CLOSE,130);

SAT:=IF((AMOUNT/C)/(HHV(AMOUNT,13)/HHV(C,13))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,13)/HHV(C,13))*100);

glba1:=MA$1>REF(MA$1,1);

glba2:=MA$2>REF(MA$2,1);

glba3:=MA$1>REF(MA$3,1);

glba4:=MA$1>REF(MA$4,1);

dtpl:=CLOSE>=MA$1 AND MA$2>=MA$1 AND MA$3>=MA$4;

dtpl0=COUNT(dtpl,20);

gzd:=glba1 AND glba2 AND glba3 AND glba4;

MA0:=(MA$1+MA$2+MA$3+MA$4)/4;

MA1:=MA(MA0,8);

gzdnum:=LONGCROSS(MA0,MA1,1);

satcount:=LONGCROSS(sat,100,21);

glbbif$5:=LONGCROSS(CLOSE,MA$4,5);

Vglbh:=VOL/CAPITAL*100;

Lbglb:=VOL/MA(VOL,5);

TIPTEXT(glbbif$5,LOW,'葛兰碧第一买点'),colorblue;

TIPTEXT(gzdnum AND gzd AND C>MA$4 ,LOW,'多周期向上共振---积极介入点'),colorred;

TIPTEXT(satcount AND Vglbh>2.0 AND Lbglb>1.0,LOW-1.0,'量能饱和点,即将起飞'),coloryellow;

A1:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1);

Hm0:=EMA(A1,5);

A2:=(Hm0-REF(Hm0,1))/REF(Hm0,1)*100;

A3:=EMA(C,5);

A4:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;

qs0:=(MA(3*SMA(A4,6,1)-2*SMA(SMA(A4,5,1),5,1),2));

A5:=(HHV(H,60)-C)/(HHV(H,60)-LLV(L,60))*100;

DRAWTEXT(FILTER(REF(Hm0,1)>90 AND A2<0,7),HIGH+2,'▼'),colorgreen;

DRAWTEXT(CROSS(qs0,0)AND Hm0<40,LOW-3,'═╬∝'),colormagenta;

DRAWICON(A2<-10 AND A2>REF(A2,1) AND A3>REF(A3,1),LOW-2,4);

DRAWTEXT(A2<-10 AND A2>REF(A2,1) AND A3>REF(A3,1),LOW-2,'↖↖∏'),coloryellow;

dy:=SUM((OUTVOL-INVOL)/CAPITAL*100,0),colorwhite;

dy5:=MA(dy,5),Colorffeeaa;

dy10:=MA(dy,10),Color0000ff;

Vdy:=LONGCROSS(dy,dy5,5);

VAR1:=C>O;

TIPTEXT(Vdy AND Lbglb>1.00 AND VAR1 AND Vglbh>2.0,LOW,'介入点,主动性买盘明显增大'),colorwhite;