커뮤니티
부탁드립니다
2021-07-29 09:04:27
1355
글번호 151176
#,안녕하세요
아래식에서 "◈"신호가 최종 확정된봉의 시가,종가를 다음신호 나올때까지 오른쪽
그리기(Plot) 추가식 요청드립니다.
$도움주심에 고맙습니다.
input : period(14),크기(0);
var : ADXv(0),DP(0),DM(0),TX(0),HH(0),TX1(0),TX2(0),TX3(0),TX4(0);
ADXv = ADX(Period);
DP = DiPlus(Period);
DM = DiMinus(Period);
plot1(ADXv,"ADX");
plot2(DP,"+DI");
plot3(DM,"-DI");
PlotBaseLine1(25, "기준선25");
PlotBaseLine3(50, "기준선50");
if ADXV >= 50 Then
{
if HH == 0 or (HH > 0 and ADXV > HH) Then
{
HH = ADXV;
if DP < DM Then
{
var1 = var1+1;
if var1 == 1 Then
tx3 = Text_New(sDate,sTime,L,"◈");
Else
Text_SetLocation(tx3,sDate,sTime,L);
Text_SetStyle(tx3,2,0);
Text_SetColor(tx3,MAGENTA);
Text_SetSize(tx3,크기);
PlaySound("C:예스트레이더dataSound1point.wav");
}
if DP > DM Then
{
Var2 = Var2+1;
if Var2 == 1 Then
tx4 = Text_New(sDate,sTime,H,"◈");
Else
Text_SetLocation(tx4,sDate,sTime,H);
Text_SetStyle(tx4,2,1);
Text_SetColor(tx4,BLUE);
Text_SetSize(tx4,크기);
PlaySound("C:예스트레이더dataSound1point.wav");
}
}
}
Else
{
HH = 0;
var1 = 0;
Var2 = 0;
}
답변 3
예스스탁 예스스탁 답변
2021-07-29 11:11:41
안녕하세요
예스스탁입니다.
input : period(14),크기(0);
var : TL1(0),TL2(0);
var : ADXv(0),DP(0),DM(0),TX(0),HH(0),TX1(0),TX2(0),TX3(0),TX4(0);
ADXv = ADX(Period);
DP = DiPlus(Period);
DM = DiMinus(Period);
plot1(ADXv,"ADX");
plot2(DP,"+DI");
plot3(DM,"-DI");
PlotBaseLine1(25, "기준선25");
PlotBaseLine3(50, "기준선50");
if ADXV >= 50 Then
{
if HH == 0 or (HH > 0 and ADXV > HH) Then
{
HH = ADXV;
if DP < DM Then
{
var1 = var1+1;
if var1 == 1 Then
{
tx3 = Text_New(sDate,sTime,L,"◈");
Text_SetStyle(tx3,2,0);
value1 = O;
value2 = C;
TL1 = TL_New(sDate,sTime,value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_New(sDate,sTime,value2,NextBarSdate,NextBarStime,value2);
}
Else
{
Text_SetLocation(tx3,sDate,sTime,L);
value1 = O;
value2 = C;
TL_SetBegin(TL1,sDate,sTime,value1);
TL_SetBegin(TL2,sDate,sTime,value2);
}
Text_SetStyle(tx3,2,0);
Text_SetColor(tx3,MAGENTA);
Text_SetSize(tx3,크기);
TL_SetColor(TL1,MAGENTA);
TL_SetColor(TL2,MAGENTA);
PlaySound("C:예스트레이더dataSound1point.wav");
}
if DP > DM Then
{
Var2 = Var2+1;
if Var2 == 1 Then
{
tx4 = Text_New(sDate,sTime,H,"◈");
Text_SetStyle(tx4,2,1);
value1 = O;
value2 = C;
TL1 = TL_New(sDate,sTime,value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_New(sDate,sTime,value2,NextBarSdate,NextBarStime,value2);
}
Else
{
Text_SetLocation(tx4,sDate,sTime,H);
value1 = O;
value2 = C;
TL_SetBegin(TL1,sDate,sTime,value1);
TL_SetBegin(TL2,sDate,sTime,value2);
}
Text_SetStyle(tx4,2,1);
Text_SetColor(tx4,BLUE);
Text_SetSize(tx4,크기);
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
PlaySound("C:예스트레이더dataSound1point.wav");
}
}
}
Else
{
HH = 0;
var1 = 0;
Var2 = 0;
}
if value1 > 0 and value2 > 0 Then
{
TL_SetEnd(TL1,sDate,sTime,value1);
TL_SetEnd(TL2,sDate,sTime,value2);
}
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : 부탁드립니다
> #,안녕하세요
아래식에서 "◈"신호가 최종 확정된봉의 시가,종가를 다음신호 나올때까지 오른쪽
그리기(Plot) 추가식 요청드립니다.
$도움주심에 고맙습니다.
input : period(14),크기(0);
var : ADXv(0),DP(0),DM(0),TX(0),HH(0),TX1(0),TX2(0),TX3(0),TX4(0);
ADXv = ADX(Period);
DP = DiPlus(Period);
DM = DiMinus(Period);
plot1(ADXv,"ADX");
plot2(DP,"+DI");
plot3(DM,"-DI");
PlotBaseLine1(25, "기준선25");
PlotBaseLine3(50, "기준선50");
if ADXV >= 50 Then
{
if HH == 0 or (HH > 0 and ADXV > HH) Then
{
HH = ADXV;
if DP < DM Then
{
var1 = var1+1;
if var1 == 1 Then
tx3 = Text_New(sDate,sTime,L,"◈");
Else
Text_SetLocation(tx3,sDate,sTime,L);
Text_SetStyle(tx3,2,0);
Text_SetColor(tx3,MAGENTA);
Text_SetSize(tx3,크기);
PlaySound("C:예스트레이더dataSound1point.wav");
}
if DP > DM Then
{
Var2 = Var2+1;
if Var2 == 1 Then
tx4 = Text_New(sDate,sTime,H,"◈");
Else
Text_SetLocation(tx4,sDate,sTime,H);
Text_SetStyle(tx4,2,1);
Text_SetColor(tx4,BLUE);
Text_SetSize(tx4,크기);
PlaySound("C:예스트레이더dataSound1point.wav");
}
}
}
Else
{
HH = 0;
var1 = 0;
Var2 = 0;
}
크라켄
2021-07-30 07:52:39
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁드립니다
>
안녕하세요
예스스탁입니다.
input : period(14),크기(0);
var : TL1(0),TL2(0);
var : ADXv(0),DP(0),DM(0),TX(0),HH(0),TX1(0),TX2(0),TX3(0),TX4(0);
ADXv = ADX(Period);
DP = DiPlus(Period);
DM = DiMinus(Period);
plot1(ADXv,"ADX");
plot2(DP,"+DI");
plot3(DM,"-DI");
PlotBaseLine1(25, "기준선25");
PlotBaseLine3(50, "기준선50");
if ADXV >= 50 Then
{
if HH == 0 or (HH > 0 and ADXV > HH) Then
{
HH = ADXV;
if DP < DM Then
{
var1 = var1+1;
if var1 == 1 Then
{
tx3 = Text_New(sDate,sTime,L,"◈");
Text_SetStyle(tx3,2,0);
value1 = O;
value2 = C;
TL1 = TL_New(sDate,sTime,value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_New(sDate,sTime,value2,NextBarSdate,NextBarStime,value2);
}
Else
{
Text_SetLocation(tx3,sDate,sTime,L);
value1 = O;
value2 = C;
TL_SetBegin(TL1,sDate,sTime,value1);
TL_SetBegin(TL2,sDate,sTime,value2);
}
Text_SetStyle(tx3,2,0);
Text_SetColor(tx3,MAGENTA);
Text_SetSize(tx3,크기);
TL_SetColor(TL1,MAGENTA);
TL_SetColor(TL2,MAGENTA);
PlaySound("C:예스트레이더dataSound1point.wav");
}
if DP > DM Then
{
Var2 = Var2+1;
if Var2 == 1 Then
{
tx4 = Text_New(sDate,sTime,H,"◈");
Text_SetStyle(tx4,2,1);
value1 = O;
value2 = C;
TL1 = TL_New(sDate,sTime,value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_New(sDate,sTime,value2,NextBarSdate,NextBarStime,value2);
}
Else
{
Text_SetLocation(tx4,sDate,sTime,H);
value1 = O;
value2 = C;
TL_SetBegin(TL1,sDate,sTime,value1);
TL_SetBegin(TL2,sDate,sTime,value2);
}
Text_SetStyle(tx4,2,1);
Text_SetColor(tx4,BLUE);
Text_SetSize(tx4,크기);
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
PlaySound("C:예스트레이더dataSound1point.wav");
}
}
}
Else
{
HH = 0;
var1 = 0;
Var2 = 0;
}
if value1 > 0 and value2 > 0 Then
{
TL_SetEnd(TL1,sDate,sTime,value1);
TL_SetEnd(TL2,sDate,sTime,value2);
}
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : 부탁드립니다
> #,안녕하세요
아래식에서 "◈"신호가 최종 확정된봉의 시가,종가를 다음신호 나올때까지 오른쪽
그리기(Plot) 추가식 요청드립니다.
$도움주심에 고맙습니다.
input : period(14),크기(0);
var : ADXv(0),DP(0),DM(0),TX(0),HH(0),TX1(0),TX2(0),TX3(0),TX4(0);
ADXv = ADX(Period);
DP = DiPlus(Period);
DM = DiMinus(Period);
plot1(ADXv,"ADX");
plot2(DP,"+DI");
plot3(DM,"-DI");
PlotBaseLine1(25, "기준선25");
PlotBaseLine3(50, "기준선50");
if ADXV >= 50 Then
{
if HH == 0 or (HH > 0 and ADXV > HH) Then
{
HH = ADXV;
if DP < DM Then
{
var1 = var1+1;
if var1 == 1 Then
tx3 = Text_New(sDate,sTime,L,"◈");
Else
Text_SetLocation(tx3,sDate,sTime,L);
Text_SetStyle(tx3,2,0);
Text_SetColor(tx3,MAGENTA);
Text_SetSize(tx3,크기);
PlaySound("C:예스트레이더dataSound1point.wav");
}
if DP > DM Then
{
Var2 = Var2+1;
if Var2 == 1 Then
tx4 = Text_New(sDate,sTime,H,"◈");
Else
Text_SetLocation(tx4,sDate,sTime,H);
Text_SetStyle(tx4,2,1);
Text_SetColor(tx4,BLUE);
Text_SetSize(tx4,크기);
PlaySound("C:예스트레이더dataSound1point.wav");
}
}
}
Else
{
HH = 0;
var1 = 0;
Var2 = 0;
}
mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
$,수식감사합니다, 한가지 아쉬운점이 있어서 다시요청드립니다
시가,종가를오른쪽 그리기할때 다음신호나올때까지라고 한내용은 같은신호가 나올때
까지를 말씀드린겁니다,예를들면 첨부그림파일1,2번처럼 '블루'다이아몬드신호봉의
시가,종가선은 '불루'다이아몬드 신호가 나올때까지 그리기한다는 말입니다(중간에
'레드'다이아몬드 신호가나오는것은 무시하고 현재가까지 그리기),추가로 그림파일처럼
ADX고점값(그림1,2,3)과 봉의시가(그림4,5)를 Text출력하면 대단히 감사하겠습니다
다시한번 고맙습니다.
#,첨부사진파일참조바랍니다.
예스스탁 예스스탁 답변
2021-07-30 10:05:36
안녕하세요
예스스탁입니다.
input : period(14),크기(0);
var : TL1(0),TL2(0),TL3(0),TL4(0);
var : ADXv(0),DP(0),DM(0),TX(0),HH(0),TX3(0),TX4(0),TX33(0),TX44(0);
ADXv = ADX(Period);
DP = DiPlus(Period);
DM = DiMinus(Period);
plot1(ADXv,"ADX");
plot2(DP,"+DI");
plot3(DM,"-DI");
PlotBaseLine1(25, "기준선25");
PlotBaseLine3(50, "기준선50");
if ADXV >= 50 Then
{
if HH == 0 or (HH > 0 and ADXV > HH) Then
{
HH = ADXV;
if DP < DM Then
{
var1 = var1+1;
if var1 == 1 Then
{
tx3 = Text_New(sDate,sTime,L,"◈"+NumToStr(HH,2));
Text_SetStyle(tx3,2,0);
value1 = O;
value2 = C;
TL1 = TL_New(sDate,sTime,value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_New(sDate,sTime,value2,NextBarSdate,NextBarStime,value2);
tx33 = Text_New(sDate,sTime,L,"O:"+NumToStr(value1,2));
Text_SetStyle(tx33,2,1);
}
Else
{
Text_SetLocation(tx3,sDate,sTime,L);
value1 = O;
value2 = C;
TL_SetBegin(TL1,sDate,sTime,value1);
TL_SetBegin(TL2,sDate,sTime,value2);
}
Text_SetStyle(tx3,2,0);
Text_SetColor(tx3,MAGENTA);
Text_SetSize(tx3,크기);
TL_SetColor(TL1,MAGENTA);
TL_SetColor(TL2,MAGENTA);
Text_SetColor(tx33,MAGENTA);
PlaySound("C:예스트레이더dataSound1point.wav");
}
if DP > DM Then
{
Var2 = Var2+1;
if Var2 == 1 Then
{
tx4 = Text_New(sDate,sTime,H,"◈"+NumToStr(HH,2));
Text_SetStyle(tx4,2,1);
value3 = O;
value4 = C;
TL3 = TL_New(sDate,sTime,value3,NextBarSdate,NextBarStime,value3);
TL4 = TL_New(sDate,sTime,value4,NextBarSdate,NextBarStime,value4);
tx44 = Text_New(sDate,sTime,L,"O:"+NumToStr(value3,2));
Text_SetStyle(tx44,2,1);
}
Else
{
Text_SetLocation(tx4,sDate,sTime,H);
value3 = O;
value4 = C;
TL_SetBegin(TL3,sDate,sTime,value3);
TL_SetBegin(TL4,sDate,sTime,value4);
}
Text_SetStyle(tx4,2,1);
Text_SetColor(tx4,BLUE);
Text_SetSize(tx4,크기);
TL_SetColor(TL3,BLUE);
TL_SetColor(TL4,BLUE);
Text_SetColor(tx44,BLUE);
PlaySound("C:예스트레이더dataSound1point.wav");
}
}
}
Else
{
HH = 0;
var1 = 0;
Var2 = 0;
}
if value1 > 0 and value2 > 0 Then
{
TL_SetEnd(TL1,sDate,sTime,value1);
TL_SetEnd(TL2,sDate,sTime,value2);
Text_SetLocation(tx33,sDate,sTime,value1);
}
if value3 > 0 and value4 > 0 Then
{
TL_SetEnd(TL3,sDate,sTime,value3);
TL_SetEnd(TL4,sDate,sTime,value4);
Text_SetLocation(tx44,sDate,sTime,value3);
}
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : Re : Re : 부탁드립니다
> > 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁드립니다
>
안녕하세요
예스스탁입니다.
input : period(14),크기(0);
var : TL1(0),TL2(0);
var : ADXv(0),DP(0),DM(0),TX(0),HH(0),TX1(0),TX2(0),TX3(0),TX4(0);
ADXv = ADX(Period);
DP = DiPlus(Period);
DM = DiMinus(Period);
plot1(ADXv,"ADX");
plot2(DP,"+DI");
plot3(DM,"-DI");
PlotBaseLine1(25, "기준선25");
PlotBaseLine3(50, "기준선50");
if ADXV >= 50 Then
{
if HH == 0 or (HH > 0 and ADXV > HH) Then
{
HH = ADXV;
if DP < DM Then
{
var1 = var1+1;
if var1 == 1 Then
{
tx3 = Text_New(sDate,sTime,L,"◈");
Text_SetStyle(tx3,2,0);
value1 = O;
value2 = C;
TL1 = TL_New(sDate,sTime,value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_New(sDate,sTime,value2,NextBarSdate,NextBarStime,value2);
}
Else
{
Text_SetLocation(tx3,sDate,sTime,L);
value1 = O;
value2 = C;
TL_SetBegin(TL1,sDate,sTime,value1);
TL_SetBegin(TL2,sDate,sTime,value2);
}
Text_SetStyle(tx3,2,0);
Text_SetColor(tx3,MAGENTA);
Text_SetSize(tx3,크기);
TL_SetColor(TL1,MAGENTA);
TL_SetColor(TL2,MAGENTA);
PlaySound("C:예스트레이더dataSound1point.wav");
}
if DP > DM Then
{
Var2 = Var2+1;
if Var2 == 1 Then
{
tx4 = Text_New(sDate,sTime,H,"◈");
Text_SetStyle(tx4,2,1);
value1 = O;
value2 = C;
TL1 = TL_New(sDate,sTime,value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_New(sDate,sTime,value2,NextBarSdate,NextBarStime,value2);
}
Else
{
Text_SetLocation(tx4,sDate,sTime,H);
value1 = O;
value2 = C;
TL_SetBegin(TL1,sDate,sTime,value1);
TL_SetBegin(TL2,sDate,sTime,value2);
}
Text_SetStyle(tx4,2,1);
Text_SetColor(tx4,BLUE);
Text_SetSize(tx4,크기);
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
PlaySound("C:예스트레이더dataSound1point.wav");
}
}
}
Else
{
HH = 0;
var1 = 0;
Var2 = 0;
}
if value1 > 0 and value2 > 0 Then
{
TL_SetEnd(TL1,sDate,sTime,value1);
TL_SetEnd(TL2,sDate,sTime,value2);
}
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : 부탁드립니다
> #,안녕하세요
아래식에서 "◈"신호가 최종 확정된봉의 시가,종가를 다음신호 나올때까지 오른쪽
그리기(Plot) 추가식 요청드립니다.
$도움주심에 고맙습니다.
input : period(14),크기(0);
var : ADXv(0),DP(0),DM(0),TX(0),HH(0),TX1(0),TX2(0),TX3(0),TX4(0);
ADXv = ADX(Period);
DP = DiPlus(Period);
DM = DiMinus(Period);
plot1(ADXv,"ADX");
plot2(DP,"+DI");
plot3(DM,"-DI");
PlotBaseLine1(25, "기준선25");
PlotBaseLine3(50, "기준선50");
if ADXV >= 50 Then
{
if HH == 0 or (HH > 0 and ADXV > HH) Then
{
HH = ADXV;
if DP < DM Then
{
var1 = var1+1;
if var1 == 1 Then
tx3 = Text_New(sDate,sTime,L,"◈");
Else
Text_SetLocation(tx3,sDate,sTime,L);
Text_SetStyle(tx3,2,0);
Text_SetColor(tx3,MAGENTA);
Text_SetSize(tx3,크기);
PlaySound("C:예스트레이더dataSound1point.wav");
}
if DP > DM Then
{
Var2 = Var2+1;
if Var2 == 1 Then
tx4 = Text_New(sDate,sTime,H,"◈");
Else
Text_SetLocation(tx4,sDate,sTime,H);
Text_SetStyle(tx4,2,1);
Text_SetColor(tx4,BLUE);
Text_SetSize(tx4,크기);
PlaySound("C:예스트레이더dataSound1point.wav");
}
}
}
Else
{
HH = 0;
var1 = 0;
Var2 = 0;
}
mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
$,수식감사합니다, 한가지 아쉬운점이 있어서 다시요청드립니다
시가,종가를오른쪽 그리기할때 다음신호나올때까지라고 한내용은 같은신호가 나올때
까지를 말씀드린겁니다,예를들면 첨부그림파일1,2번처럼 '블루'다이아몬드신호봉의
시가,종가선은 '불루'다이아몬드 신호가 나올때까지 그리기한다는 말입니다(중간에
'레드'다이아몬드 신호가나오는것은 무시하고 현재가까지 그리기),추가로 그림파일처럼
ADX고점값(그림1,2,3)과 봉의시가(그림4,5)를 Text출력하면 대단히 감사하겠습니다
다시한번 고맙습니다.
#,첨부사진파일참조바랍니다.
다음글