커뮤니티
수정부탁드립니다.
2024-07-29 19:26:26
488
글번호 182019
하이켄하시로변경부탁드립니다.
var: Period초(2),선두께초(2),색상두께초(30),색상두께초1(90),초두께(1);
Var:상승색초(Orange), 하락색초(Lime);
Var:j초(0),T초(0);
Var: date11초(0),date12초(0),time11초(0),time12초(0),TL초1(0),TL초(0),
date21초(0),date22초(0),time21초(0),time22초(0),
date31초(0),date32초(0),time31초(0),time32초(0),tx초(0),tx초1(0),TL초4(0);
Array:HiVal초[20](0),LoVal초[20](0),HiBar초[20](0),LoBar초[20](0);
Array:r초[7](0),fr초[7](0),TL초2[7](0),TL초3[7](0),tx초2[7](0),tx초3[7](0);
var : box초(0),box1초(0);
For j초 = 0 To 19
{
HiBar초[j초] = HiBar초[j초] + 1;
LoBar초[j초] = LoBar초[j초] + 1;
}
if crossup(c,highest(H,Period초)[1]) Then
T초 = 1;
if CrossDown(c,Lowest(L,Period초)[1]) Then
T초 = -1;
If T초 == -1 Then
{
If T초[1] != -1 Then
{
For j초 = 18 DownTo 0
{
LoVal초[j초+1] = LoVal초[j초];
LoBar초[j초+1] = LoBar초[j초];
//ZZ[j초+1] = ZZ[j초];
}
LoVal초[0] = L;
LoBar초[0] = 0;
//ZZ[0] = L;
date11초 = date[HiBar초[0]];
time11초 = stime[HiBar초[0]];
Value11 = HiVal초[0];
date12초 = date[LoBar초[0]];
time12초 = stime[LoBar초[0]];
Value12 = LoVal초[0];
date21초 = date[HiBar초[0]];
time21초 = stime[HiBar초[0]];
date22초 = date[0];
time22초 = stime[0];
for j초 = 0 to 6
{
fr초[j초] = LoVal초[1] + ((HiVal초[0] - LoVal초[1]) * r초[j초]);
}
Box_SetEnd(box초,date11초,time11초,Value11);//실시간 후행할결우 //적용
box초 = box_new(date11초,time11초,Value11,date12초,time12초,Value12);
Box_SetColor(box초,하락색초);
// Box_SetFill(box초,true,색상두께초1);//색상삭제
Box_SetSize(box초,1);
// TL초 = TL_New(date11초,time11초,Value11,date12초,time12초,Value12);
TL_SetColor(TL초,하락색초);
tL_SetSize(TL초,초두께);
}
If LoVal초[0] > L Then
{
LoVal초[0] = L;
LoBar초[0] = 0;
//ZZ[0] = L;
date12초 = date[LoBar초[0]];
time12초 = stime[LoBar초[0]];
Value12 = LoVal초[0];
date22초 = date[0];
time22초 = stime[0];
Box_SetEnd(box초,date12초,time12초,Value12); //후행시간
// TL_SetEnd(TL초,date12초,time12초,Value12);
}
Box_SetEnd(box초,NextBarSdate,NextBarStime,Value12); //실시간 후행할결우 //적용
}
If T초 == 1 Then
{
If T초[1] != 1 Then
{
For j초 = 18 DownTo 0
{
HiVal초[j초+1] = HiVal초[j초];
HiBar초[j초+1] = HiBar초[j초];
//ZZ[j초+1] = ZZ[j초];
}
HiVal초[0] = H;
HiBar초[0] = 0;
//ZZ[0] = H;
date11초 = date[LoBar초[0]];
time11초 = stime[LoBar초[0]];
Value11 = LoVal초[0];
date12초 = date[HiBar초[0]];
time12초 = stime[HiBar초[0]];
Value12 = HiVal초[0];
date31초 = date[LoBar초[0]];
time31초 = stime[LoBar초[0]];
date32초 = date[0];
time32초 = stime[0];
for j초 = 0 to 5
{
fr초[j초] = LoVal초[0] + ((HiVal초[1] - LoVal초[0]) * r초[j초]);
}
Box_SetEnd(box초,date11초,time11초,Value11); //실시간 후행할결우 //적용
box초 = box_new(date11초,time11초,Value11,date12초,time12초,Value12);
Box_SetColor(box초,상승색초);
// Box_SetFill(box초,true,색상두께초);//색상삭제
Box_SetSize(box초,1);
// TL초 = TL_New(date11초,time11초,Value11,date12초,time12초,Value12);
TL_SetColor(TL초,상승색초);
tL_SetSize(TL초,초두께);
// TL_SetDrawMode(TL초,0);
}
If HiVal초[0] < H Then
{
HiVal초[0] = H;
HiBar초[0] = 0;
//ZZ[0] = H;
date12초 = date[HiBar초[0]];
time12초 = stime[HiBar초[0]];
Value12 = HiVal초[0];
TL_SetEnd(TL초1, date12초,time12초,Value12);
date32초 = date[0];
time32초 = stime[0];
Box_SetEnd(box초,date12초,time12초,Value12);//후행시간
// TL_SetEnd(TL초,date12초,time12초,Value12);
}
Box_SetEnd(box초,NextB
답변 1
예스스탁 예스스탁 답변
2024-07-30 14:47:41
안녕하세요
예스스탁입니다.
var: Period초(2),선두께초(2),색상두께초(30),색상두께초1(90),초두께(1);
Var:상승색초(Orange), 하락색초(Lime);
Var:j초(0),T초(0);
Var: date11초(0),date12초(0),time11초(0),time12초(0),TL초1(0),TL초(0),
date21초(0),date22초(0),time21초(0),time22초(0),
date31초(0),date32초(0),time31초(0),time32초(0),tx초(0),tx초1(0),TL초4(0);
Array:HiVal초[20](0),LoVal초[20](0),HiBar초[20](0),LoBar초[20](0);
Array:r초[7](0),fr초[7](0),TL초2[7](0),TL초3[7](0),tx초2[7](0),tx초3[7](0);
var : box초(0),box1초(0);
var : xClose(0),xOpen(0),xHigh(0),xLow(0);
var : A(0),B(0),B1(0),B2(0),B3(0) ;
var : do(0),dh(0),dl(0),do1(0),dh1(0),dl1(0);
#Heiken Ashi 시고저종
if index == 0 then
{
xClose = (O+H+L+C)/4;
xOpen = open;
xHigh = MaxList( high, xOpen, xClose);
xLow = MinList( low, xOpen,xClose);
}
else
{
xClose = (O+H+L+C)/4;
xOpen = (xOpen [1] + xClose [1])/2 ;
xHigh = MaxList(High, xOpen, xClose) ;
xLow = MinList(Low, xOpen, xClose) ;
}
For j초 = 0 To 19
{
HiBar초[j초] = HiBar초[j초] + 1;
LoBar초[j초] = LoBar초[j초] + 1;
}
if crossup(xclose,highest(xHigh,Period초)[1]) Then
T초 = 1;
if CrossDown(xclose,Lowest(xLow,Period초)[1]) Then
T초 = -1;
If T초 == -1 Then
{
If T초[1] != -1 Then
{
For j초 = 18 DownTo 0
{
LoVal초[j초+1] = LoVal초[j초];
LoBar초[j초+1] = LoBar초[j초];
//ZZ[j초+1] = ZZ[j초];
}
LoVal초[0] = xLow;
LoBar초[0] = 0;
//ZZ[0] = L;
date11초 = date[HiBar초[0]];
time11초 = stime[HiBar초[0]];
Value11 = HiVal초[0];
date12초 = date[LoBar초[0]];
time12초 = stime[LoBar초[0]];
Value12 = LoVal초[0];
date21초 = date[HiBar초[0]];
time21초 = stime[HiBar초[0]];
date22초 = date[0];
time22초 = stime[0];
for j초 = 0 to 6
{
fr초[j초] = LoVal초[1] + ((HiVal초[0] - LoVal초[1]) * r초[j초]);
}
Box_SetEnd(box초,date11초,time11초,Value11);//실시간 후행할결우 //적용
box초 = box_new(date11초,time11초,Value11,date12초,time12초,Value12);
Box_SetColor(box초,하락색초);
// Box_SetFill(box초,true,색상두께초1);//색상삭제
Box_SetSize(box초,1);
// TL초 = TL_New(date11초,time11초,Value11,date12초,time12초,Value12);
TL_SetColor(TL초,하락색초);
tL_SetSize(TL초,초두께);
}
If LoVal초[0] > xLow Then
{
LoVal초[0] = xLow;
LoBar초[0] = 0;
//ZZ[0] = L;
date12초 = date[LoBar초[0]];
time12초 = stime[LoBar초[0]];
Value12 = LoVal초[0];
date22초 = date[0];
time22초 = stime[0];
Box_SetEnd(box초,date12초,time12초,Value12); //후행시간
// TL_SetEnd(TL초,date12초,time12초,Value12);
}
Box_SetEnd(box초,NextBarSdate,NextBarStime,Value12); //실시간 후행할결우 //적용
}
If T초 == 1 Then
{
If T초[1] != 1 Then
{
For j초 = 18 DownTo 0
{
HiVal초[j초+1] = HiVal초[j초];
HiBar초[j초+1] = HiBar초[j초];
//ZZ[j초+1] = ZZ[j초];
}
HiVal초[0] = xHigh;
HiBar초[0] = 0;
//ZZ[0] = H;
date11초 = date[LoBar초[0]];
time11초 = stime[LoBar초[0]];
Value11 = LoVal초[0];
date12초 = date[HiBar초[0]];
time12초 = stime[HiBar초[0]];
Value12 = HiVal초[0];
date31초 = date[LoBar초[0]];
time31초 = stime[LoBar초[0]];
date32초 = date[0];
time32초 = stime[0];
for j초 = 0 to 5
{
fr초[j초] = LoVal초[0] + ((HiVal초[1] - LoVal초[0]) * r초[j초]);
}
Box_SetEnd(box초,date11초,time11초,Value11); //실시간 후행할결우 //적용
box초 = box_new(date11초,time11초,Value11,date12초,time12초,Value12);
Box_SetColor(box초,상승색초);
// Box_SetFill(box초,true,색상두께초);//색상삭제
Box_SetSize(box초,1);
// TL초 = TL_New(date11초,time11초,Value11,date12초,time12초,Value12);
TL_SetColor(TL초,상승색초);
tL_SetSize(TL초,초두께);
// TL_SetDrawMode(TL초,0);
}
If HiVal초[0] < xHigh Then
{
HiVal초[0] = xHigh;
HiBar초[0] = 0;
//ZZ[0] = H;
date12초 = date[HiBar초[0]];
time12초 = stime[HiBar초[0]];
Value12 = HiVal초[0];
TL_SetEnd(TL초1, date12초,time12초,Value12);
date32초 = date[0];
time32초 = stime[0];
Box_SetEnd(box초,date12초,time12초,Value12);//후행시간
// TL_SetEnd(TL초,date12초,time12초,Value12);
}
Box_SetEnd(box초,NextBarSdate,NextBarStime,value12);
}
즐거운 하루되세요
> 외국인 님이 쓴 글입니다.
> 제목 : 수정부탁드립니다.
> 하이켄하시로변경부탁드립니다.
var: Period초(2),선두께초(2),색상두께초(30),색상두께초1(90),초두께(1);
Var:상승색초(Orange), 하락색초(Lime);
Var:j초(0),T초(0);
Var: date11초(0),date12초(0),time11초(0),time12초(0),TL초1(0),TL초(0),
date21초(0),date22초(0),time21초(0),time22초(0),
date31초(0),date32초(0),time31초(0),time32초(0),tx초(0),tx초1(0),TL초4(0);
Array:HiVal초[20](0),LoVal초[20](0),HiBar초[20](0),LoBar초[20](0);
Array:r초[7](0),fr초[7](0),TL초2[7](0),TL초3[7](0),tx초2[7](0),tx초3[7](0);
var : box초(0),box1초(0);
For j초 = 0 To 19
{
HiBar초[j초] = HiBar초[j초] + 1;
LoBar초[j초] = LoBar초[j초] + 1;
}
if crossup(c,highest(H,Period초)[1]) Then
T초 = 1;
if CrossDown(c,Lowest(L,Period초)[1]) Then
T초 = -1;
If T초 == -1 Then
{
If T초[1] != -1 Then
{
For j초 = 18 DownTo 0
{
LoVal초[j초+1] = LoVal초[j초];
LoBar초[j초+1] = LoBar초[j초];
//ZZ[j초+1] = ZZ[j초];
}
LoVal초[0] = L;
LoBar초[0] = 0;
//ZZ[0] = L;
date11초 = date[HiBar초[0]];
time11초 = stime[HiBar초[0]];
Value11 = HiVal초[0];
date12초 = date[LoBar초[0]];
time12초 = stime[LoBar초[0]];
Value12 = LoVal초[0];
date21초 = date[HiBar초[0]];
time21초 = stime[HiBar초[0]];
date22초 = date[0];
time22초 = stime[0];
for j초 = 0 to 6
{
fr초[j초] = LoVal초[1] + ((HiVal초[0] - LoVal초[1]) * r초[j초]);
}
Box_SetEnd(box초,date11초,time11초,Value11);//실시간 후행할결우 //적용
box초 = box_new(date11초,time11초,Value11,date12초,time12초,Value12);
Box_SetColor(box초,하락색초);
// Box_SetFill(box초,true,색상두께초1);//색상삭제
Box_SetSize(box초,1);
// TL초 = TL_New(date11초,time11초,Value11,date12초,time12초,Value12);
TL_SetColor(TL초,하락색초);
tL_SetSize(TL초,초두께);
}
If LoVal초[0] > L Then
{
LoVal초[0] = L;
LoBar초[0] = 0;
//ZZ[0] = L;
date12초 = date[LoBar초[0]];
time12초 = stime[LoBar초[0]];
Value12 = LoVal초[0];
date22초 = date[0];
time22초 = stime[0];
Box_SetEnd(box초,date12초,time12초,Value12); //후행시간
// TL_SetEnd(TL초,date12초,time12초,Value12);
}
Box_SetEnd(box초,NextBarSdate,NextBarStime,Value12); //실시간 후행할결우 //적용
}
If T초 == 1 Then
{
If T초[1] != 1 Then
{
For j초 = 18 DownTo 0
{
HiVal초[j초+1] = HiVal초[j초];
HiBar초[j초+1] = HiBar초[j초];
//ZZ[j초+1] = ZZ[j초];
}
HiVal초[0] = H;
HiBar초[0] = 0;
//ZZ[0] = H;
date11초 = date[LoBar초[0]];
time11초 = stime[LoBar초[0]];
Value11 = LoVal초[0];
date12초 = date[HiBar초[0]];
time12초 = stime[HiBar초[0]];
Value12 = HiVal초[0];
date31초 = date[LoBar초[0]];
time31초 = stime[LoBar초[0]];
date32초 = date[0];
time32초 = stime[0];
for j초 = 0 to 5
{
fr초[j초] = LoVal초[0] + ((HiVal초[1] - LoVal초[0]) * r초[j초]);
}
Box_SetEnd(box초,date11초,time11초,Value11); //실시간 후행할결우 //적용
box초 = box_new(date11초,time11초,Value11,date12초,time12초,Value12);
Box_SetColor(box초,상승색초);
// Box_SetFill(box초,true,색상두께초);//색상삭제
Box_SetSize(box초,1);
// TL초 = TL_New(date11초,time11초,Value11,date12초,time12초,Value12);
TL_SetColor(TL초,상승색초);
tL_SetSize(TL초,초두께);
// TL_SetDrawMode(TL초,0);
}
If HiVal초[0] < H Then
{
HiVal초[0] = H;
HiBar초[0] = 0;
//ZZ[0] = H;
date12초 = date[HiBar초[0]];
time12초 = stime[HiBar초[0]];
Value12 = HiVal초[0];
TL_SetEnd(TL초1, date12초,time12초,Value12);
date32초 = date[0];
time32초 = stime[0];
Box_SetEnd(box초,date12초,time12초,Value12);//후행시간
// TL_SetEnd(TL초,date12초,time12초,Value12);
}
Box_SetEnd(box초,NextB
다음글
이전글