커뮤니티

갭보정 수정

프로필 이미지
********
2009-09-17 09:09:22
579
글번호 24790
답변완료
갭조정하여 사용토록 수정부탁합니다. Input : shortPeriod(12), longPeriod(26), Period(9),Periodwill(10),p1(50),p2(40),p3(400),P4(0.7); Var : MACDv(0), MACDs(0),upC(0),dnC(0),upMACD(0),dnMACD(0); var : upC1(0),dnC1(0),upMACD1(0),DnMACD1(0); MACDv = MACD(shortPeriod, longPeriod); MACDs = ema(MACDv,Period); var1=willr(periodWILL); var2=highest(c,p3); var3=lowest(c,p3); if crossup(MACDv,MACDs) Then{ upC = C; upMACD = MACDv; upC1 = upC[1]; upMACD1 = upMACD[1]; } if CrossDown(MACDv,MACDs) Then{ dnC = C; DnMACD = MACDv; dnC1 = dnC[1]; DnMACD1 = DnMACD[1]; } var: value(0),BW_SEVEN(0); if c>=c[11] then value = 1; else value = -1; if c>=c[12] then value = value + 1; else value = value - 1; if c>=c[13] then value = value + 1; else value = value - 1; if c>=c[14] then value = value + 1; else value = value - 1; if c>=c[15] then value = value + 1; else value = value - 1; if c>=c[16] then value = value + 1; else value = value - 1; if c>=c[17] then value = value + 1; else value = value - 1; if c>=c[18] then value = value + 1; value = value - 1; if c>=c[19] then value = value + 1; else value = value - 1; if c>=c[20] then value = value + 1; else value = value - 1; BW_SEVEN = value; var5=(value+value[2]+value[3]+value[4])/5; VAR6=WILLR(410); VAR7=(VAR6+VAR6[1]+VAR6[2]+VAR6[3]+VAR6[4])/5; INPUT:W1(92),W2(8),W3(1); if crossup(MACDv,MACDS) and upC < UPC1 and upMACD > upMACD1 && var1>-p1 /*&& BW_SEVEN >-10 */ && ma(c,3)>ma(c,7) Then buy("가1"); /* IF crossup(ma(c,3),var3+1.8) Then BUY("나1"); */ IF CROSSUP(VAR7,-W1) THEN BUY("다1"); if CrossDown(MACDv,MACDS) and upC > UPC1 and dnMACD < dnMACD1 && /*var1<-p2 &&*/ BW_SEVEN <10 && ma(c,20)
시스템
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2009-09-17 11:09:24

