커뮤니티
갭보정 수정
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)
다음글
이전글