通達信   黑馬啟動公式

趨勢:EMA(EMA(C,4),4),COLORYELLOW;月K:="KDJ.K#MONTH";月D:="KDJ.D#MONTH";周K:="KDJ.K#WEEK";周D:="KDJ.D#WEEK";日K:="KD.K";日D:="KD.D";日金叉:=IF(CROSS(日K,日D),15,0);周金叉:=IF(CROSS(周K,周D),25,0);月金叉:=IF(CROSS(月K,月D),35,0);日周月:=IF(日金叉=15 AND 周金叉=25 AND 月金叉=35,1,0);日周月賺:=日周月=1;日周:=IF(日金叉=15 AND 周金叉=25,2,0);日周賺:=日周=2;周月:=IF(周金叉=25 AND 月金叉=35,3,0);日月:=IF(日金叉=15 AND 月金叉=35,4,0);日月賺:=日月=4;周月賺:=周月=3;DRAWTEXT(日周月賺,趨勢*0.96,"↖LSP大牛"),COLORRED;DRAWTEXT(周月賺,趨勢*0.97,"↖LSP金牛"),COLORFF00FF;DRAWTEXT(日月賺,趨勢*0.98,"↖LSP牛牛"),COLORYELLOW;DIF:=EMA(DCLOSE,12)-EMA(DCLOSE,26);DEA:=EMA(DIF,9);AAA:=(DIF-DEA)*2*60;啟動:=CROSS(AAA-REF(AAA,1),15),COLORRED,LINETHICK2;DRAWTEXT(啟動,L*0.97,"↖金牛啟動"),COLORYELLOW,LINETHICK2;AA:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;BB:=EMA(AA,2);TP:=(CROSS(AA,BB) OR CROSS(C,AA)) AND C>=EMA(C,55);CC:=EMA(CLOSE,12)-EMA(CLOSE,26);DD:=EMA(CC,9);主升啟動:=TP AND CROSS(CC,DD) AND (DD<=-0.07)*CC;DRAWICON(主升啟動,L*0.996,1);DRAWTEXT(主升啟動,L,"↖LSP牛");VAR1:=(C+H+O+L)/4;MA1:=MA(VAR1,3);MAA5:MA(C,5),COLORRED,LINETHICK1;A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;A4:=SMA(A3,3,1);A5:=SMA(A4,3,1);A6:=3*A4-2*A5;A7:=C-REF(C,1);A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);AAA2:=SUM(IF( CLOSE>REF(CLOSE,1),VOL*C,0),0);AAA3:=SUM(IF( CLOSE<REF(CLOSE,1),VOL*C,0),0);AAA4:=SUM(IF( CLOSE=REF(CLOSE,1),VOL*C,0),0);BB1:=0;B1萬元:=DVOL*DCLOSE/100;B1差:=B1萬元-REF(B1萬元,1);B2萬元:=DVOL*DCLOSE/100;B2比:=B2萬元/REF(B2萬元,1);凈流入萬元:=(AAA2-AAA3-0.5*AAA4);PM:=MA(凈流入萬元,1);PMA:=PM/REF(PM,1)>1;PMB:=REF(PMA,1)<1 AND PMA;密碼:(EMA(MA(B1萬元,2),2))/100000,COLORYELLOW,NODRAW;二日比:=密碼/REF(密碼,1);Z1:=STRCAT(HYBLOCK," ");Z2:=STRCAT(Z1,DYBLOCK);Z3:=STRCAT(Z2," ");DRAWTEXT_FIX(ISLASTBAR,0.01,0.01,0,STRCAT(Z3,GNBLOCK)),COLORYELLOW;

推薦閱讀：