안녕하세요 예스스탁입니다. 검토후 답변 드리겠습니다 즐거운 하루되세요 > 경복궁 님이 쓴 글입니다. > 제목 : TS코드를 YesLang로 변환부탁 > 아래는 Divergence를 표현하는 식입니다. TS코드인데, YEs로 언어변환좀 부탁드립니다. ▧ 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.}