커뮤니티
부탁 드립니다.
2020-11-02 04:54:03
642
글번호 143544
도움에 감사 드립니다.
질문수식을
타주기 수식으로 부탁 드립니다.
1)참고수식1이 타주기(일봉)로 작성 한것으로 보입니다.정상적인지 검토와
2)예를 들어 10분봉차트에서 60분봉 지표 부탁 드립니다.
미리 경배로 깊은 감사 인사 올립니다.
질문수식)
var1=wma(2*wma(c,p/2)-wma(c,p),sqrt(p));
참고수식1)
Input : Length(20);
Var : Sum1(0), Counter1(0), CSum1(0),Hma(0),cnt(0);
Var : Sum2(0), Counter2(0), CSum2(0);
Var : Sum3(0), Counter3(0), CSum3(0);
Array : weekwma1[99](0),weekwma2[99](0);
var : cnt1(0);
array : WC[99](0);
if Bdate != Bdate[1] Then{
for cnt1 = 1 to 98{
WC[cnt1] = WC[cnt1-1][1];
weekwma1[cnt1] = weekwma1[cnt1-1][1];
weekwma2[cnt1] = weekwma2[cnt1-1][1];
}
}
WC[0] = C;
Sum1= 0;
CSum1 = 0;
Sum2= 0;
CSum2 = 0;
if wc[Length] > 0 Then{
For counter1 = 0 To Length - 1 Begin
Sum1 = Sum1 + wc[counter1] * (Length - counter1);
CSum1 = CSum1 + Length - counter1;
End;
}
If CSum1 > 0 Then
weekWMA1[0] = Sum1 / CSum1;
Else
weekWMA1[0] = 0;
if wc[Length] > 0 Then{
For counter2 = 0 To Length/2 - 1 Begin
Sum2 = Sum2 + wc[counter2] * (Length/2 - counter2);
CSum2 = CSum2 + Length/2 - counter2;
End;
}
If CSum2 > 0 Then
weekWMA2[0] = Sum2 / CSum2;
Else
weekWMA2[0] = 0;
Sum3= 0;
CSum3 = 0;
if weekwma1[Length] > 0 then{
For counter3 = 0 To Sqrt(Length) - 1 Begin
Sum3 = Sum3 + (2*weekwma2[counter3]-weekwma1[counter3]) * (Sqrt(Length) - counter3);
CSum3 = CSum3 + Sqrt(Length) - counter3;
End;
}
If CSum3 > 0 Then
HMa= Sum3 / CSum3;
Else
HMa = 0;
PLOT1(HMA);
참고수식2)
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%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
idx = idx+1;
답변 1
예스스탁 예스스탁 답변
2020-11-02 14:01:22
안녕하세요
예스스탁입니다.
1
타주기 일봉으로 작성된 식이 맞습니다.
2
Input :ntime(60),Length(20);
Var : Sum1(0), Counter1(0), CSum1(0),Hma(0),cnt(0);
Var : Sum2(0), Counter2(0), CSum2(0);
Var : Sum3(0), Counter3(0), CSum3(0);
Array : weekwma1[99](0),weekwma2[99](0);
var : cnt1(0),S1(0),D1(0),TM(0),TF(0);
array : WC[99](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%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
for cnt1 = 1 to 98
{
WC[cnt1] = WC[cnt1-1][1];
weekwma1[cnt1] = weekwma1[cnt1-1][1];
weekwma2[cnt1] = weekwma2[cnt1-1][1];
}
}
WC[0] = C;
Sum1= 0;
CSum1 = 0;
Sum2= 0;
CSum2 = 0;
if wc[Length] > 0 Then
{
For counter1 = 0 To Length - 1 Begin
Sum1 = Sum1 + wc[counter1] * (Length - counter1);
CSum1 = CSum1 + Length - counter1;
End;
}
If CSum1 > 0 Then
weekWMA1[0] = Sum1 / CSum1;
Else
weekWMA1[0] = 0;
if wc[Length] > 0 Then
{
For counter2 = 0 To Length/2 - 1 Begin
Sum2 = Sum2 + wc[counter2] * (Length/2 - counter2);
CSum2 = CSum2 + Length/2 - counter2;
End;
}
If CSum2 > 0 Then
weekWMA2[0] = Sum2 / CSum2;
Else
weekWMA2[0] = 0;
Sum3= 0;
CSum3 = 0;
if weekwma1[Length] > 0 then
{
For counter3 = 0 To Sqrt(Length) - 1 Begin
Sum3 = Sum3 + (2*weekwma2[counter3]-weekwma1[counter3]) * (Sqrt(Length) - counter3);
CSum3 = CSum3 + Sqrt(Length) - counter3;
End;
}
If CSum3 > 0 Then
HMa= Sum3 / CSum3;
Else
HMa = 0;
PLOT1(HMA);
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 감사 드립니다.
질문수식을
타주기 수식으로 부탁 드립니다.
1)참고수식1이 타주기(일봉)로 작성 한것으로 보입니다.정상적인지 검토와
2)예를 들어 10분봉차트에서 60분봉 지표 부탁 드립니다.
미리 경배로 깊은 감사 인사 올립니다.
질문수식)
var1=wma(2*wma(c,p/2)-wma(c,p),sqrt(p));
참고수식1)
Input : Length(20);
Var : Sum1(0), Counter1(0), CSum1(0),Hma(0),cnt(0);
Var : Sum2(0), Counter2(0), CSum2(0);
Var : Sum3(0), Counter3(0), CSum3(0);
Array : weekwma1[99](0),weekwma2[99](0);
var : cnt1(0);
array : WC[99](0);
if Bdate != Bdate[1] Then{
for cnt1 = 1 to 98{
WC[cnt1] = WC[cnt1-1][1];
weekwma1[cnt1] = weekwma1[cnt1-1][1];
weekwma2[cnt1] = weekwma2[cnt1-1][1];
}
}
WC[0] = C;
Sum1= 0;
CSum1 = 0;
Sum2= 0;
CSum2 = 0;
if wc[Length] > 0 Then{
For counter1 = 0 To Length - 1 Begin
Sum1 = Sum1 + wc[counter1] * (Length - counter1);
CSum1 = CSum1 + Length - counter1;
End;
}
If CSum1 > 0 Then
weekWMA1[0] = Sum1 / CSum1;
Else
weekWMA1[0] = 0;
if wc[Length] > 0 Then{
For counter2 = 0 To Length/2 - 1 Begin
Sum2 = Sum2 + wc[counter2] * (Length/2 - counter2);
CSum2 = CSum2 + Length/2 - counter2;
End;
}
If CSum2 > 0 Then
weekWMA2[0] = Sum2 / CSum2;
Else
weekWMA2[0] = 0;
Sum3= 0;
CSum3 = 0;
if weekwma1[Length] > 0 then{
For counter3 = 0 To Sqrt(Length) - 1 Begin
Sum3 = Sum3 + (2*weekwma2[counter3]-weekwma1[counter3]) * (Sqrt(Length) - counter3);
CSum3 = CSum3 + Sqrt(Length) - counter3;
End;
}
If CSum3 > 0 Then
HMa= Sum3 / CSum3;
Else
HMa = 0;
PLOT1(HMA);
참고수식2)
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%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
idx = idx+1;