[转] 逍遥老师的指标源码

《庄家泄密》指标源代码 VAR2:=(((CLOSE - MA(CLOSE,6)) / MA(CLOSE,6)) * 100); VAR3:=(((CLOSE - MA(CLOSE,12)) / MA(CLOSE,12)) * 100); VAR4:=(((CLOSE - MA(CLOSE,24)) / MA(CLOSE,24)) * 100); VAR5:=(((VAR2 + (2 * VAR3)) + (3 * VAR4)) / 6); VAR6:=MA(VAR5,3); 开始控盘:=STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3.5,0),COLOR00AAFF; STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3.5,0),COLOR0044FF; STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),2.5,0),COLOR0088FF; STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3,0),COLOR00AAFF; VAR1:=EMA(EMA(CLOSE,3),1); 控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000; STICKLINE(控盘<0,控盘,0,3.5,0),COLORFFAA00; STICKLINE(控盘<0,控盘,0,3.5.2,0),COLORFF4400; STICKLINE(控盘<0,控盘,0,2.5,0),COLORFF8800; STICKLINE(控盘<0,控盘,0,0,0),COLORFFAA00; 主力出货:0,COLORFFAA00; STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,3.5,0),COLOR000088; STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,2.5,0),COLOR0000AA; STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,1.5,0),COLOR0000CC; STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,1,0),COLOR0000EE; 主力吸货:0,COLOR0000FF; STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,3.5,0),COLOR008800; STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,2.5,0),COLOR00AA00; STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,1.5,0),COLOR00CC00; STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,1,0),COLOR00EE00; STICKLINE(DDX<0,0,DDX,3.5,0),COLOR008800; STICKLINE(DDX<0,0,DDX,2.5,0),COLOR00AA00; STICKLINE(DDX<0,0,DDX,1.5,0),COLOR00CC00; STICKLINE(DDX<0,0,DDX,1,0),COLOR00EE00; 主力减仓:0,COLOR00FF00; 底部:0,COLORYELLOW; DATA:=5; {多头买入} DRAWICON(ZIG(3,DATA)>REF(ZIG(3,DATA),1) AND REF(ZIG(3,DATA),1)<=REF(ZIG(3,DATA),2) AND REF(ZIG(3,DATA),2)<=REF(ZIG(3,DATA),3),L*0.98,1); {多头卖出} DRAWICON(ZIG(3,DATA)<REF(ZIG(3,DATA),1) AND REF(ZIG(3,DATA),1)>=REF(ZIG(3,DATA),2) AND REF(ZIG(3,DATA),2)>=REF(ZIG(3,DATA),3),H*1.02,2);               《神龙摆尾》-指标源代码 B1:=MA(C,1); B2:=SMA(SMA(SMA(B1,2,1),2,1),2,1); SMA2:=MA(B2,3); 止损下限:IF(LLV(MA(B2,8),3)<B2,LLV(MA(B2,8),3),B2); IF(B2>SMA2,B2,DRAWNULL),COLORRED,LINETHICK4; IF(B2<SMA2,B2,DRAWNULL),COLORGREEN,LINETHICK4; SNAKEA:HHV(MA(B2,1),13),COLORYELLOW; VAR1A:=(2*CLOSE+HIGH+LOW)/4; VAR2A:=MA(VAR1A,7); VAR3A:=VAR2A-MA(VAR1A,7/2)<0; VAR4A:=VAR2A-MA(VAR1A,7/2)>0; VAR5A:=BARSLAST(VAR3A); VAR6A:=0-BARSLAST(VAR4A); VAR7A:=IF(VAR3A<=0,VAR5A,VAR6A); STICKLINE(SNAKEA>B2 AND B2>SMA2,SNAKEA,B2,0,0),COLORBLUE; STICKLINE(SNAKEA>SMA2 AND B2<SMA2,SNAKEA,SMA2,0,0),COLORBLUE; VAR11A:=(CLOSE*2+HIGH+LOW)/4; VAR21A:=EMA(VAR11A,13)-EMA(VAR11A,34); VAR31A:=EMA(VAR21A,5); VAR2:=((CLOSE > REF(CLOSE,1)) AND (CLOSE > REF(CLOSE,2))); VAR3:=((REF(VAR2,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))); VAR4:=((REF(VAR3,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))); VAR5:=((REF(VAR4,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))); VAR6:=((REF(VAR5,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))); VAR7:=((REF(VAR6,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))); VAR8:=((REF(VAR7,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))); VAR9:=((REF(VAR8,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))); VARA:=((REF(VAR9,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))); VARB:=((REF(VARA,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))); VARC:=((REF(VARB,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))); VARD:=((REF(VARC,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))); VARE:=((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,2))); VARF:=((REF(VARE,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))); VAR10:=((REF(VARF,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))); VAR11:=((REF(VAR10,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))); VAR12:=((REF(VAR11,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))); VAR13:=((REF(VAR12,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))); VAR14:=((REF(VAR13,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))); VAR15:=((REF(VAR14,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))); VAR16:=((REF(VAR15,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))); VAR17:=((REF(VAR16,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))); VAR18:=((REF(VAR17,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))); VAR19:=((REF(VAR18,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))); VAR1B:=(REF((((((((((((VARE OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18) OR VAR19),1) AND VAR2); STICKLINE(VAR1B,O,O+(C-O)/3,2,0),COLOR10FFFF; STICKLINE(VAR1B,O,O+(C-O)/3,1,0),COLOR00FFFF; AA:=(REF((((((((((((VAR2 OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC) OR VARD),1) AND VARE); STICKLINE(AA,O,O+(C-O)/3,2,0),COLOR00EE00; STICKLINE(AA,O,O+(C-O)/3,1,0),COLOR00FF00; A13:=EMA(CLOSE,55); A14:=MA(CLOSE,75); A15:=EMA(A14,3); A16:=EMA(A15,3); A17:=(HIGH + LOW) / 5; A18:=(MA(A17,4)) - (MA(A17,34)); A19:=CROSS(A18,0); A20:=CROSS(0,A18); A21:=BARSLAST(A19); A22:=BARSLAST(A20); A23:=REF(A19,1); A24:=REF(A20,1); A25:=BARSLAST(A23); A26:=BARSLAST(A24); A27:=IF((A25 < A26),(REF((HHV(HIGH,2)),A25)),(REF((LLV(LOW,2)),A26))); A28:=(((REF(CLOSE,1)) <= (REF(A27,1))) AND (CLOSE > A27)) AND (A21 < A22); A29:=(((REF(CLOSE,1)) >= (REF(A27,1))) AND (CLOSE < A27)) AND (A22 < A21); A30:=A28 AND ((COUNT(A28,A21)) = 1); A31:=A29 AND ((COUNT(A29,A22)) = 1); A32:=A30 AND ((REF(BARSLAST(A31),1)) < (REF(BARSLAST(A30),1))); A33:=A31 AND ((REF(BARSLAST(A31),1)) > (REF(BARSLAST(A30),1))); DRAWTEXT(A32,SMA2*0.99,'←═≒∝'),COLORYELLOW; AC:=AMOUNT/(VOL); YY:=MA(AC,13); LLL:=(C-YY)/YY*100; MIDC :=  MA(CLOSE,22); UPPERC:= MIDC + 2*STD(C,22); LOWERC:= MIDC - 2*STD(C,22); BBA:=(C-LOWERC)/(UPPERC-LOWERC); BBC:=FORCAST(BBA,3); LIFENGCYC:=(REF(LLL,1)<-15 AND REF(BBA,1)<0 AND LLL>REF(LLL,1)); STICKLINE(LIFENGCYC>0,C,O,2,0),COLOR10ABFF; DRAWTEXT(LIFENGCYC>0,LOW*0.99,'☆'),COLORDD00DD;