답변완료
부탁 드립니다.
도움에 진심으로 감사 드립니다.
질문1)
수식1,2를 해선용으로 사용 하던 지표를
국내 주식용으로 사용 하고자 하오니
수정 부탁 드립니다.
질문2)
수식2를 타주기 틱용으로 부탁 드립니다.
미리 감사 드립니다.
수식1)
input : Period(20),dv(2);
var : cnt(0),TM(0);
var : mav1(0),BBup1(0),BBdn1(0);
var : TF2(0),sum2(0),mav2(0),SumSqrt2(0),Stdv2(0),BBup2(0),BBdn2(0);
var : TF3(0),sum3(0),mav3(0),SumSqrt3(0),Stdv3(0),BBup3(0),BBdn3(0);
var : TF4(0),sum4(0),mav4(0),SumSqrt4(0),Stdv4(0),BBup4(0),BBdn4(0);
var : sum5(0),mav5(0);
Array : C2[130](0),C3[130](0),C4[130](0);
if bdate != Bdate[1] Then
var1 = stime;
if date != date[1] Then
var2 = TM[1];
if stime >= var1 Then
TM = TimeToMinutes(stime)-TimeToMinutes(var1);
Else
TM = TimeToMinutes(stime)+var2;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF2 < TF2[1]) Then{
for cnt = 1 to 129{
C2[cnt] = C2[cnt-1][1];
}
}
C2[0] = C;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF3 < TF3[1]) Then{
for cnt = 1 to 129{
C3[cnt] = C3[cnt-1][1];
}
}
C3[0] = C;
if DayClose(Period-1) > 0 then{
sum4 = 0;
for cnt = 0 to Period-1{
sum4 = sum4+DayClose(cnt);
}
mav4 = sum4/Period;
SumSqrt4 = 0;
For cnt = 0 To Period - 1 {
SumSqrt4 = SumSqrt4 + (DayClose(cnt) - mav4) * (DayClose(cnt) - mav4);
}
Stdv4 = SquareRoot(SumSqrt4/ Period);
}
수식2)
input : Atime1(30),Period(20),dv(2);
var : cnt(0),TM(0);
var : mav1(0),BBup1(0),BBdn1(0);
var : TF2(0),sum2(0),mav2(0),SumSqrt2(0),Stdv2(0),BBup2(0),BBdn2(0);
var : TF3(0),sum3(0),mav3(0),SumSqrt3(0),Stdv3(0),BBup3(0),BBdn3(0);
var : TF4(0),sum4(0),mav4(0),SumSqrt4(0),Stdv4(0),BBup4(0),BBdn4(0);
var : sum5(0),mav5(0);
Array : C2[60](0),C3[60](0),C4[60](0);
if bdate != Bdate[1] Then
var1 = stime;
if date != date[1] Then
var2 = TM[1];
if stime >= var1 Then
TM = TimeToMinutes(stime)-TimeToMinutes(var1);
Else
TM = TimeToMinutes(stime)+var2;
TF2 = TM%Atime1;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF2 < TF2[1]) Then{
for cnt = 1 to 59{
C2[cnt] = C2[cnt-1][1];
}
}
C2[0] = C;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF3 < TF3[1]) Then{
for cnt = 1 to 59{
C3[cnt] = C3[cnt-1][1];
}
}
C3[0] = C;
if C2[Period-1] > 0 then{
sum2 = 0;
for cnt = 0 to Period-1{
sum2 = sum2+C2[cnt];
}
mav2 = sum2/Period;
SumSqrt2 = 0;
For cnt = 0 To Period - 1 {
SumSqrt2 = SumSqrt2 + (C2[cnt] - mav2) * (C2[cnt] - mav2);
}
Stdv2 = SquareRoot(SumSqrt2/ Period);
}
2020-04-08
934
글번호 137678
지표
답변완료
지표문의
1.안녕하세요
아래는 CSar지표인데요.
수평연장선이 고가지점, 저가지점 대비 2등분으로 표시 되는데 3등분으로 보구 싶어요.
지표 수정 좀해 주세요.
아울러 등분 나누는 방법두 좀 알려주세요.
input : af(0.02), maxAF(0.2),추세선두께(5),추세선색1(RED),추세선색2(BLUE),연장선두께(2),연장선색(blue);
input : 텍스트출력(1);
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0);
var : HH1(0),LL1(0),HD1(0),HT1(0),LD1(0),LT1(0);
var : TL1(0),TL2(0),cnt(0),count(0);
var : TL3(0),TL4(0),TL5(0),TL6(0),tx1(0),tx2(0),tx11(0),tx22(0);
Var : TL11(0),TL22(0);
var1 = CSar(af,maxAF);
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
HH1 = HH[1];
HD1 = HD[1];
HT1 = HT[1];
if LL > 0 Then
{
TL1 = TL_new(LD[1],LT[1],LL[1],HD,HT,HH);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL3 = TL_new(HD[1],HT[1],HH[1],sdate,stime,HH[1]);
TL4 = TL_new(HD[1],HT[1],(HH[1]+LL)/2,sdate,stime,(HH[1]+LL)/2);
TL5 = TL_new(HD[1],HT[1],LL,sdate,stime,LL);
TL6 = TL_new(HD[1],HT[1],HH[1]+(HH[1]-LL[1])/2,sdate,stime,HH[1]+(HH[1]-LL)/2);
//추세선 오른쪽 연장설정
TL_SetExtRight(TL3,true);
TL_SetExtRight(TL4,true);
TL_SetExtRight(TL5,true);
TL_SetExtRight(TL6,true);
if 텍스트출력 == 1 then
{
Tx11 = Text_New(HD1,HT1,HH1,NumToStr((HH1-LL1)/PriceScale,0)+NewLine+NumToStr(HH1,2));
Text_SetStyle(tx11,2,1);
Text_Delete(tx1);
Tx1 = Text_New(HD,HT,HH,NumToStr((HH-LL[1])/PriceScale,0)+NewLine+NumToStr(HH,2));
Text_SetStyle(tx1,2,1);
}
}
TL11 = TL_New(HD1,HT1,HH1,HD,HT,HH);
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
LL1 = LL[1];
LD1 = LD[1];
LT1 = LT[1];
if HH > 0 Then
{
TL2 = TL_new(HD[1],HT[1],HH[1],LD,LT,LL);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL3 = TL_new(LD[1],LT[1],HH,sdate,stime,HH);
TL4 = TL_new(LD[1],LT[1],(HH+LL[1])/2,sdate,stime,(HH+LL[1])/2);
TL5 = TL_new(LD[1],LT[1],LL[1],sdate,stime,LL[1]);
TL6 = TL_new(LD[1],LT[1],LL[1]-(HH-LL[1])/2,sdate,stime,LL[1]-(HH-LL[1])/2);
//추세선 오른쪽 연장설정
TL_SetExtRight(TL3,true);
TL_SetExtRight(TL4,true);
TL_SetExtRight(TL5,true);
TL_SetExtRight(TL6,true);
if 텍스트출력 == 1 then
{
Tx22 = Text_New(LD1,LT1,LL1,NumToStr((HH1-LL1)/PriceScale,0)+NewLine+NumToStr(LL1,2));
Text_SetStyle(tx22,2,0);
Text_Delete(tx2);
Tx2 = Text_New(LD,LT,LL,NumToStr((HH[1]-LL)/PriceScale,0)+NewLine+NumToStr(LL,2));
Text_SetStyle(tx2,2,0);
}
}
TL22 = TL_New(LD1,LT1,LL1,LD,LT,LL);
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
TL_SetEnd(TL1,HD,HT,HH);
TL_SetEnd(TL11,HD,HT,HH);
if 텍스트출력 == 1 then
{
Text_Delete(tx1);
Tx1 = Text_New(HD,HT,HH,NumToStr((HH-LL[1])/PriceScale,0)+NewLine+NumToStr(HH,2));
Text_SetStyle(tx1,2,1);
}
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
TL_SetEnd(TL2,LD,LT,LL);
TL_SetEnd(TL22,LD,LT,LL);
if 텍스트출력 == 1 then
{
Text_Delete(tx2);
Tx2 = Text_New(LD,LT,LL,NumToStr((HH[1]-LL)/PriceScale,0)+NewLine+NumToStr(LL,2));
Text_SetStyle(tx2,2,0);
}
}
}
#추세선 두께, 색상
TL_SetSize(TL1,추세선두께);
TL_SetSize(TL11,추세선두께);
TL_SetSize(TL2,추세선두께);
TL_SetSize(TL22,추세선두께);
TL_SetColor(TL1,추세선색1);
TL_SetColor(TL11,추세선색1);
TL_SetColor(TL2,추세선색2);
TL_SetColor(TL22,추세선색2);
#연장선 두께, 색상
TL_SetSize(TL3,연장선두께);
TL_SetSize(TL4,연장선두께);
TL_SetSize(TL5,연장선두께);
TL_SetSize(TL6,연장선두께);
TL_SetColor(TL3,연장선색);
TL_SetColor(TL4,연장선색);
TL_SetColor(TL5,연장선색);
TL_SetColor(TL6,연장선색);
3.그럼 수고하셍세요
2020-04-07
771
글번호 137668
지표