답변완료
부탁드립니다.
$,수고하십니다
아래식에서 최근 2개 파동완성봉 종가를 Y축까지 오른쪽 수평그리기로 추가하고
싶습니다,도움 부탁드립니다,
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);
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);
}
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);
}
}
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);
}
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_SetSize(tL1,선두께);
$$,고맙습니다.
2020-06-28
974
글번호 140205
지표