커뮤니티
부탁 드립니다.
2020-06-11 11:00:57
2101
글번호 139731
도움에 항상 감사 드립니다.
타주기(분봉용) 부탁 드립니다.
Input : P(10),sig(5);
var1=ma(c,p);
var2=ma(var1,p);
var3=2*std(var2,p);
var4=var2+var3;
var5=ma(var4,sig);
var6=c-var5;
var7=ma(var6,sig);
답변 3
예스스탁 예스스탁 답변
2020-06-11 14:37:40
안녕하세요
예스스탁입니다.
input : ntime(30),P(10),sig(5);
var : S1(0),D1(0),TM(0),TF(0);
var : cnt(0),SumSqrt(0),Stdv(0);
var : sum(0),BBmd(0),Bbup(0),BBdn(0),VV(0),V3(0),V5(0),V7(0);
Array : CC[100](0),V1[100](0),V2[100](0),V4[100](0),V6[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%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 cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
V1[cnt] = V1[cnt-1][1];
V2[cnt] = V2[cnt-1][1];
V4[cnt] = V4[cnt-1][1];
V6[cnt] = V6[cnt-1][1];
}
}
CC[0] = C;
if CC[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + CC[cnt];
}
V1[0] = sum/P;#var1
}
if V1[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + V1[cnt];
}
V2[0] = sum/P;#var2
}
if V2[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + V2[cnt];
}
VV = sum/P;
SumSqrt = 0;
For cnt = 0 To P - 1 {
SumSqrt = SumSqrt + (V2[cnt] - VV)^2;
}
Stdv = SquareRoot(SumSqrt / P);
V3 = 2*stdv;
V4[0] = V2[0]+v3;
}
if V4[sig-1] > 0 then
{
sum = 0;
for cnt = 0 to sig-1
{
sum = sum + V4[cnt];
}
V5 = sum/sig;
V6[0] = C-V5;
}
if V5[sig+sig-1] > 0 then
{
sum = 0;
for cnt = 0 to sig-1
{
sum = sum + V6[cnt];
}
V7 = sum/sig;
plot1(V7);
}
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 항상 감사 드립니다.
타주기(분봉용) 부탁 드립니다.
Input : P(10),sig(5);
var1=ma(c,p);
var2=ma(var1,p);
var3=2*std(var2,p);
var4=var2+var3;
var5=ma(var4,sig);
var6=c-var5;
var7=ma(var6,sig);
뮬리
2020-06-11 23:09:38
답변 감사 드립니다.
타주기 용으로
1)일봉-->분봉용
2)주봉-->분봉용
3)월봉-->분봉용도 부탁 드려도 될런지요?
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁 드립니다.
> 안녕하세요
예스스탁입니다.
input : ntime(30),P(10),sig(5);
var : S1(0),D1(0),TM(0),TF(0);
var : cnt(0),SumSqrt(0),Stdv(0);
var : sum(0),BBmd(0),Bbup(0),BBdn(0),VV(0),V3(0),V5(0),V7(0);
Array : CC[100](0),V1[100](0),V2[100](0),V4[100](0),V6[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%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 cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
V1[cnt] = V1[cnt-1][1];
V2[cnt] = V2[cnt-1][1];
V4[cnt] = V4[cnt-1][1];
V6[cnt] = V6[cnt-1][1];
}
}
CC[0] = C;
if CC[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + CC[cnt];
}
V1[0] = sum/P;#var1
}
if V1[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + V1[cnt];
}
V2[0] = sum/P;#var2
}
if V2[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + V2[cnt];
}
VV = sum/P;
SumSqrt = 0;
For cnt = 0 To P - 1 {
SumSqrt = SumSqrt + (V2[cnt] - VV)^2;
}
Stdv = SquareRoot(SumSqrt / P);
V3 = 2*stdv;
V4[0] = V2[0]+v3;
}
if V4[sig-1] > 0 then
{
sum = 0;
for cnt = 0 to sig-1
{
sum = sum + V4[cnt];
}
V5 = sum/sig;
V6[0] = C-V5;
}
if V5[sig+sig-1] > 0 then
{
sum = 0;
for cnt = 0 to sig-1
{
sum = sum + V6[cnt];
}
V7 = sum/sig;
plot1(V7);
}
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 항상 감사 드립니다.
타주기(분봉용) 부탁 드립니다.
Input : P(10),sig(5);
var1=ma(c,p);
var2=ma(var1,p);
var3=2*std(var2,p);
var4=var2+var3;
var5=ma(var4,sig);
var6=c-var5;
var7=ma(var6,sig);
예스스탁 예스스탁 답변
2020-06-12 09:01:32
안녕하세요
예스스탁입니다.
1 일봉
input : ntime(30),P(10),sig(5);
var : cnt(0),SumSqrt(0),Stdv(0);
var : sum(0),BBmd(0),Bbup(0),BBdn(0),VV(0),V3(0),V5(0),V7(0);
Array : CC[100](0),V1[100](0),V2[100](0),V4[100](0),V6[100](0);
if Bdate != Bdate[1] Then
{
for cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
V1[cnt] = V1[cnt-1][1];
V2[cnt] = V2[cnt-1][1];
V4[cnt] = V4[cnt-1][1];
V6[cnt] = V6[cnt-1][1];
}
}
CC[0] = C;
if CC[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + CC[cnt];
}
V1[0] = sum/P;#var1
}
if V1[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + V1[cnt];
}
V2[0] = sum/P;#var2
}
if V2[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + V2[cnt];
}
VV = sum/P;
SumSqrt = 0;
For cnt = 0 To P - 1
{
SumSqrt = SumSqrt + (V2[cnt] - VV)^2;
}
Stdv = SquareRoot(SumSqrt / P);
V3 = 2*stdv;
V4[0] = V2[0]+v3;
}
if V4[sig-1] > 0 then
{
sum = 0;
for cnt = 0 to sig-1
{
sum = sum + V4[cnt];
}
V5 = sum/sig;
V6[0] = C-V5;
}
if V5[sig+sig-1] > 0 then
{
sum = 0;
for cnt = 0 to sig-1
{
sum = sum + V6[cnt];
}
V7 = sum/sig;
plot1(V7);
}
2 주봉
input : P(10),sig(5);
var : cnt(0),SumSqrt(0),Stdv(0);
var : sum(0),BBmd(0),Bbup(0),BBdn(0),VV(0),V3(0),V5(0),V7(0);
Array : CC[100](0),V1[100](0),V2[100](0),V4[100](0),V6[100](0);
if DayOfWeek(Bdate) < dayofweek(Bdate[1]) Then
{
for cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
V1[cnt] = V1[cnt-1][1];
V2[cnt] = V2[cnt-1][1];
V4[cnt] = V4[cnt-1][1];
V6[cnt] = V6[cnt-1][1];
}
}
CC[0] = C;
if CC[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + CC[cnt];
}
V1[0] = sum/P;#var1
}
if V1[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + V1[cnt];
}
V2[0] = sum/P;#var2
}
if V2[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + V2[cnt];
}
VV = sum/P;
SumSqrt = 0;
For cnt = 0 To P - 1
{
SumSqrt = SumSqrt + (V2[cnt] - VV)^2;
}
Stdv = SquareRoot(SumSqrt / P);
V3 = 2*stdv;
V4[0] = V2[0]+v3;
}
if V4[sig-1] > 0 then
{
sum = 0;
for cnt = 0 to sig-1
{
sum = sum + V4[cnt];
}
V5 = sum/sig;
V6[0] = C-V5;
}
if V5[sig+sig-1] > 0 then
{
sum = 0;
for cnt = 0 to sig-1
{
sum = sum + V6[cnt];
}
V7 = sum/sig;
plot1(V7);
}
3 월봉
input : P(10),sig(5);
var : cnt(0),SumSqrt(0),Stdv(0);
var : sum(0),BBmd(0),Bbup(0),BBdn(0),VV(0),V3(0),V5(0),V7(0);
Array : CC[100](0),V1[100](0),V2[100](0),V4[100](0),V6[100](0);
if Bdate > Bdate[1]+30 Then
{
for cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
V1[cnt] = V1[cnt-1][1];
V2[cnt] = V2[cnt-1][1];
V4[cnt] = V4[cnt-1][1];
V6[cnt] = V6[cnt-1][1];
}
}
CC[0] = C;
if CC[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + CC[cnt];
}
V1[0] = sum/P;#var1
}
if V1[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + V1[cnt];
}
V2[0] = sum/P;#var2
}
if V2[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + V2[cnt];
}
VV = sum/P;
SumSqrt = 0;
For cnt = 0 To P - 1
{
SumSqrt = SumSqrt + (V2[cnt] - VV)^2;
}
Stdv = SquareRoot(SumSqrt / P);
V3 = 2*stdv;
V4[0] = V2[0]+v3;
}
if V4[sig-1] > 0 then
{
sum = 0;
for cnt = 0 to sig-1
{
sum = sum + V4[cnt];
}
V5 = sum/sig;
V6[0] = C-V5;
}
if V5[sig+sig-1] > 0 then
{
sum = 0;
for cnt = 0 to sig-1
{
sum = sum + V6[cnt];
}
V7 = sum/sig;
plot1(V7);
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : Re : Re : 부탁 드립니다.
> 답변 감사 드립니다.
타주기 용으로
1)일봉-->분봉용
2)주봉-->분봉용
3)월봉-->분봉용도 부탁 드려도 될런지요?
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁 드립니다.
> 안녕하세요
예스스탁입니다.
input : ntime(30),P(10),sig(5);
var : S1(0),D1(0),TM(0),TF(0);
var : cnt(0),SumSqrt(0),Stdv(0);
var : sum(0),BBmd(0),Bbup(0),BBdn(0),VV(0),V3(0),V5(0),V7(0);
Array : CC[100](0),V1[100](0),V2[100](0),V4[100](0),V6[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%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 cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
V1[cnt] = V1[cnt-1][1];
V2[cnt] = V2[cnt-1][1];
V4[cnt] = V4[cnt-1][1];
V6[cnt] = V6[cnt-1][1];
}
}
CC[0] = C;
if CC[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + CC[cnt];
}
V1[0] = sum/P;#var1
}
if V1[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + V1[cnt];
}
V2[0] = sum/P;#var2
}
if V2[P-1] > 0 then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum + V2[cnt];
}
VV = sum/P;
SumSqrt = 0;
For cnt = 0 To P - 1 {
SumSqrt = SumSqrt + (V2[cnt] - VV)^2;
}
Stdv = SquareRoot(SumSqrt / P);
V3 = 2*stdv;
V4[0] = V2[0]+v3;
}
if V4[sig-1] > 0 then
{
sum = 0;
for cnt = 0 to sig-1
{
sum = sum + V4[cnt];
}
V5 = sum/sig;
V6[0] = C-V5;
}
if V5[sig+sig-1] > 0 then
{
sum = 0;
for cnt = 0 to sig-1
{
sum = sum + V6[cnt];
}
V7 = sum/sig;
plot1(V7);
}
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 항상 감사 드립니다.
타주기(분봉용) 부탁 드립니다.
Input : P(10),sig(5);
var1=ma(c,p);
var2=ma(var1,p);
var3=2*std(var2,p);
var4=var2+var3;
var5=ma(var4,sig);
var6=c-var5;
var7=ma(var6,sig);