커뮤니티
문의드립니다.
2020-03-26 14:18:33
904
글번호 137246
아래식은 지난 선배님의 수식인데...
에러가나서 어떻게 해결할지 못해 문의드립니다.
Input:Rate(3),
kind(1); // 1:일반다이버전스,2:히든다이버전스,3:과장된다이버전스,4:3중다이버전스
Var:j(0),jj(0),iValue(0),
고저구분(0), // 1: 고점, 2: 저점
신규여부(0); // 1: 신규, 2: 연장
Array:HH[10,4](0),LL[10,4](0), // 1:가격, 2:Index, 3:sDate, 4:sTime
IH[10,4](0),IL[10,4](0), // 지표의 고,저점을 관리
TL[10](0),
BeginIndex[4](0);
var : tx1(0),tx2(0);
#==========================================#
iValue = RSI(9); // 지표값은 아래와 같이 다양하게 변경 가능
// iValue = StochasticsK(10,5);
// iValue = StochasticsD(5,3,3);
// iValue = MACD(12,26);
// iValue = MACD_OSC(12,26,9);
// iValue = CCI(9);
// iValue = LRS(C,14);
// iValue = Volume;
Plot1(iValue);
#==========================================#
// 주가 차트에 대한 파동선
고저구분 = ChgRateZigZag(Rate,0,HH,LL,신규여부); // 최소변동률지그재그
If 고저구분 == 1 Then { // 고점
If 신규여부 == 1 Then
{
TL[0] = TL_New(LL[1,3],LL[1,4],LL[1,1],HH[1,3],HH[1,4],HH[1,1]);
}
If 신규여부 == 2 Then // 고점 연장
{
TL_SetEnd(TL[0],HH[1,3],HH[1,4],HH[1,1]);
}
} Else If 고저구분 == -1 Then { // 저점
If 신규여부 == 1 Then
{
TL[0] = TL_New(HH[1,3],HH[1,4],HH[1,1],LL[1,3],LL[1,4],LL[1,1]);
}
If 신규여부 == 2 Then // 저점 연장
{
TL_SetEnd(TL[0],LL[1,3],LL[1,4],LL[1,1]);
}
}
TL_SetSize(TL[0],1);
TL_SetColor(TL[0],PINK);
if 고저구분 == 1 Then
{
if 고저구분[1] != 1 Then
{
tx1 = Text_New(HH[1,3],HH[1,4],HH[1,1],NumToStr(HH[1,1],2));
Text_SetStyle(tx1,2,1);
}
Else
{
Text_SetString(tx1,NumToStr(HH[1,1],2));
Text_SetLocation(tx1,HH[1,3],HH[1,4],HH[1,1]);
}
}
if 고저구분 == -1 Then
{
if 고저구분[1] != -1 Then
{
tx1 = Text_New(LL[1,3],LL[1,4],LL[1,1],NumToStr(LL[1,1],2));
Text_SetStyle(tx1,2,0);
}
Else
{
Text_SetString(tx1,NumToStr(LL[1,1],2));
Text_SetLocation(tx1,LL[1,3],LL[1,4],LL[1,1]);
}
}
#==========================================#
// 보조지표에 대한 파동선
Value1 = IndiDivergence(고저구분,신규여부,iValue,IH,IL); // 주가의 지그재그파동 결과를 입력
// 결과값이 1이면 정상, 0이면 오류
If Value1 == 1 Then {
If 고저구분 == 1 Then { // 고점
If 신규여부 == 1 Then // 주가 파동에 신규 고점 발생
{
TL[1] = TL_New_Self(IL[1,3],IL[1,4],IL[1,1],IH[1,3],IH[1,4],IH[1,1]);
tx2 = Text_New_Self(IH[1,3],IH[1,4],IH[1,1],NumToStr(IH[1,1],2));
Text_SetStyle(tx2,2,1);
}
Else // 주가의 꼭지점이 그대로라도 지표는 변하므로 매봉마다 연장처리
{
TL_SetEnd(TL[1],IH[1,3],IH[1,4],IH[1,1]);
Text_SetString(tx2,NumToStr(IH[1,1],2));
Text_SetLocation(tx2,IH[1,3],IH[1,4],IH[1,1]);
}
} Else If 고저구분 == -1 Then { // 저점
If 신규여부 == 1 Then // 주가 파동에 신규 저점 발생
{ TL[1] = TL_New_Self(IH[1,3],IH[1,4],IH[1,1],IL[1,3],IL[1,4],IL[1,1]);
tx2 = Text_New_Self(IL[1,3],IL[1,4],IL[1,1],NumToStr(IL[1,1],2));
Text_SetStyle(tx2,2,0);
}
Else
{
TL_SetEnd(TL[1],IL[1,3],IL[1,4],IL[1,1]);
Text_SetString(tx2,NumToStr(IL[1,1],2));
Text_SetLocation(tx2,IL[1,3],IL[1,4],IL[1,1]);
}
}
TL_SetSize(TL[1],1);
TL_SetColor(TL[1],BLUE);
}
#==========================================#
// 다이버전스 표시
If (kind == 1 and HH[2,1] < HH[1,1] and IH[2,1] > IH[1,1]) or
// 일반 약세 다이버전스 : 주가 고점 상승, 보조지표 고점 하락
(kind == 2 and HH[2,1] > HH[1,1] and IH[2,1] < IH[1,1]) or
// 히든 약세 다이버전스 : 주가 고점 하락, 보조지표 고점 상승
(kind == 3 and abs(HH[2,1] - HH[1,1]) <= 2 * PriceScale and IH[2,1] > IH[1,1]) Then {
// 과장된 약세 다이버전스 : 주가 고점의 차이가 2틱 이내이고 보조지표 고점 하락
Value2 = (HH[1,1]-HH[2,1])/(HH[1,2]-HH[2,2])*(Index-HH[2,2])+HH[2,1];
Value3 = (IH[1,1]-IH[2,1])/(IH[1,2]-IH[2,2])*(Index-IH[2,2])+IH[2,1];
If BeginIndex[0] == HH[2,2] Then {
// 다이버전스를 나타내는 추세선의 시작점이 변함이 없으면 추세선 끝점만 연장
TL_SetEnd(TL[2],sDate,sTime,Value2);
TL_SetEnd(TL[3],sDate,sTime,Value3);
} Else {
TL[2] = TL_New(HH[2,3],HH[2,4],HH[2,1],sDate,sTime,Value2);
TL[3] = TL_New_Self(IH[2,3],IH[2,4],IH[2,1],sDate,sTime,Value3);
BeginIndex[0] = HH[2,2]; // 추세선 시작점인 2번 고점의 index 값을 저장
}
TL_SetSize(TL[2],3);
TL_SetSize(TL[3],3);
TL_SetColor(TL[2],LGREEN);
TL_SetColor(TL[3],LGREEN);
}
If (kind == 1 and LL[2,1] > LL[1,1] and IL[2,1] < IL[1,1]) or
// 일반 강세 다이버전스 : 주가 저점 하락, 보조지표 저점 상승
(kind == 2 and LL[2,1] < LL[1,1] and IL[2,1] > IL[1,1]) or
// 히든 강세 다이버전스 : 주가 저점 상승, 보조지표 저점 하락
(kind == 3 and abs(LL[2,1] - LL[1,1]) <= 2 * PriceScale and IL[2,1] < IL[1,1]) Then {
// 과장된 강세 다이버전스 : 주가 저점의 차이가 2틱 이내, 보조지표 저점 상승
Value4 = (LL[1,1]-LL[2,1])/(LL[1,2]-LL[2,2])*(Index-LL[2,2])+LL[2,1];
Value5 = (IL[1,1]-IL[2,1])/(IL[1,2]-IL[2,2])*(Index-IL[2,2])+IL[2,1];
If BeginIndex[1] == LL[2,2] Then {
TL_SetEnd(TL[4],sDate,sTime,Value4);
TL_SetEnd(TL[5],sDate,sTime,Value5);
} Else {
TL[4] = TL_New(LL[2,3],LL[2,4],LL[2,1],sDate,sTime,Value4);
TL[5] = TL_New_Self(IL[2,3],IL[2,4],IL[2,1],sDate,sTime,Value5);
BeginIndex[1] = LL[2,2];
}
TL_SetSize(TL[4],3);
TL_SetSize(TL[5],3);
TL_SetColor(TL[4],MAGENTA);
TL_SetColor(TL[5],MAGENTA);
}
If kind == 4 and HH[3,1] < HH[1,1] and // 주가 고점 상승
(HH[1,1]-HH[3,1])/(HH[1,2]-HH[3,2])*(HH[2,2]-HH[3,2])+HH[3,1] > HH[2,1] and
// 2번 고점은 1번과 3번 고점을 잇는 선보다 밑에 위치
IH[3,1] > IH[1,1] and // 보조지표 고점 하락
(IH[1,1]-IH[3,1])/(IH[1,2]-IH[3,2])*(IH[2,2]-IH[3,2])+IH[3,1] > IH[2,1] Then {
// 2번 고점은 1번과 3번 고점을 잇는 선보다 밑에 위치
Value2 = (HH[1,1]-HH[3,1])/(HH[1,2]-HH[3,2])*(Index-HH[3,2])+HH[3,1];
Value3 = (IH[1,1]-IH[3,1])/(IH[1,2]-IH[3,2])*(Index-IH[3,2])+IH[3,1];
If BeginIndex[0] == HH[3,2] Then {
TL_SetEnd(TL[2],sDate,sTime,Value2);
TL_SetEnd(TL[3],sDate,sTime,Value3);
} Else {
TL[2] = TL_New(HH[3,3],HH[3,4],HH[3,1],sDate,sTime,Value2);
TL[3] = TL_New_Self(IH[3,3],IH[3,4],IH[3,1],sDate,sTime,Value3);
BeginIndex[0] = HH[3,2];
}
TL_SetSize(TL[2],3);
TL_SetSize(TL[3],3);
TL_SetColor(TL[2],LGREEN);
TL_SetColor(TL[3],LGREEN);
}
If kind == 4 and LL[3,1] > LL[1,1] and // 주가 저점 하락
(LL[1,1]-LL[3,1])/(LL[1,2]-LL[3,2])*(LL[2,2]-LL[3,2])+LL[3,1] < LL[2,1] and
// 2번 저점이 1번,3번 저점을 잇는 선보다 위에 위치
IL[3,1] < IL[1,1] and // 보조지표 저점 상승
(IL[1,1]-IL[3,1])/(IL[1,2]-IL[3,2])*(IL[2,2]-IL[3,2])+IL[3,1] < IL[2,1] Then {
Value4 = (LL[1,1]-LL[3,1])/(LL[1,2]-LL[3,2])*(Index-LL[3,2])+LL[3,1];
Value5 = (IL[1,1]-IL[3,1])/(IL[1,2]-IL[3,2])*(Index-IL[3,2])+IL[3,1];
If BeginIndex[1] == LL[3,2] Then {
TL_SetEnd(TL[4],sDate,sTime,Value4);
TL_SetEnd(TL[5],sDate,sTime,Value5);
} Else {
TL[4] = TL_New(LL[3,3],LL[3,4],LL[3,1],sDate,sTime,Value4);
TL[5] = TL_New_Self(IL[3,3],IL[3,4],IL[3,1],sDate,sTime,Value5);
BeginIndex[1] = LL[3,2];
}
TL_SetSize(TL[4],3);
TL_SetSize(TL[5],3);
TL_SetColor(TL[4],MAGENTA);
TL_SetColor(TL[5],MAGENTA);
}
답변 1
예스스탁 예스스탁 답변
2020-03-26 15:01:22
안녕하세요
예스스탁입니다.
수식에 어떤 에러가 발생하시는지 모르겠습니다.
아마 검증시 오류가 발생하면 해당 수식에 ChgRateZigZag 사용자함수가 별도로 필요합니다. 해당 함수를 첨부해 드립니다.
압축을 해제하신 후에 ChgRateZigZag.yfu 파일을
프로그램 설치폴더 안의 yeslang > functions 폴더에 넣으시고
식을 다시 검증하시면 됩니다.
즐거운 하루되세요
> as8282 님이 쓴 글입니다.
> 제목 : 문의드립니다.
> 아래식은 지난 선배님의 수식인데...
에러가나서 어떻게 해결할지 못해 문의드립니다.
Input:Rate(3),
kind(1); // 1:일반다이버전스,2:히든다이버전스,3:과장된다이버전스,4:3중다이버전스
Var:j(0),jj(0),iValue(0),
고저구분(0), // 1: 고점, 2: 저점
신규여부(0); // 1: 신규, 2: 연장
Array:HH[10,4](0),LL[10,4](0), // 1:가격, 2:Index, 3:sDate, 4:sTime
IH[10,4](0),IL[10,4](0), // 지표의 고,저점을 관리
TL[10](0),
BeginIndex[4](0);
var : tx1(0),tx2(0);
#==========================================#
iValue = RSI(9); // 지표값은 아래와 같이 다양하게 변경 가능
// iValue = StochasticsK(10,5);
// iValue = StochasticsD(5,3,3);
// iValue = MACD(12,26);
// iValue = MACD_OSC(12,26,9);
// iValue = CCI(9);
// iValue = LRS(C,14);
// iValue = Volume;
Plot1(iValue);
#==========================================#
// 주가 차트에 대한 파동선
고저구분 = ChgRateZigZag(Rate,0,HH,LL,신규여부); // 최소변동률지그재그
If 고저구분 == 1 Then { // 고점
If 신규여부 == 1 Then
{
TL[0] = TL_New(LL[1,3],LL[1,4],LL[1,1],HH[1,3],HH[1,4],HH[1,1]);
}
If 신규여부 == 2 Then // 고점 연장
{
TL_SetEnd(TL[0],HH[1,3],HH[1,4],HH[1,1]);
}
} Else If 고저구분 == -1 Then { // 저점
If 신규여부 == 1 Then
{
TL[0] = TL_New(HH[1,3],HH[1,4],HH[1,1],LL[1,3],LL[1,4],LL[1,1]);
}
If 신규여부 == 2 Then // 저점 연장
{
TL_SetEnd(TL[0],LL[1,3],LL[1,4],LL[1,1]);
}
}
TL_SetSize(TL[0],1);
TL_SetColor(TL[0],PINK);
if 고저구분 == 1 Then
{
if 고저구분[1] != 1 Then
{
tx1 = Text_New(HH[1,3],HH[1,4],HH[1,1],NumToStr(HH[1,1],2));
Text_SetStyle(tx1,2,1);
}
Else
{
Text_SetString(tx1,NumToStr(HH[1,1],2));
Text_SetLocation(tx1,HH[1,3],HH[1,4],HH[1,1]);
}
}
if 고저구분 == -1 Then
{
if 고저구분[1] != -1 Then
{
tx1 = Text_New(LL[1,3],LL[1,4],LL[1,1],NumToStr(LL[1,1],2));
Text_SetStyle(tx1,2,0);
}
Else
{
Text_SetString(tx1,NumToStr(LL[1,1],2));
Text_SetLocation(tx1,LL[1,3],LL[1,4],LL[1,1]);
}
}
#==========================================#
// 보조지표에 대한 파동선
Value1 = IndiDivergence(고저구분,신규여부,iValue,IH,IL); // 주가의 지그재그파동 결과를 입력
// 결과값이 1이면 정상, 0이면 오류
If Value1 == 1 Then {
If 고저구분 == 1 Then { // 고점
If 신규여부 == 1 Then // 주가 파동에 신규 고점 발생
{
TL[1] = TL_New_Self(IL[1,3],IL[1,4],IL[1,1],IH[1,3],IH[1,4],IH[1,1]);
tx2 = Text_New_Self(IH[1,3],IH[1,4],IH[1,1],NumToStr(IH[1,1],2));
Text_SetStyle(tx2,2,1);
}
Else // 주가의 꼭지점이 그대로라도 지표는 변하므로 매봉마다 연장처리
{
TL_SetEnd(TL[1],IH[1,3],IH[1,4],IH[1,1]);
Text_SetString(tx2,NumToStr(IH[1,1],2));
Text_SetLocation(tx2,IH[1,3],IH[1,4],IH[1,1]);
}
} Else If 고저구분 == -1 Then { // 저점
If 신규여부 == 1 Then // 주가 파동에 신규 저점 발생
{ TL[1] = TL_New_Self(IH[1,3],IH[1,4],IH[1,1],IL[1,3],IL[1,4],IL[1,1]);
tx2 = Text_New_Self(IL[1,3],IL[1,4],IL[1,1],NumToStr(IL[1,1],2));
Text_SetStyle(tx2,2,0);
}
Else
{
TL_SetEnd(TL[1],IL[1,3],IL[1,4],IL[1,1]);
Text_SetString(tx2,NumToStr(IL[1,1],2));
Text_SetLocation(tx2,IL[1,3],IL[1,4],IL[1,1]);
}
}
TL_SetSize(TL[1],1);
TL_SetColor(TL[1],BLUE);
}
#==========================================#
// 다이버전스 표시
If (kind == 1 and HH[2,1] < HH[1,1] and IH[2,1] > IH[1,1]) or
// 일반 약세 다이버전스 : 주가 고점 상승, 보조지표 고점 하락
(kind == 2 and HH[2,1] > HH[1,1] and IH[2,1] < IH[1,1]) or
// 히든 약세 다이버전스 : 주가 고점 하락, 보조지표 고점 상승
(kind == 3 and abs(HH[2,1] - HH[1,1]) <= 2 * PriceScale and IH[2,1] > IH[1,1]) Then {
// 과장된 약세 다이버전스 : 주가 고점의 차이가 2틱 이내이고 보조지표 고점 하락
Value2 = (HH[1,1]-HH[2,1])/(HH[1,2]-HH[2,2])*(Index-HH[2,2])+HH[2,1];
Value3 = (IH[1,1]-IH[2,1])/(IH[1,2]-IH[2,2])*(Index-IH[2,2])+IH[2,1];
If BeginIndex[0] == HH[2,2] Then {
// 다이버전스를 나타내는 추세선의 시작점이 변함이 없으면 추세선 끝점만 연장
TL_SetEnd(TL[2],sDate,sTime,Value2);
TL_SetEnd(TL[3],sDate,sTime,Value3);
} Else {
TL[2] = TL_New(HH[2,3],HH[2,4],HH[2,1],sDate,sTime,Value2);
TL[3] = TL_New_Self(IH[2,3],IH[2,4],IH[2,1],sDate,sTime,Value3);
BeginIndex[0] = HH[2,2]; // 추세선 시작점인 2번 고점의 index 값을 저장
}
TL_SetSize(TL[2],3);
TL_SetSize(TL[3],3);
TL_SetColor(TL[2],LGREEN);
TL_SetColor(TL[3],LGREEN);
}
If (kind == 1 and LL[2,1] > LL[1,1] and IL[2,1] < IL[1,1]) or
// 일반 강세 다이버전스 : 주가 저점 하락, 보조지표 저점 상승
(kind == 2 and LL[2,1] < LL[1,1] and IL[2,1] > IL[1,1]) or
// 히든 강세 다이버전스 : 주가 저점 상승, 보조지표 저점 하락
(kind == 3 and abs(LL[2,1] - LL[1,1]) <= 2 * PriceScale and IL[2,1] < IL[1,1]) Then {
// 과장된 강세 다이버전스 : 주가 저점의 차이가 2틱 이내, 보조지표 저점 상승
Value4 = (LL[1,1]-LL[2,1])/(LL[1,2]-LL[2,2])*(Index-LL[2,2])+LL[2,1];
Value5 = (IL[1,1]-IL[2,1])/(IL[1,2]-IL[2,2])*(Index-IL[2,2])+IL[2,1];
If BeginIndex[1] == LL[2,2] Then {
TL_SetEnd(TL[4],sDate,sTime,Value4);
TL_SetEnd(TL[5],sDate,sTime,Value5);
} Else {
TL[4] = TL_New(LL[2,3],LL[2,4],LL[2,1],sDate,sTime,Value4);
TL[5] = TL_New_Self(IL[2,3],IL[2,4],IL[2,1],sDate,sTime,Value5);
BeginIndex[1] = LL[2,2];
}
TL_SetSize(TL[4],3);
TL_SetSize(TL[5],3);
TL_SetColor(TL[4],MAGENTA);
TL_SetColor(TL[5],MAGENTA);
}
If kind == 4 and HH[3,1] < HH[1,1] and // 주가 고점 상승
(HH[1,1]-HH[3,1])/(HH[1,2]-HH[3,2])*(HH[2,2]-HH[3,2])+HH[3,1] > HH[2,1] and
// 2번 고점은 1번과 3번 고점을 잇는 선보다 밑에 위치
IH[3,1] > IH[1,1] and // 보조지표 고점 하락
(IH[1,1]-IH[3,1])/(IH[1,2]-IH[3,2])*(IH[2,2]-IH[3,2])+IH[3,1] > IH[2,1] Then {
// 2번 고점은 1번과 3번 고점을 잇는 선보다 밑에 위치
Value2 = (HH[1,1]-HH[3,1])/(HH[1,2]-HH[3,2])*(Index-HH[3,2])+HH[3,1];
Value3 = (IH[1,1]-IH[3,1])/(IH[1,2]-IH[3,2])*(Index-IH[3,2])+IH[3,1];
If BeginIndex[0] == HH[3,2] Then {
TL_SetEnd(TL[2],sDate,sTime,Value2);
TL_SetEnd(TL[3],sDate,sTime,Value3);
} Else {
TL[2] = TL_New(HH[3,3],HH[3,4],HH[3,1],sDate,sTime,Value2);
TL[3] = TL_New_Self(IH[3,3],IH[3,4],IH[3,1],sDate,sTime,Value3);
BeginIndex[0] = HH[3,2];
}
TL_SetSize(TL[2],3);
TL_SetSize(TL[3],3);
TL_SetColor(TL[2],LGREEN);
TL_SetColor(TL[3],LGREEN);
}
If kind == 4 and LL[3,1] > LL[1,1] and // 주가 저점 하락
(LL[1,1]-LL[3,1])/(LL[1,2]-LL[3,2])*(LL[2,2]-LL[3,2])+LL[3,1] < LL[2,1] and
// 2번 저점이 1번,3번 저점을 잇는 선보다 위에 위치
IL[3,1] < IL[1,1] and // 보조지표 저점 상승
(IL[1,1]-IL[3,1])/(IL[1,2]-IL[3,2])*(IL[2,2]-IL[3,2])+IL[3,1] < IL[2,1] Then {
Value4 = (LL[1,1]-LL[3,1])/(LL[1,2]-LL[3,2])*(Index-LL[3,2])+LL[3,1];
Value5 = (IL[1,1]-IL[3,1])/(IL[1,2]-IL[3,2])*(Index-IL[3,2])+IL[3,1];
If BeginIndex[1] == LL[3,2] Then {
TL_SetEnd(TL[4],sDate,sTime,Value4);
TL_SetEnd(TL[5],sDate,sTime,Value5);
} Else {
TL[4] = TL_New(LL[3,3],LL[3,4],LL[3,1],sDate,sTime,Value4);
TL[5] = TL_New_Self(IL[3,3],IL[3,4],IL[3,1],sDate,sTime,Value5);
BeginIndex[1] = LL[3,2];
}
TL_SetSize(TL[4],3);
TL_SetSize(TL[5],3);
TL_SetColor(TL[4],MAGENTA);
TL_SetColor(TL[5],MAGENTA);
}