变色K线 趋势支撑压力点,红绿K线 变色彩带(通达信公式 主图 源码 测试图)

[复制链接]
查看44 | 回复0 | 2022-6-27 18:26:10 | 显示全部楼层 |阅读模式

 变色K 趋势支撑压力点,红绿K线 变色彩带

 
变色K 趋势支撑压力点,红绿K线 变色彩带
公式很简单,没有未来函数,信号不会漂移。

{变色趋势K支压}
SJ:=1;
{+4天上方时间为准}
VAR1:=EMA(CLOSE,15)*SJ;
VAR2:=EMA(CLOSE,60)*SJ;
VAR3:=(CLOSE*SJ-VAR2*SJ)*2/(60+1)+VAR2;
生命线:VAR3*SJ,LINETHICK2, COLORYELLOW;
HX:=HHV(HIGH,3);
LX:=LLV(LOW,3);
H1:=IF(HX<REF(HX,1)&&HX<REF(HX,2)&&HX<REF(HX,4)&&LX<REF(LX,1)&&LX<REF(LX,3)&&LX<REF(LX,5)&&OPEN>CLOSE&&(HHV(OPEN,0)-CLOSE)>0,REF(HX,4),0);
L1:=IF(LX>REF(LX,1)&&LX>REF(LX,3)&&LX>REF(LX,5)&&HX>REF(HX,1)&&HX>REF(HX,2)&&HX>REF(HX,4)&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,0))>0,REF(LX,4),0);
H2:=VALUEWHEN(H1>0,H1);
L2:=VALUEWHEN(L1>0,L1);
K1:=IF(CLOSE>H2,-3,IF(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IF(K2=1,H2,L2);
G1:=VALUEWHEN(ISLASTBAR,G);
TMP:=K2;
W1:=K2;
W2:=OPEN-CLOSE;
HT:=IF(OPEN>CLOSE,OPEN,CLOSE);
LT:=IF(OPEN<CLOSE,OPEN,CLOSE);
STICKLINE(W1=1,HIGH,HT,0,0),COLORCYAN;
STICKLINE(W1=1,LOW,LT,0,0),COLORCYAN;
STICKLINE(W1=-3,HIGH,HT,0,0),COLORRED;
STICKLINE(W1=-3,LOW,LT,0,0),COLORRED;
STICKLINE(W1>0,OPEN,CLOSE,3,1),COLORCYAN;
STICKLINE(W1<=0,OPEN,CLOSE,3,1),COLORRED;
STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,3,0),COLORRED;
STICKLINE(W2>0&&W1>0,OPEN,CLOSE,3,0),COLORCYAN;
A:=WMA(HIGH,30);
B:=WMA(LOW,30);
A1:=WMA(HIGH,150),LINETHICK2;
B1:=WMA(LOW,150);
S1:=CROSS(CLOSE,WMA(HIGH,150));
X1:=CROSS(WMA(LOW,150),CLOSE);
WS1:=BARSLAST(S1)+1;
WX1:=BARSLAST(X1)+1;
SS1:=CROSS(SUM(S1,WX1),0.5);
XX1:=CROSS(SUM(X1,WS1),0.5);
S:=CROSS(CLOSE,WMA(HIGH,30));
X:=CROSS(WMA(LOW,30),CLOSE),LINETHICK2;
WS:=BARSLAST(S)+1,LINETHICK2;
WX:=BARSLAST(X)+1,LINETHICK2;
SS:=CROSS(SUM(S,WX),0.5);
XX:=CROSS(SUM(X,WS),0.5);
{STICKLINE(CLOSE>WMA(HIGH,30),WMA(HIGH,30),WMA(LOW,30),3,1),COLORMAGENTA;
STICKLINE(CLOSE<WMA(LOW,30),WMA(LOW,30),WMA(HIGH,30),3,1),COLORGREEN;}
STICKLINE(CLOSE>WMA(HIGH,150),WMA(HIGH,150),WMA(LOW,150),3,1),COLORRED;
STICKLINE(CLOSE<WMA(LOW,150),WMA(LOW,150),WMA(HIGH,150),3,1),COLORBLUE;
{分析家公式网}
IF(CLOSE>WMA(HIGH,150),WMA(HIGH,150),DRAWNULL),COLORRED;
IF(CLOSE<WMA(HIGH,150),WMA(HIGH,150),DRAWNULL),COLORBLUE;
IF(CLOSE>WMA(LOW,150),WMA(LOW,150),DRAWNULL),COLORRED;
IF(CLOSE<WMA(LOW,150),WMA(LOW,150),DRAWNULL),COLORBLUE;
 

20207252232632730.jpg

20207252232632730.jpg
 

20207252233526556.jpg

20207252233526556.jpg
 
 

20207259352377829.png

20207259352377829.png

20207259341512559.rar

2.93 KB, 下载次数: 0

售价: 3 金钱  [记录]  [购买]

20207259341512559.rar

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则