커뮤니티
선긋기 부탁드립니다.
2022-09-06 08:27:55
1413
글번호 162014
안녕하세요?
늘 감사드리면서 선긋기 수식을 요청드립니다.
선물 당일 종가를 기준으로
+1.25 -1.25
+1.5 -1.5
+2.5 -2.5
+3.0 -3.0
+5.0 -5.0
추세선을 당일 15:20분부터 다음날 10:30분까지 선긋기를 원합니다.
추세선은 RGB 숫자로 변경 가능하도록 굵기와 함께 부탁드려봅니다.
도와주심에 다시한번 감사드리며
오늘도 즐거운시간 되시길 바랍니다.
답변 3
예스스탁 예스스탁 답변
2022-09-06 11:48:56
안녕하세요
예스스탁입니다.
input : StartTime(152000),EndTime(103000);
input : pt1(1.25),pt2(1.50),pt3(2.5),pt4(3.0),pt5(5.25);
input : r1(255),g1(0),b1(0),굵기1(1);
input : r2(0),g2(0),b2(255),굵기2(1);
var : Tcond(false);
if (sdate != sdate[1] and stime >= EndTime) or
(sdate == sdate[1] and stime >= EndTime and stime[1] < EndTime) Then
Tcond = False;
if (sdate != sdate[1] and stime >= StartTime) or
(sdate == sdate[1] and stime >= StartTime and stime[1] < StartTime) Then
{
Tcond = true;
value1 = c;
Value2 = sdate;
Value3 = sTime;
var1 = TL_New(value2,value3,value1,NextBarSdate,NextBarStime,value1);
var21 = TL_New(value2,value3,value1+pt1,NextBarSdate,NextBarStime,value1+pt1);
var22 = TL_New(value2,value3,value1+pt2,NextBarSdate,NextBarStime,value1+pt2);
var23 = TL_New(value2,value3,value1+pt3,NextBarSdate,NextBarStime,value1+pt3);
var24 = TL_New(value2,value3,value1+pt4,NextBarSdate,NextBarStime,value1+pt4);
var25 = TL_New(value2,value3,value1+pt5,NextBarSdate,NextBarStime,value1+pt5);
TL_SetColor(Var21,Rgb(r1,g1,b1));
TL_SetColor(Var22,Rgb(r1,g1,b1));
TL_SetColor(Var23,Rgb(r1,g1,b1));
TL_SetColor(Var24,Rgb(r1,g1,b1));
TL_SetColor(Var25,Rgb(r1,g1,b1));
TL_SetSize(Var21,굵기1);
TL_SetSize(Var22,굵기1);
TL_SetSize(Var23,굵기1);
TL_SetSize(Var24,굵기1);
TL_SetSize(Var25,굵기1);
var31 = TL_New(value2,value3,value1-pt1,NextBarSdate,NextBarStime,value1-pt1);
var32 = TL_New(value2,value3,value1-pt2,NextBarSdate,NextBarStime,value1-pt2);
var33 = TL_New(value2,value3,value1-pt3,NextBarSdate,NextBarStime,value1-pt3);
var34 = TL_New(value2,value3,value1-pt4,NextBarSdate,NextBarStime,value1-pt4);
var35 = TL_New(value2,value3,value1-pt5,NextBarSdate,NextBarStime,value1-pt5);
TL_SetColor(Var31,Rgb(r2,g1,b2));
TL_SetColor(Var32,Rgb(r2,g2,b2));
TL_SetColor(Var33,Rgb(r2,g2,b2));
TL_SetColor(Var34,Rgb(r2,g2,b2));
TL_SetColor(Var35,Rgb(r2,g2,b2));
TL_SetSize(Var31,굵기2);
TL_SetSize(Var32,굵기2);
TL_SetSize(Var33,굵기2);
TL_SetSize(Var34,굵기2);
TL_SetSize(Var35,굵기2);
}
if Tcond == true Then
{
if Value2 == sDate Then
{
value1 = c;
TL_SetBegin(var1,Value2,Value3,Value1);
TL_SetBegin(var21,Value2,Value3,Value1+pt1);
TL_SetBegin(var22,Value2,Value3,Value1+pt2);
TL_SetBegin(var23,Value2,Value3,Value1+pt3);
TL_SetBegin(var24,Value2,Value3,Value1+pt4);
TL_SetBegin(var25,Value2,Value3,Value1+pt5);
TL_SetBegin(var31,Value2,Value3,Value1-pt1);
TL_SetBegin(var32,Value2,Value3,Value1-pt2);
TL_SetBegin(var33,Value2,Value3,Value1-pt3);
TL_SetBegin(var34,Value2,Value3,Value1-pt4);
TL_SetBegin(var35,Value2,Value3,Value1-pt5);
}
TL_SetEnd(var1,NextBarSdate,NextBarStime,value1);
TL_SetEnd(var21,NextBarSdate,NextBarStime,value1+pt1);
TL_SetEnd(var22,NextBarSdate,NextBarStime,value1+pt2);
TL_SetEnd(var23,NextBarSdate,NextBarStime,value1+pt3);
TL_SetEnd(var24,NextBarSdate,NextBarStime,value1+pt4);
TL_SetEnd(var25,NextBarSdate,NextBarStime,value1+pt5);
TL_SetEnd(var31,NextBarSdate,NextBarStime,value1-pt1);
TL_SetEnd(var32,NextBarSdate,NextBarStime,value1-pt2);
TL_SetEnd(var33,NextBarSdate,NextBarStime,value1-pt3);
TL_SetEnd(var34,NextBarSdate,NextBarStime,value1-pt4);
TL_SetEnd(var35,NextBarSdate,NextBarStime,value1-pt5);
}
즐거운 하루되세요
> 포보스 님이 쓴 글입니다.
> 제목 : 선긋기 부탁드립니다.
> 안녕하세요?
늘 감사드리면서 선긋기 수식을 요청드립니다.
선물 당일 종가를 기준으로
+1.25 -1.25
+1.5 -1.5
+2.5 -2.5
+3.0 -3.0
+5.0 -5.0
추세선을 당일 15:20분부터 다음날 10:30분까지 선긋기를 원합니다.
추세선은 RGB 숫자로 변경 가능하도록 굵기와 함께 부탁드려봅니다.
도와주심에 다시한번 감사드리며
오늘도 즐거운시간 되시길 바랍니다.
포보스
2022-09-06 13:24:33
너무나 감사드립니다.
그런데 각 라인을 선택과 굵기를 개체속성변경창에서 조절할 수 있게부탁드립니다.
번거롭게 해드려 죄송합니다.
그듭 감사드립니다.
======================
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 선긋기 부탁드립니다.
>
안녕하세요
예스스탁입니다.
input : StartTime(152000),EndTime(103000);
input : pt1(1.25),pt2(1.50),pt3(2.5),pt4(3.0),pt5(5.25);
input : r1(255),g1(0),b1(0),굵기1(1);
input : r2(0),g2(0),b2(255),굵기2(1);
var : Tcond(false);
if (sdate != sdate[1] and stime >= EndTime) or
(sdate == sdate[1] and stime >= EndTime and stime[1] < EndTime) Then
Tcond = False;
if (sdate != sdate[1] and stime >= StartTime) or
(sdate == sdate[1] and stime >= StartTime and stime[1] < StartTime) Then
{
Tcond = true;
value1 = c;
Value2 = sdate;
Value3 = sTime;
var1 = TL_New(value2,value3,value1,NextBarSdate,NextBarStime,value1);
var21 = TL_New(value2,value3,value1+pt1,NextBarSdate,NextBarStime,value1+pt1);
var22 = TL_New(value2,value3,value1+pt2,NextBarSdate,NextBarStime,value1+pt2);
var23 = TL_New(value2,value3,value1+pt3,NextBarSdate,NextBarStime,value1+pt3);
var24 = TL_New(value2,value3,value1+pt4,NextBarSdate,NextBarStime,value1+pt4);
var25 = TL_New(value2,value3,value1+pt5,NextBarSdate,NextBarStime,value1+pt5);
TL_SetColor(Var21,Rgb(r1,g1,b1));
TL_SetColor(Var22,Rgb(r1,g1,b1));
TL_SetColor(Var23,Rgb(r1,g1,b1));
TL_SetColor(Var24,Rgb(r1,g1,b1));
TL_SetColor(Var25,Rgb(r1,g1,b1));
TL_SetSize(Var21,굵기1);
TL_SetSize(Var22,굵기1);
TL_SetSize(Var23,굵기1);
TL_SetSize(Var24,굵기1);
TL_SetSize(Var25,굵기1);
var31 = TL_New(value2,value3,value1-pt1,NextBarSdate,NextBarStime,value1-pt1);
var32 = TL_New(value2,value3,value1-pt2,NextBarSdate,NextBarStime,value1-pt2);
var33 = TL_New(value2,value3,value1-pt3,NextBarSdate,NextBarStime,value1-pt3);
var34 = TL_New(value2,value3,value1-pt4,NextBarSdate,NextBarStime,value1-pt4);
var35 = TL_New(value2,value3,value1-pt5,NextBarSdate,NextBarStime,value1-pt5);
TL_SetColor(Var31,Rgb(r2,g1,b2));
TL_SetColor(Var32,Rgb(r2,g2,b2));
TL_SetColor(Var33,Rgb(r2,g2,b2));
TL_SetColor(Var34,Rgb(r2,g2,b2));
TL_SetColor(Var35,Rgb(r2,g2,b2));
TL_SetSize(Var31,굵기2);
TL_SetSize(Var32,굵기2);
TL_SetSize(Var33,굵기2);
TL_SetSize(Var34,굵기2);
TL_SetSize(Var35,굵기2);
}
if Tcond == true Then
{
if Value2 == sDate Then
{
value1 = c;
TL_SetBegin(var1,Value2,Value3,Value1);
TL_SetBegin(var21,Value2,Value3,Value1+pt1);
TL_SetBegin(var22,Value2,Value3,Value1+pt2);
TL_SetBegin(var23,Value2,Value3,Value1+pt3);
TL_SetBegin(var24,Value2,Value3,Value1+pt4);
TL_SetBegin(var25,Value2,Value3,Value1+pt5);
TL_SetBegin(var31,Value2,Value3,Value1-pt1);
TL_SetBegin(var32,Value2,Value3,Value1-pt2);
TL_SetBegin(var33,Value2,Value3,Value1-pt3);
TL_SetBegin(var34,Value2,Value3,Value1-pt4);
TL_SetBegin(var35,Value2,Value3,Value1-pt5);
}
TL_SetEnd(var1,NextBarSdate,NextBarStime,value1);
TL_SetEnd(var21,NextBarSdate,NextBarStime,value1+pt1);
TL_SetEnd(var22,NextBarSdate,NextBarStime,value1+pt2);
TL_SetEnd(var23,NextBarSdate,NextBarStime,value1+pt3);
TL_SetEnd(var24,NextBarSdate,NextBarStime,value1+pt4);
TL_SetEnd(var25,NextBarSdate,NextBarStime,value1+pt5);
TL_SetEnd(var31,NextBarSdate,NextBarStime,value1-pt1);
TL_SetEnd(var32,NextBarSdate,NextBarStime,value1-pt2);
TL_SetEnd(var33,NextBarSdate,NextBarStime,value1-pt3);
TL_SetEnd(var34,NextBarSdate,NextBarStime,value1-pt4);
TL_SetEnd(var35,NextBarSdate,NextBarStime,value1-pt5);
}
즐거운 하루되세요
> 포보스 님이 쓴 글입니다.
> 제목 : 선긋기 부탁드립니다.
> 안녕하세요?
늘 감사드리면서 선긋기 수식을 요청드립니다.
선물 당일 종가를 기준으로
+1.25 -1.25
+1.5 -1.5
+2.5 -2.5
+3.0 -3.0
+5.0 -5.0
추세선을 당일 15:20분부터 다음날 10:30분까지 선긋기를 원합니다.
추세선은 RGB 숫자로 변경 가능하도록 굵기와 함께 부탁드려봅니다.
도와주심에 다시한번 감사드리며
오늘도 즐거운시간 되시길 바랍니다.
예스스탁 예스스탁 답변
2022-09-06 14:30:22
안녕하세요
예스스탁입니다.
추세선은 지표속성의 차트표시탭에서는 설정이 불가능합니다.
인풋변수로 처리해 변수탭에서 설정하게 변경해 드립니다.
상단1~상단5, 하단1~하단5 변수는 1이면 그려지고 0이면 그려지지 않습니다.
input : StartTime(152000),EndTime(103000);
input : pt1(1.25),pt2(1.50),pt3(2.5),pt4(3.0),pt5(5.25);
input : 상단1(1),상단1r(255),상단1g(0),상단1b(0),상단1굵기(1);
input : 상단2(1),상단2r(255),상단2g(0),상단2b(0),상단2굵기(1);
input : 상단3(1),상단3r(255),상단3g(0),상단3b(0),상단3굵기(1);
input : 상단4(1),상단4r(255),상단4g(0),상단4b(0),상단4굵기(1);
input : 상단5(1),상단5r(255),상단5g(0),상단5b(0),상단5굵기(1);
input : 하단1(1),하단1r(255),하단1g(0),하단1b(0),하단1굵기(1);
input : 하단2(1),하단2r(255),하단2g(0),하단2b(0),하단2굵기(1);
input : 하단3(1),하단3r(255),하단3g(0),하단3b(0),하단3굵기(1);
input : 하단4(1),하단4r(255),하단4g(0),하단4b(0),하단4굵기(1);
input : 하단5(1),하단5r(255),하단5g(0),하단5b(0),하단5굵기(1);
var : Tcond(false);
if (sdate != sdate[1] and stime >= EndTime) or
(sdate == sdate[1] and stime >= EndTime and stime[1] < EndTime) Then
Tcond = False;
if (sdate != sdate[1] and stime >= StartTime) or
(sdate == sdate[1] and stime >= StartTime and stime[1] < StartTime) Then
{
Tcond = true;
value1 = c;
Value2 = sdate;
Value3 = sTime;
var1 = TL_New(value2,value3,value1,NextBarSdate,NextBarStime,value1);
if 상단1 == 1 Then
var21 = TL_New(value2,value3,value1+pt1,NextBarSdate,NextBarStime,value1+pt1);
if 상단2 == 1 Then
var22 = TL_New(value2,value3,value1+pt2,NextBarSdate,NextBarStime,value1+pt2);
if 상단3 == 1 Then
var23 = TL_New(value2,value3,value1+pt3,NextBarSdate,NextBarStime,value1+pt3);
if 상단4 == 1 Then
var24 = TL_New(value2,value3,value1+pt4,NextBarSdate,NextBarStime,value1+pt4);
if 상단5 == 1 Then
var25 = TL_New(value2,value3,value1+pt5,NextBarSdate,NextBarStime,value1+pt5);
TL_SetColor(Var21,Rgb(상단1r,상단1g,상단1b));
TL_SetColor(Var22,Rgb(상단2r,상단2g,상단2b));
TL_SetColor(Var23,Rgb(상단3r,상단3g,상단3b));
TL_SetColor(Var24,Rgb(상단4r,상단4g,상단4b));
TL_SetColor(Var25,Rgb(상단5r,상단5g,상단5b));
TL_SetSize(Var21,상단1굵기);
TL_SetSize(Var22,상단2굵기);
TL_SetSize(Var23,상단3굵기);
TL_SetSize(Var24,상단4굵기);
TL_SetSize(Var25,상단5굵기);
if 하단1 == 1 Then
var31 = TL_New(value2,value3,value1-pt1,NextBarSdate,NextBarStime,value1-pt1);
if 하단2 == 1 Then
var32 = TL_New(value2,value3,value1-pt2,NextBarSdate,NextBarStime,value1-pt2);
if 하단3 == 1 Then
var33 = TL_New(value2,value3,value1-pt3,NextBarSdate,NextBarStime,value1-pt3);
if 하단4 == 1 Then
var34 = TL_New(value2,value3,value1-pt4,NextBarSdate,NextBarStime,value1-pt4);
if 하단5 == 1 Then
var35 = TL_New(value2,value3,value1-pt5,NextBarSdate,NextBarStime,value1-pt5);
TL_SetColor(Var31,Rgb(하단1r,하단1g,하단1b));
TL_SetColor(Var32,Rgb(하단2r,하단2g,하단2b));
TL_SetColor(Var33,Rgb(하단3r,하단3g,하단3b));
TL_SetColor(Var34,Rgb(하단4r,하단4g,하단4b));
TL_SetColor(Var35,Rgb(하단5r,하단5g,하단5b));
TL_SetSize(Var31,하단1굵기);
TL_SetSize(Var32,하단2굵기);
TL_SetSize(Var33,하단3굵기);
TL_SetSize(Var34,하단4굵기);
TL_SetSize(Var35,하단5굵기);
}
if Tcond == true Then
{
if Value2 == sDate Then
{
value1 = c;
TL_SetBegin(var1,Value2,Value3,Value1);
TL_SetBegin(var21,Value2,Value3,Value1+pt1);
TL_SetBegin(var22,Value2,Value3,Value1+pt2);
TL_SetBegin(var23,Value2,Value3,Value1+pt3);
TL_SetBegin(var24,Value2,Value3,Value1+pt4);
TL_SetBegin(var25,Value2,Value3,Value1+pt5);
TL_SetBegin(var31,Value2,Value3,Value1-pt1);
TL_SetBegin(var32,Value2,Value3,Value1-pt2);
TL_SetBegin(var33,Value2,Value3,Value1-pt3);
TL_SetBegin(var34,Value2,Value3,Value1-pt4);
TL_SetBegin(var35,Value2,Value3,Value1-pt5);
}
TL_SetEnd(var1,NextBarSdate,NextBarStime,value1);
TL_SetEnd(var21,NextBarSdate,NextBarStime,value1+pt1);
TL_SetEnd(var22,NextBarSdate,NextBarStime,value1+pt2);
TL_SetEnd(var23,NextBarSdate,NextBarStime,value1+pt3);
TL_SetEnd(var24,NextBarSdate,NextBarStime,value1+pt4);
TL_SetEnd(var25,NextBarSdate,NextBarStime,value1+pt5);
TL_SetEnd(var31,NextBarSdate,NextBarStime,value1-pt1);
TL_SetEnd(var32,NextBarSdate,NextBarStime,value1-pt2);
TL_SetEnd(var33,NextBarSdate,NextBarStime,value1-pt3);
TL_SetEnd(var34,NextBarSdate,NextBarStime,value1-pt4);
TL_SetEnd(var35,NextBarSdate,NextBarStime,value1-pt5);
}
즐거운 하루되세요
> 포보스 님이 쓴 글입니다.
> 제목 : Re : Re : 선긋기 부탁드립니다.
> 너무나 감사드립니다.
그런데 각 라인을 선택과 굵기를 개체속성변경창에서 조절할 수 있게부탁드립니다.
번거롭게 해드려 죄송합니다.
그듭 감사드립니다.
======================
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 선긋기 부탁드립니다.
>
안녕하세요
예스스탁입니다.
input : StartTime(152000),EndTime(103000);
input : pt1(1.25),pt2(1.50),pt3(2.5),pt4(3.0),pt5(5.25);
input : r1(255),g1(0),b1(0),굵기1(1);
input : r2(0),g2(0),b2(255),굵기2(1);
var : Tcond(false);
if (sdate != sdate[1] and stime >= EndTime) or
(sdate == sdate[1] and stime >= EndTime and stime[1] < EndTime) Then
Tcond = False;
if (sdate != sdate[1] and stime >= StartTime) or
(sdate == sdate[1] and stime >= StartTime and stime[1] < StartTime) Then
{
Tcond = true;
value1 = c;
Value2 = sdate;
Value3 = sTime;
var1 = TL_New(value2,value3,value1,NextBarSdate,NextBarStime,value1);
var21 = TL_New(value2,value3,value1+pt1,NextBarSdate,NextBarStime,value1+pt1);
var22 = TL_New(value2,value3,value1+pt2,NextBarSdate,NextBarStime,value1+pt2);
var23 = TL_New(value2,value3,value1+pt3,NextBarSdate,NextBarStime,value1+pt3);
var24 = TL_New(value2,value3,value1+pt4,NextBarSdate,NextBarStime,value1+pt4);
var25 = TL_New(value2,value3,value1+pt5,NextBarSdate,NextBarStime,value1+pt5);
TL_SetColor(Var21,Rgb(r1,g1,b1));
TL_SetColor(Var22,Rgb(r1,g1,b1));
TL_SetColor(Var23,Rgb(r1,g1,b1));
TL_SetColor(Var24,Rgb(r1,g1,b1));
TL_SetColor(Var25,Rgb(r1,g1,b1));
TL_SetSize(Var21,굵기1);
TL_SetSize(Var22,굵기1);
TL_SetSize(Var23,굵기1);
TL_SetSize(Var24,굵기1);
TL_SetSize(Var25,굵기1);
var31 = TL_New(value2,value3,value1-pt1,NextBarSdate,NextBarStime,value1-pt1);
var32 = TL_New(value2,value3,value1-pt2,NextBarSdate,NextBarStime,value1-pt2);
var33 = TL_New(value2,value3,value1-pt3,NextBarSdate,NextBarStime,value1-pt3);
var34 = TL_New(value2,value3,value1-pt4,NextBarSdate,NextBarStime,value1-pt4);
var35 = TL_New(value2,value3,value1-pt5,NextBarSdate,NextBarStime,value1-pt5);
TL_SetColor(Var31,Rgb(r2,g1,b2));
TL_SetColor(Var32,Rgb(r2,g2,b2));
TL_SetColor(Var33,Rgb(r2,g2,b2));
TL_SetColor(Var34,Rgb(r2,g2,b2));
TL_SetColor(Var35,Rgb(r2,g2,b2));
TL_SetSize(Var31,굵기2);
TL_SetSize(Var32,굵기2);
TL_SetSize(Var33,굵기2);
TL_SetSize(Var34,굵기2);
TL_SetSize(Var35,굵기2);
}
if Tcond == true Then
{
if Value2 == sDate Then
{
value1 = c;
TL_SetBegin(var1,Value2,Value3,Value1);
TL_SetBegin(var21,Value2,Value3,Value1+pt1);
TL_SetBegin(var22,Value2,Value3,Value1+pt2);
TL_SetBegin(var23,Value2,Value3,Value1+pt3);
TL_SetBegin(var24,Value2,Value3,Value1+pt4);
TL_SetBegin(var25,Value2,Value3,Value1+pt5);
TL_SetBegin(var31,Value2,Value3,Value1-pt1);
TL_SetBegin(var32,Value2,Value3,Value1-pt2);
TL_SetBegin(var33,Value2,Value3,Value1-pt3);
TL_SetBegin(var34,Value2,Value3,Value1-pt4);
TL_SetBegin(var35,Value2,Value3,Value1-pt5);
}
TL_SetEnd(var1,NextBarSdate,NextBarStime,value1);
TL_SetEnd(var21,NextBarSdate,NextBarStime,value1+pt1);
TL_SetEnd(var22,NextBarSdate,NextBarStime,value1+pt2);
TL_SetEnd(var23,NextBarSdate,NextBarStime,value1+pt3);
TL_SetEnd(var24,NextBarSdate,NextBarStime,value1+pt4);
TL_SetEnd(var25,NextBarSdate,NextBarStime,value1+pt5);
TL_SetEnd(var31,NextBarSdate,NextBarStime,value1-pt1);
TL_SetEnd(var32,NextBarSdate,NextBarStime,value1-pt2);
TL_SetEnd(var33,NextBarSdate,NextBarStime,value1-pt3);
TL_SetEnd(var34,NextBarSdate,NextBarStime,value1-pt4);
TL_SetEnd(var35,NextBarSdate,NextBarStime,value1-pt5);
}
즐거운 하루되세요
> 포보스 님이 쓴 글입니다.
> 제목 : 선긋기 부탁드립니다.
> 안녕하세요?
늘 감사드리면서 선긋기 수식을 요청드립니다.
선물 당일 종가를 기준으로
+1.25 -1.25
+1.5 -1.5
+2.5 -2.5
+3.0 -3.0
+5.0 -5.0
추세선을 당일 15:20분부터 다음날 10:30분까지 선긋기를 원합니다.
추세선은 RGB 숫자로 변경 가능하도록 굵기와 함께 부탁드려봅니다.
도와주심에 다시한번 감사드리며
오늘도 즐거운시간 되시길 바랍니다.
다음글
이전글