커뮤니티
부탁 드립니다
2022-12-12 17:54:33
891
글번호 164541
도움에 감사 드립니다.
타주기 (분,일봉용)수식 부탁 드립니다.
미리 감사 드립니다.
input:p(20);
input:sig(9);
var1=Accumn(IFf(c>c[1],
(c-c[1])/c*100,0),p);
var2=Accumn(IFf(c<c[1],
(c[1]-c)/c*100,0),p);
var11=var1/Var2;
var12=var2/Var1;
var13=var11-var12;
Var23=ma(var13,sig);
참고수식)
input : 분(10),p(20),sig(9);
var : cnt1(0),cnt2(0),sum1(0),sum2(0),value(0);
Var : BPower(0), SPower(0),NetPower(0);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
Array : CC[100](0),HH[100](0),LL[100](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
{
for cnt = 99 downto 1
{
HH[cnt] = HH[cnt-1];
LL[cnt] = LL[cnt-1];
CC[cnt] = CC[cnt-1];
}
hh[0] = H;
LL[0] = l;
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
if LL[0] > 0 and L < LL[0] Then
LL[0] = L;
CC[0] = C;
if CC[P+sig] > 0 Then
답변 1
예스스탁 예스스탁 답변
2022-12-13 14:57:12
안녕하세요
예스스탁입니다.
1
input : 분(10),p(20),sig(9);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),sum(0);
Array : CC[100](0),v13[100](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
{
for cnt = 99 downto 1
{
CC[cnt] = CC[cnt-1];
v13[cnt] = v13[cnt-1];
}
}
CC[0] = C;
if CC[P] > 0 Then
{
var1 = 0;
Var2 = 0;
For cnt = 0 to P-1
{
if CC[cnt] > CC[cnt+1] Then
var1 = var1 + (CC[cnt]-CC[cnt+1])/CC[cnt]*100;
if CC[cnt] < CC[cnt+1] Then
var2 = var2 + (CC[cnt+1]-CC[cnt])/CC[cnt]*100;
}
var11=var1/Var2;
var12=var2/Var1;
v13[0]=var11-var12;
Plot1(v13[0]);
}
if CC[P+sig] > 0 Then
{
sum = 0;
For cnt = 0 to sig-1
{
sum = sum + v13[cnt];
}
Var23 = sum/sig;
plot2(Var23);
}
}
2
input:p(20);
input:sig(9);
var : cnt1(0),sum(0),cnt2(0);
sum = 0;
For cnt2 = 0 to sig-1
{
var1 = 0;
Var2 = 0;
For cnt1 = cnt2+0 to cnt2+P-1
{
if DayClose(cnt1) > DayClose(cnt1+1) Then
var1 = var1 + (DayClose(cnt1)-DayClose(cnt1+1))/DayClose(cnt1)*100;
if DayClose(cnt1) < DayClose(cnt1+1) Then
var2 = var2 + (DayClose(cnt1+1)-DayClose(cnt1))/DayClose(cnt1)*100;
}
var11=var1/Var2;
var12=var2/Var1;
Value1 = var11-var12;
if cnt2 == 0 Then
var13 = value1;
sum = sum+value1;
}
Var23 = sum/sig;
plot1(var13);
plot2(var23);
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다
> 도움에 감사 드립니다.
타주기 (분,일봉용)수식 부탁 드립니다.
미리 감사 드립니다.
input:p(20);
input:sig(9);
var1=Accumn(IFf(c>c[1],
(c-c[1])/c*100,0),p);
var2=Accumn(IFf(c<c[1],
(c[1]-c)/c*100,0),p);
var11=var1/Var2;
var12=var2/Var1;
var13=var11-var12;
Var23=ma(var13,sig);
참고수식)
input : 분(10),p(20),sig(9);
var : cnt1(0),cnt2(0),sum1(0),sum2(0),value(0);
Var : BPower(0), SPower(0),NetPower(0);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
Array : CC[100](0),HH[100](0),LL[100](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
{
for cnt = 99 downto 1
{
HH[cnt] = HH[cnt-1];
LL[cnt] = LL[cnt-1];
CC[cnt] = CC[cnt-1];
}
hh[0] = H;
LL[0] = l;
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
if LL[0] > 0 and L < LL[0] Then
LL[0] = L;
CC[0] = C;
if CC[P+sig] > 0 Then