神笔马良副图(通达信)

源码正文：

用法 1 用画线来分析 买卖提示的可靠性
2 用形态来进一步确认
以上两步以后 准确率可能接近100% 运用之妙存乎一心 不多说了
大家自己体会吧

VV:=(C+L+H)/3{XG51};
DSA:=SMA(ema(VV,2),2,1)LINETHICK2,COLORWHITE{XG51};
Y396:=DSA{XG51};
险1:=Y396*1.1,COLORLICYAN{XG51};
险2:=Y396*1.125,COLORLICYAN{XG51};
险3:=Y396*1.15,COLORLICYAN{XG51};
良1:=Y396*0.9,COLORLIGREEN{XG51};
良2:=Y396*0.875,COLORLIGREEN{XG51};
良3:=Y396*0.85,COLORLIGREEN;

变色:=IF(Y396<REF(Y396,1),Y396,DRAWNULL),LINETHICK2,COLORYELLOW{XG51};

WSR1:=(CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100{XG51};
WSR2:=CROSS(WSR1,5){XG51};
WSR3:=CROSS(8,WSR1){XG51};
WSR4:=CROSS(WSR1,-5){XG51};
WSR5:=CROSS(WSR1,-8){XG51};
WSR6:=WSR3{XG51};
WSR7:=WSR4 OR WSR5{XG51};
WSR8:=WSR7 AND FILTER(WSR7,5){XG51};
WSR10:DRAWICON(WSR8,L-0.01,1){XG51};
WSR9:=WSR6 AND FILTER(WSR6,5){XG51};
WSR11:DRAWICON(WSR9,H+0.01,2){XG51};
WSR12:=O<良3{XG51};
DRAWICON(WSR12 AND FILTER(WSR12,12),L-0.03,9){XG51};
W1:=C>REF(C,1) AND macd<REF(MacD,1) AND MACD>0 AND V<REF(V,1){XG51};
W2:=C>REF(C,1) AND MACD<0 AND MACD<REF(MACD,1) AND V<REF(V,1){XG51};
XG:=W1 OR W2{XG51};
VAR1:=AMOUNT/vol/7{XG51};
VAR2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7{XG51};
VAR3:=SUM(AMOUNT,10)/VAR1/7{XG51};
VAR4:=dma(VAR2,VOL/VAR3){XG51};
VAR5:=(CLOSE-VAR4)/VAR4*100,COLORMAGENTA{XG51};
XG1:=CROSS(VAR5,MA(VAR5,2)) AND VAR5<0 AND C<(HHV(H,5)*0.88) AND REF(O>C,1) AND REF(O>C,2){XG51};
XG3:=XG AND XG1 AND L<良1{XG51};
WSR13:=O>良3 AND L<良1 OR XG3{XG51};
DRAWICON(WSR13 AND FILTER(WSR13,10),L-0.03,5){XG51};
WSR14:=H>险3;DRAWICON(WSR14 AND FILTER(WSR14,15),H+0.03,6){XG51};
WSR15:=H<险3 AND H>险2;DRAWICON(WSR15 AND FILTER(WSR15,5),H+0.03,4){XG51};
WSR16:=(INDEXC-MA(INDEXC,3))/MA(INDEXC,3){XG51};
WSR17:=(INDEXC-MA(INDEXC,8))/MA(INDEXC,8){XG51};
WSR18:=(INDEXC-MA(INDEXC,18))/MA(INDEXC,18){XG51};
WSR19:=(WSR16 + WSR17 + WSR18)/3{XG51};
WSR20:=(C-MA(C,3))/MA(C,3){XG51};
WSR21:=(C-MA(C,8))/MA(C,8){XG51};
WSR22:=(C-MA(C,18))/MA(C,18){XG51};
WSR23:=(WSR20 + WSR21 + WSR22)/3{XG51};
WSR24:=(WSR19>REF(WSR19,1) AND CROSS(WSR23,WSR19))*50{XG51};
WSR25:=(INDEXC-MA(INDEXC,6))/MA(INDEXC,6){XG51};
WSR26:=(INDEXC-MA(INDEXC,12))/MA(INDEXC,12){XG51};
WSR27:=(INDEXC-MA(INDEXC,24))/MA(INDEXC,24){XG51};
WSR28:=(WSR25 + WSR26 + WSR27)/3{XG51};
WSR29:=(C-MA(C,6))/MA(C,6){XG51};
WSR30:=(C-MA(C,12))/MA(C,12){XG51};
WSR31:=(C-MA(C,24))/MA(C,24){XG51};
WSR32:=(WSR29 + WSR30 + WSR31)/3{XG51};
WSR33:=(WSR28>REF(WSR28,1) AND CROSS(WSR32,WSR28))*20;

WSR34:=(INDEXC-MA(INDEXC,13))/MA(INDEXC,13){XG51};
WSR35:=(INDEXC-MA(INDEXC,34))/MA(INDEXC,34){XG51};
WSR36:=(INDEXC-MA(INDEXC,55))/MA(INDEXC,55){XG51};
WSR37:=(WSR34 + WSR35 + WSR36)/3{XG51};
WSR38:=(C-MA(C,13))/MA(C,13){XG51};
WSR39:=(C-MA(C,34))/MA(C,34){XG51};
WSR40:=(C-MA(C,55))/MA(C,55){XG51};
WSR41:=(WSR38 + WSR39 + WSR40)/3{XG51};
WSR42:=(WSR37>REF(WSR37,1) AND CROSS(WSR41,WSR37)){XG51};
WSR43:=(INDEXC-MA(INDEXC,13))/MA(INDEXC,13){XG51};
WSR44:=(INDEXC-MA(INDEXC,34))/MA(INDEXC,34){XG51};
WSR45:=(INDEXC-MA(INDEXC,55))/MA(INDEXC,55){XG51};
WSR46:=(WSR43 + WSR44 + WSR45)/3{XG51};
WSR47:=(C-MA(C,30))/MA(C,30){XG51};
WSR48:=(C-MA(C,60))/MA(C,60){XG51};
WSR49:=(C-MA(C,90))/MA(C,90){XG51};
WSR50:=(WSR47 + WSR48 + WSR49)/3{XG51};
WSR51:=(WSR46>REF(WSR46,1) AND CROSS(WSR50,WSR46)){XG51};
WSR52:=(INDEXC-MA(INDEXC,34))/MA(INDEXC,34){XG51};
WSR53:=(INDEXC-MA(INDEXC,55))/MA(INDEXC,55){XG51};
WSR54:=(INDEXC-MA(INDEXC,89))/MA(INDEXC,89){XG51};
WSR55:=(WSR52 + WSR53 + WSR54)/3{XG51};
WSR56:=(C-MA(C,60))/MA(C,60){XG51};
WSR57:=(C-MA(C,120))/MA(C,120){XG51};
WSR58:=(C-MA(C,220))/MA(C,220){XG51};
WSR59:=(WSR56 + WSR57 + WSR58)/3{XG51};
WSR60:=(WSR59>REF(WSR59,1) AND CROSS(WSR59,WSR55)){XG51};
WSR61:=WSR24 OR WSR33 OR WSR42 OR WSR51 OR WSR60{XG51};

N1:=20;N2:=10;N3:=5{XG51};
stICKLINE(CLOSE>REF(CLOSE,1)*1.095 AND CLOSE=HIGH,CLOSE,OPEN,2,1),COLOR0000FF{XG51};
STICKLINE(CLOSE<REF(CLOSE,1)*0.9015 AND CLOSE=LOW,CLOSE,OPEN,2,1),COLORCYAN;{XG51};
GJ:=(C+H+L+O)/4{XG51};
明日阻力:=L+(GJ-L)+(C-L){XG51};
明日支撑:=L+(C-GJ){XG51};
今日阻力:REF(明日阻力 , 1),NODRAW{XG51};
今日支撑:REF(明日支撑 , 1),NODRAW{XG51};
STICKLINE(ISLASTBAR AND C>=今日阻力,今日阻力,今日阻力,10,1),COLOR0000FF{XG51};
STICKLINE(ISLASTBAR AND C<今日阻力,今日阻力,今日阻力,10,1),COLOR00FF00{XG51};
STICKLINE(ISLASTBAR AND C>=今日支撑,今日支撑,今日支撑,10,1),COLORFF00FF{XG51};
STICKLINE(ISLASTBAR AND C<今日支撑,今日支撑,今日支撑,10,1),COLORFF8800{XG51};
AA:=REF(H,N1)=HHV(H,2*N1+1){XG51};
QY:=BACKSET(AA,N1+1){XG51};
CC:=FILTER(QY,N1) AND H=HHV(H,N1+1){XG51};
DDD:=BArslAST(CC){XG51};
GDTS:=IF(CC,CURRBARSCOUNT,0){XG51};
DINGBU:=IF(DDD,REF(H,DDD),H){XG51};
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS){XG51};
DINGBU1:=REF(DINGBU,DDD+1){XG51};
GDCS1:=CONST(DINGBUTS){XG51};
DINGBUTS1:=REF(DINGBUTS,DDD+1){XG51};
GDCS2:=CONST(DINGBUTS1){XG51};
DINGBU2:=REF(DINGBU1,DDD+1){XG51};
MM:=IF(CURRBARSCOUNT>GDCS2,0,1){XG51};
高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1),COLORWHITE{XG51};
DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1),1),COLOR00FF00,POINTDOT,LINETHICK2{XG51};
DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1),1),COLOR00FF00,POINTDOT,LINETHICK2{XG51};
AA1:=REF(L,N1)=LLV(L,2*N1+1){XG51};
QY1:=BACKSET(AA1,N1+1){XG51};
CC1:=FILTER(QY1,N1) AND L=LLV(L,N1+1){XG51};
DD1:=BARSLAST(CC1){XG51};
DDTS:=IF(CC1,CURRBARSCOUNT,0){XG51};
YDB:=IF(DD1,REF(L,DD1),L){XG51};
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS){XG51};
DDCS1:=CONST(DDTS1){XG51};
ZDB:=REF(YDB,DD1+1){XG51};
DDTS2:=REF(DDTS1,DD1+1){XG51};
DDCS2:=CONST(DDTS2){XG51};
低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1) COLORWHITE{XG51};
DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,REF(L,DDCS2-1),1),COLOR00FF00,POINTDOT,LINETHICK2{XG51};
DRAWLINE(CURRBARSCOUNT=DDCS1,L,ISLASTBAR,REF(L,DDCS1-1),1),COLOR00FF00,POINTDOT,LINETHICK2{XG51};
LAA:=REF(H,N2)=HHV(H,2*N2+1){XG51};
LQY:=BACKSET(LAA,N2+1){XG51};
LCC:=FILTER(LQY,N2) AND H=HHV(H,N2+1){XG51};
LDDD:=BARSLAST(LCC){XG51};
LGDTS:=IF(LCC,CURRBARSCOUNT,0){XG51};
LDINGBU:=IF(LDDD,REF(H,LDDD),H){XG51};
LDINGBUTS:=IF(LDDD,REF(LGDTS,LDDD),LGDTS){XG51};
LDINGBU1:=REF(LDINGBU,LDDD+1){XG51};
LGDCS1:=CONST(LDINGBUTS){XG51};
LDINGBUTS1:=REF(LDINGBUTS,LDDD+1){XG51};
LGDCS2:=CONST(LDINGBUTS1){XG51};
LDINGBU2:=REF(LDINGBU1,LDDD+1){XG51};
LMM:=IF(CURRBARSCOUNT>LGDCS2,0,1){XG51};
压力:DRAWLINE(CURRBARSCOUNT=LGDCS2,H,CURRBARSCOUNT=LGDCS1,H,1),COLORFF0000{XG51};
DRAWLINE(CURRBARSCOUNT=LGDCS2,H,ISLASTBAR,REF(H,LGDCS2-1),1),COLOR00FF00,POINTDOT{XG51};
DRAWLINE(CURRBARSCOUNT=LGDCS1,H,ISLASTBAR,REF(H,LGDCS1-1),1),COLOR00FF00,POINTDOT{XG51};
LAA1:=REF(L,N2)=LLV(L,2*N2+1){XG51};
LQY1:=BACKSET(LAA1,N2+1){XG51};
LCC1:=FILTER(LQY1,N2) AND L=LLV(L,N2+1){XG51};
LDD1:=BARSLAST(LCC1){XG51};
LDDTS:=IF(LCC1,CURRBARSCOUNT,0){XG51};
LYDB:=IF(LDD1,REF(L,LDD1),L){XG51};
LDDTS1:=IF(LDD1,REF(LDDTS,LDD1),LDDTS){XG51};
LDDCS1:=CONST(LDDTS1){XG51};
LZDB:=REF(LYDB,LDD1+1){XG51};
LDDTS2:=REF(LDDTS1,DD1+1){XG51};
LDDCS2:=CONST(LDDTS2){XG51};
支撑:DRAWLINE(CURRBARSCOUNT=LDDCS2,L,CURRBARSCOUNT=LDDCS1,L,1),COLORFF0000{XG51};
ZGSTAR:=(压力+支撑)/2{XG51};
ZGEND:=CONST((压力+支撑)/2){XG51};
STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2){XG51};
中轨:DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),COLORRED{XG51};
LLAA:=REF(H,N3)=HHV(H,2*N3+1){XG51};
LLQY:=BACKSET(LLAA,N3+1){XG51};
LLCC:=FILTER(LLQY,N3) AND H=HHV(H,N3+1){XG51};
LLDDD:=BARSLAST(LLCC){XG51};
LLGDTS:=IF(LLCC,CURRBARSCOUNT,0){XG51};
LLDINGBU:=IF(LLDDD,REF(H,LLDDD),H){XG51};
LLDINGBUTS:=IF(LLDDD,REF(LLGDTS,LLDDD),LLGDTS){XG51};
LLDINGBU1:=REF(LLDINGBU,LLDDD+1){XG51};
LLGDCS1:=CONST(LLDINGBUTS){XG51};
LLDINGBUTS1:=REF(LLDINGBUTS,LLDDD+1){XG51};
LLGDCS2:=CONST(LLDINGBUTS1){XG51};
LLDINGBU2:=REF(LLDINGBU1,LLDDD+1){XG51};
LLMM:=IF(CURRBARSCOUNT>LGDCS2,0,1){XG51};
L压力:DRAWLINE(CURRBARSCOUNT=LLGDCS2,H,CURRBARSCOUNT=LLGDCS1,H,1) COLORFF0000{XG51};
DRAWLINE(CURRBARSCOUNT=LLGDCS2,H,ISLASTBAR,REF(H,LLGDCS2-1),1),COLOR00FF00,POINTDOT{XG51};
DRAWLINE(CURRBARSCOUNT=LLGDCS1,H,ISLASTBAR,REF(H,LLGDCS1-1),1),COLOR00FF00,POINTDOT{XG51};
LLAA1:=REF(L,N3)=LLV(L,2*N3+1){XG51};
LLQY1:=BACKSET(LLAA1,N3+1){XG51};
LLCC1:=FILTER(LLQY1,N3) AND L=LLV(L,N3+1){XG51};
LLDD1:=BARSLAST(LCC1){XG51};
LLDDTS:=IF(LLCC1,CURRBARSCOUNT,0){XG51};
LLYDB:=IF(LLDD1,REF(L,LLDD1),L){XG51};
LLDDTS1:=IF(LLDD1,REF(LLDDTS,LLDD1),LDDTS){XG51};
LLDDCS1:=CONST(LLDDTS1){XG51};
LLZDB:=REF(LLYDB,LLDD1+1){XG51};
LLDDTS2:=REF(LLDDTS1,DD1+1){XG51};
LLDDCS2:=CONST(LLDDTS2){XG51};
L支撑:DRAWLINE(CURRBARSCOUNT=LLDDCS2,L,CURRBARSCOUNT=LLDDCS1,L,1) COLORBLUE{XG51};
LZGSTAR:=(L压力+L支撑)/2{XG51};
LZGEND:=CONST((L压力+L支撑)/2){XG51};
LSTARDAY:=IF(LLDDCS2<LLGDCS2,LLDDCS2,LLGDCS2){XG51};
L中轨:DRAWLINE(CURRBARSCOUNT=LSTARDAY,LZGSTAR,ISLASTBAR,LZGEND,1),COLORBLUE;

