通達信股票公式之黃金羅盤

    

通達信股票公式之黃金羅盤

　　VAR1:=(C+H+O+L)/4;

　　賣出:=XMA(VAR1,N)*(1+P1/1000),COLORFFFFFF,LINETHICK3;

　　買入:=XMA(VAR1,M)*(1-P2/1000),COLOR0000FF,LINETHICK3;

　　DRAWBAND(賣出,RGB(200,50,55),賣出*1.03,RGB(0,100,50));

　　DRAWBAND(買入,RGB(0,55,0),買入*0.97,RGB(55,55,0));

　　幅度:100*(賣出-買入)/買入,NODRAW;

　　MA1:=MA(VAR1,3);

　　STICKLINE(賣出>LOW AND 賣出<HIGH,賣出,MAX(賣出,MAX(OPEN,CLOSE)),3,0),COLORGREEN;

　　STICKLINE(賣出>MIN(C,O) AND 賣出<MAX(C,O),賣出,MAX(OPEN,CLOSE),3,0),COLORGREEN;

　　STICKLINE(賣出>LOW AND 賣出<HIGH,賣出,HIGH,0,0),COLORGREEN;

　　STICKLINE(賣出<LOW,OPEN,CLOSE,3,0),COLORGREEN;

　　STICKLINE(賣出<LOW,HIGH,LOW,0,0),COLORGREEN;

　　STICKLINE(買入>LOW AND 買入<HIGH,買入,MIN(MIN(OPEN,CLOSE),買入),3,0),COLORMAGENTA;

　　STICKLINE(買入>MIN(C,O) AND 買入<MAX(C,O),買入,MIN(OPEN,CLOSE),3,0),COLORMAGENTA;

　　STICKLINE(買入>LOW AND 買入<HIGH,買入,LOW,0,0),COLORMAGENTA;

　　DRAWTEXT(CROSS(C,賣出),賣出*1.05,'賣出'),COLOR00FFFF;

　　機會來臨:=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,LINETHICK2;

　　RSV2:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

　　K2:=REF(MA(RSV2,3),1)+(RSV2-REF(MA(RSV2,3),1))/3;

　　D2:=REF(MA(K2,3),1)+(K2-REF(MA(K2,3),1))/3;

　　J2:=3*K2-2*D2;

　　BB1:=EMA(J2,5);

　　BB2:=REF(BB1,1);

　　金叉:=CROSS(BB1,BB2);

　　DRAWTEXT(CROSS(C,買入) AND BB1>BB2 AND C>REF(O,2),買入*0.95,'買入'),COLOR0000FF;

　　DRAWICON(CROSS(C,買入) AND 金叉 AND 機會來臨 ,LOW*0.96,26);

　　DRAWTEXT(CROSS(C,買入) AND 金叉 AND 機會來臨,LOW*0.92,'【絕殺點--指標超市】'),COLOR00FF00;

　　寸土寸金（副圖）

　　RSV2:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

　　K2:=REF(MA(RSV2,3),1)+(RSV2-REF(MA(RSV2,3),1))/3;

　　D2:=REF(MA(K2,3),1)+(K2-REF(MA(K2,3),1))/3;

　　J2:=3*K2-2*D2;

　　BB1:=EMA(J2,5);

　　BB2:=REF(BB1,1);

　　QQ:BB1;

　　STICKLINE(K2<D2,100,0,8,0),COLORA8A8A8;

　　STICKLINE(K2>=D2,100,0,8,0 ),COLOR38B0DE;

　　STICKLINE(BB1>BB2,BB1,BB2,5,0),COLOR000085;

　　STICKLINE(BB1>BB2,BB1,BB2,3,0),COLOR0000C5;

　　STICKLINE(BB1>BB2,BB1,BB2,1,0),COLOR0000E5;

　　STICKLINE(BB1<=BB2,BB1,BB2,5,0),COLOR555500;

　　STICKLINE(BB1<=BB2,BB1,BB2,3,0),COLOR757500;

　　STICKLINE(BB1<=BB2,BB1,BB2,1,0),COLOR858500;

　　大浪淘金（副圖）

