답변완료
수정 좀 부탁드립니다!
안녕하세요!
항상 빠른 답변에 감사드립니다!
아래 수식은 일정에 만들어 주신 수식인데 사용하다가 조금 수정을 해야 할 부분이 있어서
수정을 부탁드립니다!
기존 수식은 파랑색 가격선이 나타나는데 이걸 빨강, 파랑, 초록 3선으로 추가 표시되도록
수정 부탁드립니다!
그리고 녹색파동선과 상관 없이 빨강,파랑, 녹색선의 굵기를 제가 조정 할 수 있도록
해주시실 부탁드립니다.
수고하세요!
---------------------------------------------------------------------
Input:length(10),종가사용여부(0),파동선두께(2),수치표시(1);
Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),
TL1(0),Text1(0),text2(0),TL2(0);
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
HH = IFF(종가사용여부==1,C,H);
LL = IFF(종가사용여부==1,C,L);
If Index == 0 Then
{
고[1,1] = HH;
저[1,1] = LL;
}
Condition1 = Highest(HH,length) == HH and 최종고가 <> HH;
Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL;
처리구분 = "";
If Condition1 and Condition2 Then // 기간고점과 기간저점 동시 발생
{
If 최종꼭지점 == "저점" Then
{
If 저[1,1] > LL Then 처리구분 = "저점처리";
Else 처리구분 = "고점처리";
}
Else If 최종꼭지점 == "고점" Then
{
If 고[1,1] < HH Then 처리구분 = "고점처리";
Else 처리구분 = "저점처리";
}
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";
#==========================================#
If 처리구분 == "고점처리" Then
{
최종고가 = HH; // 신규고점을 체크하기 위해 저장
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
var1 = 고[2,1]-저[1,1];
TL2 = TL_New(저[1,3],저[1,4],저[1,1]-var1,sDate,sTime,저[1,1]-var1);
If 수치표시 == 1 Then
{
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2));
Text_SetStyle(Text1, 2, 1);
Text2 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1]-저[1,1],2)+NewLine);
Text_SetStyle(Text2, 2, 1);
Text_SetColor(text2,RED);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,GREEN);
TL_SetSize(TL2,파동선두께);
TL_SetColor(TL2,BLUE);
}
Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
TL_SetEnd(TL2,고[1,3],고[1,4],저[1,1]-var1);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr(고[1,1],2));
Text_SetLocation(Text2,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text2,NumToStr(고[1,1]-저[1,1],2)+NewLine);
}
}
최종꼭지점 = "고점";
}
#==========================================#
If 처리구분 == "저점처리" Then
{
최종저가 = LL;
If 최종꼭지점 == "고점" then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
var1 = 고[1,1]-저[2,1];
TL2 = TL_New(고[1,3],고[1,4],고[1,1]+var1,sDate,sTime,고[1,1]+var1);
If 수치표시 == 1 Then
{
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2));
Text_SetStyle(Text1, 2, 0);
Text2 = Text_New(저[1,3],저[1,4],저[1,1],NewLine+NumToStr(저[1,1]-고[1,1],2));
Text_SetStyle(Text2, 2, 0);
Text_SetColor(text2,RED);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,GREEN);
TL_SetSize(TL2,파동선두께);
TL_SetColor(TL2,RED);
}
Else If 저[1,1] > LL then
{
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
TL_SetEnd(TL2,저[1,3],저[1,4],고[1,1]+var1);
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr(저[1,1],2));
Text_SetLocation(Text2,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text2,NewLine+NumToStr(저[1,1]-고[1,1],2));
}
}
최종꼭지점 = "저점";
}
-----------------------------------------------------------------------------
전에 만들어 주신 피보나치 가격선들이 가격봉과 이동평균선들과 겹치니 매매하는데 많이 불편하네요! 혹시 피보나치선을 좀더 바깥쪽으로 이동시켜서 겹치지 않게 하는 방법이 있을까요?
input : 고점(350),저점(340);
Array : Tx[30](0);
var1 = 고점-저점;
plot1(저점+var1*0.000);
plot2(저점+var1*0.236);
plot3(저점+var1*0.382);
plot4(저점+var1*0.500);
plot5(저점+var1*0.618);
plot6(저점+var1*0.764);
plot7(저점+var1*1.000);
plot8(저점+var1*1.236);
plot9(저점+var1*1.382);
plot10(저점+var1*1.500);
plot11(저점+var1*1.618);
plot12(저점+var1*1.764);
plot13(저점+var1*2.000);
plot14(저점+var1*2.618);
plot15(저점-var1*0.236);
plot16(저점-var1*0.382);
plot17(저점-var1*0.500);
plot18(저점-var1*0.618);
plot19(저점-var1*0.764);
plot20(저점-var1*1.000);
plot21(저점-var1*1.236);
plot22(저점-var1*1.382);
plot23(저점-var1*1.500);
plot24(저점-var1*1.618);
plot25(저점-var1*1.764);
plot26(저점-var1*2.000);
plot27(저점-var1*2.618);
text_Delete(Tx[1]);
tx[1] = Text_New(sdate,stime,저점+var1*0.000,"00.0% : "+NumToStr(저점+var1*0.000,2));
text_Delete(Tx[2]);
tx[2] = Text_New(sdate,stime,저점+var1*0.236,"23.6% : "+NumToStr(저점+var1*0.236,2));
text_Delete(Tx[3]);
tx[3] = Text_New(sdate,stime,저점+var1*0.382,"38.2% : "+NumToStr(저점+var1*0.382,2));
text_Delete(Tx[4]);
tx[4] = Text_New(sdate,stime,저점+var1*0.500,"50.0% : "+NumToStr(저점+var1*0.500,2));
text_Delete(Tx[5]);
tx[5] = Text_New(sdate,stime,저점+var1*0.618,"61.8% : "+NumToStr(저점+var1*0.618,2));
text_Delete(Tx[6]);
tx[6] = Text_New(sdate,stime,저점+var1*0.764,"76.4% : "+NumToStr(저점+var1*0.764,2));
text_Delete(Tx[7]);
tx[7] = Text_New(sdate,stime,저점+var1*1.000,"100.0% : "+NumToStr(저점+var1*1.000,2));
text_Delete(Tx[8]);
tx[8] = Text_New(sdate,stime,저점+var1*1.236,"123.6% : "+NumToStr(저점+var1*1.236,2));
text_Delete(Tx[9]);
tx[9] = Text_New(sdate,stime,저점+var1*1.382,"138.2% : "+NumToStr(저점+var1*1.382,2));
text_Delete(Tx[10]);
tx[10] = Text_New(sdate,stime,저점+var1*1.500,"150.0% : "+NumToStr(저점+var1*1.500,2));
text_Delete(Tx[11]);
tx[11] = Text_New(sdate,stime,저점+var1*1.618,"161.8% : "+NumToStr(저점+var1*1.618,2));
text_Delete(Tx[12]);
tx[12] = Text_New(sdate,stime,저점+var1*1.764,"176.4% : "+NumToStr(저점+var1*1.764,2));
text_Delete(Tx[13]);
tx[13] = Text_New(sdate,stime,저점+var1*2.000,"200.0% : "+NumToStr(저점+var1*2.000,2));
text_Delete(Tx[14]);
tx[14] = Text_New(sdate,stime,저점+var1*2.618,"261.8% : "+NumToStr(저점+var1*2.618,2));
text_Delete(Tx[15]);
tx[15] = Text_New(sdate,stime,저점-var1*0.236,"-23.6% : "+NumToStr(저점-var1*0.236,2));
text_Delete(Tx[16]);
tx[16] = Text_New(sdate,stime,저점-var1*0.382,"-38.2% : "+NumToStr(저점-var1*0.382,2));
text_Delete(Tx[17]);
tx[17] = Text_New(sdate,stime,저점-var1*0.500,"-50.0% : "+NumToStr(저점-var1*0.500,2));
text_Delete(Tx[18]);
tx[18] = Text_New(sdate,stime,저점-var1*0.618,"-61.8% : "+NumToStr(저점-var1*0.618,2));
text_Delete(Tx[19]);
tx[19] = Text_New(sdate,stime,저점-var1*0.764,"-76.4% : "+NumToStr(저점-var1*0.764,2));
text_Delete(Tx[20]);
tx[20] = Text_New(sdate,stime,저점-var1*1.000,"-100.0% : "+NumToStr(저점-var1*1.000,2));
text_Delete(Tx[21]);
tx[21] = Text_New(sdate,stime,저점-var1*1.236,"-123.6% : "+NumToStr(저점-var1*1.236,2));
text_Delete(Tx[22]);
tx[22] = Text_New(sdate,stime,저점-var1*1.382,"-138.2% : "+NumToStr(저점-var1*1.382,2));
text_Delete(Tx[23]);
tx[23] = Text_New(sdate,stime,저점-var1*1.500,"-150.0% : "+NumToStr(저점-var1*1.500,2));
text_Delete(Tx[24]);
tx[24] = Text_New(sdate,stime,저점-var1*1.618,"-161.8% : "+NumToStr(저점-var1*1.618,2));
text_Delete(Tx[25]);
tx[25] = Text_New(sdate,stime,저점-var1*1.764,"-176.4% : "+NumToStr(저점-var1*1.764,2));
text_Delete(Tx[26]);
tx[26] = Text_New(sdate,stime,저점-var1*2.000,"-200.0% : "+NumToStr(저점-var1*2.000,2));
text_Delete(Tx[27]);
tx[27] = Text_New(sdate,stime,저점-var1*2.618,"-261.8% : "+NumToStr(저점-var1*2.618,2));
2020-08-28
661
글번호 141870
지표