커뮤니티
85199 수식 수정 부탁드립니다
2024-01-04 12:58:59
636
글번호 175421
85199 수식은 파라볼릭 천정과 바닥을 연결하는 수식입니다
파라볼릭 천정과 바닥이 아닌 파라볼릭 천정과 바닥을 형성한 캔들의 천정과 바닥을 직접 연결하는 선을 그리는 수식이 가능하다면 부탁드립니다
감사합니다
답변 1
예스스탁 예스스탁 답변
2024-01-04 15:34:46
안녕하세요
예스스탁입니다.
1
Input : AF(0.02), AFMAX(0.2);
Var : Direction(0), SAR_Value(Close), AF_Value(.02), HighValue(High), LowValue(Low), EP(0);
var : CSarv(0);
if 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);
}
}
Plot1(CSarv,"당일종가파라",iff(C>CSarv,Red,Blue));
var : T(0),TL1(0),TL2(0);
var : TL11(0),TL12(0),TL21(0),TL22(0);
if Bdate != Bdate[1] Then
{
Var3 = 0;
Var31 = 0;
Var6 = 0;
Var61 = 0;
TL_Delete(TL1);
TL_Delete(TL11);
TL_Delete(TL12);
TL_Delete(TL2);
TL_Delete(TL21);
TL_Delete(TL22);
}
if CrossUp(C,CSarv) Then
{
T = 1;
var1 = sDate;
Var2 = sTime;
var3 = H;
var11 = var1[1];
var21 = var2[1];
var31 = var3[1];
TL_Delete(TL12);
if Var31 > 0 Then
{
TL1 = TL_new(var11,Var21,var31,Var1,Var2,Var3);
TL11 = TL1[1];
TL12 = TL11[1];
TL_SetColor(TL1,Red);
TL_SetExtRight(TL1,true);
}
}
if CrossDown(C,CSarv) Then
{
T = -1;
var4 = sDate;
Var5 = sTime;
var6 = L;
var41 = Var4[1];
Var51 = var5[1];
var61 = Var6[1];
TL_Delete(TL22);
if Var61 > 0 Then
{
TL2 = TL_new(var41,Var51,var61,Var4,Var5,Var6);
TL21 = TL2[1];
TL22 = TL21[1];
TL_SetColor(TL2,Blue);
TL_SetExtRight(TL2,true);
}
}
if T == 1 Then
{
if H > Var3 then
{
Var3 = H;
var1 = sDate;
Var2 = sTime;
TL_SetEnd(TL1,var1,Var2,Var3);
}
}
if T == -1 Then
{
if L < Var6 then
{
Var6 = L;
var4 = sDate;
Var5 = sTime;
TL_SetEnd(TL2,var4,Var5,Var6);
}
}
2
Input : AF(0.02), AFMAX(0.2);
var : CSarv(0);
CSarv = CSar(AF,Afmax);
Plot1(CSarv,"당일종가파라",iff(C>CSarv,Red,Blue));
var : T(0),TL1(0),TL2(0);
var : TL11(0),TL12(0),TL21(0),TL22(0);
if Bdate != Bdate[1] Then
{
Var3 = 0;
Var31 = 0;
Var6 = 0;
Var61 = 0;
TL_Delete(TL1);
TL_Delete(TL11);
TL_Delete(TL12);
TL_Delete(TL2);
TL_Delete(TL21);
TL_Delete(TL22);
}
if CrossUp(C,CSarv) Then
{
T = 1;
var1 = sDate;
Var2 = sTime;
var3 = H;
var11 = var1[1];
var21 = var2[1];
var31 = var3[1];
TL_Delete(TL12);
if Var31 > 0 Then
{
TL1 = TL_new(var11,Var21,var31,Var1,Var2,Var3);
TL11 = TL1[1];
TL12 = TL11[1];
TL_SetColor(TL1,Red);
TL_SetExtRight(TL1,true);
}
}
if CrossDown(C,CSarv) Then
{
T = -1;
var4 = sDate;
Var5 = sTime;
var6 = L;
var41 = Var4[1];
Var51 = var5[1];
var61 = Var6[1];
TL_Delete(TL22);
if Var61 > 0 Then
{
TL2 = TL_new(var41,Var51,var61,Var4,Var5,Var6);
TL21 = TL2[1];
TL22 = TL21[1];
TL_SetColor(TL2,Blue);
TL_SetExtRight(TL2,true);
}
}
if T == 1 Then
{
if H > Var3 then
{
Var3 = H;
var1 = sDate;
Var2 = sTime;
TL_SetEnd(TL1,var1,Var2,Var3);
}
}
if T == -1 Then
{
if L < Var6 then
{
Var6 = L;
var4 = sDate;
Var5 = sTime;
TL_SetEnd(TL2,var4,Var5,Var6);
}
}
즐거운 하루되세요
> para 님이 쓴 글입니다.
> 제목 : 85199 수식 수정 부탁드립니다
> 85199 수식은 파라볼릭 천정과 바닥을 연결하는 수식입니다
파라볼릭 천정과 바닥이 아닌 파라볼릭 천정과 바닥을 형성한 캔들의 천정과 바닥을 직접 연결하는 선을 그리는 수식이 가능하다면 부탁드립니다
감사합니다
다음글
이전글