通达信<通金魔方>全套源码出处

独步天下
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);
黑马线:EMA(A1,5),LINETHICK2,COLOR6600FF;
 A2:=(黑马线-REF(黑马线,1))/REF(黑马线,1)*100;
 A3:=EMA(C,5);
 A4:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
趋势线:(MA(3*SMA(A4,6,1)-2*SMA(SMA(A4,5,1),5,1),2)),LINETHICK2,coloryellow;
 A5:=(HHV(H,60)-C)/(HHV(H,60)-LLV(L,60))*100;
 DRAWTEXT(FILTER(REF(黑马线,1)>90 AND A2<0,7),黑马线,'跑'),COLOR00FF00;
 DRAWTEXT(CROSS(A1,黑马线) AND 黑马线<A5,黑马线,'B'),colorred;
 DRAWICON(CROSS(黑马线,A5) AND 趋势线<80,黑马线,34);
 DRAWTEXT(CROSS(趋势线,0) AND 黑马线<40,5,'大黑马');
底部:(A2<-10 AND A2>REF(A2,1))*25,colorred;
 DRAWICON(底部 AND A3>REF(A3,1),25,41);
机会来临:REF(IF((MA(C,5)-C)/C>0.04 AND (MA(C,10)-MA(C,5))/MA(C,5)>0.04,30,0),1),COLORF00FF0;
大势己去:IF(CROSS(黑马线,A1) AND 黑马线>70 AND 趋势线>80,90,100),COLORFF0000;

注意颜色代码处数字0经常会被识别为字母O,肉眼也不容易发觉

======================================================================================
庖丁解牛

 快线:EMA(EMA(EMA(EMA(CLOSE,3),3),3),3),LINETHICK2,colorred;
慢线:EMA(REF(快线,1),3),LINETHICK2,COLOROOFFFF;
总趋势:EMA(EMA(EMA(EMA(EMA(CLOSE,65),3),3),3),3),LINETHICK2,COLORBULE;
 HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;
 AA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);
 QY:=BACKSET(AA,HIGHN+1);
 CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);
 DRAWICON(CC,H*1.02,2);
 DDD:=BARSLAST(CC);
 GDTS:=IF(CC,CURRBARSCOUNT,0);

 DINGBU:=IF(DDD,REF(H,DDD),H);//{顶部}
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
 DINGBU1:=REF(DINGBU,DDD+1);
 GDCS1:=CONST(DINGBUTS);
 DINGBUTS1:=REF(DINGBUTS,DDD+1);
 GDCS2:=CONST(DINGBUTS1);
 DINGBU2:=REF(DINGBU1,DDD+1);
 MM:=IF(CURRBARSCOUNT>GDCS2,0,1);
高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1),colorgreen,LINETHICK2;
 DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1),1),COLOR0055FF,POINTDOT;
 DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1),1),coloryellow,POINTDOT;
 AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1);
 QY1:=BACKSET(AA1,LOWN+1);
 CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1);
 DRAWICON(CC1,L*0.98,1);
 DD1:=BARSLAST(CC1);
 DDTS:=IF(CC1,CURRBARSCOUNT,0);
 YDB:=IF(DD1,REF(L,DD1),L);
 DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
 DDCS1:=CONST(DDTS1);
 ZDB:=REF(YDB,DD1+1);
 DDTS2:=REF(DDTS1,DD1+1);
 DDCS2:=CONST(DDTS2);
低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1),colorred,LINETHICK2;
 ZGSTAR:=(高点压力+低点支撑)/2;
 ZGEND:=CONST((高点压力+低点支撑)/2);
 STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2);
中轨:DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),COLORFF55BB,LINETHICK2;
 DRAWLINE(CURRBARSCOUNT=DDCS1,L,ISLASTBAR,REF(L,DDCS1-1),1),colormagenta,POINTDOT;
 DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,REF(L,DDCS2-1),1),colorcyan,POINTDOT;

 =========================================

绝地反击

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;
 S2:=SMA(C,3,1);
 S6:=SMA(C,5,1);
 DK:=2*(S2-S6);