　　VAR6:=(2*CLOSE+HIGH+LOW)/4;

　　VAR8:=LLV(LOW,34);

　　VARB:=HHV(HIGH,34);

　　BB:=EMA((VAR6-VAR8)/(VARB-VAR8)*100,13);

　　VARC:=EMA(0.667*REF(BB,1)+0.333*BB,2);

　　波:BB,POINTDOT,COLOR0000A8;

　　RSV1:=(CLOSE-LLV(LOW,35))/(HHV(HIGH,35)-LLV(LOW,35))*100;

　　K1:=SMA(RSV1,13,1);

　　D1:=SMA(K1,13,1);

　　浪:EMA(D1,3),POINTDOT,COLORYELLOW;

　　STICKLINE((BB-VARC>0),BB,VARC,5,0),COLOR0000C0;

　　STICKLINE((BB-VARC>0),BB,VARC,4,0),COLOR0000E0;

　　STICKLINE((BB-VARC>0),BB,VARC,3,0),COLOR0000F0;

　　STICKLINE((BB-VARC>0),BB,VARC,2,0),COLOR0000D0;

　　STICKLINE((BB-VARC>0),BB,VARC,1,0),COLOR0000FF;

　　STICKLINE((BB-VARC<0),BB,VARC,5,0),COLOR00B500;

　　STICKLINE((BB-VARC<0),BB,VARC,4,0),COLOR00C600;

　　STICKLINE((BB-VARC<0),BB,VARC,3,0),COLOR00D500;

　　STICKLINE((BB-VARC<0),BB,VARC,1,0),COLOR00E600;

　　STICKLINE(EMA(D1,3)>REF(EMA(D1,3),1),EMA(D1,3),REF(EMA(D1,3),1),8,0),COLORFF5D00;

　　STICKLINE(EMA(D1,3)>REF(EMA(D1,3),1),EMA(D1,3),REF(EMA(D1,3),1),7,0),COLORFF5D10;

　　STICKLINE(EMA(D1,3)>REF(EMA(D1,3),1),EMA(D1,3),REF(EMA(D1,3),1),6,0),COLORFF7710;

　　STICKLINE(EMA(D1,3)>REF(EMA(D1,3),1),EMA(D1,3),REF(EMA(D1,3),1),5,0),COLORFF8810;

　　STICKLINE(EMA(D1,3)>REF(EMA(D1,3),1),EMA(D1,3),REF(EMA(D1,3),1),4,0),COLORFF9910;天界:80,POINTDOT,COLORF00FF0;

　　中界:50,POINTDOT,COLORWHITE;

　　地界:20,COLOR00FF00,POINTDOT;

　　VAR1:=(HIGH+LOW+CLOSE)/3;

　　VAR2:=(VAR1-MA(VAR1,14))/(0.015*AVEDEV(VAR1,14));

　　VAR28:=IF(DATE<=1120930,1,0);

　　VAR3:=(VAR1-MA(VAR1,70))/(0.015*AVEDEV(VAR1,70));

　　VAR4:=IF(VAR2>=150 AND VAR2<200 AND VAR3>=150 AND VAR3<200,10,0);

　　VAR5:=IF(VAR2<=-150 AND VAR2>-200 AND VAR3<=-150 AND VAR3>-200,-10,VAR4);

　　VAR16:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;

　　VAR7:=100-ABS(VAR16);

　　VAR18:=IF(VAR7<90,VAR7,100);

　　PJX:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;

　　短期強弱:=PJX*VAR28,LINETHICK2,COLORFFFFFF;

　　機構買賣 （副圖）

　　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,機構線,'買入');

　　DRAWTEXT(CROSS(機構線,A5)AND 趨勢線<80,機構線,'追買'),COLOR558899;

　　底部:=(A2<-10 AND A2>REF(A2,1))*25,COLORRED,LINETHICK2;

　　機會來臨: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,LINETHICK2;

　　大勢已去:IF(CROSS(機構線,A1)AND 機構線>70 AND 趨勢線>80,90,100),COLORFF9900,LINETHICK2;

（战神GPK777SOUTHMONEY.COM）