• 커뮤니티
  • 질의응답
  • 예스랭귀지 Q&A

커뮤니티

코드변환 요청드립니다

프로필 이미지
hugnkiss
2014-05-28 08:47:11
200
글번호 75407
답변완료
다음 EasyLanguage Code 변환 요청 드립니다. 감사합니다. INPUTS: ALRTLEN(4); VARS: SH(0), LFTSIDE(0), LFTLEN(0), B(0), CC(0), AVGVAL(0), CUP(FALSE), CUPBAR(0), RGTSIDE(0); VARS: HIVOLUME(0), AVGVOLUME(0), CHP(0), KBAR(0), RS(0), RSLINE(0), ALERTRESET(0); SH = SWINGHIGH(1, CLOSE, 1, 2)[2]; AVGVAL = AVERAGE(CLOSE, 5); IF AVGVAL > AVGVAL[1] THEN CC = CC + 1 ELSE CC = 0; HIVOLUME = HIGHEST(VOLUME, 5); AVGVOLUME = AVERAGE(VOLUME, 50); IF SH <> -1 AND HIVOLUME > AVGVOLUME[2] AND HIGHEST(CLOSE, 3) <= SH THEN BEGIN LFTSIDE = SH; LFTLEN = 0; FOR VALUE1 = 145 DOWNTO 25 BEGIN IF CLOSE[VALUE1] >= LFTSIDE AND HIVOLUME[VALUE1-2] > AVGVOLUME[VALUE1] THEN BEGIN LFTSIDE = CLOSE[VALUE1]; LFTLEN = VALUE1; END; END; IF LFTLEN <> 0 THEN BEGIN IF HIGHEST(CLOSE, LFTLEN-8)[4] < SH THEN BEGIN CHP = TEXT_NEW(DATE[LFTLEN], TIME[LFTLEN], CLOSE[LFTLEN], "LS"); TEXT_SETSTYLE(CHP, 2, 1); CHP = TEXT_NEW(DATE[3], TIME[3], SH, "RS"); TEXT_SETSTYLE(CHP, 2, 1); B = CLOSE[CC[3]+3]; CHP = TEXT_NEW(DATE[CC[3]+3],TIME[CC[3]+3],B,"B"); TEXT_SETSTYLE(CHP, 2, 0); IF LOWEST(CLOSE, 35)[LFTLEN] <= B THEN BEGIN KBAR = LOWESTBAR(CLOSE, 30)[LFTLEN]; CHP = TEXT_NEW(DATE[KBAR],TIME[KBAR],CLOSE[KBAR],"K"); TEXT_SETSTYLE(CHP, 2, 0); CUP = TRUE; CUPBAR = BARNUMBER[3]; RGTSIDE = SH; ALERTRESET = 0; RS = SH; RSLINE = TL_NEW(DATE[3], TIME[3], RS, DATE, TIME, RS); END; END; END; END; IF CUP AND BARNUMBER > CUPBAR + 3 THEN BEGIN TL_SETEND(RSLINE, DATE, TIME, RS); IF CLOSE < (RGTSIDE*.80) THEN CUP = FALSE ELSE IF CLOSE > RGTSIDE AND VOLUME > AVGVOLUME THEN BEGIN PLOT1(CLOSE, "C&H_BRKOUT"); ALERTRESET = 0; CUP = FALSE; END; END; ALERTRESET = ALERTRESET + 1; IF ALERTRESET <= ALRTLEN THEN ALERT = TRUE;
지표
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2014-05-28 14:56:44

