커뮤니티
수정부탁드립니다
2021-05-26 12:57:02
1459
글번호 149333
$,아래식을 항생에 적용 가능하도록 수정 요청드립니다.
input : af(0.02), maxAF(0.2),텍스트출력(1),크기(0);;
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0);
var : HH1(0),LL1(0),HD1(0),HT1(0),LD1(0),LT1(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0);
var : TL6(0),tl7(0),TL8(0),TL9(0),TL10(0);
var : tx1(0),tx2(0),tx11(0),tx22(0);
var : x1(0),x2(0),x3(0),x4(0),x5(0);
var : x6(0),x7(0),x8(0),x9(0),x10(0);
var1 = CSar(af,maxAF);
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
HH1 = HH[1];
HD1 = HD[1];
HT1 = HT[1];
if LL > 0 Then
{
if 텍스트출력 == 1 then
{
Tx11 = Text_New(HD1,HT1,HH1,NumToStr((HH1-LL1),2)+NewLine+NumToStr(HH1,2));
Text_SetStyle(tx11,2,1);
Text_SetColor(tx11,BLUE);
Text_SetSize(tx11,크기);
Text_Delete(tx1);
Tx1 = Text_New(HD,HT,HH,NumToStr((HH-LL[1]),2)+NewLine+NumToStr(HH,2));
Text_SetStyle(tx1,2,1);
Text_SetColor(tx1,BLUE);
Text_SetSize(tx1,크기);
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
#TL1 = TL_New(LD,LT,HH,sDate,sTime,HH);
TL3 = TL_New(LD,LT,HH+1.617,sDate,sTime,HH+1.618);
TL5 = TL_New(LD,LT,HH-1.618,sDate,sTime,HH-1.618);
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,BLUE);
TL_SetColor(TL4,BLUE);
TL_SetColor(TL5,BLUE);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL_Delete(TL9);
TL_Delete(TL10);
#TL6 = TL_New(LD,LT,LL,sDate,sTime,LL);
TL8 = TL_New(LD,LT,LL+1.618,sDate,sTime,LL+1.618);
TL10 = TL_New(LD,LT,LL-1.618,sDate,sTime,LL-1.618);
TL_SetColor(TL6,RED);
TL_SetColor(TL7,RED);
TL_SetColor(TL8,RED);
TL_SetColor(TL9,RED);
TL_SetColor(TL10,RED);
Text_Delete(x1);
Text_Delete(x2);
Text_Delete(x3);
Text_Delete(x4);
Text_Delete(x5);
#x1 = Text_New(sDate,sTime,HH,NumToStr(HH,2));
x3 = Text_New(sDate,sTime,HH+1.618,NumToStr(HH+1.618,2));
x5 = Text_New(sDate,sTime,HH-1.618,NumToStr(HH-1.618,2));
Text_SetColor(x1,BLUE);
Text_SetColor(x2,BLUE);
Text_SetColor(x3,BLUE);
Text_SetColor(x4,BLUE);
Text_SetColor(x5,BLUE);
Text_SetStyle(x1,0,2);
Text_SetStyle(x2,0,2);
Text_SetStyle(x3,0,2);
Text_SetStyle(x4,0,2);
Text_SetStyle(x5,0,2);
Text_Delete(x6);
Text_Delete(x7);
Text_Delete(x8);
Text_Delete(x9);
Text_Delete(x10);
#x6 = Text_New(sDate,sTime,LL,NumToStr(LL,2));
x8 = Text_New(sDate,sTime,LL+1.618,NumToStr(LL+1.618,2));
x10 = Text_New(sDate,sTime,LL-1.618,NumToStr(LL-1.618,2));
Text_SetColor(x6,RED);
Text_SetColor(x7,RED);
Text_SetColor(x8,RED);
Text_SetColor(x9,RED);
Text_SetColor(x10,RED);
Text_SetStyle(x6,0,2);
Text_SetStyle(x7,0,2);
Text_SetStyle(x8,0,2);
Text_SetStyle(x9,0,2);
Text_SetStyle(x10,0,2);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
LL1 = LL[1];
LD1 = LD[1];
LT1 = LT[1];
if HH > 0 Then
{
if 텍스트출력 == 1 then
{
Tx22 = Text_New(LD1,LT1,LL1,NumToStr((HH1-LL1),2)+NewLine+NumToStr(LL1,2));
Text_SetStyle(tx22,2,0);
Text_SetColor(tx22,RED);
Text_Delete(tx2);
Text_SetSize(tx22,크기);
Tx2 = Text_New(LD,LT,LL,NumToStr((HH[1]-LL),2)+NewLine+NumToStr(LL,2));
Text_SetStyle(tx2,2,0);
Text_SetColor(tx2,RED);
Text_SetSize(tx2,크기);
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
#TL1 = TL_New(HD,HT,HH,sDate,sTime,HH);
TL3 = TL_New(HD,HT,HH+1.617,sDate,sTime,HH+1.618);
TL5 = TL_New(HD,HT,HH-1.618,sDate,sTime,HH-1.618);
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,BLUE);
TL_SetColor(TL4,BLUE);
TL_SetColor(TL5,BLUE);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL_Delete(TL9);
TL_Delete(TL10);
#TL6 = TL_New(HD,HT,LL,sDate,sTime,LL);
TL8 = TL_New(HD,HT,LL+1.618,sDate,sTime,LL+1.618);
TL10 = TL_New(HD,HT,LL-1.618,sDate,sTime,LL-1.618);
TL_SetColor(TL6,RED);
TL_SetColor(TL7,RED);
TL_SetColor(TL8,RED);
TL_SetColor(TL9,RED);
TL_SetColor(TL10,RED);
Text_Delete(x1);
Text_Delete(x2);
Text_Delete(x3);
Text_Delete(x4);
Text_Delete(x5);
#x1 = Text_New(sDate,sTime,HH,NumToStr(HH,2));
x3 = Text_New(sDate,sTime,HH+1.618,NumToStr(HH+1.618,2));
x5 = Text_New(sDate,sTime,HH-1.618,NumToStr(HH-1.618,2));
Text_SetColor(x1,BLUE);
Text_SetColor(x2,BLUE);
Text_SetColor(x3,BLUE);
Text_SetColor(x4,BLUE);
Text_SetColor(x5,BLUE);
Text_SetStyle(x1,0,2);
Text_SetStyle(x2,0,2);
Text_SetStyle(x3,0,2);
Text_SetStyle(x4,0,2);
Text_SetStyle(x5,0,2);
Text_Delete(x6);
Text_Delete(x7);
Text_Delete(x8);
Text_Delete(x9);
Text_Delete(x10);
#x6 = Text_New(sDate,sTime,LL,NumToStr(LL,2));
x8 = Text_New(sDate,sTime,LL+1.618,NumToStr(LL+1.618,2));
x10 = Text_New(sDate,sTime,LL-1.618,NumToStr(LL-1.618,2));
Text_SetColor(x6,RED);
Text_SetColor(x7,RED);
Text_SetColor(x8,RED);
Text_SetColor(x9,RED);
Text_SetColor(x10,RED);
Text_SetStyle(x6,0,2);
Text_SetStyle(x7,0,2);
Text_SetStyle(x8,0,2);
Text_SetStyle(x9,0,2);
Text_SetStyle(x10,0,2);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
if 텍스트출력 == 1 then
{
Text_Delete(tx1);
Tx1 = Text_New(HD,HT,HH,NumToStr((HH-LL[1]),2)+NewLine+NumToStr(HH,2));
Text_SetStyle(tx1,2,1);
Text_SetColor(tx1,BLUE);
Text_SetSize(tx1,크기);
TL_SetBegin(TL1,LD,LT,HH);
TL_SetBegin(TL3,LD,LT,HH+1.618);
TL_SetBegin(TL5,LD,LT,HH-1.618);
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetBegin(TL6,LD,LT,LL);
TL_SetBegin(TL7,LD,LT,LL+1.0);
TL_SetBegin(TL8,LD,LT,LL+1.618);
TL_SetBegin(TL9,LD,LT,LL-1.0);
TL_SetBegin(TL10,LD,LT,LL-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,sTime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetString(x1,NumToStr(HH,2));
Text_SetString(x2,NumToStr(HH+1.0,2));
Text_SetString(x3,NumToStr(HH+1.618,2));
Text_SetString(x4,NumToStr(HH-1.0,2));
Text_SetString(x5,NumToStr(HH-1.618,2));
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetString(x6,NumToStr(LL,2));
Text_SetString(x7,NumToStr(LL+1.0,2));
Text_SetString(x8,NumToStr(LL+1.618,2));
Text_SetString(x9,NumToStr(LL-1.0,2));
Text_SetString(x10,NumToStr(LL-1.618,2));
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
Else
{
if 텍스트출력 == 1 then
{
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,stime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,stime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
if 텍스트출력 == 1 then
{
Text_Delete(tx2);
Tx2 = Text_New(LD,LT,LL,NumToStr((HH[1]-LL),2)+NewLine+NumToStr(LL,2));
Text_SetStyle(tx2,2,0);
Text_SetColor(tx2,RED);
Text_SetSize(tx2,크기);
TL_SetBegin(TL1,HD,HT,HH);
TL_SetBegin(TL2,HD,HT,HH+1.0);
TL_SetBegin(TL3,HD,HT,HH+1.618);
TL_SetBegin(TL4,HD,HT,HH-1.0);
TL_SetBegin(TL5,HD,HT,HH-1.618);
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,sTime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetBegin(TL6,HD,HT,LL);
TL_SetBegin(TL7,HD,HT,LL+1.0);
TL_SetBegin(TL8,HD,HT,LL+1.618);
TL_SetBegin(TL9,HD,HT,LL-1.0);
TL_SetBegin(TL10,HD,HT,LL-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,sTime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetString(x1,NumToStr(HH,2));
Text_SetString(x2,NumToStr(HH+1.0,2));
Text_SetString(x3,NumToStr(HH+1.618,2));
Text_SetString(x4,NumToStr(HH-1.0,2));
Text_SetString(x5,NumToStr(HH-1.618,2));
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetString(x6,NumToStr(LL,2));
Text_SetString(x7,NumToStr(LL+1.0,2));
Text_SetString(x8,NumToStr(LL+1.618,2));
Text_SetString(x9,NumToStr(LL-1.0,2));
Text_SetString(x10,NumToStr(LL-1.618,2));
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
Else
{
if 텍스트출력 == 1 then
{
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,stime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,stime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
}
답변 5
예스스탁 예스스탁 답변
2021-05-26 15:02:56
안녕하세요
예스스탁입니다.
수식에 수정할 내용이 없습니다.
첨부된 그림과 같이 정상적으로 출력되고 있습니다.
올리신 식은 파라볼릭종가 크로스를 기준으로
최고가와 최저가에서 특정값을 가감해서 그립니다.
HH+1.0
해당 특정값은 어떤 계산에 의한 값이 아닙니다.
사용자분이 수식안에서 직접 종목에 맞게 변경하셔야 합니다.
저희가 지정해 드릴수 있는 부분이 아닙니다.
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : 수정부탁드립니다
> $,아래식을 항생에 적용 가능하도록 수정 요청드립니다.
input : af(0.02), maxAF(0.2),텍스트출력(1),크기(0);;
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0);
var : HH1(0),LL1(0),HD1(0),HT1(0),LD1(0),LT1(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0);
var : TL6(0),tl7(0),TL8(0),TL9(0),TL10(0);
var : tx1(0),tx2(0),tx11(0),tx22(0);
var : x1(0),x2(0),x3(0),x4(0),x5(0);
var : x6(0),x7(0),x8(0),x9(0),x10(0);
var1 = CSar(af,maxAF);
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
HH1 = HH[1];
HD1 = HD[1];
HT1 = HT[1];
if LL > 0 Then
{
if 텍스트출력 == 1 then
{
Tx11 = Text_New(HD1,HT1,HH1,NumToStr((HH1-LL1),2)+NewLine+NumToStr(HH1,2));
Text_SetStyle(tx11,2,1);
Text_SetColor(tx11,BLUE);
Text_SetSize(tx11,크기);
Text_Delete(tx1);
Tx1 = Text_New(HD,HT,HH,NumToStr((HH-LL[1]),2)+NewLine+NumToStr(HH,2));
Text_SetStyle(tx1,2,1);
Text_SetColor(tx1,BLUE);
Text_SetSize(tx1,크기);
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
#TL1 = TL_New(LD,LT,HH,sDate,sTime,HH);
TL3 = TL_New(LD,LT,HH+1.617,sDate,sTime,HH+1.618);
TL5 = TL_New(LD,LT,HH-1.618,sDate,sTime,HH-1.618);
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,BLUE);
TL_SetColor(TL4,BLUE);
TL_SetColor(TL5,BLUE);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL_Delete(TL9);
TL_Delete(TL10);
#TL6 = TL_New(LD,LT,LL,sDate,sTime,LL);
TL8 = TL_New(LD,LT,LL+1.618,sDate,sTime,LL+1.618);
TL10 = TL_New(LD,LT,LL-1.618,sDate,sTime,LL-1.618);
TL_SetColor(TL6,RED);
TL_SetColor(TL7,RED);
TL_SetColor(TL8,RED);
TL_SetColor(TL9,RED);
TL_SetColor(TL10,RED);
Text_Delete(x1);
Text_Delete(x2);
Text_Delete(x3);
Text_Delete(x4);
Text_Delete(x5);
#x1 = Text_New(sDate,sTime,HH,NumToStr(HH,2));
x3 = Text_New(sDate,sTime,HH+1.618,NumToStr(HH+1.618,2));
x5 = Text_New(sDate,sTime,HH-1.618,NumToStr(HH-1.618,2));
Text_SetColor(x1,BLUE);
Text_SetColor(x2,BLUE);
Text_SetColor(x3,BLUE);
Text_SetColor(x4,BLUE);
Text_SetColor(x5,BLUE);
Text_SetStyle(x1,0,2);
Text_SetStyle(x2,0,2);
Text_SetStyle(x3,0,2);
Text_SetStyle(x4,0,2);
Text_SetStyle(x5,0,2);
Text_Delete(x6);
Text_Delete(x7);
Text_Delete(x8);
Text_Delete(x9);
Text_Delete(x10);
#x6 = Text_New(sDate,sTime,LL,NumToStr(LL,2));
x8 = Text_New(sDate,sTime,LL+1.618,NumToStr(LL+1.618,2));
x10 = Text_New(sDate,sTime,LL-1.618,NumToStr(LL-1.618,2));
Text_SetColor(x6,RED);
Text_SetColor(x7,RED);
Text_SetColor(x8,RED);
Text_SetColor(x9,RED);
Text_SetColor(x10,RED);
Text_SetStyle(x6,0,2);
Text_SetStyle(x7,0,2);
Text_SetStyle(x8,0,2);
Text_SetStyle(x9,0,2);
Text_SetStyle(x10,0,2);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
LL1 = LL[1];
LD1 = LD[1];
LT1 = LT[1];
if HH > 0 Then
{
if 텍스트출력 == 1 then
{
Tx22 = Text_New(LD1,LT1,LL1,NumToStr((HH1-LL1),2)+NewLine+NumToStr(LL1,2));
Text_SetStyle(tx22,2,0);
Text_SetColor(tx22,RED);
Text_Delete(tx2);
Text_SetSize(tx22,크기);
Tx2 = Text_New(LD,LT,LL,NumToStr((HH[1]-LL),2)+NewLine+NumToStr(LL,2));
Text_SetStyle(tx2,2,0);
Text_SetColor(tx2,RED);
Text_SetSize(tx2,크기);
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
#TL1 = TL_New(HD,HT,HH,sDate,sTime,HH);
TL3 = TL_New(HD,HT,HH+1.617,sDate,sTime,HH+1.618);
TL5 = TL_New(HD,HT,HH-1.618,sDate,sTime,HH-1.618);
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,BLUE);
TL_SetColor(TL4,BLUE);
TL_SetColor(TL5,BLUE);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL_Delete(TL9);
TL_Delete(TL10);
#TL6 = TL_New(HD,HT,LL,sDate,sTime,LL);
TL8 = TL_New(HD,HT,LL+1.618,sDate,sTime,LL+1.618);
TL10 = TL_New(HD,HT,LL-1.618,sDate,sTime,LL-1.618);
TL_SetColor(TL6,RED);
TL_SetColor(TL7,RED);
TL_SetColor(TL8,RED);
TL_SetColor(TL9,RED);
TL_SetColor(TL10,RED);
Text_Delete(x1);
Text_Delete(x2);
Text_Delete(x3);
Text_Delete(x4);
Text_Delete(x5);
#x1 = Text_New(sDate,sTime,HH,NumToStr(HH,2));
x3 = Text_New(sDate,sTime,HH+1.618,NumToStr(HH+1.618,2));
x5 = Text_New(sDate,sTime,HH-1.618,NumToStr(HH-1.618,2));
Text_SetColor(x1,BLUE);
Text_SetColor(x2,BLUE);
Text_SetColor(x3,BLUE);
Text_SetColor(x4,BLUE);
Text_SetColor(x5,BLUE);
Text_SetStyle(x1,0,2);
Text_SetStyle(x2,0,2);
Text_SetStyle(x3,0,2);
Text_SetStyle(x4,0,2);
Text_SetStyle(x5,0,2);
Text_Delete(x6);
Text_Delete(x7);
Text_Delete(x8);
Text_Delete(x9);
Text_Delete(x10);
#x6 = Text_New(sDate,sTime,LL,NumToStr(LL,2));
x8 = Text_New(sDate,sTime,LL+1.618,NumToStr(LL+1.618,2));
x10 = Text_New(sDate,sTime,LL-1.618,NumToStr(LL-1.618,2));
Text_SetColor(x6,RED);
Text_SetColor(x7,RED);
Text_SetColor(x8,RED);
Text_SetColor(x9,RED);
Text_SetColor(x10,RED);
Text_SetStyle(x6,0,2);
Text_SetStyle(x7,0,2);
Text_SetStyle(x8,0,2);
Text_SetStyle(x9,0,2);
Text_SetStyle(x10,0,2);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
if 텍스트출력 == 1 then
{
Text_Delete(tx1);
Tx1 = Text_New(HD,HT,HH,NumToStr((HH-LL[1]),2)+NewLine+NumToStr(HH,2));
Text_SetStyle(tx1,2,1);
Text_SetColor(tx1,BLUE);
Text_SetSize(tx1,크기);
TL_SetBegin(TL1,LD,LT,HH);
TL_SetBegin(TL3,LD,LT,HH+1.618);
TL_SetBegin(TL5,LD,LT,HH-1.618);
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetBegin(TL6,LD,LT,LL);
TL_SetBegin(TL7,LD,LT,LL+1.0);
TL_SetBegin(TL8,LD,LT,LL+1.618);
TL_SetBegin(TL9,LD,LT,LL-1.0);
TL_SetBegin(TL10,LD,LT,LL-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,sTime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetString(x1,NumToStr(HH,2));
Text_SetString(x2,NumToStr(HH+1.0,2));
Text_SetString(x3,NumToStr(HH+1.618,2));
Text_SetString(x4,NumToStr(HH-1.0,2));
Text_SetString(x5,NumToStr(HH-1.618,2));
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetString(x6,NumToStr(LL,2));
Text_SetString(x7,NumToStr(LL+1.0,2));
Text_SetString(x8,NumToStr(LL+1.618,2));
Text_SetString(x9,NumToStr(LL-1.0,2));
Text_SetString(x10,NumToStr(LL-1.618,2));
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
Else
{
if 텍스트출력 == 1 then
{
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,stime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,stime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
if 텍스트출력 == 1 then
{
Text_Delete(tx2);
Tx2 = Text_New(LD,LT,LL,NumToStr((HH[1]-LL),2)+NewLine+NumToStr(LL,2));
Text_SetStyle(tx2,2,0);
Text_SetColor(tx2,RED);
Text_SetSize(tx2,크기);
TL_SetBegin(TL1,HD,HT,HH);
TL_SetBegin(TL2,HD,HT,HH+1.0);
TL_SetBegin(TL3,HD,HT,HH+1.618);
TL_SetBegin(TL4,HD,HT,HH-1.0);
TL_SetBegin(TL5,HD,HT,HH-1.618);
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,sTime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetBegin(TL6,HD,HT,LL);
TL_SetBegin(TL7,HD,HT,LL+1.0);
TL_SetBegin(TL8,HD,HT,LL+1.618);
TL_SetBegin(TL9,HD,HT,LL-1.0);
TL_SetBegin(TL10,HD,HT,LL-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,sTime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetString(x1,NumToStr(HH,2));
Text_SetString(x2,NumToStr(HH+1.0,2));
Text_SetString(x3,NumToStr(HH+1.618,2));
Text_SetString(x4,NumToStr(HH-1.0,2));
Text_SetString(x5,NumToStr(HH-1.618,2));
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetString(x6,NumToStr(LL,2));
Text_SetString(x7,NumToStr(LL+1.0,2));
Text_SetString(x8,NumToStr(LL+1.618,2));
Text_SetString(x9,NumToStr(LL-1.0,2));
Text_SetString(x10,NumToStr(LL-1.618,2));
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
Else
{
if 텍스트출력 == 1 then
{
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,stime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,stime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
}
크라켄
2021-05-26 15:50:45
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 수정부탁드립니다
> 안녕하세요
예스스탁입니다.
수식에 수정할 내용이 없습니다.
첨부된 그림과 같이 정상적으로 출력되고 있습니다.
올리신 식은 파라볼릭종가 크로스를 기준으로
최고가와 최저가에서 특정값을 가감해서 그립니다.
HH+1.0
해당 특정값은 어떤 계산에 의한 값이 아닙니다.
사용자분이 수식안에서 직접 종목에 맞게 변경하셔야 합니다.
저희가 지정해 드릴수 있는 부분이 아닙니다.
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : 수정부탁드립니다
> $,아래식을 항생에 적용 가능하도록 수정 요청드립니다.
input : af(0.02), maxAF(0.2),텍스트출력(1),크기(0);;
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0);
var : HH1(0),LL1(0),HD1(0),HT1(0),LD1(0),LT1(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0);
var : TL6(0),tl7(0),TL8(0),TL9(0),TL10(0);
var : tx1(0),tx2(0),tx11(0),tx22(0);
var : x1(0),x2(0),x3(0),x4(0),x5(0);
var : x6(0),x7(0),x8(0),x9(0),x10(0);
var1 = CSar(af,maxAF);
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
HH1 = HH[1];
HD1 = HD[1];
HT1 = HT[1];
if LL > 0 Then
{
if 텍스트출력 == 1 then
{
Tx11 = Text_New(HD1,HT1,HH1,NumToStr((HH1-LL1),2)+NewLine+NumToStr(HH1,2));
Text_SetStyle(tx11,2,1);
Text_SetColor(tx11,BLUE);
Text_SetSize(tx11,크기);
Text_Delete(tx1);
Tx1 = Text_New(HD,HT,HH,NumToStr((HH-LL[1]),2)+NewLine+NumToStr(HH,2));
Text_SetStyle(tx1,2,1);
Text_SetColor(tx1,BLUE);
Text_SetSize(tx1,크기);
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
#TL1 = TL_New(LD,LT,HH,sDate,sTime,HH);
TL3 = TL_New(LD,LT,HH+1.617,sDate,sTime,HH+1.618);
TL5 = TL_New(LD,LT,HH-1.618,sDate,sTime,HH-1.618);
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,BLUE);
TL_SetColor(TL4,BLUE);
TL_SetColor(TL5,BLUE);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL_Delete(TL9);
TL_Delete(TL10);
#TL6 = TL_New(LD,LT,LL,sDate,sTime,LL);
TL8 = TL_New(LD,LT,LL+1.618,sDate,sTime,LL+1.618);
TL10 = TL_New(LD,LT,LL-1.618,sDate,sTime,LL-1.618);
TL_SetColor(TL6,RED);
TL_SetColor(TL7,RED);
TL_SetColor(TL8,RED);
TL_SetColor(TL9,RED);
TL_SetColor(TL10,RED);
Text_Delete(x1);
Text_Delete(x2);
Text_Delete(x3);
Text_Delete(x4);
Text_Delete(x5);
#x1 = Text_New(sDate,sTime,HH,NumToStr(HH,2));
x3 = Text_New(sDate,sTime,HH+1.618,NumToStr(HH+1.618,2));
x5 = Text_New(sDate,sTime,HH-1.618,NumToStr(HH-1.618,2));
Text_SetColor(x1,BLUE);
Text_SetColor(x2,BLUE);
Text_SetColor(x3,BLUE);
Text_SetColor(x4,BLUE);
Text_SetColor(x5,BLUE);
Text_SetStyle(x1,0,2);
Text_SetStyle(x2,0,2);
Text_SetStyle(x3,0,2);
Text_SetStyle(x4,0,2);
Text_SetStyle(x5,0,2);
Text_Delete(x6);
Text_Delete(x7);
Text_Delete(x8);
Text_Delete(x9);
Text_Delete(x10);
#x6 = Text_New(sDate,sTime,LL,NumToStr(LL,2));
x8 = Text_New(sDate,sTime,LL+1.618,NumToStr(LL+1.618,2));
x10 = Text_New(sDate,sTime,LL-1.618,NumToStr(LL-1.618,2));
Text_SetColor(x6,RED);
Text_SetColor(x7,RED);
Text_SetColor(x8,RED);
Text_SetColor(x9,RED);
Text_SetColor(x10,RED);
Text_SetStyle(x6,0,2);
Text_SetStyle(x7,0,2);
Text_SetStyle(x8,0,2);
Text_SetStyle(x9,0,2);
Text_SetStyle(x10,0,2);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
LL1 = LL[1];
LD1 = LD[1];
LT1 = LT[1];
if HH > 0 Then
{
if 텍스트출력 == 1 then
{
Tx22 = Text_New(LD1,LT1,LL1,NumToStr((HH1-LL1),2)+NewLine+NumToStr(LL1,2));
Text_SetStyle(tx22,2,0);
Text_SetColor(tx22,RED);
Text_Delete(tx2);
Text_SetSize(tx22,크기);
Tx2 = Text_New(LD,LT,LL,NumToStr((HH[1]-LL),2)+NewLine+NumToStr(LL,2));
Text_SetStyle(tx2,2,0);
Text_SetColor(tx2,RED);
Text_SetSize(tx2,크기);
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
#TL1 = TL_New(HD,HT,HH,sDate,sTime,HH);
TL3 = TL_New(HD,HT,HH+1.617,sDate,sTime,HH+1.618);
TL5 = TL_New(HD,HT,HH-1.618,sDate,sTime,HH-1.618);
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,BLUE);
TL_SetColor(TL4,BLUE);
TL_SetColor(TL5,BLUE);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL_Delete(TL9);
TL_Delete(TL10);
#TL6 = TL_New(HD,HT,LL,sDate,sTime,LL);
TL8 = TL_New(HD,HT,LL+1.618,sDate,sTime,LL+1.618);
TL10 = TL_New(HD,HT,LL-1.618,sDate,sTime,LL-1.618);
TL_SetColor(TL6,RED);
TL_SetColor(TL7,RED);
TL_SetColor(TL8,RED);
TL_SetColor(TL9,RED);
TL_SetColor(TL10,RED);
Text_Delete(x1);
Text_Delete(x2);
Text_Delete(x3);
Text_Delete(x4);
Text_Delete(x5);
#x1 = Text_New(sDate,sTime,HH,NumToStr(HH,2));
x3 = Text_New(sDate,sTime,HH+1.618,NumToStr(HH+1.618,2));
x5 = Text_New(sDate,sTime,HH-1.618,NumToStr(HH-1.618,2));
Text_SetColor(x1,BLUE);
Text_SetColor(x2,BLUE);
Text_SetColor(x3,BLUE);
Text_SetColor(x4,BLUE);
Text_SetColor(x5,BLUE);
Text_SetStyle(x1,0,2);
Text_SetStyle(x2,0,2);
Text_SetStyle(x3,0,2);
Text_SetStyle(x4,0,2);
Text_SetStyle(x5,0,2);
Text_Delete(x6);
Text_Delete(x7);
Text_Delete(x8);
Text_Delete(x9);
Text_Delete(x10);
#x6 = Text_New(sDate,sTime,LL,NumToStr(LL,2));
x8 = Text_New(sDate,sTime,LL+1.618,NumToStr(LL+1.618,2));
x10 = Text_New(sDate,sTime,LL-1.618,NumToStr(LL-1.618,2));
Text_SetColor(x6,RED);
Text_SetColor(x7,RED);
Text_SetColor(x8,RED);
Text_SetColor(x9,RED);
Text_SetColor(x10,RED);
Text_SetStyle(x6,0,2);
Text_SetStyle(x7,0,2);
Text_SetStyle(x8,0,2);
Text_SetStyle(x9,0,2);
Text_SetStyle(x10,0,2);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
if 텍스트출력 == 1 then
{
Text_Delete(tx1);
Tx1 = Text_New(HD,HT,HH,NumToStr((HH-LL[1]),2)+NewLine+NumToStr(HH,2));
Text_SetStyle(tx1,2,1);
Text_SetColor(tx1,BLUE);
Text_SetSize(tx1,크기);
TL_SetBegin(TL1,LD,LT,HH);
TL_SetBegin(TL3,LD,LT,HH+1.618);
TL_SetBegin(TL5,LD,LT,HH-1.618);
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetBegin(TL6,LD,LT,LL);
TL_SetBegin(TL7,LD,LT,LL+1.0);
TL_SetBegin(TL8,LD,LT,LL+1.618);
TL_SetBegin(TL9,LD,LT,LL-1.0);
TL_SetBegin(TL10,LD,LT,LL-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,sTime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetString(x1,NumToStr(HH,2));
Text_SetString(x2,NumToStr(HH+1.0,2));
Text_SetString(x3,NumToStr(HH+1.618,2));
Text_SetString(x4,NumToStr(HH-1.0,2));
Text_SetString(x5,NumToStr(HH-1.618,2));
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetString(x6,NumToStr(LL,2));
Text_SetString(x7,NumToStr(LL+1.0,2));
Text_SetString(x8,NumToStr(LL+1.618,2));
Text_SetString(x9,NumToStr(LL-1.0,2));
Text_SetString(x10,NumToStr(LL-1.618,2));
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
Else
{
if 텍스트출력 == 1 then
{
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,stime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,stime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
if 텍스트출력 == 1 then
{
Text_Delete(tx2);
Tx2 = Text_New(LD,LT,LL,NumToStr((HH[1]-LL),2)+NewLine+NumToStr(LL,2));
Text_SetStyle(tx2,2,0);
Text_SetColor(tx2,RED);
Text_SetSize(tx2,크기);
TL_SetBegin(TL1,HD,HT,HH);
TL_SetBegin(TL2,HD,HT,HH+1.0);
TL_SetBegin(TL3,HD,HT,HH+1.618);
TL_SetBegin(TL4,HD,HT,HH-1.0);
TL_SetBegin(TL5,HD,HT,HH-1.618);
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,sTime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetBegin(TL6,HD,HT,LL);
TL_SetBegin(TL7,HD,HT,LL+1.0);
TL_SetBegin(TL8,HD,HT,LL+1.618);
TL_SetBegin(TL9,HD,HT,LL-1.0);
TL_SetBegin(TL10,HD,HT,LL-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,sTime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetString(x1,NumToStr(HH,2));
Text_SetString(x2,NumToStr(HH+1.0,2));
Text_SetString(x3,NumToStr(HH+1.618,2));
Text_SetString(x4,NumToStr(HH-1.0,2));
Text_SetString(x5,NumToStr(HH-1.618,2));
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetString(x6,NumToStr(LL,2));
Text_SetString(x7,NumToStr(LL+1.0,2));
Text_SetString(x8,NumToStr(LL+1.618,2));
Text_SetString(x9,NumToStr(LL-1.0,2));
Text_SetString(x10,NumToStr(LL-1.618,2));
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
Else
{
if 텍스트출력 == 1 then
{
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,stime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,stime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
}
---------------------------------------------------------------------------------
네,특정값을 수식안에서 변경해서 적용하는건 알고 있습니다,그런데 적용하면 출력되는 선과 값이 기존 파동 고점,저점을 이중으로 출력되게만 됩니다,같은수식인데 국내선물처럼 파동 고점,저점에서 해당 입력값 만큼 출력되지 않습니다.그래서 질문 드린겁니다.항생차트에 적용 시켜보시면 확인할수 있을겁니다.
예스스탁 예스스탁 답변
2021-05-26 16:40:36
안녕하세요
예스스탁입니다.
첨부된 그림과 같이 항셍에도 정상출력되고 있습니다.
HH+1.618
HH-1.6187
LL+1.618
LL-1.6187
올리신 수식은 위 값을 출력하게 되어 있습니다
첨부된 그림을 보시면
고점 HH는 29272.00으로
29272 + 1.618 = 29273.618
29272 - 1.618 = 29270.382
정상적으로 표시하고 있습니다.
저점 LL는 29042.00이고
29042 + 1.618 = 29273.618
29042 - 1.618 = 29270.382
정상적으로 표시하고 있습니다.
소숫점 2자리까지 표시하므로 3자리에서 반올림해서 표시합니다.
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : Re : Re : 수정부탁드립니다
>
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 수정부탁드립니다
> 안녕하세요
예스스탁입니다.
수식에 수정할 내용이 없습니다.
첨부된 그림과 같이 정상적으로 출력되고 있습니다.
올리신 식은 파라볼릭종가 크로스를 기준으로
최고가와 최저가에서 특정값을 가감해서 그립니다.
HH+1.0
해당 특정값은 어떤 계산에 의한 값이 아닙니다.
사용자분이 수식안에서 직접 종목에 맞게 변경하셔야 합니다.
저희가 지정해 드릴수 있는 부분이 아닙니다.
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : 수정부탁드립니다
> $,아래식을 항생에 적용 가능하도록 수정 요청드립니다.
input : af(0.02), maxAF(0.2),텍스트출력(1),크기(0);;
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0);
var : HH1(0),LL1(0),HD1(0),HT1(0),LD1(0),LT1(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0);
var : TL6(0),tl7(0),TL8(0),TL9(0),TL10(0);
var : tx1(0),tx2(0),tx11(0),tx22(0);
var : x1(0),x2(0),x3(0),x4(0),x5(0);
var : x6(0),x7(0),x8(0),x9(0),x10(0);
var1 = CSar(af,maxAF);
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
HH1 = HH[1];
HD1 = HD[1];
HT1 = HT[1];
if LL > 0 Then
{
if 텍스트출력 == 1 then
{
Tx11 = Text_New(HD1,HT1,HH1,NumToStr((HH1-LL1),2)+NewLine+NumToStr(HH1,2));
Text_SetStyle(tx11,2,1);
Text_SetColor(tx11,BLUE);
Text_SetSize(tx11,크기);
Text_Delete(tx1);
Tx1 = Text_New(HD,HT,HH,NumToStr((HH-LL[1]),2)+NewLine+NumToStr(HH,2));
Text_SetStyle(tx1,2,1);
Text_SetColor(tx1,BLUE);
Text_SetSize(tx1,크기);
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
#TL1 = TL_New(LD,LT,HH,sDate,sTime,HH);
TL3 = TL_New(LD,LT,HH+1.617,sDate,sTime,HH+1.618);
TL5 = TL_New(LD,LT,HH-1.618,sDate,sTime,HH-1.618);
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,BLUE);
TL_SetColor(TL4,BLUE);
TL_SetColor(TL5,BLUE);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL_Delete(TL9);
TL_Delete(TL10);
#TL6 = TL_New(LD,LT,LL,sDate,sTime,LL);
TL8 = TL_New(LD,LT,LL+1.618,sDate,sTime,LL+1.618);
TL10 = TL_New(LD,LT,LL-1.618,sDate,sTime,LL-1.618);
TL_SetColor(TL6,RED);
TL_SetColor(TL7,RED);
TL_SetColor(TL8,RED);
TL_SetColor(TL9,RED);
TL_SetColor(TL10,RED);
Text_Delete(x1);
Text_Delete(x2);
Text_Delete(x3);
Text_Delete(x4);
Text_Delete(x5);
#x1 = Text_New(sDate,sTime,HH,NumToStr(HH,2));
x3 = Text_New(sDate,sTime,HH+1.618,NumToStr(HH+1.618,2));
x5 = Text_New(sDate,sTime,HH-1.618,NumToStr(HH-1.618,2));
Text_SetColor(x1,BLUE);
Text_SetColor(x2,BLUE);
Text_SetColor(x3,BLUE);
Text_SetColor(x4,BLUE);
Text_SetColor(x5,BLUE);
Text_SetStyle(x1,0,2);
Text_SetStyle(x2,0,2);
Text_SetStyle(x3,0,2);
Text_SetStyle(x4,0,2);
Text_SetStyle(x5,0,2);
Text_Delete(x6);
Text_Delete(x7);
Text_Delete(x8);
Text_Delete(x9);
Text_Delete(x10);
#x6 = Text_New(sDate,sTime,LL,NumToStr(LL,2));
x8 = Text_New(sDate,sTime,LL+1.618,NumToStr(LL+1.618,2));
x10 = Text_New(sDate,sTime,LL-1.618,NumToStr(LL-1.618,2));
Text_SetColor(x6,RED);
Text_SetColor(x7,RED);
Text_SetColor(x8,RED);
Text_SetColor(x9,RED);
Text_SetColor(x10,RED);
Text_SetStyle(x6,0,2);
Text_SetStyle(x7,0,2);
Text_SetStyle(x8,0,2);
Text_SetStyle(x9,0,2);
Text_SetStyle(x10,0,2);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
LL1 = LL[1];
LD1 = LD[1];
LT1 = LT[1];
if HH > 0 Then
{
if 텍스트출력 == 1 then
{
Tx22 = Text_New(LD1,LT1,LL1,NumToStr((HH1-LL1),2)+NewLine+NumToStr(LL1,2));
Text_SetStyle(tx22,2,0);
Text_SetColor(tx22,RED);
Text_Delete(tx2);
Text_SetSize(tx22,크기);
Tx2 = Text_New(LD,LT,LL,NumToStr((HH[1]-LL),2)+NewLine+NumToStr(LL,2));
Text_SetStyle(tx2,2,0);
Text_SetColor(tx2,RED);
Text_SetSize(tx2,크기);
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
#TL1 = TL_New(HD,HT,HH,sDate,sTime,HH);
TL3 = TL_New(HD,HT,HH+1.617,sDate,sTime,HH+1.618);
TL5 = TL_New(HD,HT,HH-1.618,sDate,sTime,HH-1.618);
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,BLUE);
TL_SetColor(TL4,BLUE);
TL_SetColor(TL5,BLUE);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL_Delete(TL9);
TL_Delete(TL10);
#TL6 = TL_New(HD,HT,LL,sDate,sTime,LL);
TL8 = TL_New(HD,HT,LL+1.618,sDate,sTime,LL+1.618);
TL10 = TL_New(HD,HT,LL-1.618,sDate,sTime,LL-1.618);
TL_SetColor(TL6,RED);
TL_SetColor(TL7,RED);
TL_SetColor(TL8,RED);
TL_SetColor(TL9,RED);
TL_SetColor(TL10,RED);
Text_Delete(x1);
Text_Delete(x2);
Text_Delete(x3);
Text_Delete(x4);
Text_Delete(x5);
#x1 = Text_New(sDate,sTime,HH,NumToStr(HH,2));
x3 = Text_New(sDate,sTime,HH+1.618,NumToStr(HH+1.618,2));
x5 = Text_New(sDate,sTime,HH-1.618,NumToStr(HH-1.618,2));
Text_SetColor(x1,BLUE);
Text_SetColor(x2,BLUE);
Text_SetColor(x3,BLUE);
Text_SetColor(x4,BLUE);
Text_SetColor(x5,BLUE);
Text_SetStyle(x1,0,2);
Text_SetStyle(x2,0,2);
Text_SetStyle(x3,0,2);
Text_SetStyle(x4,0,2);
Text_SetStyle(x5,0,2);
Text_Delete(x6);
Text_Delete(x7);
Text_Delete(x8);
Text_Delete(x9);
Text_Delete(x10);
#x6 = Text_New(sDate,sTime,LL,NumToStr(LL,2));
x8 = Text_New(sDate,sTime,LL+1.618,NumToStr(LL+1.618,2));
x10 = Text_New(sDate,sTime,LL-1.618,NumToStr(LL-1.618,2));
Text_SetColor(x6,RED);
Text_SetColor(x7,RED);
Text_SetColor(x8,RED);
Text_SetColor(x9,RED);
Text_SetColor(x10,RED);
Text_SetStyle(x6,0,2);
Text_SetStyle(x7,0,2);
Text_SetStyle(x8,0,2);
Text_SetStyle(x9,0,2);
Text_SetStyle(x10,0,2);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
if 텍스트출력 == 1 then
{
Text_Delete(tx1);
Tx1 = Text_New(HD,HT,HH,NumToStr((HH-LL[1]),2)+NewLine+NumToStr(HH,2));
Text_SetStyle(tx1,2,1);
Text_SetColor(tx1,BLUE);
Text_SetSize(tx1,크기);
TL_SetBegin(TL1,LD,LT,HH);
TL_SetBegin(TL3,LD,LT,HH+1.618);
TL_SetBegin(TL5,LD,LT,HH-1.618);
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetBegin(TL6,LD,LT,LL);
TL_SetBegin(TL7,LD,LT,LL+1.0);
TL_SetBegin(TL8,LD,LT,LL+1.618);
TL_SetBegin(TL9,LD,LT,LL-1.0);
TL_SetBegin(TL10,LD,LT,LL-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,sTime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetString(x1,NumToStr(HH,2));
Text_SetString(x2,NumToStr(HH+1.0,2));
Text_SetString(x3,NumToStr(HH+1.618,2));
Text_SetString(x4,NumToStr(HH-1.0,2));
Text_SetString(x5,NumToStr(HH-1.618,2));
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetString(x6,NumToStr(LL,2));
Text_SetString(x7,NumToStr(LL+1.0,2));
Text_SetString(x8,NumToStr(LL+1.618,2));
Text_SetString(x9,NumToStr(LL-1.0,2));
Text_SetString(x10,NumToStr(LL-1.618,2));
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
Else
{
if 텍스트출력 == 1 then
{
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,stime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,stime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
if 텍스트출력 == 1 then
{
Text_Delete(tx2);
Tx2 = Text_New(LD,LT,LL,NumToStr((HH[1]-LL),2)+NewLine+NumToStr(LL,2));
Text_SetStyle(tx2,2,0);
Text_SetColor(tx2,RED);
Text_SetSize(tx2,크기);
TL_SetBegin(TL1,HD,HT,HH);
TL_SetBegin(TL2,HD,HT,HH+1.0);
TL_SetBegin(TL3,HD,HT,HH+1.618);
TL_SetBegin(TL4,HD,HT,HH-1.0);
TL_SetBegin(TL5,HD,HT,HH-1.618);
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,sTime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetBegin(TL6,HD,HT,LL);
TL_SetBegin(TL7,HD,HT,LL+1.0);
TL_SetBegin(TL8,HD,HT,LL+1.618);
TL_SetBegin(TL9,HD,HT,LL-1.0);
TL_SetBegin(TL10,HD,HT,LL-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,sTime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetString(x1,NumToStr(HH,2));
Text_SetString(x2,NumToStr(HH+1.0,2));
Text_SetString(x3,NumToStr(HH+1.618,2));
Text_SetString(x4,NumToStr(HH-1.0,2));
Text_SetString(x5,NumToStr(HH-1.618,2));
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetString(x6,NumToStr(LL,2));
Text_SetString(x7,NumToStr(LL+1.0,2));
Text_SetString(x8,NumToStr(LL+1.618,2));
Text_SetString(x9,NumToStr(LL-1.0,2));
Text_SetString(x10,NumToStr(LL-1.618,2));
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
Else
{
if 텍스트출력 == 1 then
{
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,stime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,stime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
}
---------------------------------------------------------------------------------
네,특정값을 수식안에서 변경해서 적용하는건 알고 있습니다,그런데 적용하면 출력되는 선과 값이 기존 파동 고점,저점을 이중으로 출력되게만 됩니다,같은수식인데 국내선물처럼 파동 고점,저점에서 해당 입력값 만큼 출력되지 않습니다.그래서 질문 드린겁니다.항생차트에 적용 시켜보시면 확인할수 있을겁니다.
크라켄
2021-05-26 21:03:53
크라켄 님에 의해 삭제된 답변입니다.
크라켄
2021-05-26 21:09:42
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : Re : Re : 수정부탁드립니다
> 안녕하세요
예스스탁입니다.
첨부된 그림과 같이 항셍에도 정상출력되고 있습니다.
HH+1.618
HH-1.6187
LL+1.618
LL-1.6187
올리신 수식은 위 값을 출력하게 되어 있습니다
첨부된 그림을 보시면
고점 HH는 29272.00으로
29272 + 1.618 = 29273.618
29272 - 1.618 = 29270.382
정상적으로 표시하고 있습니다.
저점 LL는 29042.00이고
29042 + 1.618 = 29273.618
29042 - 1.618 = 29270.382
정상적으로 표시하고 있습니다.
소숫점 2자리까지 표시하므로 3자리에서 반올림해서 표시합니다.
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : Re : Re : 수정부탁드립니다
>
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 수정부탁드립니다
> 안녕하세요
예스스탁입니다.
수식에 수정할 내용이 없습니다.
첨부된 그림과 같이 정상적으로 출력되고 있습니다.
올리신 식은 파라볼릭종가 크로스를 기준으로
최고가와 최저가에서 특정값을 가감해서 그립니다.
HH+1.0
해당 특정값은 어떤 계산에 의한 값이 아닙니다.
사용자분이 수식안에서 직접 종목에 맞게 변경하셔야 합니다.
저희가 지정해 드릴수 있는 부분이 아닙니다.
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : 수정부탁드립니다
> $,아래식을 항생에 적용 가능하도록 수정 요청드립니다.
input : af(0.02), maxAF(0.2),텍스트출력(1),크기(0);;
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0);
var : HH1(0),LL1(0),HD1(0),HT1(0),LD1(0),LT1(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0);
var : TL6(0),tl7(0),TL8(0),TL9(0),TL10(0);
var : tx1(0),tx2(0),tx11(0),tx22(0);
var : x1(0),x2(0),x3(0),x4(0),x5(0);
var : x6(0),x7(0),x8(0),x9(0),x10(0);
var1 = CSar(af,maxAF);
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
HH1 = HH[1];
HD1 = HD[1];
HT1 = HT[1];
if LL > 0 Then
{
if 텍스트출력 == 1 then
{
Tx11 = Text_New(HD1,HT1,HH1,NumToStr((HH1-LL1),2)+NewLine+NumToStr(HH1,2));
Text_SetStyle(tx11,2,1);
Text_SetColor(tx11,BLUE);
Text_SetSize(tx11,크기);
Text_Delete(tx1);
Tx1 = Text_New(HD,HT,HH,NumToStr((HH-LL[1]),2)+NewLine+NumToStr(HH,2));
Text_SetStyle(tx1,2,1);
Text_SetColor(tx1,BLUE);
Text_SetSize(tx1,크기);
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
#TL1 = TL_New(LD,LT,HH,sDate,sTime,HH);
TL3 = TL_New(LD,LT,HH+1.617,sDate,sTime,HH+1.618);
TL5 = TL_New(LD,LT,HH-1.618,sDate,sTime,HH-1.618);
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,BLUE);
TL_SetColor(TL4,BLUE);
TL_SetColor(TL5,BLUE);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL_Delete(TL9);
TL_Delete(TL10);
#TL6 = TL_New(LD,LT,LL,sDate,sTime,LL);
TL8 = TL_New(LD,LT,LL+1.618,sDate,sTime,LL+1.618);
TL10 = TL_New(LD,LT,LL-1.618,sDate,sTime,LL-1.618);
TL_SetColor(TL6,RED);
TL_SetColor(TL7,RED);
TL_SetColor(TL8,RED);
TL_SetColor(TL9,RED);
TL_SetColor(TL10,RED);
Text_Delete(x1);
Text_Delete(x2);
Text_Delete(x3);
Text_Delete(x4);
Text_Delete(x5);
#x1 = Text_New(sDate,sTime,HH,NumToStr(HH,2));
x3 = Text_New(sDate,sTime,HH+1.618,NumToStr(HH+1.618,2));
x5 = Text_New(sDate,sTime,HH-1.618,NumToStr(HH-1.618,2));
Text_SetColor(x1,BLUE);
Text_SetColor(x2,BLUE);
Text_SetColor(x3,BLUE);
Text_SetColor(x4,BLUE);
Text_SetColor(x5,BLUE);
Text_SetStyle(x1,0,2);
Text_SetStyle(x2,0,2);
Text_SetStyle(x3,0,2);
Text_SetStyle(x4,0,2);
Text_SetStyle(x5,0,2);
Text_Delete(x6);
Text_Delete(x7);
Text_Delete(x8);
Text_Delete(x9);
Text_Delete(x10);
#x6 = Text_New(sDate,sTime,LL,NumToStr(LL,2));
x8 = Text_New(sDate,sTime,LL+1.618,NumToStr(LL+1.618,2));
x10 = Text_New(sDate,sTime,LL-1.618,NumToStr(LL-1.618,2));
Text_SetColor(x6,RED);
Text_SetColor(x7,RED);
Text_SetColor(x8,RED);
Text_SetColor(x9,RED);
Text_SetColor(x10,RED);
Text_SetStyle(x6,0,2);
Text_SetStyle(x7,0,2);
Text_SetStyle(x8,0,2);
Text_SetStyle(x9,0,2);
Text_SetStyle(x10,0,2);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
LL1 = LL[1];
LD1 = LD[1];
LT1 = LT[1];
if HH > 0 Then
{
if 텍스트출력 == 1 then
{
Tx22 = Text_New(LD1,LT1,LL1,NumToStr((HH1-LL1),2)+NewLine+NumToStr(LL1,2));
Text_SetStyle(tx22,2,0);
Text_SetColor(tx22,RED);
Text_Delete(tx2);
Text_SetSize(tx22,크기);
Tx2 = Text_New(LD,LT,LL,NumToStr((HH[1]-LL),2)+NewLine+NumToStr(LL,2));
Text_SetStyle(tx2,2,0);
Text_SetColor(tx2,RED);
Text_SetSize(tx2,크기);
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
#TL1 = TL_New(HD,HT,HH,sDate,sTime,HH);
TL3 = TL_New(HD,HT,HH+1.617,sDate,sTime,HH+1.618);
TL5 = TL_New(HD,HT,HH-1.618,sDate,sTime,HH-1.618);
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,BLUE);
TL_SetColor(TL4,BLUE);
TL_SetColor(TL5,BLUE);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL_Delete(TL9);
TL_Delete(TL10);
#TL6 = TL_New(HD,HT,LL,sDate,sTime,LL);
TL8 = TL_New(HD,HT,LL+1.618,sDate,sTime,LL+1.618);
TL10 = TL_New(HD,HT,LL-1.618,sDate,sTime,LL-1.618);
TL_SetColor(TL6,RED);
TL_SetColor(TL7,RED);
TL_SetColor(TL8,RED);
TL_SetColor(TL9,RED);
TL_SetColor(TL10,RED);
Text_Delete(x1);
Text_Delete(x2);
Text_Delete(x3);
Text_Delete(x4);
Text_Delete(x5);
#x1 = Text_New(sDate,sTime,HH,NumToStr(HH,2));
x3 = Text_New(sDate,sTime,HH+1.618,NumToStr(HH+1.618,2));
x5 = Text_New(sDate,sTime,HH-1.618,NumToStr(HH-1.618,2));
Text_SetColor(x1,BLUE);
Text_SetColor(x2,BLUE);
Text_SetColor(x3,BLUE);
Text_SetColor(x4,BLUE);
Text_SetColor(x5,BLUE);
Text_SetStyle(x1,0,2);
Text_SetStyle(x2,0,2);
Text_SetStyle(x3,0,2);
Text_SetStyle(x4,0,2);
Text_SetStyle(x5,0,2);
Text_Delete(x6);
Text_Delete(x7);
Text_Delete(x8);
Text_Delete(x9);
Text_Delete(x10);
#x6 = Text_New(sDate,sTime,LL,NumToStr(LL,2));
x8 = Text_New(sDate,sTime,LL+1.618,NumToStr(LL+1.618,2));
x10 = Text_New(sDate,sTime,LL-1.618,NumToStr(LL-1.618,2));
Text_SetColor(x6,RED);
Text_SetColor(x7,RED);
Text_SetColor(x8,RED);
Text_SetColor(x9,RED);
Text_SetColor(x10,RED);
Text_SetStyle(x6,0,2);
Text_SetStyle(x7,0,2);
Text_SetStyle(x8,0,2);
Text_SetStyle(x9,0,2);
Text_SetStyle(x10,0,2);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
if 텍스트출력 == 1 then
{
Text_Delete(tx1);
Tx1 = Text_New(HD,HT,HH,NumToStr((HH-LL[1]),2)+NewLine+NumToStr(HH,2));
Text_SetStyle(tx1,2,1);
Text_SetColor(tx1,BLUE);
Text_SetSize(tx1,크기);
TL_SetBegin(TL1,LD,LT,HH);
TL_SetBegin(TL3,LD,LT,HH+1.618);
TL_SetBegin(TL5,LD,LT,HH-1.618);
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetBegin(TL6,LD,LT,LL);
TL_SetBegin(TL7,LD,LT,LL+1.0);
TL_SetBegin(TL8,LD,LT,LL+1.618);
TL_SetBegin(TL9,LD,LT,LL-1.0);
TL_SetBegin(TL10,LD,LT,LL-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,sTime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetString(x1,NumToStr(HH,2));
Text_SetString(x2,NumToStr(HH+1.0,2));
Text_SetString(x3,NumToStr(HH+1.618,2));
Text_SetString(x4,NumToStr(HH-1.0,2));
Text_SetString(x5,NumToStr(HH-1.618,2));
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetString(x6,NumToStr(LL,2));
Text_SetString(x7,NumToStr(LL+1.0,2));
Text_SetString(x8,NumToStr(LL+1.618,2));
Text_SetString(x9,NumToStr(LL-1.0,2));
Text_SetString(x10,NumToStr(LL-1.618,2));
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
Else
{
if 텍스트출력 == 1 then
{
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,stime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,stime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
if 텍스트출력 == 1 then
{
Text_Delete(tx2);
Tx2 = Text_New(LD,LT,LL,NumToStr((HH[1]-LL),2)+NewLine+NumToStr(LL,2));
Text_SetStyle(tx2,2,0);
Text_SetColor(tx2,RED);
Text_SetSize(tx2,크기);
TL_SetBegin(TL1,HD,HT,HH);
TL_SetBegin(TL2,HD,HT,HH+1.0);
TL_SetBegin(TL3,HD,HT,HH+1.618);
TL_SetBegin(TL4,HD,HT,HH-1.0);
TL_SetBegin(TL5,HD,HT,HH-1.618);
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,sTime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetBegin(TL6,HD,HT,LL);
TL_SetBegin(TL7,HD,HT,LL+1.0);
TL_SetBegin(TL8,HD,HT,LL+1.618);
TL_SetBegin(TL9,HD,HT,LL-1.0);
TL_SetBegin(TL10,HD,HT,LL-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,sTime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetString(x1,NumToStr(HH,2));
Text_SetString(x2,NumToStr(HH+1.0,2));
Text_SetString(x3,NumToStr(HH+1.618,2));
Text_SetString(x4,NumToStr(HH-1.0,2));
Text_SetString(x5,NumToStr(HH-1.618,2));
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetString(x6,NumToStr(LL,2));
Text_SetString(x7,NumToStr(LL+1.0,2));
Text_SetString(x8,NumToStr(LL+1.618,2));
Text_SetString(x9,NumToStr(LL-1.0,2));
Text_SetString(x10,NumToStr(LL-1.618,2));
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
Else
{
if 텍스트출력 == 1 then
{
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,HH+1.0);
TL_SetEnd(TL3,sDate,sTime,HH+1.618);
TL_SetEnd(TL4,sDate,stime,HH-1.0);
TL_SetEnd(TL5,sDate,sTime,HH-1.618);
TL_SetEnd(TL6,sDate,sTime,LL);
TL_SetEnd(TL7,sDate,sTime,LL+1.0);
TL_SetEnd(TL8,sDate,sTime,LL+1.618);
TL_SetEnd(TL9,sDate,stime,LL-1.0);
TL_SetEnd(TL10,sDate,sTime,LL-1.618);
Text_SetLocation(x1,sDate,sTime,HH);
Text_SetLocation(x2,sDate,sTime,HH+1.0);
Text_SetLocation(x3,sDate,sTime,HH+1.618);
Text_SetLocation(x4,sDate,sTime,HH-1.0);
Text_SetLocation(x5,sDate,sTime,HH-1.618);
Text_SetLocation(x6,sDate,sTime,LL);
Text_SetLocation(x7,sDate,sTime,LL+1.0);
Text_SetLocation(x8,sDate,sTime,LL+1.618);
Text_SetLocation(x9,sDate,sTime,LL-1.0);
Text_SetLocation(x10,sDate,sTime,LL-1.618);
}
}
}
---------------------------------------------------------------------------------
네,특정값을 수식안에서 변경해서 적용하는건 알고 있습니다,그런데 적용하면 출력되는 선과 값이 기존 파동 고점,저점을 이중으로 출력되게만 됩니다,같은수식인데 국내선물처럼 파동 고점,저점에서 해당 입력값 만큼 출력되지 않습니다.그래서 질문 드린겁니다.항생차트에 적용 시켜보시면 확인할수 있을겁니
-----------------------------------------------------------------------------
네,답변감사합니다, 수고많으셨습니다.
이전글