안녕하세요 예스스탁입니다. Input : shortPeriod(12), longPeriod(26), Period(9),Periodwill(10),p1(50),p2(40),p3(400),P4(0.7); Var : MACDv(0), MACDs(0),upC(0),dnC(0),upMACD(0),dnMACD(0); var : upC1(0),dnC1(0),upMACD1(0),DnMACD1(0); var : sumGap(0), gap(0), GO(0), GH(0), GL(0), GC(0); if date!=date[1] then { // 날짜가 변경되는 봉에서(분봉에서 첫번째 봉) gap = Open-Close[1]; // 일간갭 sumGap = sumGap+gap; // 일간갭 누적 } GO = O - sumGap;// 갭보정 시가 GH = H - sumGap;// 갭보정 고가 GL = L - sumGap;// 갭보정 저가 GC = C - sumGap; // 갭보정 종가 MACDv = ema(GC,shortPeriod)-ema(GC,longPeriod); MACDs = ema(MACDv,Period); var1=( Highest(gH, Periodwill) - gC) / ( Highest(gH, Periodwill) - Lowest(gL, Periodwill)) * (-100); var2=highest(gc,p3); var3=lowest(gc,p3); if crossup(MACDv,MACDs) Then{ upC = gC; upMACD = MACDv; upC1 = upC[1]; upMACD1 = upMACD[1]; } if CrossDown(MACDv,MACDs) Then{ dnC = gC; DnMACD = MACDv; dnC1 = dnC[1]; DnMACD1 = DnMACD[1]; } var: value(0),BW_SEVEN(0); if gc>=gc[11] then value = 1; else value = -1; if gc>=gc[12] then value = value + 1; else value = value - 1; if gc>=gc[13] then value = value + 1; else value = value - 1; if gc>=gc[14] then value = value + 1; else value = value - 1; if gc>=gc[15] then value = value + 1; else value = value - 1; if gc>=gc[16] then value = value + 1; else value = value - 1; if gc>=gc[17] then value = value + 1; else value = value - 1; if gc>=gc[18] then value = value + 1; value = value - 1; if gc>=gc[19] then value = value + 1; else value = value - 1; if gc>=gc[20] then value = value + 1; else value = value - 1; BW_SEVEN = value; var5=(value+value[2]+value[3]+value[4])/5; VAR6=( Highest(gH, 410) - gC) / ( Highest(gH, 410) - Lowest(gL, 410)) * (-100); VAR7=(VAR6+VAR6[1]+VAR6[2]+VAR6[3]+VAR6[4])/5; INPUT:W1(92),W2(8),W3(1); if crossup(MACDv,MACDS) and upC < UPC1 and upMACD > upMACD1 && var1>-p1 /*&& BW_SEVEN >-10 */ && ma(gc,3)>ma(gc,7) Then buy("가1"); /* IF crossup(ma(gc,3),var3+1.8) Then BUY("나1"); */ IF CROSSUP(VAR7,-W1) THEN BUY("다1"); if CrossDown(MACDv,MACDS) and upC > UPC1 and dnMACD < dnMACD1 && /*var1<-p2 &&*/ BW_SEVEN <10 && ma(gc,20) HI_coco 님이 쓴 글입니다. > 제목 : 갭보정 수정 > 갭조정하여 사용토록 수정부탁합니다. Input : shortPeriod(12), longPeriod(26), Period(9),Periodwill(10),p1(50),p2(40),p3(400),P4(0.7); Var : MACDv(0), MACDs(0),upC(0),dnC(0),upMACD(0),dnMACD(0); var : upC1(0),dnC1(0),upMACD1(0),DnMACD1(0); MACDv = MACD(shortPeriod, longPeriod); MACDs = ema(MACDv,Period); var1=willr(periodWILL); var2=highest(c,p3); var3=lowest(c,p3); if crossup(MACDv,MACDs) Then{ upC = C; upMACD = MACDv; upC1 = upC[1]; upMACD1 = upMACD[1]; } if CrossDown(MACDv,MACDs) Then{ dnC = C; DnMACD = MACDv; dnC1 = dnC[1]; DnMACD1 = DnMACD[1]; } var: value(0),BW_SEVEN(0); if c>=c[11] then value = 1; else value = -1; if c>=c[12] then value = value + 1; else value = value - 1; if c>=c[13] then value = value + 1; else value = value - 1; if c>=c[14] then value = value + 1; else value = value - 1; if c>=c[15] then value = value + 1; else value = value - 1; if c>=c[16] then value = value + 1; else value = value - 1; if c>=c[17] then value = value + 1; else value = value - 1; if c>=c[18] then value = value + 1; value = value - 1; if c>=c[19] then value = value + 1; else value = value - 1; if c>=c[20] then value = value + 1; else value = value - 1; BW_SEVEN = value; var5=(value+value[2]+value[3]+value[4])/5; VAR6=WILLR(410); VAR7=(VAR6+VAR6[1]+VAR6[2]+VAR6[3]+VAR6[4])/5; INPUT:W1(92),W2(8),W3(1); if crossup(MACDv,MACDS) and upC < UPC1 and upMACD > upMACD1 && var1>-p1 /*&& BW_SEVEN >-10 */ && ma(c,3)>ma(c,7) Then buy("가1"); /* IF crossup(ma(c,3),var3+1.8) Then BUY("나1"); */ IF CROSSUP(VAR7,-W1) THEN BUY("다1"); if CrossDown(MACDv,MACDS) and upC > UPC1 and dnMACD < dnMACD1 && /*var1<-p2 &&*/ BW_SEVEN <10 && ma(c,20)