커뮤니티
수식수정 부탁드립니다.
2021-09-27 05:59:11
1333
글번호 152458
첨부 이미지
그림1
Inputs: 카운팅시작일자(20210910), 카운팅시작시간(070000),Period(112);
var : cnt(0),Tcond(false);
var : hh(0),ll(0),tl11(0),tl12(0),tl21(0),tl22(0);
if sdate >= 카운팅시작일자 and stime >= 카운팅시작시간 Then
Tcond = true;
if Tcond == true Then
{
if (sdate != sdate[1] and stime >= 카운팅시작시간) or
(sdate == sdate[1] and stime >= 카운팅시작시간 and stime[1] < 카운팅시작시간) Then
Variables: BullP(0), BearP(0);
BullP = (HIGH - ma(Close,Period));
BearP = (LOW - ma(Close,Period));
if BullP>0 then
{
var1 = BullP;
}
Else
{
var2 = BearP;
}
Var3=bullp;
Var4=-bearp;
plot1(Var3,"1",iff(Var3<>0,REd,BLUe));
plot2(Var4,"2",iff(Var4<>0,BLUe,REd));
PlotBaseLine1(0, "중심",black);
if Bdate != Bdate[1] Then
{
hh = BullP;
LL = BearP;
tl11 = TL_New(sDate,sTime,99999999,sDate,sTime,0);
TL_SetColor(tl11,YELLOW);
TL12 = TL_New_Self(sDate,sTime,99999999,sDate,sTime,0);
TL_SetColor(TL12,YELLOW);
TL21 = TL_New(sDate,sTime,99999999,sDate,sTime,0);
TL_SetColor(TL21,GREEN);
TL22 = TL_New_Self(sDate,sTime,99999999,sDate,sTime,0);
TL_SetColor(TL22,GREEN);
}
Else
{
if BullP > hh Then
{
hh = BullP;
TL_SetBegin(TL11,sdate,sTime,99999999);
TL_SetEnd(TL11,sdate,sTime,-99999999);
TL_SetBegin(TL12,sdate,sTime,99999999);
TL_SetEnd(TL12,sdate,sTime,-99999999);
TL_SetColor(TL11,YELLOW);
}
if BearP< ll Then
{
ll = BearP;
TL_SetBegin(TL21,sdate,sTime,99999999);
TL_SetEnd(TL21,sdate,sTime,-99999999);
TL_SetBegin(TL22,sdate,sTime,99999999);
TL_SetEnd(TL22,sdate,sTime,-99999999);
TL_SetColor(TL21,GREEN);
}
}}
상기 수식에서 bullp-bearp=결과값을 PlotBaseLine1(0, "중심",black); 기준으로 오실레이터로 나타내고싶습니다. 수고하세요!!
- 1. 153202_캡처.JPG (0.03 MB)
답변 1
예스스탁 예스스탁 답변
2021-09-27 11:02:37
안녕하세요
예스스탁입니다.
inputs: 카운팅시작일자(20210910), 카운팅시작시간(070000),Period(112);
var : cnt(0),Tcond(false);
var : hh(0),ll(0),tl11(0),tl12(0),tl21(0),tl22(0);
if sdate >= 카운팅시작일자 and stime >= 카운팅시작시간 Then
Tcond = true;
if Tcond == true Then
{
if (sdate != sdate[1] and stime >= 카운팅시작시간) or
(sdate == sdate[1] and stime >= 카운팅시작시간 and stime[1] < 카운팅시작시간) Then
Variables: BullP(0), BearP(0);
BullP = (HIGH - ma(Close,Period));
BearP = (LOW - ma(Close,Period));
if BullP>0 then
{
var1 = BullP;
}
Else
{
var2 = BearP;
}
Var3=bullp;
Var4=-bearp;
plot1(Var3,"1",iff(Var3<>0,REd,BLUe));
plot2(Var4,"2",iff(Var4<>0,BLUe,REd));
plot3(var3-Var4,"osc",iff(Var4<>0,BLUe,REd));
PlotBaseLine1(0, "중심",black);
if Bdate != Bdate[1] Then
{
hh = BullP;
LL = BearP;
tl11 = TL_New(sDate,sTime,99999999,sDate,sTime,0);
TL_SetColor(tl11,YELLOW);
TL12 = TL_New_Self(sDate,sTime,99999999,sDate,sTime,0);
TL_SetColor(TL12,YELLOW);
TL21 = TL_New(sDate,sTime,99999999,sDate,sTime,0);
TL_SetColor(TL21,GREEN);
TL22 = TL_New_Self(sDate,sTime,99999999,sDate,sTime,0);
TL_SetColor(TL22,GREEN);
}
Else
{
if BullP > hh Then
{
hh = BullP;
TL_SetBegin(TL11,sdate,sTime,99999999);
TL_SetEnd(TL11,sdate,sTime,-99999999);
TL_SetBegin(TL12,sdate,sTime,99999999);
TL_SetEnd(TL12,sdate,sTime,-99999999);
TL_SetColor(TL11,YELLOW);
}
if BearP< ll Then
{
ll = BearP;
TL_SetBegin(TL21,sdate,sTime,99999999);
TL_SetEnd(TL21,sdate,sTime,-99999999);
TL_SetBegin(TL22,sdate,sTime,99999999);
TL_SetEnd(TL22,sdate,sTime,-99999999);
TL_SetColor(TL21,GREEN);
}
}}
즐거운 하루되세요
> 수색대대 님이 쓴 글입니다.
> 제목 : 수식수정 부탁드립니다.
> Inputs: 카운팅시작일자(20210910), 카운팅시작시간(070000),Period(112);
var : cnt(0),Tcond(false);
var : hh(0),ll(0),tl11(0),tl12(0),tl21(0),tl22(0);
if sdate >= 카운팅시작일자 and stime >= 카운팅시작시간 Then
Tcond = true;
if Tcond == true Then
{
if (sdate != sdate[1] and stime >= 카운팅시작시간) or
(sdate == sdate[1] and stime >= 카운팅시작시간 and stime[1] < 카운팅시작시간) Then
Variables: BullP(0), BearP(0);
BullP = (HIGH - ma(Close,Period));
BearP = (LOW - ma(Close,Period));
if BullP>0 then
{
var1 = BullP;
}
Else
{
var2 = BearP;
}
Var3=bullp;
Var4=-bearp;
plot1(Var3,"1",iff(Var3<>0,REd,BLUe));
plot2(Var4,"2",iff(Var4<>0,BLUe,REd));
PlotBaseLine1(0, "중심",black);
if Bdate != Bdate[1] Then
{
hh = BullP;
LL = BearP;
tl11 = TL_New(sDate,sTime,99999999,sDate,sTime,0);
TL_SetColor(tl11,YELLOW);
TL12 = TL_New_Self(sDate,sTime,99999999,sDate,sTime,0);
TL_SetColor(TL12,YELLOW);
TL21 = TL_New(sDate,sTime,99999999,sDate,sTime,0);
TL_SetColor(TL21,GREEN);
TL22 = TL_New_Self(sDate,sTime,99999999,sDate,sTime,0);
TL_SetColor(TL22,GREEN);
}
Else
{
if BullP > hh Then
{
hh = BullP;
TL_SetBegin(TL11,sdate,sTime,99999999);
TL_SetEnd(TL11,sdate,sTime,-99999999);
TL_SetBegin(TL12,sdate,sTime,99999999);
TL_SetEnd(TL12,sdate,sTime,-99999999);
TL_SetColor(TL11,YELLOW);
}
if BearP< ll Then
{
ll = BearP;
TL_SetBegin(TL21,sdate,sTime,99999999);
TL_SetEnd(TL21,sdate,sTime,-99999999);
TL_SetBegin(TL22,sdate,sTime,99999999);
TL_SetEnd(TL22,sdate,sTime,-99999999);
TL_SetColor(TL21,GREEN);
}
}}
상기 수식에서 bullp-bearp=결과값을 PlotBaseLine1(0, "중심",black); 기준으로 오실레이터로 나타내고싶습니다. 수고하세요!!
다음글
이전글