『量能饱和度』原码
{量能饱和度}通用式: ZH:100;
NZ:=(AMOUNT/CLOSE)/HHV((AMOUNT/CLOSE),26)*100; STICKLINE((NZ<=5),0,NZ,2,0),COLORFFFFFF;
STICKLINE((NZ>5) AND (NZ<=20),0,NZ,2,0),COLORFFBB00; STICKLINE((NZ>20) AND (NZ<=40),0,NZ,2,0),COLORFF00FF; STICKLINE((NZ>40),0,NZ,2,0),COLOR0000FF; 饱和度:NZ; OL:0;
{放心追涨} QUOTE:
MA1:=MA(CLOSE,5); MA2:=MA(CLOSE,10); MA3:=MA(CLOSE,20); MA4:=MA(CLOSE,30); MA5:=MA(CLOSE,60); A1:=(C-O)/O;
C1:=IF(REF(O,1)REF(MA1,1) AND REF(C,1)>REF(MA2,1),1,0);
C2:=IF(REF(MA1,1)>REF(MA3,1) AND REF(MA2,1)>REF(MA3,1),1,0);
C3:=IF(C-O>0 AND C>MA1 AND C>MA2 AND VOL>1.4*REF(VOL,1) AND C>MA5 AND C>REF(C,10),1,0); C4:=IF(A10 AND C2>0 AND C3>0 AND C4>0;
////////////////////
{放胆追高} QUOTE: MA1:=MA(C,5); MA2:=MA(C,10); MA3:=MA(C,20);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=3*K-2*D;
A1:=IF(MA1>REF(MA1,1) AND REF(MA1,1)>REF(MA1,2) AND 1.7*(REF(MA1,1)-REF(MA1,2))<(MA1-REF(MA1,1)),1,0);
A2:=IF(1.5*(REF(MA2,1)-REF(MA2,2))<(MA2-REF(MA2,1)),1,0); A3:=IF(MA1-MA2>1.3*REF(MA1-MA2,1) AND MA3>LLV(MA3,10),1,0); A4:=IF(C<0.7*HHV(H,60) AND REF(HHV(C,60),60)>0.5*HHV(C,60),1,0);
A5:=IF(HHV(C,60)-LLV(C,60)/HHV(C,60)<0.15 OR HHV(MA3,20)>REF(HHV(MA3,20),20),1,0);
A1>0 AND A2>0 AND A3>0 AND A4+A5>0 AND K<85 AND J<100 AND K>REF(K,1) AND REF(K,1)>REF(K,2) ;
{均线追涨} QUOTE:
MA1:=MA(CLOSE,5); MA2:=MA(CLOSE,10); MA3:=MA(CLOSE,20); MA4:=MA(CLOSE,30); MA5:=MA(CLOSE,60); MA6:=MA(CLOSE,120); A1:=(C-O)/O;
C1:=IF(REF(O,1)REF(MA1,1) AND REF(C,1)>REF(MA2,1),1,0);
C2:=IF(REF(MA1,1)>REF(MA3,1) AND REF(MA2,1)>REF(MA3,1),1,0);
C3:=IF(C-O>0 AND C>MA1 AND C>MA2 AND VOL>1.4*REF(VOL,1) AND C>MA5 AND C>REF(C,10),1,0); C4:=IF(A10 AND C2>0 AND C3>0 AND C4>0;
浩申老师不在,代改一下: 布林追高:
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4; UPR:=BBI+3*STD(BBI,10); DWN:=BBI-3*STD(BBI,10); C1:=IF(REF(C,2) C2:=IF(REF(O,1)REF(BBI,1),1,0); C3:=IF(C 89782592 要的通达信公式 MA6:MA(C,6),COLOR0000FF; MA18:MA(C,18),COLOR0096FF; MA30:MA(C,30),COLOR00FF99; MA60:MA(C,60),COLORFF00FF; M250:MA(C,250),COLORRED,LINETHICK3; AAF:LLV(LOW,34),LINETHICK1,COLORFFFFCC; BBF:MA(AAF,4),LINETHICK1,COLORYELLOW; LC:=REF(CLOSE,1); RSI:=SMA(MAX(CLOSE-LC,0),4,1)/SMA(ABS(CLOSE-LC),4,1)*100; {DRAWICON(CROSS(84,RSI) ,H*1.03,5); DRAWICON(CROSS(RSI,11) ,L*0.99,4);} VAR27:=REF(CLOSE,1); VAR28:=SMA(MAX(CLOSE-VAR27,0),5,1)/SMA(ABS(CLOSE-VAR27),6,1)*100; DRAWICON(IF(CROSS(76,VAR28),1,0),H*1.01,4); DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0 AND EMA(CLOSE,12)/LOW>1.15,5), LOW,'☆'),LINETHICK7 , COLORFF00FF; VARA:=((AMOUNT)/(VOL))/(100); VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7); VARC:=((SUM(AMOUNT,7))/(VARA))/(100); VARD:=DMA(VARB,(VOL)/(VARC)); VARE:=((CLOSE-VARD)/(VARD))*(100); VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100); VARJ:=MA(VARE,20)+STD(VARE,20); BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100); AA:=SMA(VARF,3,1); SS:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>79); DRAWTEXT((REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>SS),H*1.02,'☆'),LINETHICK7,COLORGREEN; VAR1:=ZIG(3,10)REF(ZIG(3,10),2);{ZIG 有未来} VAR2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1) RSI、MACD、KDJ背离公式(通达信主图) {MACD、KDJ、RSI顶底背离公式 通达信} A:=MA(CLOSE,17)+ABS(MA(CLOSE,17)-REF(MA(CLOSE,17),1)); B:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1); 分水岭:IF(MA(CLOSE,17) IF(PM>REF(PM,1),PM,DRAWNULL),COLORRED,LINETHICK2; IF(PM=REF(PM,1),PM,DRAWNULL),COLORRED; IF(PM操作线); DD:=分水岭 IF(DD,分水岭,DRAWNULL),COLOR00FF00,LINETHICK2; IF(S,分水岭,DRAWNULL),COLOR00FF00,POINTDOT,LINETHICK4; DRAWICON(CROSS(分水岭,操作线),分水岭-0.1,1);{买入红箭头} A1:=BARSLAST(REF(CROSS(\B1:=REF(C,A1+1)>C AND REF(\CROSS(\ DRAWTEXT(B1>0,L-0.02,'★M'),COLOR00FFFF;{MACD底背离} A2:=BARSLAST(REF(CROSS(\ B2:=REF(C,A2+1)>C AND REF(\DRAWTEXT(B2,L-0.10,'◎K'),COLORFF00FF;{KDJ底背离} A3:=BARSLAST(REF(CROSS(\ B3:=REF(C,A3+1)>C AND REF(\DRAWTEXT(B3>0,L-0.18,'◆R'),COLOR0000FF;{RSI底背离} C1:=BARSLAST(REF(CROSS(\D1:=REF(C,C1+1) DRAWTEXT(D1>0,H+0.16,'★M'),COLOR00FF00;{MACD顶背离} C2:=BARSLAST(REF(CROSS(\ D2:=REF(C,C2+1) D3:=REF(C,C3+1) AND AND 说明:红色带绿点线条为买入或持股,绿色线条为卖出;R M K分别代表相关顶底背离指标。短线高手可以根据指标做差价。 RSI、MACD、KDJ背离公式(通达信主图) {MACD、KDJ、RSI顶底背离公式 通达信} A:=MA(CLOSE,17)+ABS(MA(CLOSE,17)-REF(MA(CLOSE,17),1)); B:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1); 分水岭:IF(MA(CLOSE,17) 操作线:分水岭-(EMA(C,3)-分水岭),COLOR00FFFF,LINETHICK2; PM:MA(C,5),COLORWHITE,LINETHICK2; IF(PM>REF(PM,1),PM,DRAWNULL),COLORRED,LINETHICK2; IF(PM=REF(PM,1),PM,DRAWNULL),COLORRED; IF(PM S:=(PM>操作线); DD:=分水岭 IF(DD,分水岭,DRAWNULL),COLOR00FF00,LINETHICK2;