커뮤니티
부탁드립니다.
2020-07-03 16:56:51
2476
글번호 140384
#,첨부파일처럼 1번추세선 추가해서 현재파동까지 3개 수평추세선을 표시하고싶습니다
도움부탁드려요,번거롭게해서 죄송합니다,
input: period1(60),period2(20),period3(5), 선두께(2),선두께2(2),상승색(WHITE),하락색(cyan),고저수평(0);
Var:j1(0),J2(0),J3(0),T1(0),T2(0),T3(0);
Var: date11(0),time11(0),date12(0),time12(0),date13(0),time13(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),tl4(0),tl41(0),tl42(0),tl43(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];
date13 = date[LoBar1[0]];
time13 = stime[LoBar1[0]];
Value13 = 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,15);
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,고저수평);
TL_SetColor(tl3,RED);
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);
PlaySound("C:예스트레이더dataSound1point.wav");
tx2 = Text_New(date12,time12,Value12,NewLine+NumToStr(value12,2));
Text_SetStyle(tx2,2,1);
Text_SetSize(tx2,15);
Text_SetColor(Tx2,blue);
PlaySound("C:예스트레이더dataSound1point.wav");
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,고저수평);
TL_SetColor(tl3,BLUE);
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);
}
}
답변 1
예스스탁 예스스탁 답변
2020-07-03 16:11:04
안녕하세요
예스스탁입니다.
input: period1(60),period2(20),period3(5), 선두께(2),선두께2(2),상승색(WHITE),하락색(cyan),고저수평(0);
Var:j1(0),J2(0),J3(0),T1(0),T2(0),T3(0);
Var: date11(0),time11(0),date12(0),time12(0),date13(0),time13(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),tl4(0),tl41(0),tl42(0),tl43(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];
date13 = date[LoBar1[0]];
time13 = stime[LoBar1[0]];
Value13 = 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,15);
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,고저수평);
TL_SetColor(tl3,RED);
TL31 = TL3[1];
TL32 = TL31[1];
TL33 = TL32[1];
TL_Delete(TL33);
}
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);
PlaySound("C:예스트레이더dataSound1point.wav");
tx2 = Text_New(date12,time12,Value12,NewLine+NumToStr(value12,2));
Text_SetStyle(tx2,2,1);
Text_SetSize(tx2,15);
Text_SetColor(Tx2,blue);
PlaySound("C:예스트레이더dataSound1point.wav");
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,고저수평);
TL_SetColor(tl3,BLUE);
TL31 = TL3[1];
TL32 = TL31[1];
TL33 = TL32[1];
TL_Delete(TL33);
}
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);
}
}
즐거운 하루되세요
> 골든키 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> #,첨부파일처럼 1번추세선 추가해서 현재파동까지 3개 수평추세선을 표시하고싶습니다
도움부탁드려요,번거롭게해서 죄송합니다,
input: period1(60),period2(20),period3(5), 선두께(2),선두께2(2),상승색(WHITE),하락색(cyan),고저수평(0);
Var:j1(0),J2(0),J3(0),T1(0),T2(0),T3(0);
Var: date11(0),time11(0),date12(0),time12(0),date13(0),time13(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),tl4(0),tl41(0),tl42(0),tl43(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];
date13 = date[LoBar1[0]];
time13 = stime[LoBar1[0]];
Value13 = 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,15);
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,고저수평);
TL_SetColor(tl3,RED);
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);
PlaySound("C:예스트레이더dataSound1point.wav");
tx2 = Text_New(date12,time12,Value12,NewLine+NumToStr(value12,2));
Text_SetStyle(tx2,2,1);
Text_SetSize(tx2,15);
Text_SetColor(Tx2,blue);
PlaySound("C:예스트레이더dataSound1point.wav");
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,고저수평);
TL_SetColor(tl3,BLUE);
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);
}
}
다음글
이전글