커뮤니티
부탁 드립니다.
2018-10-29 20:48:21
179
글번호 123177
타주기(분용) 수식 부탁 드립니다.
input : P1(20);
var : LT(0),HT(0),BOX1(false),TOP2(0),idx(0);
LT=LOWEST(L,P1);
HT=HIGHEST(H,P1);
BOX1 = Lowest(L,P1-2) > Lowest(L,P1-1);
if L < LT[1] Then
idx = 0;
Else
idx = idx+1;
if idx == P1-2 and Box1 == true then
TOP2 = HT;
참고수식)
/*
var1=LOWEST(L,P1);
var2=HIGHEST(H,P1);
*/
//타주기 분용 수식
input : 타주기분(60),P1(10);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),Hv(0),Lv(0);
Array : 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 TF < TF[1]) Then
{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99
{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
if HH[P1-1] > 0 and LL[P1-1] > 0 then
{
Hv = HH[0];
Lv = LL[0];
for cnt = 0 to P1-1
{
if HH[cnt] > Hv Then
Hv = HH[cnt];
if LL[cnt] < Lv Then
Lv = LL[cnt];
}
plot1(Hv);
plot2(Lv);
}
}
답변 2
예스스탁 예스스탁 답변
2018-10-30 10:43:51
안녕하세요
예스스탁입니다.
input : 타주기분(60),P1(20);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : HT1(0),LT1(0),L1(0),L2(0),ii(0),idx(0),TOP2(0);
Array : 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 TF < TF[1]) Then
{
ii = ii+1;
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99
{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
if HH[P1+1] > 0 and LL[P1+1] > 0 then
{
HT1 = HH[2];
LT1 = LL[2];
for cnt = 2 to P1+1
{
if HH[cnt] > HT1 Then
HT1 = HH[cnt];
if LL[cnt] < LT1 Then
LT1 = LL[cnt];
}
if LL[1] < LT1 Then
idx = ii[1];
if idx > 0 and ii[1] == idx+P1-2 then
{
L1 = LL[1];
L2 = LL[1];
for cnt = 1 to P1
{
if cnt <= P1-1 and LL[cnt] < L1 Then
L1 = LL[cnt];
if cnt <= P1-2 and LL[cnt] < L2 Then
L2 = LL[cnt];
}
if L2 > L1 Then
TOP2 = HT1;
}
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
}
if TOP2 > 0 then
plot1(TOP2);
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 타주기(분용) 수식 부탁 드립니다.
input : P1(20);
var : LT(0),HT(0),BOX1(false),TOP2(0),idx(0);
LT=LOWEST(L,P1);
HT=HIGHEST(H,P1);
BOX1 = Lowest(L,P1-2) > Lowest(L,P1-1);
if L < LT[1] Then
idx = 0;
Else
idx = idx+1;
if idx == P1-2 and Box1 == true then
TOP2 = HT;
참고수식)
/*
var1=LOWEST(L,P1);
var2=HIGHEST(H,P1);
*/
//타주기 분용 수식
input : 타주기분(60),P1(10);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),Hv(0),Lv(0);
Array : 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 TF < TF[1]) Then
{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99
{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
if HH[P1-1] > 0 and LL[P1-1] > 0 then
{
Hv = HH[0];
Lv = LL[0];
for cnt = 0 to P1-1
{
if HH[cnt] > Hv Then
Hv = HH[cnt];
if LL[cnt] < Lv Then
Lv = LL[cnt];
}
plot1(Hv);
plot2(Lv);
}
}
yes
2018-10-30 21:29:06
아래 유사한 수식도
타주기(분용)
추가로 부탁 드립니다.
(죄송 합니다. 답변후 스스로 해결하고자 시도하였으나 실패한지라 추가 부탁 드립니다.)
미리 감사 드립니다.
input : P1(20);
var : LT(0),HT(0),BOX1(false),TOP2(0),idx(0),idx1(0),NEWL(0),BTM2(0);
LT=LOWEST(L,P1);
HT=HIGHEST(H,P1);
BOX1 = Lowest(L,P1-2) > Lowest(L,P1-1);
IF L<LT[1] THEN {NEWL=L;}
if L < LT[1] Then
idx1 = 0;
Else
idx1 = idx1+1;
If idx1 == P1-2 and Box1 == true then
BTM2 = NEWL;
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁 드립니다.
> 안녕하세요
예스스탁입니다.
input : 타주기분(60),P1(20);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : HT1(0),LT1(0),L1(0),L2(0),ii(0),idx(0),TOP2(0);
Array : 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 TF < TF[1]) Then
{
ii = ii+1;
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99
{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
if HH[P1+1] > 0 and LL[P1+1] > 0 then
{
HT1 = HH[2];
LT1 = LL[2];
for cnt = 2 to P1+1
{
if HH[cnt] > HT1 Then
HT1 = HH[cnt];
if LL[cnt] < LT1 Then
LT1 = LL[cnt];
}
if LL[1] < LT1 Then
idx = ii[1];
if idx > 0 and ii[1] == idx+P1-2 then
{
L1 = LL[1];
L2 = LL[1];
for cnt = 1 to P1
{
if cnt <= P1-1 and LL[cnt] < L1 Then
L1 = LL[cnt];
if cnt <= P1-2 and LL[cnt] < L2 Then
L2 = LL[cnt];
}
if L2 > L1 Then
TOP2 = HT1;
}
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
}
if TOP2 > 0 then
plot1(TOP2);
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 타주기(분용) 수식 부탁 드립니다.
input : P1(20);
var : LT(0),HT(0),BOX1(false),TOP2(0),idx(0);
LT=LOWEST(L,P1);
HT=HIGHEST(H,P1);
BOX1 = Lowest(L,P1-2) > Lowest(L,P1-1);
if L < LT[1] Then
idx = 0;
Else
idx = idx+1;
if idx == P1-2 and Box1 == true then
TOP2 = HT;
참고수식)
/*
var1=LOWEST(L,P1);
var2=HIGHEST(H,P1);
*/
//타주기 분용 수식
input : 타주기분(60),P1(10);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),Hv(0),Lv(0);
Array : 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 TF < TF[1]) Then
{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99
{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
if HH[P1-1] > 0 and LL[P1-1] > 0 then
{
Hv = HH[0];
Lv = LL[0];
for cnt = 0 to P1-1
{
if HH[cnt] > Hv Then
Hv = HH[cnt];
if LL[cnt] < Lv Then
Lv = LL[cnt];
}
plot1(Hv);
plot2(Lv);
}
}
다음글
이전글