커뮤니티
다시 문의 드립니다.
2025-04-22 14:27:43
228
글번호 190329
<< 92418 >>
1.번 수식은 지표가 보조 지표란에 나옵니다
2.번 수식은 나타 나지 않읍니다
다시 한번 부탁 드립니다.
감사 합니다.
그리고,
1번과 2번은 분리 해 주십시요
각선의 굵기, 글자, 색상 조절도 할수 있게 해주십시요
1
input : Period(8);
var : R(0),A(0),B(0);
R = RSI(Period);
if CrossUp(R,50) Then
{
A = C;
B = C;
}
Else
{
if A > 0 and C > A Then
A = C;
if B > 0 and C < B Then
B = C;
}
Plot1(A);
plot2((A+B)/2);
plot3(B);
2
input : ChangeMethod(1); //1:전환율, 2: 포인트(원), 3: 틱수, 4: n봉 최고가/최저가 갱신
input : Change(0.13); //ChangeMethod에 따라 변화율, 포인트, 틱수, n봉이 됨
input : UseClose(0); //0이면 고가/저가 사용, 1이면 종가
Array : HD[10](0),HT[10](0),HV[10](0); //고점 날짜, 시간, 가격 저장할 배열
Array : LD[10](0),LT[10](0),LV[10](0); //저점 날짜, 시간, 가격 저장할 배열
var : cnt(0),Hprice(0),Lprice(0);
var : UpTrend(false),DownTrend(False),Trend(0);
var : ZigZagTL(0),Text(0),LTL(0),HTL(0);
HPrice = IFf(UseClose == 1 ,C,H);
LPrice = IFf(UseClose == 1 ,C,L);
if Index == 0 Then
{
//초기 최고값
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
//초기 최저값
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
}
Else
{
if ChangeMethod == 1 Then
{
UpTrend = HPrice >= LV[0]*(1+Change/100);
DownTrend = LPrice <= HV[0]*(1-Change/100);
}
else if ChangeMethod == 2 Then
{
UpTrend = HPrice >= LV[0]+Change;
DownTrend = LPrice <= HV[0]-Change;
}
else if ChangeMethod == 3 Then
{
UpTrend = HPrice >= LV[0]+Change*PriceScale;
DownTrend = LPrice <= HV[0]-Change*PriceScale;
}
Else
{
UpTrend = HPrice >= Highest(HPrice,Change)[1];
DownTrend = LPrice <= Lowest(LPrice,Change)[1];
}
if trend <= 0 and UpTrend == true Then
{
trend = 1;
For cnt = 9 DownTo 1
{
HD[cnt] = HD[cnt-1];
HT[cnt] = HT[cnt-1];
HV[cnt] = HV[cnt-1];
}
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
ZigZagTL = TL_New(LD[0],LT[0],LV[0],HD[0],HT[0],HV[0]);
TL_SetColor(ZigZagTL,Red);
TL_SetSize(ZigZagTL,1);
Text = Text_New(HD[0],HT[0],HV[0],NumToStr(HV[0],2));
Text_SetColor(Text,Red);
Text_SetSize(Text,12);
Text_SetStyle(Text,2,1);
if HV[1] > 0 Then
{
HTL = TL_New(HD[1],HT[1],HV[1],HD[0],HT[0],HV[0]);
TL_SetColor(HTL,Orange);
TL_SetSize(HTL,0);
}
}
Else if trend >= 0 and DownTrend Then
{
trend = -1;
For cnt = 9 DownTo 1
{
LD[cnt] = LD[cnt-1];
LT[cnt] = LT[cnt-1];
LV[cnt] = LV[cnt-1];
}
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
ZigZagTL = TL_New(HD[0],HT[0],HV[0],LD[0],LT[0],LV[0]);
TL_SetColor(ZigZagTL,Blue);
TL_SetSize(ZigZagTL,1);
Text = Text_New(LD[0],LT[0],LV[0],NumToStr(LV[0],2));
Text_SetColor(Text,Blue);
Text_SetSize(Text,12);
Text_SetStyle(Text,2,0);
if LV[1] > 0 Then
{
LTL = TL_New(LD[1],LT[1],LV[1],LD[0],LT[0],LV[0]);
TL_SetColor(LTL,Cyan);
TL_SetSize(LTL,0);
}
}
Else
{
if trend == 1 Then
{
if HPrice > HV[0] Then
{
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
TL_SetEnd(ZigZagTL,HD[0],HT[0],HV[0]);
Text_SetLocation(Text,HD[0],HT[0],HV[0]);
Text_SetString(Text,NumToStr(HV[0],2));
TL_SetEnd(HTL,HD[0],HT[0],HV[0]);
}
}
if trend == -1 Then
{
if LPrice < LV[0] Then
{
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
TL_SetEnd(ZigZagTL,LD[0],LT[0],LV[0]);
Text_SetLocation(Text,LD[0],LT[0],LV[0]);
Text_SetString(Text,NumToStr(LV[0],2));
TL_SetEnd(LTL,LD[0],LT[0],LV[0]);
}
}
}
}
---------------------------------------------------------------------------
답변 1
예스스탁 예스스탁 답변
2025-04-22 17:10:38
안녕하세요
예스스탁입니다.
1
편집기에서 지표식을 작성하실때
문법검증 후에 f5키를 누르시면 지표속성화면이 나타납니다.
지표속성 Y축표시에서 가격으로 지정하고 작성 완료하시면
해당 지표식은 차트에 적용시 항상 기본종목 봉위에 적용이 됩니다.
지표식의 Y축표시는 기본이 화면으로
봉 아래에 적용이 됩니다.
2
1번과 2번은 원래 별도로 답변드린 식입니다.
2번식은 일반 plot이 아닌 추세선으로 작성된 식입니다.
첨부된 그림과 같이 기본종목 봉 위에 표시되는 내용입니다.
1번과 2번은 각각 지표식으로 작성해서 사용하시면 됩니다.
3
1번은 지표속성의 차트표시탭에서 선색등 변경하시면 됩니다.
2번은 추세선으로 출력되어 색상,크기등 외부변수 처리해 드립니다.
input : ChangeMethod(1); //1:전환율, 2: 포인트(원), 3: 틱수, 4: n봉 최고가/최저가 갱신
input : Change(0.13); //ChangeMethod에 따라 변화율, 포인트, 틱수, n봉이 됨
input : UseClose(0); //0이면 고가/저가 사용, 1이면 종가
input : 고점추세선색(Red),저점추세선색(blue),고점추세선긁기(1),저점추세선굵기(1);
input : 고점간연결추세선색(Orange),저점간연결추세선색(cyan),고점간연결추세선굵기(1),저점간연결추세선굵기(1);
input : 고점텍스트색(Red),저점텍스트색(blue),고점텍스트크기(12),저점텍스트크기(12);
Array : HD[10](0),HT[10](0),HV[10](0); //고점 날짜, 시간, 가격 저장할 배열
Array : LD[10](0),LT[10](0),LV[10](0); //저점 날짜, 시간, 가격 저장할 배열
var : cnt(0),Hprice(0),Lprice(0);
var : UpTrend(false),DownTrend(False),Trend(0);
var : ZigZagTL(0),Text(0),LTL(0),HTL(0);
HPrice = IFf(UseClose == 1 ,C,H);
LPrice = IFf(UseClose == 1 ,C,L);
if Index == 0 Then
{
//초기 최고값
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
//초기 최저값
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
}
Else
{
if ChangeMethod == 1 Then
{
UpTrend = HPrice >= LV[0]*(1+Change/100);
DownTrend = LPrice <= HV[0]*(1-Change/100);
}
else if ChangeMethod == 2 Then
{
UpTrend = HPrice >= LV[0]+Change;
DownTrend = LPrice <= HV[0]-Change;
}
else if ChangeMethod == 3 Then
{
UpTrend = HPrice >= LV[0]+Change*PriceScale;
DownTrend = LPrice <= HV[0]-Change*PriceScale;
}
Else
{
UpTrend = HPrice >= Highest(HPrice,Change)[1];
DownTrend = LPrice <= Lowest(LPrice,Change)[1];
}
if trend <= 0 and UpTrend == true Then
{
trend = 1;
For cnt = 9 DownTo 1
{
HD[cnt] = HD[cnt-1];
HT[cnt] = HT[cnt-1];
HV[cnt] = HV[cnt-1];
}
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
ZigZagTL = TL_New(LD[0],LT[0],LV[0],HD[0],HT[0],HV[0]);
TL_SetColor(ZigZagTL,고점추세선색);
TL_SetSize(ZigZagTL,고점추세선긁기);
Text = Text_New(HD[0],HT[0],HV[0],NumToStr(HV[0],2));
Text_SetColor(Text,고점텍스트색);
Text_SetSize(Text,고점텍스트크기);
Text_SetStyle(Text,2,1);
if HV[1] > 0 Then
{
HTL = TL_New(HD[1],HT[1],HV[1],HD[0],HT[0],HV[0]);
TL_SetColor(HTL,고점간연결추세선색);
TL_SetSize(HTL,고점간연결추세선굵기);
}
}
Else if trend >= 0 and DownTrend Then
{
trend = -1;
For cnt = 9 DownTo 1
{
LD[cnt] = LD[cnt-1];
LT[cnt] = LT[cnt-1];
LV[cnt] = LV[cnt-1];
}
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
ZigZagTL = TL_New(HD[0],HT[0],HV[0],LD[0],LT[0],LV[0]);
TL_SetColor(ZigZagTL,저점추세선색);
TL_SetSize(ZigZagTL,저점추세선굵기);
Text = Text_New(LD[0],LT[0],LV[0],NumToStr(LV[0],2));
Text_SetColor(Text,저점텍스트색);
Text_SetSize(Text,저점텍스트크기);
Text_SetStyle(Text,2,0);
if LV[1] > 0 Then
{
LTL = TL_New(LD[1],LT[1],LV[1],LD[0],LT[0],LV[0]);
TL_SetColor(LTL,저점간연결추세선색);
TL_SetSize(LTL,저점간연결추세선굵기);
}
}
Else
{
if trend == 1 Then
{
if HPrice > HV[0] Then
{
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
TL_SetEnd(ZigZagTL,HD[0],HT[0],HV[0]);
Text_SetLocation(Text,HD[0],HT[0],HV[0]);
Text_SetString(Text,NumToStr(HV[0],2));
TL_SetEnd(HTL,HD[0],HT[0],HV[0]);
}
}
if trend == -1 Then
{
if LPrice < LV[0] Then
{
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
TL_SetEnd(ZigZagTL,LD[0],LT[0],LV[0]);
Text_SetLocation(Text,LD[0],LT[0],LV[0]);
Text_SetString(Text,NumToStr(LV[0],2));
TL_SetEnd(LTL,LD[0],LT[0],LV[0]);
}
}
}
}
즐거운 하루되세요
> s1017051 님이 쓴 글입니다.
> 제목 : 다시 문의 드립니다.
> << 92418 >>
1.번 수식은 지표가 보조 지표란에 나옵니다
2.번 수식은 나타 나지 않읍니다
다시 한번 부탁 드립니다.
감사 합니다.
그리고,
1번과 2번은 분리 해 주십시요
각선의 굵기, 글자, 색상 조절도 할수 있게 해주십시요
1
input : Period(8);
var : R(0),A(0),B(0);
R = RSI(Period);
if CrossUp(R,50) Then
{
A = C;
B = C;
}
Else
{
if A > 0 and C > A Then
A = C;
if B > 0 and C < B Then
B = C;
}
Plot1(A);
plot2((A+B)/2);
plot3(B);
2
input : ChangeMethod(1); //1:전환율, 2: 포인트(원), 3: 틱수, 4: n봉 최고가/최저가 갱신
input : Change(0.13); //ChangeMethod에 따라 변화율, 포인트, 틱수, n봉이 됨
input : UseClose(0); //0이면 고가/저가 사용, 1이면 종가
Array : HD[10](0),HT[10](0),HV[10](0); //고점 날짜, 시간, 가격 저장할 배열
Array : LD[10](0),LT[10](0),LV[10](0); //저점 날짜, 시간, 가격 저장할 배열
var : cnt(0),Hprice(0),Lprice(0);
var : UpTrend(false),DownTrend(False),Trend(0);
var : ZigZagTL(0),Text(0),LTL(0),HTL(0);
HPrice = IFf(UseClose == 1 ,C,H);
LPrice = IFf(UseClose == 1 ,C,L);
if Index == 0 Then
{
//초기 최고값
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
//초기 최저값
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
}
Else
{
if ChangeMethod == 1 Then
{
UpTrend = HPrice >= LV[0]*(1+Change/100);
DownTrend = LPrice <= HV[0]*(1-Change/100);
}
else if ChangeMethod == 2 Then
{
UpTrend = HPrice >= LV[0]+Change;
DownTrend = LPrice <= HV[0]-Change;
}
else if ChangeMethod == 3 Then
{
UpTrend = HPrice >= LV[0]+Change*PriceScale;
DownTrend = LPrice <= HV[0]-Change*PriceScale;
}
Else
{
UpTrend = HPrice >= Highest(HPrice,Change)[1];
DownTrend = LPrice <= Lowest(LPrice,Change)[1];
}
if trend <= 0 and UpTrend == true Then
{
trend = 1;
For cnt = 9 DownTo 1
{
HD[cnt] = HD[cnt-1];
HT[cnt] = HT[cnt-1];
HV[cnt] = HV[cnt-1];
}
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
ZigZagTL = TL_New(LD[0],LT[0],LV[0],HD[0],HT[0],HV[0]);
TL_SetColor(ZigZagTL,Red);
TL_SetSize(ZigZagTL,1);
Text = Text_New(HD[0],HT[0],HV[0],NumToStr(HV[0],2));
Text_SetColor(Text,Red);
Text_SetSize(Text,12);
Text_SetStyle(Text,2,1);
if HV[1] > 0 Then
{
HTL = TL_New(HD[1],HT[1],HV[1],HD[0],HT[0],HV[0]);
TL_SetColor(HTL,Orange);
TL_SetSize(HTL,0);
}
}
Else if trend >= 0 and DownTrend Then
{
trend = -1;
For cnt = 9 DownTo 1
{
LD[cnt] = LD[cnt-1];
LT[cnt] = LT[cnt-1];
LV[cnt] = LV[cnt-1];
}
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
ZigZagTL = TL_New(HD[0],HT[0],HV[0],LD[0],LT[0],LV[0]);
TL_SetColor(ZigZagTL,Blue);
TL_SetSize(ZigZagTL,1);
Text = Text_New(LD[0],LT[0],LV[0],NumToStr(LV[0],2));
Text_SetColor(Text,Blue);
Text_SetSize(Text,12);
Text_SetStyle(Text,2,0);
if LV[1] > 0 Then
{
LTL = TL_New(LD[1],LT[1],LV[1],LD[0],LT[0],LV[0]);
TL_SetColor(LTL,Cyan);
TL_SetSize(LTL,0);
}
}
Else
{
if trend == 1 Then
{
if HPrice > HV[0] Then
{
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
TL_SetEnd(ZigZagTL,HD[0],HT[0],HV[0]);
Text_SetLocation(Text,HD[0],HT[0],HV[0]);
Text_SetString(Text,NumToStr(HV[0],2));
TL_SetEnd(HTL,HD[0],HT[0],HV[0]);
}
}
if trend == -1 Then
{
if LPrice < LV[0] Then
{
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
TL_SetEnd(ZigZagTL,LD[0],LT[0],LV[0]);
Text_SetLocation(Text,LD[0],LT[0],LV[0]);
Text_SetString(Text,NumToStr(LV[0],2));
TL_SetEnd(LTL,LD[0],LT[0],LV[0]);
}
}
}
}
---------------------------------------------------------------------------
다음글
이전글