커뮤니티
지표
2021-11-15 16:40:06
866
글번호 153619
74653수식감사합니다
분봉안에 가중 수식가능한가요
1]100분에 월봉 가중
2]100분에 주봉 가중
3]100분에 일봉 가중
4]100분에 200분 가중
5]100분에 50분 가중
답변 1
예스스탁 예스스탁 답변
2021-11-16 10:32:59
안녕하세요
예스스탁입니다.
5번 내용은 가능하지 않습니다.
기본차트보다 낮은 주기는 계산이 불가능합니다.
수식은 차트의 데이타만 이용가능합니다.
다른주기를 계산할 경우 차트에 해당 주기의 지정한 기간을 계산할 만큰 데이타가 충분하지 못하면
계산을 할 수 없어 지표가 출력되지 않습니다. 이용에 참고하시기 바랍니다.
1.월
input : Period1(100),Period2(300);
input : 색상1(BWHITE), 색상2(BWHITE);
var : cnt(0);
Var : HSum1(0),Lsum1(0),CSum1(0),HWMA1(0),LWMA1(0),mid1(0);
Var : HSum2(0),Lsum2(0),CSum2(0),HWMA2(0),LWMA2(0),mid2(0);
Array : HH[301](0),LL[301](0);
if Bdate > Bdate[1]+30 Then
{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 300
{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
if LL[0] > 0 and L < LL[0] Then
LL[0] = L;
if HH[Period1-1] > 0 and LL[Period1-1] > 0 Then
{
HSum1 = 0;
LSum1 = 0;
CSum1 = 0;
For cnt = 0 To Period1 - 1
{
HSum1 = HSum1 + HH[cnt] * (Period1 - cnt);
LSum1 = LSum1 + LL[cnt] * (Period1 - cnt);
CSum1 = CSum1 + Period1 - cnt;
}
If CSum1 > 0 Then
{
HWMA1 = HSum1/CSum1;
LWMA1 = LSum1/CSum1;
}
}
if HH[Period2-1] > 0 and LL[Period2-1] > 0 Then
{
HSum2 = 0;
LSum2 = 0;
CSum2 = 0;
For cnt = 0 To Period2 - 1
{
HSum2 = HSum2 + HH[cnt] * (Period2 - cnt);
LSum2 = LSum2 + LL[cnt] * (Period2 - cnt);
CSum2 = CSum2 + Period2 - cnt;
}
If CSum2 > 0 Then
{
HWMA2 = HSum2/CSum2;
LWMA2 = LSum2/CSum2;
}
}
if HWMA1 > 0 and LWMA1 > 0 and HWMA2 > 0 and LWMA2 > 0 Then
{
Mid1 = (HWMA1+LWMA1)/2;
Mid2 = (HWMA2+LWMA2)/2;
Plot1(HWMA1, "가중H5");
if c > HWMA2 then
Plot2(HWMA2 , "가중H20", 색상1);
else
Plot2(HWMA2 , "가중H20", 색상2);
Plot3(LWMA1, "가중L5");
if c<LWMA2 then
Plot4(LWMA2, "가중L20", 색상2 );
else
Plot4(LWMA2, "가중L20", 색상1);
Plot5(Mid1,"가중고저중심");
Plot6(Mid2,"가중고저중심");
}
2.주
input : Period1(100),Period2(300);
input : 색상1(BWHITE), 색상2(BWHITE);
var : cnt(0);
Var : HSum1(0),Lsum1(0),CSum1(0),HWMA1(0),LWMA1(0),mid1(0);
Var : HSum2(0),Lsum2(0),CSum2(0),HWMA2(0),LWMA2(0),mid2(0);
Array : HH[301](0),LL[301](0);
if DayOfWeek(Bdate) < DayOfWeek(Bdate[1]) Then
{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 300
{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
if LL[0] > 0 and L < LL[0] Then
LL[0] = L;
if HH[Period1-1] > 0 and LL[Period1-1] > 0 Then
{
HSum1 = 0;
LSum1 = 0;
CSum1 = 0;
For cnt = 0 To Period1 - 1
{
HSum1 = HSum1 + HH[cnt] * (Period1 - cnt);
LSum1 = LSum1 + LL[cnt] * (Period1 - cnt);
CSum1 = CSum1 + Period1 - cnt;
}
If CSum1 > 0 Then
{
HWMA1 = HSum1/CSum1;
LWMA1 = LSum1/CSum1;
}
}
if HH[Period2-1] > 0 and LL[Period2-1] > 0 Then
{
HSum2 = 0;
LSum2 = 0;
CSum2 = 0;
For cnt = 0 To Period2 - 1
{
HSum2 = HSum2 + HH[cnt] * (Period2 - cnt);
LSum2 = LSum2 + LL[cnt] * (Period2 - cnt);
CSum2 = CSum2 + Period2 - cnt;
}
If CSum2 > 0 Then
{
HWMA2 = HSum2/CSum2;
LWMA2 = LSum2/CSum2;
}
}
if HWMA1 > 0 and LWMA1 > 0 and HWMA2 > 0 and LWMA2 > 0 Then
{
Mid1 = (HWMA1+LWMA1)/2;
Mid2 = (HWMA2+LWMA2)/2;
Plot1(HWMA1, "가중H5");
if c > HWMA2 then
Plot2(HWMA2 , "가중H20", 색상1);
else
Plot2(HWMA2 , "가중H20", 색상2);
Plot3(LWMA1, "가중L5");
if c<LWMA2 then
Plot4(LWMA2, "가중L20", 색상2 );
else
Plot4(LWMA2, "가중L20", 색상1);
Plot5(Mid1,"가중고저중심");
Plot6(Mid2,"가중고저중심");
}
3 일
input : Period1(100),Period2(300);
input : 색상1(BWHITE), 색상2(BWHITE);
var : cnt(0);
Var : HSum1(0),Lsum1(0),CSum1(0),HWMA1(0),LWMA1(0),mid1(0);
Var : HSum2(0),Lsum2(0),CSum2(0),HWMA2(0),LWMA2(0),mid2(0);
Array : HH[301](0),LL[301](0);
if Bdate != Bdate[1] Then
{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 300
{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
if LL[0] > 0 and L < LL[0] Then
LL[0] = L;
if HH[Period1-1] > 0 and LL[Period1-1] > 0 Then
{
HSum1 = 0;
LSum1 = 0;
CSum1 = 0;
For cnt = 0 To Period1 - 1
{
HSum1 = HSum1 + HH[cnt] * (Period1 - cnt);
LSum1 = LSum1 + LL[cnt] * (Period1 - cnt);
CSum1 = CSum1 + Period1 - cnt;
}
If CSum1 > 0 Then
{
HWMA1 = HSum1/CSum1;
LWMA1 = LSum1/CSum1;
}
}
if HH[Period2-1] > 0 and LL[Period2-1] > 0 Then
{
HSum2 = 0;
LSum2 = 0;
CSum2 = 0;
For cnt = 0 To Period2 - 1
{
HSum2 = HSum2 + HH[cnt] * (Period2 - cnt);
LSum2 = LSum2 + LL[cnt] * (Period2 - cnt);
CSum2 = CSum2 + Period2 - cnt;
}
If CSum2 > 0 Then
{
HWMA2 = HSum2/CSum2;
LWMA2 = LSum2/CSum2;
}
}
if HWMA1 > 0 and LWMA1 > 0 and HWMA2 > 0 and LWMA2 > 0 Then
{
Mid1 = (HWMA1+LWMA1)/2;
Mid2 = (HWMA2+LWMA2)/2;
Plot1(HWMA1, "가중H5");
if c > HWMA2 then
Plot2(HWMA2 , "가중H20", 색상1);
else
Plot2(HWMA2 , "가중H20", 색상2);
Plot3(LWMA1, "가중L5");
if c<LWMA2 then
Plot4(LWMA2, "가중L20", 색상2 );
else
Plot4(LWMA2, "가중L20", 색상1);
Plot5(Mid1,"가중고저중심");
Plot6(Mid2,"가중고저중심");
}
4 타주기분(기본차트보다 배수로 높은 주기만 가능)
input : 타주기분(200),Period1(100),Period2(300);
input : 색상1(BWHITE), 색상2(BWHITE);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
Var : HSum1(0),Lsum1(0),CSum1(0),HWMA1(0),LWMA1(0),mid1(0);
Var : HSum2(0),Lsum2(0),CSum2(0),HWMA2(0),LWMA2(0),mid2(0);
Array : HH[301](0),LL[301](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%타주기분;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and 타주기분 > 1 and TM >= TM[1]+타주기분) or
(Bdate == Bdate[1] and 타주기분 == 1 and TM > TM[1]) Then
{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 300
{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
if LL[0] > 0 and L < LL[0] Then
LL[0] = L;
if HH[Period1-1] > 0 and LL[Period1-1] > 0 Then
{
HSum1 = 0;
LSum1 = 0;
CSum1 = 0;
For cnt = 0 To Period1 - 1
{
HSum1 = HSum1 + HH[cnt] * (Period1 - cnt);
LSum1 = LSum1 + LL[cnt] * (Period1 - cnt);
CSum1 = CSum1 + Period1 - cnt;
}
If CSum1 > 0 Then
{
HWMA1 = HSum1/CSum1;
LWMA1 = LSum1/CSum1;
}
}
if HH[Period2-1] > 0 and LL[Period2-1] > 0 Then
{
HSum2 = 0;
LSum2 = 0;
CSum2 = 0;
For cnt = 0 To Period2 - 1
{
HSum2 = HSum2 + HH[cnt] * (Period2 - cnt);
LSum2 = LSum2 + LL[cnt] * (Period2 - cnt);
CSum2 = CSum2 + Period2 - cnt;
}
If CSum2 > 0 Then
{
HWMA2 = HSum2/CSum2;
LWMA2 = LSum2/CSum2;
}
}
if HWMA1 > 0 and LWMA1 > 0 and HWMA2 > 0 and LWMA2 > 0 Then
{
Mid1 = (HWMA1+LWMA1)/2;
Mid2 = (HWMA2+LWMA2)/2;
Plot1(HWMA1, "가중H5");
if c > HWMA2 then
Plot2(HWMA2 , "가중H20", 색상1);
else
Plot2(HWMA2 , "가중H20", 색상2);
Plot3(LWMA1, "가중L5");
if c<LWMA2 then
Plot4(LWMA2, "가중L20", 색상2 );
else
Plot4(LWMA2, "가중L20", 색상1);
Plot5(Mid1,"가중고저중심");
Plot6(Mid2,"가중고저중심");
}
}
즐거운 하루되세요
> 호정0688 님이 쓴 글입니다.
> 제목 : 지표
> 74653수식감사합니다
분봉안에 가중 수식가능한가요
1]100분에 월봉 가중
2]100분에 주봉 가중
3]100분에 일봉 가중
4]100분에 200분 가중
5]100분에 50분 가중
다음글
이전글