请高手帮忙将下面大智慧公式修改成通达信公式,谢谢!

2025-04-16 09:13:45
推荐回答(1个)
回答1:

N:=10;M1:=3;M2:=3;

RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
J:=3*K-2*D;

短高:IF(BETWEEN("KDJ.K",100,80),88,100);
短低:IF(BETWEEN("KDJ.K",20,0),12,0);
波低:IF(BETWEEN("KDJ.K#WEEK",10,0),30,0);
波高:IF(BETWEEN("KDJ.K#WEEK",100,90),70,100);
中低:IF(BETWEEN("KDJ.K#MONTH",20,0),30,0),COLOR0000FF;
中高:IF(BETWEEN("KDJ.K#MONTH",100,75),70,100);

A1:=BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1));
B1:=REF(CLOSE,A1+1)>CLOSE AND REF("MACD.DIF",A1+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA");
MACD底背离:FILTER(B1>0,5),LINETHICK0;
STICKLINE(FILTER(B1>0,5),0,10,3,0),COLOR00FF00;
DRAWTEXT(FILTER(B1>0,5),10,'MACD底背'),COLOR00FF00;
A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
B2:=REF(CLOSE,A2+1)>CLOSE AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");
KDJ底背离:FILTER(B2>0,5),LINETHICK0;
STICKLINE(FILTER(B2>0,5),0,20,3,0),COLOR00FFFF;
DRAWTEXT(FILTER(B2>0,5),20,'KDJ底背'),COLOR00FFFF;
A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
B3:=REF(CLOSE,A3+1)>CLOSE AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");
RSI底背离:FILTER(B3>0,5),LINETHICK0;
STICKLINE(FILTER(B3>0,5),0,30,3,0),COLORFFFF00;
DRAWTEXT(FILTER(B3>0,5),30,'RSI底背'),COLORFFFF00;

C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1));
D1:=REF(CLOSE,C1+1)"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF");
MACD顶背离:FILTER(D1>0,5),LINETHICK0;
STICKLINE(FILTER(D1>0,5),100,80,3,0),COLOR0066FF;
DRAWTEXT(FILTER(D1>0,5),80,'MACD顶背'),COLOR0066FF;
C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
D2:=REF(CLOSE,C2+1)"KDJ.K" AND CROSS("KDJ.D","KDJ.K");
KDJ顶背离:FILTER(D2>0,5),LINETHICK0;
STICKLINE(FILTER(D2>0,5),100,70,3,0),COLOR0000FF;
DRAWTEXT(FILTER(D2>0,5),70,'KDJ顶背'),COLOR0000FF;
C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
D3:=REF(CLOSE,C3+1)"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");
RSI顶背离:FILTER(D3>0,5),LINETHICK0;