커뮤니티
수정 부탁드려요
2019-08-20 17:23:25
272
글번호 131247
매번감사드립니다
답변 1
예스스탁 예스스탁 답변
2019-08-20 15:14:15
안녕하세요
예스스탁입니다.
최고점과 장대양봉의 전봉에 대한 텍스트는
최근것 하나만 출력되게 작성했습니다.
항상 현재봉 기준으로 15개안에 장대양봉이 있는지 확인해서 출력하면
텍스트가 겹쳐서 표시되게 됩니다. 이전것을 계속 삭제할수 밖에 없습니다.
1
input : P(200),Per(10),N(15);
var : cnt(0),i1(0),i2(0),HH(0),sum1(0),sum2(0);
var : tx1(0),tx2(0);
if index >= P then
{
i1 = -1;
for cnt = 0 To N-1
{
if C[cnt] >= O[cnt]*(1+per/100) Then
{
i1 = cnt;
}
}
HH = 0;
i2 = -1;
for cnt = 0 To P-1
{
if HH == 0 or (HH > 0 and H[cnt] > HH) Then
{
HH = H[cnt];
i2 = cnt;
}
}
if i2 > i1 and i1 > -1 and i2 > -1 then
{
Text_Delete(tx1);
tx1 = text_new(sdate[i1+1],stime[i1+1],H[i1+1],"장대양봉전봉");
Text_SetStyle(tx1,2,1);
Text_Delete(tx2);
tx2 = text_new(sdate[i2],stime[i2],H[i2],"최고고점");
Text_SetStyle(tx2,2,1);
sum1 = 0;
for cnt = 0 to i1
{
sum1 = sum1 + Money[cnt];
}
sum2 = 0;
for cnt = i1+1 to i2
{
sum2 = sum2 + Money[cnt];
}
plot1(sum1,"장대양봉~현재");
plot2(sum2,"최고~장대양봉전");
}
}
2
input : P(200),Per(10),N(15);
var : cnt(0),i1(0),i2(0),HH(0),sum1(0),sum2(0);
var : tx1(0),tx2(0);
if index >= P then
{
i1 = -1;
for cnt = 0 To N-1
{
if C[cnt] >= O[cnt]*(1+per/100) Then
{
i1 = cnt;
}
}
HH = 0;
i2 = -1;
for cnt = 0 To P-1
{
if HH == 0 or (HH > 0 and H[cnt] > HH) Then
{
HH = H[cnt];
i2 = cnt;
}
}
if i2 > i1 and i1 > -1 and i2 > -1 then
{
Text_Delete(tx1);
tx1 = text_new(sdate[i1+1],stime[i1+1],H[i1+1],"장대양봉전봉");
Text_SetStyle(tx1,2,1);
Text_Delete(tx2);
tx2 = text_new(sdate[i2],stime[i2],H[i2],"최고고점");
Text_SetStyle(tx2,2,1);
sum1 = 0;
for cnt = 0 to i1
{
sum1 = sum1 + Money[cnt];
}
sum2 = 0;
for cnt = i1+1 to i2
{
sum2 = sum2 + Money[cnt];
}
plot1(sum2/sum1*100,"비율");
}
}
즐거운 하루되세요
> 아무다 님이 쓴 글입니다.
> 제목 : 수정 부탁드려요
> 최근 200봉 내에서 최고값봉을 찾고 최고값봉부터 최근 15일내 장대양봉(10프로이상)이 있다면 장대양봉 직전 봉까지의 거래금액 합계와 장대양봉부터 현재 봉까지의 거래금액 합계 부탁드려요 전고점이 아니라 (최고고점에서 최근 15일이내 10프로이상 장대양봉전까지의 거래금액합계)/(최근 15일이내 장대양봉부터 현재봉(오늘)까지의 거래금액 합계) 알고싶어요
200일 이내 최고값은 양봉이든 음봉이든 상관없어요
그리고 15일이내 10프로이상의장대양봉이두개이상이면 먼저나온 장대양봉이기준이 되게해주셔요
1 각 합계금액
input : P(200),Per(10),N(15);
var : HH(0),MM(0),ii(0),tx1(0),tx2(0),cnt(0),NN(0),NI(0);
if index >= P and C >= O*(1+per/100) then
{
HH = 0;
MM = 0;
ii = 0;
for cnt = 200 DownTo 1
{
if HH == 0 or (HH > 0 and H[cnt] > HH) Then
{
HH = H[cnt];
MM = 0;
ii = cnt;
}
MM = MM+Money[cnt];
}
tx1 = text_new(sdate[ii],stime[ii],H[ii],"최고고점");
Text_SetStyle(tx1,2,1);
tx2 = text_new(sdate[1],stime[1],H[1],"장대양봉전봉");
Text_SetStyle(tx2,2,1);
NN = 0;
Ni = index;
}
if NI > 0 and index <= Ni+n then
{
NN = NN+money;
plot1(MM,"최고~장대양봉전봉 거래대금함계");
plot2(NN,"장대양봉~현재 거래대금함계");
}
2 비율
input : P(200),Per(10),N(15);
var : HH(0),MM(0),ii(0),tx1(0),tx2(0),cnt(0),NN(0),NI(0);
if index >= P and C >= O*(1+per/100) then
{
HH = 0;
MM = 0;
ii = 0;
for cnt = 200 DownTo 1
{
if HH == 0 or (HH > 0 and H[cnt] > HH) Then
{
HH = H[cnt];
MM = 0;
ii = cnt;
}
MM = MM+Money[cnt];
}
tx1 = text_new(sdate[ii],stime[ii],H[ii],"전고점");
Text_SetStyle(tx1,2,1);
tx2 = text_new(sdate[1],stime[1],H[1],"장대양봉전봉");
Text_SetStyle(tx2,2,1);
NN = 0;
Ni = index;
}
if NI > 0 and index <= Ni+n then
{
NN = NN+money;
plot1(NN/MM*100,"비율");
}
다음글
이전글