커뮤니티
1일 1회진입
2009-11-17 13:39:47
777
글번호 26199
1일 1회만 진입토록 수정하여 주시기 바랍니다.
Inputs: Strength(4),p1(2000),p2(250);
Variables: LowPivot(0);
var : Cond1(False), Cond2(False), Cond5(False), Cond4(False),cond6(false), sellCond(0), bPosition(0);
var1=ma(bids-asks,3);
var2=ma(data2("c")-data3("c"),3);
If SwingLow(1, Low, Strength, Strength, Strength*2+1) <> -1 Then Begin
Condition1 = True;
LowPivot = Low[Strength];
End;
If MarketPosition() == -1 Then
Condition1 = False;
Cond1 = Condition1 && (var1<0 ) ; //매수조건1
Cond2 = Condition1 && (var2<0 ) ; //매수조건2
Cond4 = (var1>p1) ; //매수청산조건1
Cond5 = var2>p2 ; //매수청산조건2
cond6 = EntryPrice() - 1 > c && (var1>0 or var2>0 );
//매수식
if bposition != 1 then Begin
if Cond1 then {
sell("PivB1", AtStop, LowPivot);
sellCond = 1;
bposition = -1;
}
if Cond2 then {
sell("PivB2", AtStop, LowPivot);
sellCond = 2;
bposition = -1;
}
End;
//매수청산식
if sellCond == 1 and (Cond4 or cond6) then {
exitshort();
bPosition = 0;
}
if sellCond == 2 and (Cond5 or cond6) then {
exitshort();
bPosition = 0;
}
답변 1
예스스탁 예스스탁 답변
2009-11-17 13:56:50
안녕하세요
예스스탁입니다.
Inputs: Strength(4),p1(2000),p2(250);
Var : LowPivot(0);
var : Cond1(False), Cond2(False), Cond5(False), Cond4(False),cond6(false), sellCond(0), bPosition(0);
var : cnt(0),Pcnt(0),count(0);
count = 0;
for cnt = 0 to 20{
if sdate == EntryDate(cnt) Then
count = count+1;
}
var1=ma(bids-asks,3);
var2=ma(data2("c")-data3("c"),3);
If SwingLow(1, Low, Strength, Strength, Strength*2+1) <> -1 Then Begin
Condition1 = True;
LowPivot = Low[Strength];
End;
If MarketPosition() == -1 Then
Condition1 = False;
Cond1 = Condition1 && (var1<0 ) ; //매수조건1
Cond2 = Condition1 && (var2<0 ) ; //매수조건2
Cond4 = (var1>p1) ; //매수청산조건1
Cond5 = var2>p2 ; //매수청산조건2
cond6 = EntryPrice() - 1 > c && (var1>0 or var2>0 );
//매수식
if bposition != 1 and count < 1 then Begin
if Cond1 then {
sell("PivB1", AtStop, LowPivot);
sellCond = 1;
bposition = -1;
}
if Cond2 then {
sell("PivB2", AtStop, LowPivot);
sellCond = 2;
bposition = -1;
}
End;
//매수청산식
if sellCond == 1 and (Cond4 or cond6) then {
exitshort();
bPosition = 0;
}
if sellCond == 2 and (Cond5 or cond6) then {
exitshort();
bPosition = 0;
}
즐거운 하루되세요
> HI_coco 님이 쓴 글입니다.
> 제목 : 1일 1회진입
> 1일 1회만 진입토록 수정하여 주시기 바랍니다.
Inputs: Strength(4),p1(2000),p2(250);
Variables: LowPivot(0);
var : Cond1(False), Cond2(False), Cond5(False), Cond4(False),cond6(false), sellCond(0), bPosition(0);
var1=ma(bids-asks,3);
var2=ma(data2("c")-data3("c"),3);
If SwingLow(1, Low, Strength, Strength, Strength*2+1) <> -1 Then Begin
Condition1 = True;
LowPivot = Low[Strength];
End;
If MarketPosition() == -1 Then
Condition1 = False;
Cond1 = Condition1 && (var1<0 ) ; //매수조건1
Cond2 = Condition1 && (var2<0 ) ; //매수조건2
Cond4 = (var1>p1) ; //매수청산조건1
Cond5 = var2>p2 ; //매수청산조건2
cond6 = EntryPrice() - 1 > c && (var1>0 or var2>0 );
//매수식
if bposition != 1 then Begin
if Cond1 then {
sell("PivB1", AtStop, LowPivot);
sellCond = 1;
bposition = -1;
}
if Cond2 then {
sell("PivB2", AtStop, LowPivot);
sellCond = 2;
bposition = -1;
}
End;
//매수청산식
if sellCond == 1 and (Cond4 or cond6) then {
exitshort();
bPosition = 0;
}
if sellCond == 2 and (Cond5 or cond6) then {
exitshort();
bPosition = 0;
}