A:=(3*C+L+O+H)/6{XG51};
TY:=C{XG51};
成本:= (MA(CLOSE,60)+MA(CLOSE,70)+MA(CLOSE,90)+MA(CLOSE,108))/4,COLORWHITE,LINETHICK2{XG51};
MA0:MA(C,0)COLORBLUE ,LINETHICK2{XG51};
K:=(C+H+L)/3{XG51};
D:=MA(K,4){XG51};
阻力:=HHV(D,55),COLORBLUE,LINETHICK2{XG51};
顶部:=HHV(H*0.98,55)COLORFFFFFF,LINETHICK2{XG51};
DRAWICON(REF(C,1)<D AND C>D AND D<REF(D,1),L*0.98,1),COLORBLUE,LINETHICK2 {XG51};
TYP:= (HIGH + LOW +2* C)/4{XG51};
均线:=EMA(TYP,3),LINETHICK2,COLORRED{XG51};
均线上轨:=HHV(均线,14),LINETHICK2,COLORBLUE{XG51};
均线下轨:=LLV(均线,14),LINETHICK2,COLORCYAN{XG51};
角度:=ATAN((均线/REF(均线,1)-1)*100)*180/3.1416{XG51};
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,1 ),COLOR5B5BFF{XG51};
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,2.7,0 ),COLOR0000CC{XG51};
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,2,0 ),COLOR0E0EFF{XG51};
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,1.2,0 ),COLOR4848FF{XG51};
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,0.6,0 ),COLOR7878FF{XG51};
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,0.1,0 ),COLORA1A1FF{XG51};
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,0,0 ),COLORCACAFF{XG51};
STICKLINE(CLOSE< OPEN,HIGH,LOW,0,1 ),COLORGREEN{XG51};
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,2.7,0 ),COLOR990000{XG51};
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,2,0 ),COLORCC0000{XG51};
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,1.2,0 ),COLORFF4400{XG51};
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,0.6,0 ),COLORFF8800{XG51};
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,0.1,0 ),COLORFFCC00{XG51};
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,0,0 ),COLORGREEN{XG51};
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{XG51};
mtm:=C-REF(C,1){XG51};
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(Abs(MTM),6),6){XG51};
CB:=EMA(X,13){XG51};
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0){XG51};
DRAWICON(FILTER(买=1,5),L*0.97,1){XG51};
{X_G^5_1_C_N_{};

源码正文：

此公式为副图公式，买点线上穿输出时为买入点，
因为是短线指标，并且只有买入点信号，所以不论涨跌多少，建议尽量在3-5天内卖出。勿贪！
尽管本指标在熊市也会发出信号，但鄙人还是建议诸位用在牛市或平衡市中，因为在熊市中的任何点位买入都是错误的！

AA:=REF(CLOSE,1){XG51};
BBB:=SMA(maX(CLOSE-AA,0),5,1)/SMA(Abs(CLOSE-AA),5,1)*1000{XG51};
HHH:=BBB-LLV(BBB,10){XG51};
SS:=(MA(HHH,2)*3+HHH*13)/16{XG51};
短线买点:IF(SS>13,MA(SS,2),SS){X+G.5?1+C+N+{};