主力成本:EMA(X,13),COLORFF00FF;
短期底部:LLV(HIGH,30),LINETHICK2,COLORFFCC00;
 IF(MA(C,3),MA(C,3),DRAWNULL),coloryellow,LINETHICK2;
 IF(MA(C,9),MA(C,9),DRAWNULL),colormagenta,LINETHICK2;
 IF(MA(C,23.5),MA(C,23.5),DRAWNULL),colorwhite;
 DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
 MA5:=MA(C,5);
 MA10:=MA(C,10);
 MA30:=MA(C,30);
 FA:=BARSLAST(CROSS(MA10,MA5)) AND CROSS(MA5,MA10);
 FB:=FA AND MA5>MA30 AND MA10>MA30 AND MA10>REF(MA10,1);
 DRAWTEXT(FB,L-0.58,'长盯'),colorred;
 V1:=EMA(CLOSE,5);
 V2:=EMA(EMA(CLOSE,90)*1.01,10);
 DRAWTEXT(CROSS(V1,V2),V1+0.05,'直到涨'),colorgreen;
 VAR1:=LLV(LOW,21);
 VAR2:=HHV(HIGH,21);
 AK1:=EMA((((CLOSE - VAR1)/ (VAR2 - VAR1)) * 100),5);

 AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);
 AB:=CROSS(AK1,AK);
 DRAWTEXT((AB= 1),(LOW *0.99),'低吸'),colormagenta;
 AA1:=AMOUNT/V;
 BB1:=L<AA1*0.9;
 CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
 DD1:=L<MA(C,5)*0.921;
 EE1:=V<MA(V,5)*1.5;
短介:=BB1 AND CC1 AND DD1 AND EE1,COLOR0099FF;
 DRAWTEXT(短介,L*0.99,'短介'),COLOR0099FF;
 VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);
 VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0);
 A1AA:=9;
 A2AA:=(REF(CLOSE,A1AA+1)<CLOSE);
 VAR6:=REF(C,1);
 VAR7:=SMA(MAX(C-VAR6,0),6,1)/SMA(ABS(C-VAR6),6,1)*100;
 DRAWTEXT(CROSS(82,VAR7),H*1.01,'高抛'),COLORBULE;

 ==================================
守株待兔

VAR3:=MA(CLOSE,13);
 VAR4:=100-ABS(((CLOSE-VAR3)/(VAR3))*(100));
 VAR5:=LLV(LOW,75);
 VAR6:=HHV(HIGH,75);
 VAR7 :=(VAR6-VAR5)/( 100 );
 VAR8:=SMA((CLOSE-VAR5)/(VAR7),20,1);
 VAR9:=SMA((OPEN-VAR5)/(VAR7),20,1);
 VARA:=(3)*(VAR8)-(2)*(SMA(VAR8,15,1));
 VARB:=(3)*(VAR9)-(2)*(SMA(VAR9,15,1));
 VARC:=100-VARB;
 VARD:=(REF(LOW,1))*(0.89999997);
 VARE:=(LOW)*(0.89999997);
 VARF:=((VARE)*(VOL)+(VARD)*(CAPITAL-VOL))/(CAPITAL);
 VAR10:=EMA(VARF,30);
 VAR11:=CLOSE-REF(CLOSE,1);
 VAR12:=MAX(VAR11,0);
 VAR13:=ABS(VAR11);
 VAR14:=((SMA(VAR12,7,1))/(SMA(VAR13,7,1)))*(100);
 VAR15:=((SMA(VAR12,13,1))/(SMA(VAR13,13,1)))*(100);
 VAR16:=BARSCOUNT(CLOSE);
 VAR17:=((SMA(MAX(VAR11,0),6,1))/(SMA(ABS(VAR11),6,1)))*(100);
 VAR18:=(((-200))*(HHV(HIGH,60)-CLOSE))/(HHV(HIGH,60)-LLV(LOW,60))+100;
 VAR19:=((CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15)))*(100);
 VARlA:=SMA((SMA(VAR19,4,1)-50)*(2),3,1);
 VAR1B:=((INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14)))*(100);
 VAR1C:=SMA(VAR1B,4,1);
 VAR1D:=SMA(VAR1C,3,1);
 VAR1E:=((HHV(HIGH,30)-CLOSE)/(CLOSE))*(100);
 VAR1F:=((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(100);
 VAR20:=REVERSE(VAR1F);
 VAR21:=SMA(VAR1F,3,1);
趋势:SMA(VAR21,3,1),COLOR0000FF,LINETHICK2;
人气:SMA(趋势,3,1),coloryellow,LINETHICK2;
出击:IF(CROSS(趋势,人气) AND (趋势<30),20,0),COLOR0000FF,LINETHICK2;
短卖:IF(CROSS(人气,趋势) AND (人气>75),85,100),COLOR008000,LINETHICK2;