커뮤니티
부탁드립니다.
2015-07-16 16:17:15
159
글번호 88545
첨부 이미지
그림1
var : T(0),tx(0);
var1 = ma(c,300);
var2 = ma(C,9000);
if var2[1]>var2[0] and
OPEN[0]>var1 and
OPEN[0]>CLOSE[0] Then
T = -1;
if var2[1]<var2[0] and
OPEN[0]<var1 and
OPEN[0]<CLOSE[0] Then
T = 1;
if MarketPosition == 0 and T == -1 and countif(T == T[1],3) == 3 Then{
sell();
Text_Delete(tx);
tx = Text_New(sdate,stime,H+PriceScale*2,"매도 : "+NumToStr(c,2));
}
if MarketPosition == 0 and T == 1 and countif(T == T[1],3) == 3 Then{
buy();
Text_Delete(tx);
tx = Text_New(sdate,stime,H+PriceScale*2,"매수 : "+NumToStr(c,2));
}
SetStopProfittarget(PriceScale*700,PointStop);
SetStopLoss(PriceScale*900,PointStop);
- 1. 라인.png (0.08 MB)
답변 5
예스스탁 예스스탁 답변
2015-07-16 17:46:15
안녕하세요
예스스탁입니다.
올려주신식에는 추세선이 그려지는 내용이 없습니다.
해당 내용이 있는 식을 올려주시기 바랍니다.
즐거운 하루되세요
> 매일상승 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> var : T(0),tx(0);
var1 = ma(c,300);
var2 = ma(C,9000);
if var2[1]>var2[0] and
OPEN[0]>var1 and
OPEN[0]>CLOSE[0] Then
T = -1;
if var2[1]<var2[0] and
OPEN[0]<var1 and
OPEN[0]<CLOSE[0] Then
T = 1;
if MarketPosition == 0 and T == -1 and countif(T == T[1],3) == 3 Then{
sell();
Text_Delete(tx);
tx = Text_New(sdate,stime,H+PriceScale*2,"매도 : "+NumToStr(c,2));
}
if MarketPosition == 0 and T == 1 and countif(T == T[1],3) == 3 Then{
buy();
Text_Delete(tx);
tx = Text_New(sdate,stime,H+PriceScale*2,"매수 : "+NumToStr(c,2));
}
SetStopProfittarget(PriceScale*700,PointStop);
SetStopLoss(PriceScale*900,PointStop);
매일상승
2015-07-16 17:59:14
Var:j(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),tx(0);
Array:valArr[10](0),barArr[10](0),turnPntArr[10]("");
For j = 0 To 9
{
barArr[j] = barArr[j] + 1;
}
Condition1 = Highest(H,52) == H and lastHiVal <> H;
Condition2 = Lowest(L,52) == L and lastLoVal <> L;
If Condition1 Then lastHiVal = H;
If Condition2 Then lastLoVal = L;
turnPntBit = "";
If Condition1 and Condition2 Then
{
If Max(valArr[1],valArr[2]) < H and Min(valArr[1],valArr[2]) > L Then
turnPntBit = "HiLo";
Else If Max(valArr[1],valArr[2]) < H Then turnPntBit = "Hi";
Else If Min(valArr[1],valArr[2]) > L Then turnPntBit = "Lo";
}
Else If Condition1 Then turnPntBit = "Hi";
Else If Condition2 Then turnPntBit = "Lo";
If turnPntBit <> "" Then
{
If turnPntBit == "HiLo" Then
{
valArr[1] = IFF(turnPntArr[1] == "Hi",H,L);
barArr[1] = 0;
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
If turnPntArr[1] == "Hi" Then
turnPntBit = "Lo";
Else
turnPntBit = "Hi";
}
If turnPntBit <> turnPntArr[1] Then
{
for j = 8 downto 1
{
valArr[j+1] = valArr[j];
barArr[j+1] = barArr[j];
turnPntArr[j+1] = turnPntArr[j];
}
}
If turnPntBit <> turnPntArr[1] or
(turnPntBit == turnPntArr[1] and
((turnPntBit == "Hi" and valArr[1] < H) or
(turnPntBit == "Lo" and valArr[1] > L))) Then
{
valArr[1] = IFF(turnPntBit == "Hi",H,L);
barArr[1] = 0;
turnPntArr[1] = turnPntBit;
If turnPntArr[1][1] <> turnPntArr[1][0] Then{
Tx = Text_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],NumToStr(valArr[2],2));
Text_SetStyle(tx,2,2);
TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
Else
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
}
TL_SetSize(TL1[1],3);
TL_SetColor(TL1[1],RGB(20,255,255));
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁드립니다.
>
안녕하세요
예스스탁입니다.
올려주신식에는 추세선이 그려지는 내용이 없습니다.
해당 내용이 있는 식을 올려주시기 바랍니다.
즐거운 하루되세요
> 매일상승 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> var : T(0),tx(0);
var1 = ma(c,300);
var2 = ma(C,9000);
if var2[1]>var2[0] and
OPEN[0]>var1 and
OPEN[0]>CLOSE[0] Then
T = -1;
if var2[1]<var2[0] and
OPEN[0]<var1 and
OPEN[0]<CLOSE[0] Then
T = 1;
if MarketPosition == 0 and T == -1 and countif(T == T[1],3) == 3 Then{
sell();
Text_Delete(tx);
tx = Text_New(sdate,stime,H+PriceScale*2,"매도 : "+NumToStr(c,2));
}
if MarketPosition == 0 and T == 1 and countif(T == T[1],3) == 3 Then{
buy();
Text_Delete(tx);
tx = Text_New(sdate,stime,H+PriceScale*2,"매수 : "+NumToStr(c,2));
}
SetStopProfittarget(PriceScale*700,PointStop);
SetStopLoss(PriceScale*900,PointStop);
예스스탁 예스스탁 답변
2015-07-16 19:37:01
안녕하세요
예스스탁입니다.
소리출력함수(playsound)는 지정한 경로에 있는 wav파일을 구동하게 됩니다.
원하시는 wav파일이 있으시면 컴퓨터의 어느위치에 있는지
풀경로와 파일을 지정하셔야 합니다.
위식에서는 예스트레이더에 기본으로 제공되는 wav파일을 지정했습니다
기본 wav파일이 많이 제공되지 않습니다.
게시판에서 수식을 복사해 편집기에 옮길경우
Playsound함수안의 파일 경로 중 ￦의 폰트가 맞지 않아 깨질수 있습니다.
￦는 다시 타이핑 하시기 바랍니다
Var:j(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),tx(0),T(0),trnd(0);
Array:valArr[10](0),barArr[10](0),turnPntArr[10]("");
For j = 0 To 9
{
barArr[j] = barArr[j] + 1;
}
Condition1 = Highest(H,52) == H and lastHiVal <> H;
Condition2 = Lowest(L,52) == L and lastLoVal <> L;
If Condition1 Then lastHiVal = H;
If Condition2 Then lastLoVal = L;
turnPntBit = "";
If Condition1 and Condition2 Then
{
If Max(valArr[1],valArr[2]) < H and Min(valArr[1],valArr[2]) > L Then
turnPntBit = "HiLo";
Else If Max(valArr[1],valArr[2]) < H Then turnPntBit = "Hi";
Else If Min(valArr[1],valArr[2]) > L Then turnPntBit = "Lo";
}
Else If Condition1 Then turnPntBit = "Hi";
Else If Condition2 Then turnPntBit = "Lo";
If turnPntBit <> "" Then
{
If turnPntBit == "HiLo" Then
{
valArr[1] = IFF(turnPntArr[1] == "Hi",H,L);
barArr[1] = 0;
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
If turnPntArr[1] == "Hi" Then
turnPntBit = "Lo";
Else
turnPntBit = "Hi";
}
If turnPntBit <> turnPntArr[1] Then
{
for j = 8 downto 1
{
valArr[j+1] = valArr[j];
barArr[j+1] = barArr[j];
turnPntArr[j+1] = turnPntArr[j];
}
}
If turnPntBit <> turnPntArr[1] or
(turnPntBit == turnPntArr[1] and
((turnPntBit == "Hi" and valArr[1] < H) or
(turnPntBit == "Lo" and valArr[1] > L))) Then
{
valArr[1] = IFF(turnPntBit == "Hi",H,L);
barArr[1] = 0;
turnPntArr[1] = turnPntBit;
If turnPntArr[1][1] <> turnPntArr[1][0] Then{
Tx = Text_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],NumToStr(valArr[2],2));
Text_SetStyle(tx,2,2);
TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
}
Else{
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
}
}
TL_SetSize(TL1[1],3);
TL_SetColor(TL1[1],RGB(20,255,255));
if turnPntArr[1][0] == "Hi" Then
trnd = 1;
if turnPntArr[1][0] == "Lo" Then
trnd = -1;
if Trnd == -1 and Trnd[1] == -1 and L == TL_GetValue(TL1,sdate,stime) and L < L[1] Then
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
if Trnd == 1 and Trnd[1] == 1 and H == TL_GetValue(TL1,sdate,stime) and H > H[1] Then
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
즐거운 하루되세요
> 매일상승 님이 쓴 글입니다.
> 제목 : Re : Re : 부탁드립니다.
> Var:j(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),tx(0);
Array:valArr[10](0),barArr[10](0),turnPntArr[10]("");
For j = 0 To 9
{
barArr[j] = barArr[j] + 1;
}
Condition1 = Highest(H,52) == H and lastHiVal <> H;
Condition2 = Lowest(L,52) == L and lastLoVal <> L;
If Condition1 Then lastHiVal = H;
If Condition2 Then lastLoVal = L;
turnPntBit = "";
If Condition1 and Condition2 Then
{
If Max(valArr[1],valArr[2]) < H and Min(valArr[1],valArr[2]) > L Then
turnPntBit = "HiLo";
Else If Max(valArr[1],valArr[2]) < H Then turnPntBit = "Hi";
Else If Min(valArr[1],valArr[2]) > L Then turnPntBit = "Lo";
}
Else If Condition1 Then turnPntBit = "Hi";
Else If Condition2 Then turnPntBit = "Lo";
If turnPntBit <> "" Then
{
If turnPntBit == "HiLo" Then
{
valArr[1] = IFF(turnPntArr[1] == "Hi",H,L);
barArr[1] = 0;
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
If turnPntArr[1] == "Hi" Then
turnPntBit = "Lo";
Else
turnPntBit = "Hi";
}
If turnPntBit <> turnPntArr[1] Then
{
for j = 8 downto 1
{
valArr[j+1] = valArr[j];
barArr[j+1] = barArr[j];
turnPntArr[j+1] = turnPntArr[j];
}
}
If turnPntBit <> turnPntArr[1] or
(turnPntBit == turnPntArr[1] and
((turnPntBit == "Hi" and valArr[1] < H) or
(turnPntBit == "Lo" and valArr[1] > L))) Then
{
valArr[1] = IFF(turnPntBit == "Hi",H,L);
barArr[1] = 0;
turnPntArr[1] = turnPntBit;
If turnPntArr[1][1] <> turnPntArr[1][0] Then{
Tx = Text_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],NumToStr(valArr[2],2));
Text_SetStyle(tx,2,2);
TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
Else
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
}
TL_SetSize(TL1[1],3);
TL_SetColor(TL1[1],RGB(20,255,255));
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁드립니다.
>
안녕하세요
예스스탁입니다.
올려주신식에는 추세선이 그려지는 내용이 없습니다.
해당 내용이 있는 식을 올려주시기 바랍니다.
즐거운 하루되세요
> 매일상승 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> var : T(0),tx(0);
var1 = ma(c,300);
var2 = ma(C,9000);
if var2[1]>var2[0] and
OPEN[0]>var1 and
OPEN[0]>CLOSE[0] Then
T = -1;
if var2[1]<var2[0] and
OPEN[0]<var1 and
OPEN[0]<CLOSE[0] Then
T = 1;
if MarketPosition == 0 and T == -1 and countif(T == T[1],3) == 3 Then{
sell();
Text_Delete(tx);
tx = Text_New(sdate,stime,H+PriceScale*2,"매도 : "+NumToStr(c,2));
}
if MarketPosition == 0 and T == 1 and countif(T == T[1],3) == 3 Then{
buy();
Text_Delete(tx);
tx = Text_New(sdate,stime,H+PriceScale*2,"매수 : "+NumToStr(c,2));
}
SetStopProfittarget(PriceScale*700,PointStop);
SetStopLoss(PriceScale*900,PointStop);
매일상승
2015-07-16 21:53:09
적용시 라인이 나오지 않습니다.
확인 부탁드립니다.
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : Re : Re : 부탁드립니다.
>
안녕하세요
예스스탁입니다.
소리출력함수(playsound)는 지정한 경로에 있는 wav파일을 구동하게 됩니다.
원하시는 wav파일이 있으시면 컴퓨터의 어느위치에 있는지
풀경로와 파일을 지정하셔야 합니다.
위식에서는 예스트레이더에 기본으로 제공되는 wav파일을 지정했습니다
기본 wav파일이 많이 제공되지 않습니다.
게시판에서 수식을 복사해 편집기에 옮길경우
Playsound함수안의 파일 경로 중 ￦의 폰트가 맞지 않아 깨질수 있습니다.
￦는 다시 타이핑 하시기 바랍니다
Var:j(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),tx(0),T(0),trnd(0);
Array:valArr[10](0),barArr[10](0),turnPntArr[10]("");
For j = 0 To 9
{
barArr[j] = barArr[j] + 1;
}
Condition1 = Highest(H,52) == H and lastHiVal <> H;
Condition2 = Lowest(L,52) == L and lastLoVal <> L;
If Condition1 Then lastHiVal = H;
If Condition2 Then lastLoVal = L;
turnPntBit = "";
If Condition1 and Condition2 Then
{
If Max(valArr[1],valArr[2]) < H and Min(valArr[1],valArr[2]) > L Then
turnPntBit = "HiLo";
Else If Max(valArr[1],valArr[2]) < H Then turnPntBit = "Hi";
Else If Min(valArr[1],valArr[2]) > L Then turnPntBit = "Lo";
}
Else If Condition1 Then turnPntBit = "Hi";
Else If Condition2 Then turnPntBit = "Lo";
If turnPntBit <> "" Then
{
If turnPntBit == "HiLo" Then
{
valArr[1] = IFF(turnPntArr[1] == "Hi",H,L);
barArr[1] = 0;
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
If turnPntArr[1] == "Hi" Then
turnPntBit = "Lo";
Else
turnPntBit = "Hi";
}
If turnPntBit <> turnPntArr[1] Then
{
for j = 8 downto 1
{
valArr[j+1] = valArr[j];
barArr[j+1] = barArr[j];
turnPntArr[j+1] = turnPntArr[j];
}
}
If turnPntBit <> turnPntArr[1] or
(turnPntBit == turnPntArr[1] and
((turnPntBit == "Hi" and valArr[1] < H) or
(turnPntBit == "Lo" and valArr[1] > L))) Then
{
valArr[1] = IFF(turnPntBit == "Hi",H,L);
barArr[1] = 0;
turnPntArr[1] = turnPntBit;
If turnPntArr[1][1] <> turnPntArr[1][0] Then{
Tx = Text_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],NumToStr(valArr[2],2));
Text_SetStyle(tx,2,2);
TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
}
Else{
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
}
}
TL_SetSize(TL1[1],3);
TL_SetColor(TL1[1],RGB(20,255,255));
if turnPntArr[1][0] == "Hi" Then
trnd = 1;
if turnPntArr[1][0] == "Lo" Then
trnd = -1;
if Trnd == -1 and Trnd[1] == -1 and L == TL_GetValue(TL1,sdate,stime) and L < L[1] Then
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
if Trnd == 1 and Trnd[1] == 1 and H == TL_GetValue(TL1,sdate,stime) and H > H[1] Then
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
즐거운 하루되세요
> 매일상승 님이 쓴 글입니다.
> 제목 : Re : Re : 부탁드립니다.
> Var:j(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),tx(0);
Array:valArr[10](0),barArr[10](0),turnPntArr[10]("");
For j = 0 To 9
{
barArr[j] = barArr[j] + 1;
}
Condition1 = Highest(H,52) == H and lastHiVal <> H;
Condition2 = Lowest(L,52) == L and lastLoVal <> L;
If Condition1 Then lastHiVal = H;
If Condition2 Then lastLoVal = L;
turnPntBit = "";
If Condition1 and Condition2 Then
{
If Max(valArr[1],valArr[2]) < H and Min(valArr[1],valArr[2]) > L Then
turnPntBit = "HiLo";
Else If Max(valArr[1],valArr[2]) < H Then turnPntBit = "Hi";
Else If Min(valArr[1],valArr[2]) > L Then turnPntBit = "Lo";
}
Else If Condition1 Then turnPntBit = "Hi";
Else If Condition2 Then turnPntBit = "Lo";
If turnPntBit <> "" Then
{
If turnPntBit == "HiLo" Then
{
valArr[1] = IFF(turnPntArr[1] == "Hi",H,L);
barArr[1] = 0;
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
If turnPntArr[1] == "Hi" Then
turnPntBit = "Lo";
Else
turnPntBit = "Hi";
}
If turnPntBit <> turnPntArr[1] Then
{
for j = 8 downto 1
{
valArr[j+1] = valArr[j];
barArr[j+1] = barArr[j];
turnPntArr[j+1] = turnPntArr[j];
}
}
If turnPntBit <> turnPntArr[1] or
(turnPntBit == turnPntArr[1] and
((turnPntBit == "Hi" and valArr[1] < H) or
(turnPntBit == "Lo" and valArr[1] > L))) Then
{
valArr[1] = IFF(turnPntBit == "Hi",H,L);
barArr[1] = 0;
turnPntArr[1] = turnPntBit;
If turnPntArr[1][1] <> turnPntArr[1][0] Then{
Tx = Text_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],NumToStr(valArr[2],2));
Text_SetStyle(tx,2,2);
TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
Else
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
}
TL_SetSize(TL1[1],3);
TL_SetColor(TL1[1],RGB(20,255,255));
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁드립니다.
>
안녕하세요
예스스탁입니다.
올려주신식에는 추세선이 그려지는 내용이 없습니다.
해당 내용이 있는 식을 올려주시기 바랍니다.
즐거운 하루되세요
> 매일상승 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> var : T(0),tx(0);
var1 = ma(c,300);
var2 = ma(C,9000);
if var2[1]>var2[0] and
OPEN[0]>var1 and
OPEN[0]>CLOSE[0] Then
T = -1;
if var2[1]<var2[0] and
OPEN[0]<var1 and
OPEN[0]<CLOSE[0] Then
T = 1;
if MarketPosition == 0 and T == -1 and countif(T == T[1],3) == 3 Then{
sell();
Text_Delete(tx);
tx = Text_New(sdate,stime,H+PriceScale*2,"매도 : "+NumToStr(c,2));
}
if MarketPosition == 0 and T == 1 and countif(T == T[1],3) == 3 Then{
buy();
Text_Delete(tx);
tx = Text_New(sdate,stime,H+PriceScale*2,"매수 : "+NumToStr(c,2));
}
SetStopProfittarget(PriceScale*700,PointStop);
SetStopLoss(PriceScale*900,PointStop);
예스스탁 예스스탁 답변
2015-07-17 09:47:50
안녕하세요
예스스탁입니다.
첨부된 그림과 같이
라인 표시되고 있습니다.
추세선은 겹치면 보이지 않습니다.
동일한 내용의 추세선을 긋는 식이 2개이상 차트에
그려지면 보이지가 않습니다.
즉 같은 내용을 그리는 추세선식은
지표나 시스템 불문하고 하나만 적용하셔야 합니다.
즐거운 하루되세요
> 매일상승 님이 쓴 글입니다.
> 제목 : Re : Re : Re : Re : 부탁드립니다.
>
적용시 라인이 나오지 않습니다.
확인 부탁드립니다.
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : Re : Re : 부탁드립니다.
>
안녕하세요
예스스탁입니다.
소리출력함수(playsound)는 지정한 경로에 있는 wav파일을 구동하게 됩니다.
원하시는 wav파일이 있으시면 컴퓨터의 어느위치에 있는지
풀경로와 파일을 지정하셔야 합니다.
위식에서는 예스트레이더에 기본으로 제공되는 wav파일을 지정했습니다
기본 wav파일이 많이 제공되지 않습니다.
게시판에서 수식을 복사해 편집기에 옮길경우
Playsound함수안의 파일 경로 중 ￦의 폰트가 맞지 않아 깨질수 있습니다.
￦는 다시 타이핑 하시기 바랍니다
Var:j(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),tx(0),T(0),trnd(0);
Array:valArr[10](0),barArr[10](0),turnPntArr[10]("");
For j = 0 To 9
{
barArr[j] = barArr[j] + 1;
}
Condition1 = Highest(H,52) == H and lastHiVal <> H;
Condition2 = Lowest(L,52) == L and lastLoVal <> L;
If Condition1 Then lastHiVal = H;
If Condition2 Then lastLoVal = L;
turnPntBit = "";
If Condition1 and Condition2 Then
{
If Max(valArr[1],valArr[2]) < H and Min(valArr[1],valArr[2]) > L Then
turnPntBit = "HiLo";
Else If Max(valArr[1],valArr[2]) < H Then turnPntBit = "Hi";
Else If Min(valArr[1],valArr[2]) > L Then turnPntBit = "Lo";
}
Else If Condition1 Then turnPntBit = "Hi";
Else If Condition2 Then turnPntBit = "Lo";
If turnPntBit <> "" Then
{
If turnPntBit == "HiLo" Then
{
valArr[1] = IFF(turnPntArr[1] == "Hi",H,L);
barArr[1] = 0;
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
If turnPntArr[1] == "Hi" Then
turnPntBit = "Lo";
Else
turnPntBit = "Hi";
}
If turnPntBit <> turnPntArr[1] Then
{
for j = 8 downto 1
{
valArr[j+1] = valArr[j];
barArr[j+1] = barArr[j];
turnPntArr[j+1] = turnPntArr[j];
}
}
If turnPntBit <> turnPntArr[1] or
(turnPntBit == turnPntArr[1] and
((turnPntBit == "Hi" and valArr[1] < H) or
(turnPntBit == "Lo" and valArr[1] > L))) Then
{
valArr[1] = IFF(turnPntBit == "Hi",H,L);
barArr[1] = 0;
turnPntArr[1] = turnPntBit;
If turnPntArr[1][1] <> turnPntArr[1][0] Then{
Tx = Text_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],NumToStr(valArr[2],2));
Text_SetStyle(tx,2,2);
TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
}
Else{
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
}
}
TL_SetSize(TL1[1],3);
TL_SetColor(TL1[1],RGB(20,255,255));
if turnPntArr[1][0] == "Hi" Then
trnd = 1;
if turnPntArr[1][0] == "Lo" Then
trnd = -1;
if Trnd == -1 and Trnd[1] == -1 and L == TL_GetValue(TL1,sdate,stime) and L < L[1] Then
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
if Trnd == 1 and Trnd[1] == 1 and H == TL_GetValue(TL1,sdate,stime) and H > H[1] Then
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
즐거운 하루되세요
> 매일상승 님이 쓴 글입니다.
> 제목 : Re : Re : 부탁드립니다.
> Var:j(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),tx(0);
Array:valArr[10](0),barArr[10](0),turnPntArr[10]("");
For j = 0 To 9
{
barArr[j] = barArr[j] + 1;
}
Condition1 = Highest(H,52) == H and lastHiVal <> H;
Condition2 = Lowest(L,52) == L and lastLoVal <> L;
If Condition1 Then lastHiVal = H;
If Condition2 Then lastLoVal = L;
turnPntBit = "";
If Condition1 and Condition2 Then
{
If Max(valArr[1],valArr[2]) < H and Min(valArr[1],valArr[2]) > L Then
turnPntBit = "HiLo";
Else If Max(valArr[1],valArr[2]) < H Then turnPntBit = "Hi";
Else If Min(valArr[1],valArr[2]) > L Then turnPntBit = "Lo";
}
Else If Condition1 Then turnPntBit = "Hi";
Else If Condition2 Then turnPntBit = "Lo";
If turnPntBit <> "" Then
{
If turnPntBit == "HiLo" Then
{
valArr[1] = IFF(turnPntArr[1] == "Hi",H,L);
barArr[1] = 0;
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
If turnPntArr[1] == "Hi" Then
turnPntBit = "Lo";
Else
turnPntBit = "Hi";
}
If turnPntBit <> turnPntArr[1] Then
{
for j = 8 downto 1
{
valArr[j+1] = valArr[j];
barArr[j+1] = barArr[j];
turnPntArr[j+1] = turnPntArr[j];
}
}
If turnPntBit <> turnPntArr[1] or
(turnPntBit == turnPntArr[1] and
((turnPntBit == "Hi" and valArr[1] < H) or
(turnPntBit == "Lo" and valArr[1] > L))) Then
{
valArr[1] = IFF(turnPntBit == "Hi",H,L);
barArr[1] = 0;
turnPntArr[1] = turnPntBit;
If turnPntArr[1][1] <> turnPntArr[1][0] Then{
Tx = Text_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],NumToStr(valArr[2],2));
Text_SetStyle(tx,2,2);
TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
Else
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
}
TL_SetSize(TL1[1],3);
TL_SetColor(TL1[1],RGB(20,255,255));
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁드립니다.
>
안녕하세요
예스스탁입니다.
올려주신식에는 추세선이 그려지는 내용이 없습니다.
해당 내용이 있는 식을 올려주시기 바랍니다.
즐거운 하루되세요
> 매일상승 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> var : T(0),tx(0);
var1 = ma(c,300);
var2 = ma(C,9000);
if var2[1]>var2[0] and
OPEN[0]>var1 and
OPEN[0]>CLOSE[0] Then
T = -1;
if var2[1]<var2[0] and
OPEN[0]<var1 and
OPEN[0]<CLOSE[0] Then
T = 1;
if MarketPosition == 0 and T == -1 and countif(T == T[1],3) == 3 Then{
sell();
Text_Delete(tx);
tx = Text_New(sdate,stime,H+PriceScale*2,"매도 : "+NumToStr(c,2));
}
if MarketPosition == 0 and T == 1 and countif(T == T[1],3) == 3 Then{
buy();
Text_Delete(tx);
tx = Text_New(sdate,stime,H+PriceScale*2,"매수 : "+NumToStr(c,2));
}
SetStopProfittarget(PriceScale*700,PointStop);
SetStopLoss(PriceScale*900,PointStop);
다음글
이전글