커뮤니티
수식수정
2024-03-21 10:04:10
764
글번호 177748
예스스탁 BI
로그아웃 | 회원정보 | 회사소개 | 사이트맵
시스템트레이딩
시스템시장
매매신호
제품소개
주요기능
주요기능
프로그램사용법 Q&A 메뉴
예스스팟 Q&A 메뉴
자유게시판 메뉴
시스템시장 토론실
공지사항
시스템트레이딩 교육
Inputs : DDD(20150309), LEN(300), HL_ED(60), CC(Black);
Vars : DBN1(0), KK1(0), DD1(0), KK2(0), DD2(0),HP(0);
If STime >= 080000 And STime[1] < 080000 Then Begin
DBN1 = 0;
KK1 = 0;
DD1 = 0;
KK2 = 0;
DD2 = 0;
End;
DBN1 = DBN1 + 1;
/*If Date == DDD Then Begin*/
If STime >= 083000 And DD1 == 0 Then Begin
Value2 = O;
DD1 = 1;
KK1 = DBN1;
End;
If DBN1 > KK1 + 1 And DD1 == 1 Then
HP = Value2;
Else
HP = Value2;
Inputs : Period(20), Sence(1.5), CC_DN(Yellow);
Vars:
VLineUp(0),
VLineDn(0),
HHighest(0),
LLowest(0),
JustChanged(FALSE),
VLine(0), DBN(0),T(0);
Array:
Highs[35](0),
Lows[35](0),
RRange[35](0),
UpWave[1](FALSE),
DnWave[1](FALSE);
If STime == 180000 Then
DBN = 0;
DBN = DBN + 1;
Var1 = Period;
Var2 = Var1 - 1;
Var3 = Var1 - 2;
Var5 = Sence;
Var6 = H-L;
JustChanged = FALSE;
if CurrentBar <= Var2 then begin
Highs[CurrentBar] = Close;
Lows[CurrentBar] = Close;
RRange[CurrentBar] = (H-L) /2;
end;
if CurrentBar == Var1 then begin
if Highs[Var2] >= Highs[Var3] then begin
UpWave[1] = TRUE;
HHighest = Highs[Var2];
VLineUp = HHighest - (Var5 * MA(Var6,Var2));
#Plot1(VLineUp,"VLineUp");
end;
if Highs[Var2] < Highs[Var3] then begin
DnWave[1] = TRUE;
LLowest = Lows[Var2];
VLineDn = LLowest + (Var5 * MA(Var6,Var2));
#Plot2(VLineDn,"VLineDn");
end;
end;
if CurrentBar > Var1 then begin
if DnWave[1] and Close > VLineDn then begin
DnWave[1] = FALSE;
UpWave[1] = TRUE;
JustChanged = TRUE;
HHighest = Close;
LLowest = 0;
end;
if UpWave[1] and Close < VLineUp and JustChanged == FALSE then begin
UpWave[1] = FALSE;
DnWave[1] = TRUE;
JustChanged = TRUE;
LLowest = Close;
HHighest = 0;
end;
if JustChanged == FALSE then begin
if Close > HHighest then
HHighest = Close;
else if Close < LLowest then
LLowest = Close;
end;
VLineUp = HHighest - (Var5 * MA(Var6,Var2));
VLineDn = LLowest + (Var5 * MA(Var6,Var2));
if UpWave[1] then
T = 1;
else if DnWave[1] then
T = -1;
end;
Input : BBP(120), MultiD(2);
var : BBmd(0),BBup(0),BBdn(0);
BBmd = ma(C,Period);
BBup = BollBandUp(BBP,MultiD);
BBdn = BollBandDown(BBP,MultiD);
if MarketPosition <= 0 and
HP > ma(C,60) and CrossUp(c,HP) and T == 1 Then
Buy();
if MarketPosition >= 0 and HP < ma(C,60) and T == -1 Then
Sell();
if MarketPosition == 1 and CrossDown(HP,ma(C,60)) Then
ExitLong();
if MarketPosition == -1 and CrossUP(HP,ma(C,60))
안녕하세요
위식 수정부탁드립니다
볼밴 삭제
매수
이평60선위에 hp선이 있는상태에서
Hp선을 가격이 터치나 하락후 Hp선을 상향돌파시 매수
매수청산및 손절
Hp선을 가격이 하락돌파시
매도
이평선 아래에 hp선이 있는상태에서
Hp선을 가격이 터치나 상승후 Hp선을 하락돌파시 매도
청산손절 Hp선을 가격이 상승돌파시
답변 1
예스스탁 예스스탁 답변
2024-03-21 13:14:27
안녕하세요
예스스탁입니다.
Inputs : DDD(20150309), LEN(300), HL_ED(60), CC(Black);
Vars : DBN1(0), KK1(0), DD1(0), KK2(0), DD2(0),HP(0);
If STime >= 080000 And STime[1] < 080000 Then Begin
DBN1 = 0;
KK1 = 0;
DD1 = 0;
KK2 = 0;
DD2 = 0;
End;
DBN1 = DBN1 + 1;
/*If Date == DDD Then Begin*/
If STime >= 083000 And DD1 == 0 Then Begin
Value2 = O;
DD1 = 1;
KK1 = DBN1;
End;
If DBN1 > KK1 + 1 And DD1 == 1 Then
HP = Value2;
Else
HP = Value2;
Inputs : Period(20), Sence(1.5), CC_DN(Yellow);
Vars:
VLineUp(0),
VLineDn(0),
HHighest(0),
LLowest(0),
JustChanged(FALSE),
VLine(0), DBN(0),T(0);
Array:
Highs[35](0),
Lows[35](0),
RRange[35](0),
UpWave[1](FALSE),
DnWave[1](FALSE);
If STime == 180000 Then
DBN = 0;
DBN = DBN + 1;
Var1 = Period;
Var2 = Var1 - 1;
Var3 = Var1 - 2;
Var5 = Sence;
Var6 = H-L;
JustChanged = FALSE;
if CurrentBar <= Var2 then begin
Highs[CurrentBar] = Close;
Lows[CurrentBar] = Close;
RRange[CurrentBar] = (H-L) /2;
end;
if CurrentBar == Var1 then begin
if Highs[Var2] >= Highs[Var3] then begin
UpWave[1] = TRUE;
HHighest = Highs[Var2];
VLineUp = HHighest - (Var5 * MA(Var6,Var2));
#Plot1(VLineUp,"VLineUp");
end;
if Highs[Var2] < Highs[Var3] then begin
DnWave[1] = TRUE;
LLowest = Lows[Var2];
VLineDn = LLowest + (Var5 * MA(Var6,Var2));
#Plot2(VLineDn,"VLineDn");
end;
end;
if CurrentBar > Var1 then begin
if DnWave[1] and Close > VLineDn then begin
DnWave[1] = FALSE;
UpWave[1] = TRUE;
JustChanged = TRUE;
HHighest = Close;
LLowest = 0;
end;
if UpWave[1] and Close < VLineUp and JustChanged == FALSE then begin
UpWave[1] = FALSE;
DnWave[1] = TRUE;
JustChanged = TRUE;
LLowest = Close;
HHighest = 0;
end;
if JustChanged == FALSE then begin
if Close > HHighest then
HHighest = Close;
else if Close < LLowest then
LLowest = Close;
end;
VLineUp = HHighest - (Var5 * MA(Var6,Var2));
VLineDn = LLowest + (Var5 * MA(Var6,Var2));
if UpWave[1] then
T = 1;
else if DnWave[1] then
T = -1;
end;
if MarketPosition <= 0 and
HP > ma(C,60) and CrossUp(c,HP) and T == 1 Then
Buy();
if MarketPosition >= 0 and
HP < ma(C,60) and CrossDown(C, HP) and T == -1 Then
Sell();
if MarketPosition == 1 and CrossDown(c,HP) Then
ExitLong();
if MarketPosition == -1 and CrossUP(C,HP) Then
ExitShort();
즐거운 하루되세요
> 아트정 님이 쓴 글입니다.
> 제목 : 수식수정
>
예스스탁 BI
로그아웃 | 회원정보 | 회사소개 | 사이트맵
시스템트레이딩
시스템시장
매매신호
제품소개
주요기능
주요기능
프로그램사용법 Q&A 메뉴
예스스팟 Q&A 메뉴
자유게시판 메뉴
시스템시장 토론실
공지사항
시스템트레이딩 교육
Inputs : DDD(20150309), LEN(300), HL_ED(60), CC(Black);
Vars : DBN1(0), KK1(0), DD1(0), KK2(0), DD2(0),HP(0);
If STime >= 080000 And STime[1] < 080000 Then Begin
DBN1 = 0;
KK1 = 0;
DD1 = 0;
KK2 = 0;
DD2 = 0;
End;
DBN1 = DBN1 + 1;
/*If Date == DDD Then Begin*/
If STime >= 083000 And DD1 == 0 Then Begin
Value2 = O;
DD1 = 1;
KK1 = DBN1;
End;
If DBN1 > KK1 + 1 And DD1 == 1 Then
HP = Value2;
Else
HP = Value2;
Inputs : Period(20), Sence(1.5), CC_DN(Yellow);
Vars:
VLineUp(0),
VLineDn(0),
HHighest(0),
LLowest(0),
JustChanged(FALSE),
VLine(0), DBN(0),T(0);
Array:
Highs[35](0),
Lows[35](0),
RRange[35](0),
UpWave[1](FALSE),
DnWave[1](FALSE);
If STime == 180000 Then
DBN = 0;
DBN = DBN + 1;
Var1 = Period;
Var2 = Var1 - 1;
Var3 = Var1 - 2;
Var5 = Sence;
Var6 = H-L;
JustChanged = FALSE;
if CurrentBar <= Var2 then begin
Highs[CurrentBar] = Close;
Lows[CurrentBar] = Close;
RRange[CurrentBar] = (H-L) /2;
end;
if CurrentBar == Var1 then begin
if Highs[Var2] >= Highs[Var3] then begin
UpWave[1] = TRUE;
HHighest = Highs[Var2];
VLineUp = HHighest - (Var5 * MA(Var6,Var2));
#Plot1(VLineUp,"VLineUp");
end;
if Highs[Var2] < Highs[Var3] then begin
DnWave[1] = TRUE;
LLowest = Lows[Var2];
VLineDn = LLowest + (Var5 * MA(Var6,Var2));
#Plot2(VLineDn,"VLineDn");
end;
end;
if CurrentBar > Var1 then begin
if DnWave[1] and Close > VLineDn then begin
DnWave[1] = FALSE;
UpWave[1] = TRUE;
JustChanged = TRUE;
HHighest = Close;
LLowest = 0;
end;
if UpWave[1] and Close < VLineUp and JustChanged == FALSE then begin
UpWave[1] = FALSE;
DnWave[1] = TRUE;
JustChanged = TRUE;
LLowest = Close;
HHighest = 0;
end;
if JustChanged == FALSE then begin
if Close > HHighest then
HHighest = Close;
else if Close < LLowest then
LLowest = Close;
end;
VLineUp = HHighest - (Var5 * MA(Var6,Var2));
VLineDn = LLowest + (Var5 * MA(Var6,Var2));
if UpWave[1] then
T = 1;
else if DnWave[1] then
T = -1;
end;
Input : BBP(120), MultiD(2);
var : BBmd(0),BBup(0),BBdn(0);
BBmd = ma(C,Period);
BBup = BollBandUp(BBP,MultiD);
BBdn = BollBandDown(BBP,MultiD);
if MarketPosition <= 0 and
HP > ma(C,60) and CrossUp(c,HP) and T == 1 Then
Buy();
if MarketPosition >= 0 and HP < ma(C,60) and T == -1 Then
Sell();
if MarketPosition == 1 and CrossDown(HP,ma(C,60)) Then
ExitLong();
if MarketPosition == -1 and CrossUP(HP,ma(C,60))
안녕하세요
위식 수정부탁드립니다
볼밴 삭제
매수
이평60선위에 hp선이 있는상태에서
Hp선을 가격이 터치나 하락후 Hp선을 상향돌파시 매수
매수청산및 손절
Hp선을 가격이 하락돌파시
매도
이평선 아래에 hp선이 있는상태에서
Hp선을 가격이 터치나 상승후 Hp선을 하락돌파시 매도
청산손절 Hp선을 가격이 상승돌파시
다음글
이전글