커뮤니티
수식 문의드립니다
2021-12-22 23:49:53
1253
글번호 154759
-(지그재그 전환비율의 변수를 표시가능하다면 외부변수로, 안되면 일반적인 산식으로 적용해주시면 고맙겠습니다)
가.분봉(틱봉)상 종가가 단순이평선(20)을 하회시 지그재그상의 고점(H)과 교차시점봉의 저가(L)와의 진폭(H-L)을 저가(L)에서 하방대칭(L*2-H)으로 상방은 2배대칭(H*3-L*2)으로 수평라인 표시
나.분봉(틱봉)상 종가가 단순이평선(20)을 상회시 지그재그상의 저점(L)과 교차시점봉의 고가(H)와의 진폭(H-L)을 고가(H)에서 상방대칭(H*2-L)으로 하방은 2배대칭(H*3-L*2)으로 수평라인표시
-일봉에서도 상기 산식이 적용되도록 부탁드립니다
답변 1
예스스탁 예스스탁 답변
2021-12-23 09:28:14
안녕하세요
예스스탁입니다.
Input : 전환비율(5),P(20);
Var : j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),ADXV1(0);
var : mav(0),T(0),hv(0),lv(0);
Array:고[10,4](0),저[10,4](0);
HH = H;
LL = L;
If Index == 0 Then
{
고[1,1] = HH;
고[1,2] = 0;
고[1,3] = sDate;
고[1,4] = sTime;
저[1,1] = LL;
저[1,2] = 0;
저[1,3] = sDate;
저[1,4] = sTime;
}
If Index > 0 Then
{
hiBar = hiBar + 1;
loBar = loBar + 1;
}
If HH[hiBar] < HH Then hiBar = 0;
If LL[loBar] > LL Then loBar = 0;
Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0;
Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0;
처리구분 = "";
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
{
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH[hiBar];
고[1,2] = Index - hiBar;
고[1,3] = sDate[hiBar];
고[1,4] = sTime[hiBar];
hiBar = -1;
loBar = -1;
TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
TL_SetSize(TL1,1);
TL_SetColor(TL1,RED);
}
Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH[hiBar];
고[1,2] = Index - hiBar;
고[1,3] = sDate[hiBar];
고[1,4] = sTime[hiBar];
hiBar = -1;
loBar = -1;
TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
}
최종꼭지점 = "고점";
}
If 처리구분 == "저점처리" Then
{
If 최종꼭지점 == "고점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL[loBar];
저[1,2] = Index - loBar;
저[1,3] = sDate[loBar];
저[1,4] = sTime[loBar];
hiBar = -1;
loBar = -1;
TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
TL_SetSize(TL1,1);
TL_SetColor(TL1,BLUE);
}
Else If 저[1,1] > LL[loBar] Then
{
저[1,1] = LL[loBar];
저[1,2] = Index - loBar;
저[1,3] = sDate[loBar];
저[1,4] = sTime[loBar];
hiBar = -1;
loBar = -1;
TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
}
최종꼭지점 = "저점";
}
mav = ma(C,P);
if CrossDown(C,mav) Then
{
Lv = L;
Hv = 고[1,1];
value1 = Lv+(Hv-Lv)*2;
value2 = Lv-(Hv-Lv);
}
if CrossUp(C,mav) Then
{
Hv = H;
Lv = 저[1,1];
value1 = Hv+(Hv-Lv);
value2 = Hv-(Hv-Lv)*2;
}
if value1 > 0 and Value2 > 0 Then
{
Plot1(value1);
plot2(Value2);
}
즐거운 하루되세요
> 일일백소 님이 쓴 글입니다.
> 제목 : 수식 문의드립니다
> -(지그재그 전환비율의 변수를 표시가능하다면 외부변수로, 안되면 일반적인 산식으로 적용해주시면 고맙겠습니다)
가.분봉(틱봉)상 종가가 단순이평선(20)을 하회시 지그재그상의 고점(H)과 교차시점봉의 저가(L)와의 진폭(H-L)을 저가(L)에서 하방대칭(L*2-H)으로 상방은 2배대칭(H*3-L*2)으로 수평라인 표시
나.분봉(틱봉)상 종가가 단순이평선(20)을 상회시 지그재그상의 저점(L)과 교차시점봉의 고가(H)와의 진폭(H-L)을 고가(H)에서 상방대칭(H*2-L)으로 하방은 2배대칭(H*3-L*2)으로 수평라인표시
-일봉에서도 상기 산식이 적용되도록 부탁드립니다