커뮤니티
부탁드립니다.
2020-06-29 21:00:41
1398
글번호 140253
#,68149에서 제가 설명이 부족했나 봅니다,
다시정정하면 현재파동이 완성되고 텍스트출력과 동시에 완성봉 종가를 Y축까지
오른쪽 그리기하면 좋겠습니다 단,오른쪽 추세선은 현재파동선과 바로 이전파동선
까지 2개만 표기하는식으로 다시한번부탁드립니다.
미리 감사드립니다.
답변 1
예스스탁 예스스탁 답변
2020-06-30 10:38:42
안녕하세요
예스스탁입니다.
input: period1(60),period2(20),period3(5), 선두께(2),선두께2(2),상승색(WHITE),하락색(cyan);
Var:j1(0),J2(0),J3(0),T1(0),T2(0),T3(0);
Var: date11(0),time11(0),date12(0),time12(0);
Var: TL1(0), TL2(0),TL21(0),TL22(0),Tx1(0),Tx2(0);
Array:HiVal1[20](0),LoVal1[20](0),HiBar1[20](0),LoBar1[20](0);
Array:HiVal2[20](0),LoVal2[20](0),HiBar2[20](0),LoBar2[20](0);
Array:HiVal3[20](0),LoVal3[20](0),HiBar3[20](0),LoBar3[20](0);
Array:r[7](0),fr[7](0);
var : tl3(0),tl31(0),tl32(0),tl33(0);
For j1 = 0 To 19
{
HiBar1[j1] = HiBar1[j1] + 1;
LoBar1[j1] = LoBar1[j1] + 1;
}
if crossup(c,highest(c,Period1)[1]) Then
{
T1 = 1;
}
if CrossDown(c,Lowest(c,Period1)[1]) Then
{
T1 = -1;
}
If T1 == -1 Then
{
If T1[1] != -1 Then
{
For j1 = 18 DownTo 0
{
LoVal1[j1+1] = LoVal1[j1];
LoBar1[j1+1] = LoBar1[j1];
}
LoVal1[0] = close;
LoBar1[0] = 0;
date11 = date[HiBar1[0]];
time11 = stime[HiBar1[0]];
Value11 = HiVal1[0];
date12 = date[LoBar1[0]];
time12 = stime[LoBar1[0]];
Value12 = LoVal1[0];
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetColor(TL1,하락색);
TL_SetSize(TL1,선두께);
Tx1 = Text_New(date12,time12,Value12,"▲");
Text_SetColor(Tx1,MAGENTA);
Text_SetStyle(Tx1,2,0);
Text_SetSize(tx1,15);
tx2 = Text_New(date12,time12,Value12,NewLine+NumToStr(value12,2));
Text_SetStyle(tx2,2,0);
Text_SetSize(tx2,13);
Text_SetColor(Tx2,MAGENTA);
TL2 = TL_New(date11,time11,(Value11+value12)/2,date12,time12,(value11+Value12)/2);
TL_SetExtRight(TL2,true);
TL_SetSize(TL2,선두께2);
TL_SetColor(tl2,CYAN);
TL21 = TL2[1];
TL22 = TL21[1];
TL_Delete(TL22);
TL3 = TL_New(date12,time12,value12,NextBarSdate,NextBarStime,Value12);
TL_SetExtRight(TL3,true);
TL_SetSize(TL3,선두께2);
TL_SetColor(tl3,CYAN);
TL31 = TL3[1];
TL32 = TL31[1];
TL_Delete(TL32);
}
If LoVal1[0] > close Then
{
LoVal1[0] = close;
LoBar1[0] = 0;
date12 = date[LoBar1[0]];
time12 = stime[LoBar1[0]];
Value12 = LoVal1[0];
TL_SetEnd(TL1, date12,time12,Value12);
Text_SetLocation(Tx1,date12,time12,value12);
Text_SetString(tx2,NewLine+NumToStr(value12,2));
Text_SetLocation(Tx2,date12,time12,value12);
TL_SetBegin(TL2,date11,time11,(value11+value12)/2);
TL_Setend(TL2,date12,time12,(value11+value12)/2);
TL_SetBegin(TL3,sdate,stime,value12);
TL_SetEnd(TL3,NextBarSdate,NextBarStime,value12);
TL_SetExtRight(TL3,true);
}
}
If T1 == 1 Then
{
If T1[1] != 1 Then
{
For j1 = 18 DownTo 0
{
HiVal1[j1+1] = HiVal1[j1];
HiBar1[j1+1] = HiBar1[j1];
}
HiVal1[0] = close;
HiBar1[0] = 0;
date11 = date[LoBar1[0]];
time11 = stime[LoBar1[0]];
Value11 = LoVal1[0];
date12 = date[HiBar1[0]];
time12 = stime[HiBar1[0]];
Value12 = HiVal1[0];
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetColor(TL1,상승색);
TL_SetSize(TL1,선두께);
Tx1 = Text_New(date12,time12,Value12,"▼");
Text_SetColor(Tx1,blue);
Text_SetStyle(Tx1,2,1);
Text_SetSize(tx1,15);
tx2 = Text_New(date12,time12,Value12,NewLine+NumToStr(value12,2));
Text_SetStyle(tx2,2,1);
Text_SetSize(tx2,13);
Text_SetColor(Tx2,blue);
TL2 = TL_New(date11,time11,(Value11+value12)/2,date12,time12,(value11+Value12)/2);
TL_SetExtRight(TL2,true);
TL_SetSize(TL2,선두께2);
TL_SetColor(tl2,WHITE);
TL21 = TL2[1];
TL22 = TL21[1];
TL_Delete(TL22);
TL3 = TL_New(date12,time12,value12,NextBarSdate,NextBarStime,Value12);
TL_SetExtRight(TL3,true);
TL_SetSize(TL3,선두께2);
TL_SetColor(tl3,WHITE);
TL31 = TL3[1];
TL32 = TL31[1];
TL_Delete(TL32);
}
If HiVal1[0] < close Then
{
HiVal1[0] = close;
HiBar1[0] = 0;
date12 = date[HiBar1[0]];
time12 = stime[HiBar1[0]];
Value12 = HiVal1[0];
TL_SetEnd(TL1, date12,time12,Value12);
Text_SetLocation(Tx1,date12,time12,value12);
Text_SetString(tx2,NumToStr(value12,2)+NewLine);
Text_SetLocation(Tx2,date12,time12,value12);
TL_SetBegin(TL2,date11,time11,(value11+value12)/2);
TL_SetEnd(TL2,date12,time12,(value11+value12)/2);
TL_SetBegin(TL3,sdate,stime,value12);
TL_SetEnd(TL3,NextBarSdate,NextBarStime,value12);
TL_SetExtRight(TL3,true);
}
}
TL_SetSize(tL1,선두께);
즐거운 하루되세요
> 골든키 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> #,68149에서 제가 설명이 부족했나 봅니다,
다시정정하면 현재파동이 완성되고 텍스트출력과 동시에 완성봉 종가를 Y축까지
오른쪽 그리기하면 좋겠습니다 단,오른쪽 추세선은 현재파동선과 바로 이전파동선
까지 2개만 표기하는식으로 다시한번부탁드립니다.
미리 감사드립니다.