tianhe6198 发表于 2015-5-17 20:19

天河分享通达信指标公式（17）——自适均线（主图）


声明：近期总有朋友反映本人发布的指标中有表情符号，以导致指标源码无法使用，这是由于该论坛编辑器格式导致而成，并非本人特意操作所为。
对此而产生的指标使用问题，我也爱莫能助了，但大家如果有非常喜欢的指标，可以站内信加我好友或发消息给我，以便于我帮助朋友们解决该类问题！
{向原创作者致敬！}
DIR1:=ABS(CLOSE-REF(CLOSE,5));
    VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);
    ER1:=DIR1/VIR1;
    CS1:=ER1*(0.8-2/8)+2/8;
    CQ1:=CS1*CS1;
    AMA1:EMA(DMA(CLOSE,CQ1),2) ,COLORYELLOW,LINETHICK2;


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)));
STICKLINE((((((((((((VAR2 OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC) OR VARD),CLOSE,REF(CLOSE,1),3,1),COLORRED;
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)));
STICKLINE((((((((((((VARE OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18) OR VAR19),CLOSE,REF(CLOSE,1),3,1),COLORGREEN;
VAR1A:=(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(VAR1A,REF(CLOSE,1),REF(CLOSE,2),5,0)COLORYELLOW;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0)COLORRED;
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,REF(CLOSE,1),REF(CLOSE,2),5,1)COLORYELLOW;
STICKLINE(AA,REF(CLOSE,1),REF(CLOSE,2),3,0)COLORBLUE;

S:IF(AA,L,DRAWNULL),STICK,LINETHICK1,COLORYELLOW;

    DIR2:=ABS(CLOSE-REF(CLOSE,10));
    VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);
    ER2:=DIR2/VIR2;
    CS2:=ER2*(0.8-2/24)+2/24;
    CQ2:=CS2*CS2;
    AMA2:EMA(DMA(CLOSE,CQ2),2),COLORGREEN,LINETHICK2;
    AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),COLORBLUE,LINETHICK2;
    AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLORRED,LINETHICK2;

IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLORYELLOW,CIRCLEDOT;


fqj2000 发表于 2015-5-17 20:21

感谢提供分享。
愿股海明灯越来越亮，获益股民越来越多！

风雨依旧 发表于 2015-5-17 20:49

谢谢分享。:)

dasfku2012 发表于 2015-5-17 20:53

下轨冒号LLV 虚低冒号LLV

赵小欠儿 发表于 2015-5-18 08:55

感谢楼主，还必须十个字

程峰 发表于 2015-5-18 08:59

自适均线（主图）

安逸安逸 发表于 2019-3-4 20:15

谢谢您的分享！
页: [1]
查看完整版本: 天河分享通达信指标公式（17）——自适均线（主图）