안녕하세요 예스스탁입니다. INPUTS: ALRTLEN(4); VARS: SH(0), LFTSIDE(0), LFTLEN(0), B(0), CC(0), AVGVAL(0), CUP(FALSE), CUPBAR(0), RGTSIDE(0); VARS: HIVOLUME(0), AVGVOLUME(0), CHP(0), KBAR(0), RS(0), RSLINE(0), ALERTRESET(0); SH = SWINGHIGH(1, CLOSE,1,1,3)[2]; AVGVAL = AVERAGE(CLOSE, 5); IF AVGVAL > AVGVAL[1] THEN CC = CC + 1; ELSE CC = 0; HIVOLUME = HIGHEST(VOLUME, 5); AVGVOLUME = AVERAGE(VOLUME, 50); IF SH <> -1 AND HIVOLUME > AVGVOLUME[2] AND HIGHEST(CLOSE, 3) <= SH THEN BEGIN LFTSIDE = SH; LFTLEN = 0; FOR VALUE1 = 145 DOWNTO 25 BEGIN IF CLOSE[VALUE1] >= LFTSIDE AND HIVOLUME[VALUE1-2] > AVGVOLUME[VALUE1] THEN BEGIN LFTSIDE = CLOSE[VALUE1]; LFTLEN = VALUE1; END; END; IF LFTLEN <> 0 THEN BEGIN IF HIGHEST(CLOSE, LFTLEN-8)[4] < SH THEN BEGIN CHP = TEXT_NEW(DATE[LFTLEN], TIME[LFTLEN], CLOSE[LFTLEN], "LS"); TEXT_SETSTYLE(CHP, 2, 1); CHP = TEXT_NEW(DATE[3], TIME[3], SH, "RS"); TEXT_SETSTYLE(CHP, 2, 1); B = CLOSE[CC[3]+3]; CHP = TEXT_NEW(DATE[CC[3]+3],TIME[CC[3]+3],B,"B"); TEXT_SETSTYLE(CHP, 2, 0); IF LOWEST(CLOSE, 35)[LFTLEN] <= B THEN BEGIN KBAR = NthLowestBar(1,CLOSE, 30)[LFTLEN]; CHP = TEXT_NEW(DATE[KBAR],TIME[KBAR],CLOSE[KBAR],"K"); TEXT_SETSTYLE(CHP, 2, 0); CUP = TRUE; CUPBAR = index[3]; RGTSIDE = SH; ALERTRESET = 0; RS = SH; RSLINE = TL_NEW(DATE[3], TIME[3], RS, DATE, TIME, RS); END; END; END; END; IF CUP AND index > CUPBAR + 3 THEN BEGIN TL_SETEND(RSLINE, DATE, TIME, RS); IF CLOSE < (RGTSIDE*.80) THEN CUP = FALSE; ELSE IF CLOSE > RGTSIDE AND VOLUME > AVGVOLUME THEN BEGIN PLOT1(CLOSE, "C&H_BRKOUT"); ALERTRESET = 0; CUP = FALSE; END; END; ALERTRESET = ALERTRESET + 1; IF ALERTRESET <= ALRTLEN THEN SetAlert(true); 즐거운 하루되세요 > hugnkiss 님이 쓴 글입니다. > 제목 : 코드변환 요청드립니다 > 다음 EasyLanguage Code 변환 요청 드립니다. 감사합니다. INPUTS: ALRTLEN(4); VARS: SH(0), LFTSIDE(0), LFTLEN(0), B(0), CC(0), AVGVAL(0), CUP(FALSE), CUPBAR(0), RGTSIDE(0); VARS: HIVOLUME(0), AVGVOLUME(0), CHP(0), KBAR(0), RS(0), RSLINE(0), ALERTRESET(0); SH = SWINGHIGH(1, CLOSE, 1, 2)[2]; AVGVAL = AVERAGE(CLOSE, 5); IF AVGVAL > AVGVAL[1] THEN CC = CC + 1 ELSE CC = 0; HIVOLUME = HIGHEST(VOLUME, 5); AVGVOLUME = AVERAGE(VOLUME, 50); IF SH <> -1 AND HIVOLUME > AVGVOLUME[2] AND HIGHEST(CLOSE, 3) <= SH THEN BEGIN LFTSIDE = SH; LFTLEN = 0; FOR VALUE1 = 145 DOWNTO 25 BEGIN IF CLOSE[VALUE1] >= LFTSIDE AND HIVOLUME[VALUE1-2] > AVGVOLUME[VALUE1] THEN BEGIN LFTSIDE = CLOSE[VALUE1]; LFTLEN = VALUE1; END; END; IF LFTLEN <> 0 THEN BEGIN IF HIGHEST(CLOSE, LFTLEN-8)[4] < SH THEN BEGIN CHP = TEXT_NEW(DATE[LFTLEN], TIME[LFTLEN], CLOSE[LFTLEN], "LS"); TEXT_SETSTYLE(CHP, 2, 1); CHP = TEXT_NEW(DATE[3], TIME[3], SH, "RS"); TEXT_SETSTYLE(CHP, 2, 1); B = CLOSE[CC[3]+3]; CHP = TEXT_NEW(DATE[CC[3]+3],TIME[CC[3]+3],B,"B"); TEXT_SETSTYLE(CHP, 2, 0); IF LOWEST(CLOSE, 35)[LFTLEN] <= B THEN BEGIN KBAR = LOWESTBAR(CLOSE, 30)[LFTLEN]; CHP = TEXT_NEW(DATE[KBAR],TIME[KBAR],CLOSE[KBAR],"K"); TEXT_SETSTYLE(CHP, 2, 0); CUP = TRUE; CUPBAR = BARNUMBER[3]; RGTSIDE = SH; ALERTRESET = 0; RS = SH; RSLINE = TL_NEW(DATE[3], TIME[3], RS, DATE, TIME, RS); END; END; END; END; IF CUP AND BARNUMBER > CUPBAR + 3 THEN BEGIN TL_SETEND(RSLINE, DATE, TIME, RS); IF CLOSE < (RGTSIDE*.80) THEN CUP = FALSE ELSE IF CLOSE > RGTSIDE AND VOLUME > AVGVOLUME THEN BEGIN PLOT1(CLOSE, "C&H_BRKOUT"); ALERTRESET = 0; CUP = FALSE; END; END; ALERTRESET = ALERTRESET + 1; IF ALERTRESET <= ALRTLEN THEN ALERT = TRUE;
등록