커뮤니티
지표식 수정 부탁드립니다
2018-07-25 10:05:49
161
글번호 120878
찌는듯한 무더위에 고생이 많습니다 ^^
아래수식은 일전에 도움을 받아서 유용하게 활용하고있는 1p 막대선수식입니다
수고수럽겠지만 이수식에 조건완성시 음성신호가 발생되게 수정 부탁드려봅니다
실시간장에서 다른지표에 신경쓰다보면 이선의 발생을 자꾸 모르고 그냥 지나치게되네요
더불어서 선의 두께를 6이상으로 더 두껍게할수는 없는지요?
감사합니다 !!
Input:전환포인트(1),선굵기(6);
Var : j(0),upTr(100),dnTr(-100),trnd(0),TL1(0),TL2(0),TL3(0);
var : date11(0),date12(0),time11(0),time12(0);
Array:hiVal[10](0),loVal[10](0),hiBar[10](0),loBar[10](0);
for j = 1 to 9 {
loBar[j] = loBar[j] + 1;
hiBar[j] = hiBar[j] + 1;
}
if hiVal[0] <= H or hiVal[0] == 0 then
{
hiVal[0] = H;
hiBar[0] = 0;
}
else
{
hiBar[0] = hiBar[0] + 1;
}
if loVal[0] >= L or loVal[0] == 0 then
{
loVal[0] = L;
loBar[0] = 0;
}
else
{
loBar[0] = loBar[0] + 1;
}
if trnd != dnTr && hiVal[0] > H && hiVal[0]-전환포인트 > L then
trnd = dnTr;
else if trnd != upTr && loVal[0] < L && loVal[0]+전환포인트 < H then
trnd = upTr;
if trnd[1] == upTr and trnd == dnTr then
{
//SELL();
TL2 = TL_New(sdate,stime,999999999,sdate,stime,0);
TL_SetColor(TL2,blue);
TL_SetSize(TL2,선굵기);
for j = 8 downto 1
{
hiVal[j+1] = hiVal[j];
hiBar[j+1] = hiBar[j];
}
hiVal[1] = hiVal[0];
hiBar[1] = hiBar[0];
hiVal[0] = H;
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
date11 = date[loBar[1]]; //추세선 시작일. 전저점의 날짜
time11 = stime[loBar[1]]; //추세선 시작시간
Value11 = loVal[1]; //추세선 시작가격
date12 = date[hiBar[1]]; //추세선 종료일. 전고점의 날짜
time12 = stime[hiBar[1]]; //추세선 종료시간
Value12 = hiVal[1]; //추세선 종료가격
//TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetColor(TL1,red);
TL_SetSize(TL1,선굵기);
}
if trnd[1] == dnTr and trnd == dnTr and
hiVal[1] < hiVal[0] and
hiVal[0]-전환포인트 > L then {
hiVal[1] = hiVal[0];
hiBar[1] = hiBar[0];
hiVal[0] = H;
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
date12 = date[hiBar[1]]; //추세선 종료일
time12 = stime[hiBar[1]];
Value12 = hiVal[1];
TL_SetEnd(TL1, date12,time12,Value12);
}
if trnd[1] == dnTr and trnd == upTr then
{
//BUY();
TL2 = TL_New(sdate,stime,999999999,sdate,stime,0);
TL_SetColor(TL2,red);
TL_SetSize(TL2,선굵기);
for j = 8 downto 1
{
loVal[j+1] = loVal[j];
loBar[j+1] = loBar[j];
}
loVal[1] = loVal[0];
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date11 = date[hiBar[1]];
time11 = stime[hiBar[1]];
Value11 = hiVal[1];
date12 = date[loBar[1]];
time12 = stime[loBar[1]];
Value12 = loVal[1];
//TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetColor(TL1,blue);
TL_SetSize(TL1,선굵기);
}
if trnd[1] == upTr and trnd == upTr and
loVal[1] > loVal[0] and
loVal[0]+전환포인트 < H then
{
loVal[1] = loVal[0];
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date12 = date[loBar[1]];
time12 = stime[loBar[1]];
Value12 = loVal[1];
TL_SetEnd(TL1, date12,time12,Value12);
}
답변 1
예스스탁 예스스탁 답변
2018-07-25 14:28:13
안녕하세요
예스스탁입니다.
1
추세선 굵기는 6이 최고치입니다
2
프로그램에 음성으로 제공되는 wav파일이 없습니다.
별도로 wav파일 구하셔서 경로와 이름지정해 수식내에서 사용하셔야 합니다.
수식에서 사용하는
소리출력함수(playsound)는 사용자분이 지정한 경로의 wav파일이 구동됩니다.
아래는 예스트레이더에 기본으로 제공되는 wav파일을 지정했습니다.
원하시는 wav파일의 경로와 이름을 지정하시기 바랍니다.
게시판에서 식을 복사할 경우 경로명 중 ￦의 폰트가 깨질수 있으므로
￦는 다시 타이핑하시기 바랍니다.
Input:전환포인트(1),선굵기(6);
Var : j(0),upTr(100),dnTr(-100),trnd(0),TL1(0),TL2(0),TL3(0);
var : date11(0),date12(0),time11(0),time12(0);
Array:hiVal[10](0),loVal[10](0),hiBar[10](0),loBar[10](0);
for j = 1 to 9 {
loBar[j] = loBar[j] + 1;
hiBar[j] = hiBar[j] + 1;
}
if hiVal[0] <= H or hiVal[0] == 0 then
{
hiVal[0] = H;
hiBar[0] = 0;
}
else
{
hiBar[0] = hiBar[0] + 1;
}
if loVal[0] >= L or loVal[0] == 0 then
{
loVal[0] = L;
loBar[0] = 0;
}
else
{
loBar[0] = loBar[0] + 1;
}
if trnd != dnTr && hiVal[0] > H && hiVal[0]-전환포인트 > L then
trnd = dnTr;
else if trnd != upTr && loVal[0] < L && loVal[0]+전환포인트 < H then
trnd = upTr;
if trnd[1] == upTr and trnd == dnTr then
{
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
PlaySound("");
TL2 = TL_New(sdate,stime,999999999,sdate,stime,0);
TL_SetColor(TL2,blue);
TL_SetSize(TL2,선굵기);
for j = 8 downto 1
{
hiVal[j+1] = hiVal[j];
hiBar[j+1] = hiBar[j];
}
hiVal[1] = hiVal[0];
hiBar[1] = hiBar[0];
hiVal[0] = H;
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
date11 = date[loBar[1]]; //추세선 시작일. 전저점의 날짜
time11 = stime[loBar[1]]; //추세선 시작시간
Value11 = loVal[1]; //추세선 시작가격
date12 = date[hiBar[1]]; //추세선 종료일. 전고점의 날짜
time12 = stime[hiBar[1]]; //추세선 종료시간
Value12 = hiVal[1]; //추세선 종료가격
//TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetColor(TL1,red);
TL_SetSize(TL1,선굵기);
}
if trnd[1] == dnTr and trnd == dnTr and
hiVal[1] < hiVal[0] and
hiVal[0]-전환포인트 > L then {
hiVal[1] = hiVal[0];
hiBar[1] = hiBar[0];
hiVal[0] = H;
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
date12 = date[hiBar[1]]; //추세선 종료일
time12 = stime[hiBar[1]];
Value12 = hiVal[1];
TL_SetEnd(TL1, date12,time12,Value12);
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
}
if trnd[1] == dnTr and trnd == upTr then
{
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
//BUY();
TL2 = TL_New(sdate,stime,999999999,sdate,stime,0);
TL_SetColor(TL2,red);
TL_SetSize(TL2,선굵기);
for j = 8 downto 1
{
loVal[j+1] = loVal[j];
loBar[j+1] = loBar[j];
}
loVal[1] = loVal[0];
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date11 = date[hiBar[1]];
time11 = stime[hiBar[1]];
Value11 = hiVal[1];
date12 = date[loBar[1]];
time12 = stime[loBar[1]];
Value12 = loVal[1];
//TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetColor(TL1,blue);
TL_SetSize(TL1,선굵기);
}
if trnd[1] == upTr and trnd == upTr and
loVal[1] > loVal[0] and
loVal[0]+전환포인트 < H then
{
loVal[1] = loVal[0];
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date12 = date[loBar[1]];
time12 = stime[loBar[1]];
Value12 = loVal[1];
TL_SetEnd(TL1, date12,time12,Value12);
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
}
즐거운 하루되세요
> 유로파54 님이 쓴 글입니다.
> 제목 : 지표식 수정 부탁드립니다
> 찌는듯한 무더위에 고생이 많습니다 ^^
아래수식은 일전에 도움을 받아서 유용하게 활용하고있는 1p 막대선수식입니다
수고수럽겠지만 이수식에 조건완성시 음성신호가 발생되게 수정 부탁드려봅니다
실시간장에서 다른지표에 신경쓰다보면 이선의 발생을 자꾸 모르고 그냥 지나치게되네요
더불어서 선의 두께를 6이상으로 더 두껍게할수는 없는지요?
감사합니다 !!
Input:전환포인트(1),선굵기(6);
Var : j(0),upTr(100),dnTr(-100),trnd(0),TL1(0),TL2(0),TL3(0);
var : date11(0),date12(0),time11(0),time12(0);
Array:hiVal[10](0),loVal[10](0),hiBar[10](0),loBar[10](0);
for j = 1 to 9 {
loBar[j] = loBar[j] + 1;
hiBar[j] = hiBar[j] + 1;
}
if hiVal[0] <= H or hiVal[0] == 0 then
{
hiVal[0] = H;
hiBar[0] = 0;
}
else
{
hiBar[0] = hiBar[0] + 1;
}
if loVal[0] >= L or loVal[0] == 0 then
{
loVal[0] = L;
loBar[0] = 0;
}
else
{
loBar[0] = loBar[0] + 1;
}
if trnd != dnTr && hiVal[0] > H && hiVal[0]-전환포인트 > L then
trnd = dnTr;
else if trnd != upTr && loVal[0] < L && loVal[0]+전환포인트 < H then
trnd = upTr;
if trnd[1] == upTr and trnd == dnTr then
{
//SELL();
TL2 = TL_New(sdate,stime,999999999,sdate,stime,0);
TL_SetColor(TL2,blue);
TL_SetSize(TL2,선굵기);
for j = 8 downto 1
{
hiVal[j+1] = hiVal[j];
hiBar[j+1] = hiBar[j];
}
hiVal[1] = hiVal[0];
hiBar[1] = hiBar[0];
hiVal[0] = H;
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
date11 = date[loBar[1]]; //추세선 시작일. 전저점의 날짜
time11 = stime[loBar[1]]; //추세선 시작시간
Value11 = loVal[1]; //추세선 시작가격
date12 = date[hiBar[1]]; //추세선 종료일. 전고점의 날짜
time12 = stime[hiBar[1]]; //추세선 종료시간
Value12 = hiVal[1]; //추세선 종료가격
//TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetColor(TL1,red);
TL_SetSize(TL1,선굵기);
}
if trnd[1] == dnTr and trnd == dnTr and
hiVal[1] < hiVal[0] and
hiVal[0]-전환포인트 > L then {
hiVal[1] = hiVal[0];
hiBar[1] = hiBar[0];
hiVal[0] = H;
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
date12 = date[hiBar[1]]; //추세선 종료일
time12 = stime[hiBar[1]];
Value12 = hiVal[1];
TL_SetEnd(TL1, date12,time12,Value12);
}
if trnd[1] == dnTr and trnd == upTr then
{
//BUY();
TL2 = TL_New(sdate,stime,999999999,sdate,stime,0);
TL_SetColor(TL2,red);
TL_SetSize(TL2,선굵기);
for j = 8 downto 1
{
loVal[j+1] = loVal[j];
loBar[j+1] = loBar[j];
}
loVal[1] = loVal[0];
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date11 = date[hiBar[1]];
time11 = stime[hiBar[1]];
Value11 = hiVal[1];
date12 = date[loBar[1]];
time12 = stime[loBar[1]];
Value12 = loVal[1];
//TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetColor(TL1,blue);
TL_SetSize(TL1,선굵기);
}
if trnd[1] == upTr and trnd == upTr and
loVal[1] > loVal[0] and
loVal[0]+전환포인트 < H then
{
loVal[1] = loVal[0];
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date12 = date[loBar[1]];
time12 = stime[loBar[1]];
Value12 = loVal[1];
TL_SetEnd(TL1, date12,time12,Value12);
}