커뮤니티
답변이 없으셔서 재차 부탁드립니다.
2005-07-11 12:27:39
1679
글번호 7761
아래의 TS수식을 YESLang로 언어 변환 부탁드립니다.
▧ Easy Language Code
{LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
Description : Divergence Index
Code Source : http://www.tssupport.com
Created By : “Quantifying Divergence With The Divergence Index”, Matt Storz, S&C
Magazine, Traders Tips, 01/1996
LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL}
PLOT1(PEAKDIVERGENCE(5, RSI(CLOSE,10)),"PLOT1");
PLOT2(TROUGHDIVERGENCE(5, RSI(CLOSE,10)),"PLOT2");
IF CHECKALERT THEN BEGIN
IF PLOT1 CROSSES ABOVE PLOT2 OR PLOT1 CROSSES BELOW PLOT2
THEN ALERT;
END;
▧ Function:
● PeakDivergence
INPUTS: STRENGTH(NUMERICSIMPLE), OSC(NUMERICSERIES);
VARS: HC(0), HP(0), HH(0), HL(0), IC(0), IH(0), IP(0), IL(0);
VALUE1=SWINGHIGH(1,HIGH,STRENGTH,STRENGTH+1);
IF VALUE1<>-1 THEN BEGIN
HP=HC;
HC=VALUE1;
IP=IC;
IC=OSC[STRENGTH];
HH=VALUE2;
HL=VALUE3;
VALUE2=HIGHEST(HIGH,STRENGTH+1);
VALUE3=LOWEST(HIGH,STRENGTH+1);
IH=VALUE4;
IL=VALUE5;
VALUE4=HIGHEST(OSC,STRENGTH+1);
VALUE5=LOWEST(OSC,STRENGTH+1);
END;
IF HIGH>VALUE2 THEN VALUE2=HIGH;
IF HIGHTHEN VALUE3=HIGH;
IF OSC>VALUE4 THEN VALUE4=OSC;
IF OSCTHEN VALUE5=OSC;
IF (HH-HL)=0 OR (IH-IL)=0 THEN PEAKDIVERGENCE=PEAKDIVERGENCE[1]
ELSE
PEAKDIVERGENCE=50*(((HC-HP)/(HH-HL))-((IC-IP)/(IH-IL)));
{COPYRIGHT C 1997, TECHNICAL ANALYSIS, INC.}
● TroughDivergence
INPUTS: STRENGTH(NUMERICSIMPLE), OSC(NUMERICSERIES);
VARS: IC(0), IH(0), IP(0), IL(0), LC(0), LP(0), LH(0), LL(0);
VALUE1=SWINGLOW(1,LOW,STRENGTH,STRENGTH+1);
IF VALUE1<>-1 THEN BEGIN
LP=LC;
LC=VALUE1;
IP=IC;
IC=OSC[STRENGTH];
LH=VALUE2;
LL=VALUE3;
VALUE2=HIGHEST(LOW,STRENGTH+1);
VALUE3=LOWEST(LOW,STRENGTH+1);
IH=VALUE4;
IL=VALUE5;
VALUE4=HIGHEST(OSC,STRENGTH+1);
VALUE5=LOWEST(OSC,STRENGTH+1);
END;
IF LOW>VALUE2 THEN VALUE2=LOW;
IF LOWTHEN VALUE3=LOW;
IF OSC>VALUE4 THEN VALUE4=OSC;
IF OSCTHEN VALUE5=OSC;
IF (LH-LL)=0 OR (IH-IL)=0 THEN TROUGHDIVERGENCE=TROUGHDIVERGENCE[1]
ELSE
TROUGHDIVERGENCE=50*(((IC-IP)/(IH-IL))-((LC-LP)/(LH-LL)));
{COPYRIGHT C 1997, TECHNICAL ANALYSIS, INC.}
답변 1
예스스탁 예스스탁 답변
2005-07-11 17:15:58
안녕하세요
예스스탁입니다.
첨부한 사용자함수를
program files --> 예스트레이더프로 --> yeslang --> functions 폴더에 다운받으신후
지표식을 적용하시기 바랍니다.
[지표식]
plot1(PeakDivergence(5,10));
plot2(TroughDivergence(5,10));
즐거운 하루되세요
> 경복궁 님이 쓴 글입니다.
> 제목 : 답변이 없으셔서 재차 부탁드립니다.
> 아래의 TS수식을 YESLang로 언어 변환 부탁드립니다.
▧ Easy Language Code
{LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
Description : Divergence Index
Code Source : http://www.tssupport.com
Created By : “Quantifying Divergence With The Divergence Index”, Matt Storz, S&C
Magazine, Traders Tips, 01/1996
LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL}
PLOT1(PEAKDIVERGENCE(5, RSI(CLOSE,10)),"PLOT1");
PLOT2(TROUGHDIVERGENCE(5, RSI(CLOSE,10)),"PLOT2");
IF CHECKALERT THEN BEGIN
IF PLOT1 CROSSES ABOVE PLOT2 OR PLOT1 CROSSES BELOW PLOT2
THEN ALERT;
END;
▧ Function:
● PeakDivergence
INPUTS: STRENGTH(NUMERICSIMPLE), OSC(NUMERICSERIES);
VARS: HC(0), HP(0), HH(0), HL(0), IC(0), IH(0), IP(0), IL(0);
VALUE1=SWINGHIGH(1,HIGH,STRENGTH,STRENGTH+1);
IF VALUE1<>-1 THEN BEGIN
HP=HC;
HC=VALUE1;
IP=IC;
IC=OSC[STRENGTH];
HH=VALUE2;
HL=VALUE3;
VALUE2=HIGHEST(HIGH,STRENGTH+1);
VALUE3=LOWEST(HIGH,STRENGTH+1);
IH=VALUE4;
IL=VALUE5;
VALUE4=HIGHEST(OSC,STRENGTH+1);
VALUE5=LOWEST(OSC,STRENGTH+1);
END;
IF HIGH>VALUE2 THEN VALUE2=HIGH;
IF HIGHTHEN VALUE3=HIGH;
IF OSC>VALUE4 THEN VALUE4=OSC;
IF OSCTHEN VALUE5=OSC;
IF (HH-HL)=0 OR (IH-IL)=0 THEN PEAKDIVERGENCE=PEAKDIVERGENCE[1]
ELSE
PEAKDIVERGENCE=50*(((HC-HP)/(HH-HL))-((IC-IP)/(IH-IL)));
{COPYRIGHT C 1997, TECHNICAL ANALYSIS, INC.}
● TroughDivergence
INPUTS: STRENGTH(NUMERICSIMPLE), OSC(NUMERICSERIES);
VARS: IC(0), IH(0), IP(0), IL(0), LC(0), LP(0), LH(0), LL(0);
VALUE1=SWINGLOW(1,LOW,STRENGTH,STRENGTH+1);
IF VALUE1<>-1 THEN BEGIN
LP=LC;
LC=VALUE1;
IP=IC;
IC=OSC[STRENGTH];
LH=VALUE2;
LL=VALUE3;
VALUE2=HIGHEST(LOW,STRENGTH+1);
VALUE3=LOWEST(LOW,STRENGTH+1);
IH=VALUE4;
IL=VALUE5;
VALUE4=HIGHEST(OSC,STRENGTH+1);
VALUE5=LOWEST(OSC,STRENGTH+1);
END;
IF LOW>VALUE2 THEN VALUE2=LOW;
IF LOWTHEN VALUE3=LOW;
IF OSC>VALUE4 THEN VALUE4=OSC;
IF OSCTHEN VALUE5=OSC;
IF (LH-LL)=0 OR (IH-IL)=0 THEN TROUGHDIVERGENCE=TROUGHDIVERGENCE[1]
ELSE
TROUGHDIVERGENCE=50*(((IC-IP)/(IH-IL))-((LC-LP)/(LH-LL)));
{COPYRIGHT C 1997, TECHNICAL ANALYSIS, INC.}
다음글