커뮤니티
수식 작성 부탁드립니다
2026-03-03 22:19:58
70
글번호 230871
아래 수식을 초 단위로 나타낼수 있도록 부탁 드립니다
(예시
nput : n(60);
var : S1(0),D1(0),sTM(0),et(0),ets(0),eTM(0);
Var : SS(0),TS(0),second(0),ii(0),cnt(0);
if Bdate != Bdate[1] Then
{
stm = TimeToMinutes(stime);
D1 = Bdate;
ii = 0;
}
아래수식
input : Period(60);
var : lma(0);
lma = wma(2 * wma(C, int(Period/2)) - wma(C, Period), int(sqrt(Period)));
Plot1(lma, "지표1" );
답변 1
예스스탁 예스스탁 답변
2026-03-04 14:34:13
안녕하세요
예스스탁입니다.
input : n(60),Period(60);
var : stm(0),d1(0),etm(0),ss(0),et(0),ets(0),ts(0),second(0),tf(0);
var : i(0),lma(0);
var : CWSum1(0),WSum1(0),WMAV1(0);
var : CWSum2(0),WSum2(0),WMAV2(0);
var : CWSum(0),WSum(0);
Array : CC[100](0),value[100](0);
if Bdate != Bdate[1] Then
{
stm = TimeToMinutes(stime);
D1 = Bdate;
}
if D1 > 0 then
{
if date == D1 Then
eTM = TimeToMinutes(time)-stm;
Else
eTM = TimeToMinutes(time)+1440-stm;
ets = FracPortion(time/100)*100;
Second = (etm*60)+ets;
TF = second%n;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and TF < TF[1]) Then
{
For i = 99 DownTo 1
{
CC[i] = CC[i-1];
value[i] = value[i-1];
}
}
CC[0] = C;
}
if CC[int(Period/2)-1] > 0 Then
{
CWSum1 = 0;
WSum1 = 0;
For i = 0 To int(Period/2) - 1
{
CWSum1 = CWSum1 + CC[i] * (int(Period/2) - i);
WSum1 = WSum1 + (int(Period/2) - i);
}
WMAV1 = CWSum1/WSum1;
}
if CC[Period-1] > 0 Then
{
CWSum2 = 0;
WSum2 = 0;
For i = 0 To Period - 1
{
CWSum2 = CWSum2 + CC[i] * (Period - i);
WSum2 = WSum2 + (Period - i);
}
WMAV2 = CWSum2/WSum2;
}
if WMAV1 > 0 and WMAV2 > 0 Then
value[0] = 2*WMAV1-WMAV2;
if value[int(sqrt(Period))-1] > 0 Then
{
CWSum = 0;
WSum = 0;
For i = 0 To int(sqrt(Period)) - 1
{
CWSum = CWSum + value[i] * (int(sqrt(Period)) - i);
WSum = WSum + (int(sqrt(Period)) - i);
}
lma = CWSum/WSum;
Plot1(lma, "지표1" );
}
즐거운 하루되세요
다음글
이전글