커뮤니티
76314 수식 수정 부탁드립니다
2022-03-10 23:01:26
753
글번호 157072
1.
전일과 분리되어 당일 부터 시작되는 종가 파라볼릭 차트에서
파라볼릭 양전환시 파라볼릭 음전환 상태의 바닥과 직전 파라볼릭 음전환 상태의 바닥 연결선 표시
파라볼릭 음전환시 파라볼릭 양전환 상태의 천정과 직전 파라볼릭 양전환 상태의 천정 연결선 표시
2.
전일과 연속되어 진행되는 종가 파라볼릭 차트에서
파라볼릭 양전환시 파라볼릭 음전환 상태의 바닥과 직전 파라볼릭 음전환 상태의 바닥 연결선 표시
파라볼릭 음전환시 파라볼릭 양전환 상태의 천정과 직전 파라볼릭 양전환 상태의 천정 연결선 표시
감사합니다
***********************************************************************************
안녕하세요
예스스탁입니다.
1
Input : AF(0.02), AFMAX(0.2);
Var : Direction(0), SAR_Value(Close), AF_Value(.02), HighValue(High), LowValue(Low), EP(0),CSarv(0);
var : hd(0),ht(0),ld(0),lt(0),TL(0);
if Index == 0 or (Bdate != Bdate[1]) Then
{
Direction = 0;
SAR_Value = C;
AF_Value = 0.02;
HighValue = H;
LowValue = L;
EP = 0;
}
if EP != 0 Then
{
if Direction == 1 then
{
EP = HighValue;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if High > HighValue then
{
HighValue = High;
AF_Value = AF_Value + AF;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
if Close < SAR_Value then
{
Direction = -1;
SAR_Value = EP;
AF_Value = 0;
EP = 0;
LowValue = low;
}
}
else
{
EP = LowValue;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if Low < LowValue then
{
LowValue = Low;
AF_Value = AF_Value + Af;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
if Close > SAR_Value then
{
Direction = 1;
SAR_Value = EP;
AF_Value = 0;
EP = 0;
HighValue = High;
}
}
CSarv = SAR_Value;
}
else
{
if SAR_Value != 0 && EP == 0 then
{
if Direction == 1 then
{
EP = HighValue;
AF_Value = AF;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if High > HighValue then
{
HighValue = High;
AF_Value = AF_Value + AF;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
}
else
{
EP = LowValue;
AF_Value = Af;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if Low < LowValue then
{
LowValue = Low;
AF_Value = AF_Value + AF;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
}
CSarv = SAR_Value;
}
else
{
if Direction == 0 then
{
if Close > Close[1] then Direction = 1;
else
if Close < Close[1] then Direction = -1;
}
else
{
if Direction == 1 then
{
if Close < Close[1] then
{
Direction = -1;
SAR_Value = HighValue;
CSarv = SAR_Value;
}
}
if Direction == -1 then
{
if Close > Close[1] then
{
Direction = 1;
SAR_Value = LowValue;
CSarv = SAR_Value;
}
}
}
LowValue = min(Low, LowValue);
HighValue = max(High, HighValue);
}
}
var : hh(0),ll(0),t(0);
if CrossUp(C,CSarv) Then
{
t = 1;
hh = h;
hd = sDate;
ht = sTime;
if ll > 0 Then
{
TL = TL_New(ld,lt,ll,hd,ht,hh);
TL_SetColor(tl,RED);
}
}
if CrossDown(C,CSarv) Then
{
t = -1;
ll = l;
ld = sDate;
lt = sTime;
if hh > 0 Then
{
TL = TL_New(hd,ht,hh,ld,lt,ll);
TL_SetColor(tl,BLUE);
}
}
if t == 1 Then
{
if hh > 0 and h > hh Then
{
hh = h;
hd = sDate;
ht = sTime;
TL_SetEnd(tl,hd,ht,hh);
}
}
if t == -1 Then
{
if ll > 0 and l < ll Then
{
ll = l;
ld = sDate;
lt = sTime;
TL_SetEnd(tl,ld,lt,ll);
}
}
Plot1(CSarv,"CSar",IFf(c>CSarv,RED,BLUE));
2
Input : AF(0.02), AFMAX(0.2);
Var : CSarv(0);
var : hd(0),ht(0),ld(0),lt(0),TL(0);
CSarv = sar(af,afmax);
var : hh(0),ll(0),t(0);
if CrossUp(C,CSarv) Then
{
t = 1;
hh = h;
hd = sDate;
ht = sTime;
if ll > 0 Then
{
TL = TL_New(ld,lt,ll,hd,ht,hh);
TL_SetColor(tl,RED);
}
}
if CrossDown(C,CSarv) Then
{
t = -1;
ll = l;
ld = sDate;
lt = sTime;
if hh > 0 Then
{
TL = TL_New(hd,ht,hh,ld,lt,ll);
TL_SetColor(tl,BLUE);
}
}
if t == 1 Then
{
if hh > 0 and h > hh Then
{
hh = h;
hd = sDate;
ht = sTime;
TL_SetEnd(tl,hd,ht,hh);
}
}
if t == -1 Then
{
if ll > 0 and l < ll Then
{
ll = l;
ld = sDate;
lt = sTime;
TL_SetEnd(tl,ld,lt,ll);
}
}
Plot1(CSarv,"CSar",IFf(c>CSarv,RED,BLUE));
즐거운 하루되세요
> 유튜버 님이 쓴 글입니다.
> 제목 : 지표 질문입니다
> 1.
전일과 분리되어 당일 부터 시작되는 종가 파라볼릭 차트에서
파라볼릭 양전환시 파라볼릭 음전환 상태의 바닥과 파라볼릭 양전환 상태의 천정 연결선 표시
파라볼릭 음전환시 파라볼릭 양전환 상태의 천정과 파라볼릭 음전환 상태의 바닥 연결선 표시
2.
전일과 연속되어 진행되는 종가 파라볼릭 차트에서
파라볼릭 양전환시 파라볼릭 음전환 상태의 바닥과 파라볼릭 양전환 상태의 천정 연결선 표시
파라볼릭 음전환시 파라볼릭 양전환 상태의 천정과 파라볼릭 음전환 상태의 바닥 연결선 표시
감사합니다
답변 1
예스스탁 예스스탁 답변
2022-03-11 09:52:59
안녕하세요
예스스탁입니다.
1
Input : AF(0.02), AFMAX(0.2);
Var : Direction(0), SAR_Value(Close), AF_Value(.02), HighValue(High), LowValue(Low), EP(0),CSarv(0);
var : hd(0),ht(0),ld(0),lt(0),TL(0);
var : hd1(0),ht1(0),ld1(0),lt1(0);
var : hh(0),ll(0),t(0);
var : hh1(0),ll1(0);
if Index == 0 or (Bdate != Bdate[1]) Then
{
Direction = 0;
SAR_Value = C;
AF_Value = 0.02;
HighValue = H;
LowValue = L;
EP = 0;
}
if EP != 0 Then
{
if Direction == 1 then
{
EP = HighValue;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if High > HighValue then
{
HighValue = High;
AF_Value = AF_Value + AF;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
if Close < SAR_Value then
{
Direction = -1;
SAR_Value = EP;
AF_Value = 0;
EP = 0;
LowValue = low;
}
}
else
{
EP = LowValue;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if Low < LowValue then
{
LowValue = Low;
AF_Value = AF_Value + Af;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
if Close > SAR_Value then
{
Direction = 1;
SAR_Value = EP;
AF_Value = 0;
EP = 0;
HighValue = High;
}
}
CSarv = SAR_Value;
}
else
{
if SAR_Value != 0 && EP == 0 then
{
if Direction == 1 then
{
EP = HighValue;
AF_Value = AF;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if High > HighValue then
{
HighValue = High;
AF_Value = AF_Value + AF;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
}
else
{
EP = LowValue;
AF_Value = Af;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if Low < LowValue then
{
LowValue = Low;
AF_Value = AF_Value + AF;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
}
CSarv = SAR_Value;
}
else
{
if Direction == 0 then
{
if Close > Close[1] then Direction = 1;
else
if Close < Close[1] then Direction = -1;
}
else
{
if Direction == 1 then
{
if Close < Close[1] then
{
Direction = -1;
SAR_Value = HighValue;
CSarv = SAR_Value;
}
}
if Direction == -1 then
{
if Close > Close[1] then
{
Direction = 1;
SAR_Value = LowValue;
CSarv = SAR_Value;
}
}
}
LowValue = min(Low, LowValue);
HighValue = max(High, HighValue);
}
}
if CrossUp(C,CSarv) Then
{
t = 1;
hh = h;
hd = sDate;
ht = sTime;
hh1 = hh[1];
hd1 = hd[1];
ht1 = ht[1];
TL_Delete(TL);
if ll1 > 0 Then
{
TL = TL_New(ld1,lt1,ll1,ld,lt,ll);
TL_SetExtRight(tl,true);
TL_SetColor(tl,BLUE);
}
}
if CrossDown(C,CSarv) Then
{
t = -1;
ll = l;
ld = sDate;
lt = sTime;
ll1 = ll[1];
lD1 = ld[1];
lt1 = lt[1];
TL_Delete(TL);
if hh1 > 0 Then
{
TL = TL_New(hd1,ht1,hh1,hd,ht,hh);
TL_SetExtRight(tl,true);
TL_SetColor(tl,RED);
}
}
if t == 1 Then
{
if hh > 0 and h > hh Then
{
hh = h;
hd = sDate;
ht = sTime;
}
}
if t == -1 Then
{
if ll > 0 and l < ll Then
{
ll = l;
ld = sDate;
lt = sTime;
}
}
Plot1(CSarv,"CSar",IFf(c>CSarv,RED,BLUE));
2
Input : AF(0.02), AFMAX(0.2);
var : CSarv(0);
var : hd(0),ht(0),ld(0),lt(0),TL(0);
var : hd1(0),ht1(0),ld1(0),lt1(0);
var : hh(0),ll(0),t(0);
var : hh1(0),ll1(0);
CSarv = CSar(af,afmax);
if CrossUp(C,CSarv) Then
{
t = 1;
hh = h;
hd = sDate;
ht = sTime;
hh1 = hh[1];
hd1 = hd[1];
ht1 = ht[1];
TL_Delete(TL);
if ll1 > 0 Then
{
TL = TL_New(ld1,lt1,ll1,ld,lt,ll);
TL_SetExtRight(tl,true);
TL_SetColor(tl,BLUE);
}
}
if CrossDown(C,CSarv) Then
{
t = -1;
ll = l;
ld = sDate;
lt = sTime;
ll1 = ll[1];
lD1 = ld[1];
lt1 = lt[1];
TL_Delete(TL);
if hh1 > 0 Then
{
TL = TL_New(hd1,ht1,hh1,hd,ht,hh);
TL_SetExtRight(tl,true);
TL_SetColor(tl,RED);
}
}
if t == 1 Then
{
if hh > 0 and h > hh Then
{
hh = h;
hd = sDate;
ht = sTime;
}
}
if t == -1 Then
{
if ll > 0 and l < ll Then
{
ll = l;
ld = sDate;
lt = sTime;
}
}
Plot1(CSarv,"CSar",IFf(c>CSarv,RED,BLUE));
즐거운 하루되세요
> 유튜버 님이 쓴 글입니다.
> 제목 : 76314 수식 수정 부탁드립니다
> 1.
전일과 분리되어 당일 부터 시작되는 종가 파라볼릭 차트에서
파라볼릭 양전환시 파라볼릭 음전환 상태의 바닥과 직전 파라볼릭 음전환 상태의 바닥 연결선 표시
파라볼릭 음전환시 파라볼릭 양전환 상태의 천정과 직전 파라볼릭 양전환 상태의 천정 연결선 표시
2.
전일과 연속되어 진행되는 종가 파라볼릭 차트에서
파라볼릭 양전환시 파라볼릭 음전환 상태의 바닥과 직전 파라볼릭 음전환 상태의 바닥 연결선 표시
파라볼릭 음전환시 파라볼릭 양전환 상태의 천정과 직전 파라볼릭 양전환 상태의 천정 연결선 표시
감사합니다
***********************************************************************************
안녕하세요
예스스탁입니다.
1
Input : AF(0.02), AFMAX(0.2);
Var : Direction(0), SAR_Value(Close), AF_Value(.02), HighValue(High), LowValue(Low), EP(0),CSarv(0);
var : hd(0),ht(0),ld(0),lt(0),TL(0);
if Index == 0 or (Bdate != Bdate[1]) Then
{
Direction = 0;
SAR_Value = C;
AF_Value = 0.02;
HighValue = H;
LowValue = L;
EP = 0;
}
if EP != 0 Then
{
if Direction == 1 then
{
EP = HighValue;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if High > HighValue then
{
HighValue = High;
AF_Value = AF_Value + AF;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
if Close < SAR_Value then
{
Direction = -1;
SAR_Value = EP;
AF_Value = 0;
EP = 0;
LowValue = low;
}
}
else
{
EP = LowValue;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if Low < LowValue then
{
LowValue = Low;
AF_Value = AF_Value + Af;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
if Close > SAR_Value then
{
Direction = 1;
SAR_Value = EP;
AF_Value = 0;
EP = 0;
HighValue = High;
}
}
CSarv = SAR_Value;
}
else
{
if SAR_Value != 0 && EP == 0 then
{
if Direction == 1 then
{
EP = HighValue;
AF_Value = AF;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if High > HighValue then
{
HighValue = High;
AF_Value = AF_Value + AF;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
}
else
{
EP = LowValue;
AF_Value = Af;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if Low < LowValue then
{
LowValue = Low;
AF_Value = AF_Value + AF;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
}
CSarv = SAR_Value;
}
else
{
if Direction == 0 then
{
if Close > Close[1] then Direction = 1;
else
if Close < Close[1] then Direction = -1;
}
else
{
if Direction == 1 then
{
if Close < Close[1] then
{
Direction = -1;
SAR_Value = HighValue;
CSarv = SAR_Value;
}
}
if Direction == -1 then
{
if Close > Close[1] then
{
Direction = 1;
SAR_Value = LowValue;
CSarv = SAR_Value;
}
}
}
LowValue = min(Low, LowValue);
HighValue = max(High, HighValue);
}
}
var : hh(0),ll(0),t(0);
if CrossUp(C,CSarv) Then
{
t = 1;
hh = h;
hd = sDate;
ht = sTime;
if ll > 0 Then
{
TL = TL_New(ld,lt,ll,hd,ht,hh);
TL_SetColor(tl,RED);
}
}
if CrossDown(C,CSarv) Then
{
t = -1;
ll = l;
ld = sDate;
lt = sTime;
if hh > 0 Then
{
TL = TL_New(hd,ht,hh,ld,lt,ll);
TL_SetColor(tl,BLUE);
}
}
if t == 1 Then
{
if hh > 0 and h > hh Then
{
hh = h;
hd = sDate;
ht = sTime;
TL_SetEnd(tl,hd,ht,hh);
}
}
if t == -1 Then
{
if ll > 0 and l < ll Then
{
ll = l;
ld = sDate;
lt = sTime;
TL_SetEnd(tl,ld,lt,ll);
}
}
Plot1(CSarv,"CSar",IFf(c>CSarv,RED,BLUE));
2
Input : AF(0.02), AFMAX(0.2);
Var : CSarv(0);
var : hd(0),ht(0),ld(0),lt(0),TL(0);
CSarv = sar(af,afmax);
var : hh(0),ll(0),t(0);
if CrossUp(C,CSarv) Then
{
t = 1;
hh = h;
hd = sDate;
ht = sTime;
if ll > 0 Then
{
TL = TL_New(ld,lt,ll,hd,ht,hh);
TL_SetColor(tl,RED);
}
}
if CrossDown(C,CSarv) Then
{
t = -1;
ll = l;
ld = sDate;
lt = sTime;
if hh > 0 Then
{
TL = TL_New(hd,ht,hh,ld,lt,ll);
TL_SetColor(tl,BLUE);
}
}
if t == 1 Then
{
if hh > 0 and h > hh Then
{
hh = h;
hd = sDate;
ht = sTime;
TL_SetEnd(tl,hd,ht,hh);
}
}
if t == -1 Then
{
if ll > 0 and l < ll Then
{
ll = l;
ld = sDate;
lt = sTime;
TL_SetEnd(tl,ld,lt,ll);
}
}
Plot1(CSarv,"CSar",IFf(c>CSarv,RED,BLUE));
즐거운 하루되세요
> 유튜버 님이 쓴 글입니다.
> 제목 : 지표 질문입니다
> 1.
전일과 분리되어 당일 부터 시작되는 종가 파라볼릭 차트에서
파라볼릭 양전환시 파라볼릭 음전환 상태의 바닥과 파라볼릭 양전환 상태의 천정 연결선 표시
파라볼릭 음전환시 파라볼릭 양전환 상태의 천정과 파라볼릭 음전환 상태의 바닥 연결선 표시
2.
전일과 연속되어 진행되는 종가 파라볼릭 차트에서
파라볼릭 양전환시 파라볼릭 음전환 상태의 바닥과 파라볼릭 양전환 상태의 천정 연결선 표시
파라볼릭 음전환시 파라볼릭 양전환 상태의 천정과 파라볼릭 음전환 상태의 바닥 연결선 표시
감사합니다
다음글
이전글