超牛色带(通达信公式 主图 源码 测试图)
{超牛色带}
{参数1: M, 最小: 1, 最大: 30, 缺省: 10}天线:MA(CLOSE,M)*1.15,COLORRED,LINETHICK2;地线:MA(CLOSE,M)*0.85,COLOR00FF80,LINETHICK2;XA_1:=MA(CLOSE,1);XA_2:=SMA(SMA(SMA(XA_1,2,1),2,1),2,1);SMA2:MA(XA_2,4),NODRAW;DRAWBAND(XA_2,RGB(250,0,0),SMA2,RGB(0,180,0));XA_3:=580;XA_4:=581;XA_5:=582;XA_6:=583;XA_7:=584;XA_8:=585;XA_9:=586;XA_10:=IF(XA_7=1,587+CON2STR(XA_9,2)+588,589+CON2STR(XA_8,2)+590);XA_11:=IF(XA_4=1,587+CON2STR(XA_6,2)+591,589+CON2STR(XA_5,2)+592);XA_12:=IF(XA_7=1,IF(CROSS(XA_7,0),593,594),IF(CROSS(1,XA_7),595,596));XA_13:=IF(XA_4=0,597,598);STICKLINE(CLOSE>SMA2 OR CLOSE=SMA2,LOW,HIGH,0.1,0),COLOR0022FF;STICKLINE(CLOSE>SMA2 OR CLOSE=SMA2,OPEN,CLOSE,3,0),COLOR0088FF;STICKLINE(CLOSE<SMA2 OR CLOSE=SMA2,LOW,HIGH,0.1,0),COLOR009900;STICKLINE(CLOSE<SMA2 OR CLOSE=SMA2,OPEN,CLOSE,3,0),COLOR009900;STICKLINE(SMA2>CLOSE,CLOSE,OPEN,3,0),COLOR009900;STICKLINE(SMA2>CLOSE,CLOSE,OPEN,2,0),COLOR00BB00;STICKLINE(SMA2>CLOSE,CLOSE,OPEN,1,0),COLOR00DD00;STICKLINE(SMA2>CLOSE,CLOSE,OPEN,0,0),COLORGREEN;STICKLINE(CLOSE>=SMA2,CLOSE,OPEN,3,0),COLOR0022FF;STICKLINE(CLOSE>=SMA2,CLOSE,OPEN,2,0),COLOR0066FF;STICKLINE(CLOSE>=SMA2,CLOSE,OPEN,1,0),COLOR00AAFF;STICKLINE(CLOSE>=SMA2,CLOSE,OPEN,0,0),COLOR00EEFF;XA_14:=EMA(CLOSE,2);XA_15:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);XA_16:=CROSS(CLOSE,SMA2);XA_17:=CROSS(SMA2,CLOSE);DRAWTEXT(XA_16,LOW*0.98,579),COLORWHITE,LINETHICK4;DRAWTEXT(XA_17,HIGH*1.02,75),COLORCYAN,LINETHICK4;XA_18:=REF(HIGH,1)-REF(LOW,1);XA_19:=MA(CLOSE,13);XA_20:=BACKSET(XA_19<REF(XA_19,1),2);XA_21:=EMA(CLOSE,34);XA_22:=EMA(CLOSE,55);XA_23:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100;XA_24:=MA(XA_23,2.5);XA_25:=MA(XA_24,2.5);XA_26:=3*XA_24-2*XA_25;XA_27:=XA_26<20;STICKLINE(REF(XA_26,1)<20 AND EMA(CLOSE,13)>REF(EMA(CLOSE,13),1) AND NOT(XA_27),(CLOSE+OPEN)/2,OPEN,5,0),COLORMAGENTA;DRAWTEXT(REF(XA_26,1)<20 AND EMA(CLOSE,13)>REF(EMA(CLOSE,13),1) AND NOT(XA_27),LOW-0.15,599),COLORMAGENTA;XA_28:=EMA(AMOUNT/VOL/100,3);XA_29:=EMA(XA_28,88);XA_30:=EMA(XA_28,88)*0.85;XA_31:=XA_30*0.87;XA_32:=LOW<XA_31 AND CLOSE>REF(CLOSE,1)*1.02;DRAWTEXT(FILTER(XA_32,6),LOW-0.08,600),COLORMAGENTA;XA_33:=ATAN((MA(CLOSE,5)/REF(MA(CLOSE,5),1)-1)*100)*180/3.1416;XA_34:=ATAN((MA(CLOSE,10)/REF(MA(CLOSE,10),1)-1)*100)*180/3.1416;XA_35:=ATAN((MA(CLOSE,30)/REF(MA(CLOSE,30),1)-1)*100)*180/3.1416;XA_36:=FILTER(XA_35>30 AND XA_34>45 AND CROSS(XA_33,60),10);DRAWTEXT(XA_36,LOW*0.98,601),COLORWHITE;XA_37:=100-(100-3*SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,20,1),15,1));XA_38:=100-(100-3*SMA((OPEN-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,20,1),15,1));XA_39:=XA_37>REF(XA_38,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);DRAWTEXT(XA_39 AND COUNT(XA_39,30)=1,LOW,602),COLORWHITE;