Q&A 게시판 HOME > Q&A 게시판
작성자 : 풀잎향기 작성일 : 2022-02-21 02:08:38 조회수 : 534
이동평균교차선 지표식을 시스템 창에 적용시 수평선 연결고리 없애는법 문의
그림1
그림1
챠트쉐어에 있는 아래의 지표식을 시스템창에 적용하니까 아래 그림과 같이 수평선과 수평선상의 연결고리가 나타나는데, 챠트쉐어에 올려놓은 지표식의 수평선 처럼 깔끔하게 적색수평선과 파란색 수평선만 나오게 하려면 어떻해 해야 되나요?


/*
#[지표식_이동평균교차선]

#지표속성 차트표시탭
//수평선 : 형태 - 일자그래프, 굵기 - 세번째 선
*/

Input : Period1(5),Period2(20);
var : TX1(0);

var1 = ma(C,Period1);
var2 = ma(C,Period2);
condition1 = CrossUp(var1, var2);
Condition2 = Crossdown(var1, var2);

if condition1 or Condition2 then {
 var3 = ((1*var1-var1[1]*2)*(var2[1]-var2)-(var1[1]-var1)*(1*var2-var2[1]*2)  )/
 ((1-2)*(var2[1]-var2)-(var1[1]-var1)*(1-2)); 

 TX1 = Text_New(sdate, stime, var3, Numtostr(var3,2));
 if condition1 then  
  Text_setstyle(TX1, 0, 0);
 if Condition2 then  
  Text_setstyle(TX1, 0, 1); 
}

if condition1 then {
 value1 = var3;
 value2 = value1[1];
}

if condition2 then {
 value3 = var3;
 value4 = value3[1];
}
      
if index > period2+1 then {
 Plot1(var1, "이동평균1");
 Plot2(var2, "이동평균2");

if var3 > 0 then {
 if  var1 > var2 Then {
  if value1 > value2 then
   plot3(var3, "수평선", red, def, 4);
  else
   plot3(var3, "수평선", red,def, 2);
 }
 else {
  if value3 > value4 then
   plot3(var3, "수평선", blue, def, 2);
  else
   plot3(var3, "수평선", blue, def, 4);
 }      
 }
}
목록 답변