커뮤니티
문의 드립니다
2018-08-14 08:19:14
217
글번호 121344
안녕하세요!!!
아래 수식은 일전에 도움받아 사용하고있는 "1P 막대수식"인데요
1, 이 수식의 적용시점을 매일아침 장시작하는 시점부터 새롭게 적용이 되도록 부탁드립니다
즉, 현재 수식은...
전일 오후에 하방 1P 막대가 완성되어 그대로 장이 종료된후에
금일도 처음부터 계속 하방추세라면 아무리 하방폭이 크더라도 이 하방 1P 막대가
금일은 새롭게 발생이 안됩니다
이것을 금일 장 시작시점을 기준으로해서 장시작후 1P 가 하락시 다시또 하방 1P선이
새롭게 발생이 되도록 부탁드립니다
2, 수고스럽겠지만 아래수식에서 음성신호 수식을 한번만더 봐주시면 고맙겠습니다
아무리 이래저래 적용해봐도 음성신호가 안나옵니다
물론 새롭게 작성하라는 폰드는 모두 새롭게 수정했습니다
이것이 안된다면 음성신호를 발생케할 다른 방법은 없는지요?
감사합니다 !!!
-----------------------------------------------------------------------------------
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,yellow);
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,yellow);
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,yellow);
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￦1point.wav");
}
답변 1
예스스탁 예스스탁 답변
2018-08-14 15:09:13
안녕하세요
예스스탁입니다.
1
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);
if bdate != bdate[1] Then
trnd = 0;
for j = 1 to 9
{
loBar[j] = loBar[j] + 1;
hiBar[j] = hiBar[j] + 1;
}
if hiVal[0] <= H or hiVal[0] == 0 or bdate != bdate[1] then
{
hiVal[0] = H;
hiBar[0] = 0;
}
else
{
hiBar[0] = hiBar[0] + 1;
}
if loVal[0] >= L or loVal[0] == 0 or bdate != bdate[1] 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] != dnTr and trnd == dnTr then
{
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
PlaySound("");
TL2 = TL_New(sdate,stime,999999999,sdate,stime,0);
TL_SetColor(TL2,yellow);
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] != upTr and trnd == upTr then
{
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
//BUY();
TL2 = TL_New(sdate,stime,999999999,sdate,stime,0);
TL_SetColor(TL2,yellow);
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,yellow);
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￦1point.wav");
}
plot1(Trnd);
2
랭귀지에서 소리출력함수는 PlaySound 함수뿐이 없습니다.
해당 함수는 사용자분이 경로명과 파일명만 정확히 지정하시면 됩니다.
테스트 해보았지만 정상적으로 소리가 출력됩니다.
게시판에서 그대로 수식 복사하시면 경로명 사이의 ￦의 폰트가 깨질수 있습니다.
경로명의 ￦은 항상 다시 타이핑해 주셔야 합니다.
즐거운 하루되세요
> 유로파54 님이 쓴 글입니다.
> 제목 : 문의 드립니다
> 안녕하세요!!!
아래 수식은 일전에 도움받아 사용하고있는 "1P 막대수식"인데요
1, 이 수식의 적용시점을 매일아침 장시작하는 시점부터 새롭게 적용이 되도록 부탁드립니다
즉, 현재 수식은...
전일 오후에 하방 1P 막대가 완성되어 그대로 장이 종료된후에
금일도 처음부터 계속 하방추세라면 아무리 하방폭이 크더라도 이 하방 1P 막대가
금일은 새롭게 발생이 안됩니다
이것을 금일 장 시작시점을 기준으로해서 장시작후 1P 가 하락시 다시또 하방 1P선이
새롭게 발생이 되도록 부탁드립니다
2, 수고스럽겠지만 아래수식에서 음성신호 수식을 한번만더 봐주시면 고맙겠습니다
아무리 이래저래 적용해봐도 음성신호가 안나옵니다
물론 새롭게 작성하라는 폰드는 모두 새롭게 수정했습니다
이것이 안된다면 음성신호를 발생케할 다른 방법은 없는지요?
감사합니다 !!!
-----------------------------------------------------------------------------------
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,yellow);
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,yellow);
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,yellow);
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￦1point.wav");
}