커뮤니티
식수정
2023-01-13 08:24:14
1230
글번호 165360
Inputs : Period(20), Sence(1.5), CC_DN(Yellow);
Input : BBP1(20), dv1(2);
Input : BBP2(20), dv2(2);
input : P2(5);
var : BBdn(0,Data1),BBUp(0,Data1),bbmd(0,Data1);
var : BBdn2(0,Data2),BBUp2(0,Data2),bbmd2(0,Data2);
var : mav2(0,Data2),B(0,Data1),S(0,Data1),X(0,Data1);
Vars:
VLineUp(0,Data1),
VLineDn(0,Data1),
HHighest(0,Data1),
LLowest(0,Data1),
JustChanged(FALSE,Data1),
VLine(0,Data1), DBN(0,Data1);
var : ci(0,Data1),t(0,Data1),v1(0,Data1),v2(0,Data1),v3(0,Data1),v5(0,Data1),v6(0,Data1);
Array:
Highs[35](0,Data1),
Lows[35](0,Data1),
RRange[35](0,Data1),
UpWave[1](FALSE,Data1),
DnWave[1](FALSE,Data1);
If data1(STime == 180000) Then
DBN = 0;
DBN = DBN + 1;
v1 = Period;
v2 = v1 - 1;
v3 = v1 - 2;
v5 = Sence;
v6 = data1(H-L);
JustChanged = FALSE;
if Data1(Index) >= Period Then
ci = ci+1;
if ci <= v2 then begin
Highs[ci] = Close;
Lows[ci] = Close;
RRange[ci] = (H-L) /2;
end;
if ci == v1 then begin
if Highs[v2] >= Highs[v3] then begin
UpWave[1] = TRUE;
HHighest = Highs[v2];
VLineUp = HHighest - (v5 * data1(MA(v6,v2)));
end;
if Highs[v2] < Highs[v3] then begin
DnWave[1] = TRUE;
LLowest = Lows[v2];
VLineDn = LLowest + (v5 * data1(MA(v6,v2)));
end;
end;
if CurrentBar > v1 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 - (v5 * data1(MA(v6,v2)));
VLineDn = LLowest + (v5 * data1(MA(v6,v2)));
if UpWave[1] then
t = 1;
else if DnWave[1] then
t= -1;
end;
BBDn = data1(BollBandDown(BBP1,Dv1));
BBUp = data1(BollBandUp(BBP1,Dv1));
bbmd = Data1(ma(C,BBP1));
BBDn2 = data2(BollBandDown(BBP2,Dv2));
BBUp2 = data2(BollBandUp(BBP2,Dv2));
bbmd2 = Data2(ma(C,BBP2));
mav2 = Data2(ma(C,P2));
if Data2(C>O) and
data2(bbup2-bbdn2 <= PriceScale*100) and
t == 1 and
C > bbmd Then
Buy("b");
if Data2(C<O) and
data2(bbup2-bbdn2 <= PriceScale*100) and
t == -1 and
C < bbmd Then
Sell("s");
if MarketPosition == 1 Then
{
if T != T[1] and T == -1 Then
ExitLong("bx1");
if Data1(CountIf(C<O,2)== 2 and C < L[1]) Then
ExitLong("bx2");
}
if MarketPosition == -1 Then
{
if T != T[1] and T == 1 Then
ExitShort("sx1");
if Data1(CountIf(C>O,2)== 2 and C > H[1]) Then
ExitShort("sx2");
}
안녕하세요
위식에서 청산기능 변경하려고 합니다.
손절 기능 삭제 매수 진입후 음봉발생 전봉의 저점 하락시 손절기능
매도 진입후 양봉발생 전봉의 고점 돌파시 손절기능
참조 80235글입니다.
답변 1
예스스탁 예스스탁 답변
2023-01-13 09:26:06
안녕하세요
예스스탁입니다.
Inputs : Period(20), Sence(1.5), CC_DN(Yellow);
Input : BBP1(20), dv1(2);
Input : BBP2(20), dv2(2);
input : P2(5);
var : BBdn(0,Data1),BBUp(0,Data1),bbmd(0,Data1);
var : BBdn2(0,Data2),BBUp2(0,Data2),bbmd2(0,Data2);
var : mav2(0,Data2),B(0,Data1),S(0,Data1),X(0,Data1);
Vars:
VLineUp(0,Data1),
VLineDn(0,Data1),
HHighest(0,Data1),
LLowest(0,Data1),
JustChanged(FALSE,Data1),
VLine(0,Data1), DBN(0,Data1);
var : ci(0,Data1),t(0,Data1),v1(0,Data1),v2(0,Data1),v3(0,Data1),v5(0,Data1),v6(0,Data1);
Array:
Highs[35](0,Data1),
Lows[35](0,Data1),
RRange[35](0,Data1),
UpWave[1](FALSE,Data1),
DnWave[1](FALSE,Data1);
If data1(STime == 180000) Then
DBN = 0;
DBN = DBN + 1;
v1 = Period;
v2 = v1 - 1;
v3 = v1 - 2;
v5 = Sence;
v6 = data1(H-L);
JustChanged = FALSE;
if Data1(Index) >= Period Then
ci = ci+1;
if ci <= v2 then begin
Highs[ci] = Close;
Lows[ci] = Close;
RRange[ci] = (H-L) /2;
end;
if ci == v1 then begin
if Highs[v2] >= Highs[v3] then begin
UpWave[1] = TRUE;
HHighest = Highs[v2];
VLineUp = HHighest - (v5 * data1(MA(v6,v2)));
end;
if Highs[v2] < Highs[v3] then begin
DnWave[1] = TRUE;
LLowest = Lows[v2];
VLineDn = LLowest + (v5 * data1(MA(v6,v2)));
end;
end;
if CurrentBar > v1 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 - (v5 * data1(MA(v6,v2)));
VLineDn = LLowest + (v5 * data1(MA(v6,v2)));
if UpWave[1] then
t = 1;
else if DnWave[1] then
t= -1;
end;
BBDn = data1(BollBandDown(BBP1,Dv1));
BBUp = data1(BollBandUp(BBP1,Dv1));
bbmd = Data1(ma(C,BBP1));
BBDn2 = data2(BollBandDown(BBP2,Dv2));
BBUp2 = data2(BollBandUp(BBP2,Dv2));
bbmd2 = Data2(ma(C,BBP2));
mav2 = Data2(ma(C,P2));
if Data2(C>O) and
data2(bbup2-bbdn2 <= PriceScale*100) and
t == 1 and
C > bbmd Then
Buy("b");
if Data2(C<O) and
data2(bbup2-bbdn2 <= PriceScale*100) and
t == -1 and
C < bbmd Then
Sell("s");
if MarketPosition == 1 Then
{
if T != T[1] and T == -1 Then
ExitLong("bx1");
}
if MarketPosition == -1 Then
{
if T != T[1] and T == 1 Then
ExitShort("sx1");
}
즐거운 하루되세요
> 아트정 님이 쓴 글입니다.
> 제목 : 식수정
>
Inputs : Period(20), Sence(1.5), CC_DN(Yellow);
Input : BBP1(20), dv1(2);
Input : BBP2(20), dv2(2);
input : P2(5);
var : BBdn(0,Data1),BBUp(0,Data1),bbmd(0,Data1);
var : BBdn2(0,Data2),BBUp2(0,Data2),bbmd2(0,Data2);
var : mav2(0,Data2),B(0,Data1),S(0,Data1),X(0,Data1);
Vars:
VLineUp(0,Data1),
VLineDn(0,Data1),
HHighest(0,Data1),
LLowest(0,Data1),
JustChanged(FALSE,Data1),
VLine(0,Data1), DBN(0,Data1);
var : ci(0,Data1),t(0,Data1),v1(0,Data1),v2(0,Data1),v3(0,Data1),v5(0,Data1),v6(0,Data1);
Array:
Highs[35](0,Data1),
Lows[35](0,Data1),
RRange[35](0,Data1),
UpWave[1](FALSE,Data1),
DnWave[1](FALSE,Data1);
If data1(STime == 180000) Then
DBN = 0;
DBN = DBN + 1;
v1 = Period;
v2 = v1 - 1;
v3 = v1 - 2;
v5 = Sence;
v6 = data1(H-L);
JustChanged = FALSE;
if Data1(Index) >= Period Then
ci = ci+1;
if ci <= v2 then begin
Highs[ci] = Close;
Lows[ci] = Close;
RRange[ci] = (H-L) /2;
end;
if ci == v1 then begin
if Highs[v2] >= Highs[v3] then begin
UpWave[1] = TRUE;
HHighest = Highs[v2];
VLineUp = HHighest - (v5 * data1(MA(v6,v2)));
end;
if Highs[v2] < Highs[v3] then begin
DnWave[1] = TRUE;
LLowest = Lows[v2];
VLineDn = LLowest + (v5 * data1(MA(v6,v2)));
end;
end;
if CurrentBar > v1 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 - (v5 * data1(MA(v6,v2)));
VLineDn = LLowest + (v5 * data1(MA(v6,v2)));
if UpWave[1] then
t = 1;
else if DnWave[1] then
t= -1;
end;
BBDn = data1(BollBandDown(BBP1,Dv1));
BBUp = data1(BollBandUp(BBP1,Dv1));
bbmd = Data1(ma(C,BBP1));
BBDn2 = data2(BollBandDown(BBP2,Dv2));
BBUp2 = data2(BollBandUp(BBP2,Dv2));
bbmd2 = Data2(ma(C,BBP2));
mav2 = Data2(ma(C,P2));
if Data2(C>O) and
data2(bbup2-bbdn2 <= PriceScale*100) and
t == 1 and
C > bbmd Then
Buy("b");
if Data2(C<O) and
data2(bbup2-bbdn2 <= PriceScale*100) and
t == -1 and
C < bbmd Then
Sell("s");
if MarketPosition == 1 Then
{
if T != T[1] and T == -1 Then
ExitLong("bx1");
if Data1(CountIf(C<O,2)== 2 and C < L[1]) Then
ExitLong("bx2");
}
if MarketPosition == -1 Then
{
if T != T[1] and T == 1 Then
ExitShort("sx1");
if Data1(CountIf(C>O,2)== 2 and C > H[1]) Then
ExitShort("sx2");
}
안녕하세요
위식에서 청산기능 변경하려고 합니다.
손절 기능 삭제 매수 진입후 음봉발생 전봉의 저점 하락시 손절기능
매도 진입후 양봉발생 전봉의 고점 돌파시 손절기능
참조 80235글입니다.
다음글
이전글