커뮤니티
지표 부탁드립니다.
2013-10-01 15:28:54
204
글번호 67965
SwingHigh/SwingLow(변수값 5개 , 지표표시 10개)와
이평단순 (변수값 2개,지표표시4개)고가와 저가
1. 지표식(선으로 표기,차트설정에서 할것임)
2. 검색식(점, 가격이 텍스트로 나오게)
3. 자동추세선 연결식 H 와 H 를 연결, L와L를 연결되게 각각
위식에 대한 시스템식도 부탁드립니다.
예비 신호도 같이 나오게 만들어주세요.
매수조건 :
C가 이평고가1또는 이평고가2를 돌파하고 직전 SwingHigh 또는 직전 SwingLow를 돌파하면
C가 이평고가1또는 이평고가2를 돌파하고 전전 SwingHigh 또는 전전 SwingLow를 돌파하면
C가 이평고가1또는 이평고가2를 돌파하고 전전전 SwingHigh 또는 전전전 SwingLow를 돌파하면 "매수"
매도조건은 반대 "매도"
부탁드립니다. 수고하세요.
이평기준은 아래와 같습니다
input : P(5);
var : LL(0),HH(0),Li(0),Hi(0);
var1 = ma(L,P);
if var1 > var1[1] Then
value1 = 1;
if var1 < var1[1] Then
value1 = -1;
if value1 == 1 and value1[1] != 1 then{
LL = lowest(L,6);
LI = var1[1];
}
if value1 == 1 Then{
plot1(LL,"최저점");
plot2(Li,"이평1");
}
if value1 == -1 and value1[1] != 1 then{
HH = highest(H,6);
Hi = var1[1];
}
if value1 == -1 Then{
plot3(HH,"최고점");
plot4(Hi,"이평2");
}
위 내용중 최고점과 최저점은 빼주시구요
P(5),P1(20) 예시로 이평1-4까지 나와야하구요.
시스템식도 이와 같은 조건을 넣어주세요
친절한 답변 감사합니다.
수고하세요^^
답변 3
예스스탁 예스스탁 답변
2013-10-01 13:20:50
안녕하세요
예스스탁입니다.
1. 지표
input : left(3),right(5);
input : P1(5),P2(20);
var : SHV1(0),SHV11(0),SHD1(0),SHD11(0),SHT1(0),SHT11(0);
var : SLV1(0),SLV11(0),SLD1(0),SLD11(0),SLT1(0),SLT11(0);
var : SHV2(0),SHV22(0),SHD2(0),SHD22(0),SHT2(0),SHT22(0);
var : SLV2(0),SLV22(0),SLD2(0),SLD22(0),SLT2(0),SLT22(0);
var : SHV3(0),SHV33(0),SHD3(0),SHD33(0),SHT3(0),SHT33(0);
var : SLV3(0),SLV33(0),SLD3(0),SLD33(0),SLT3(0),SLT33(0);
var : SHV4(0),SHV44(0),SHD4(0),SHD44(0),SHT4(0),SHT44(0);
var : SLV4(0),SLV44(0),SLD4(0),SLD44(0),SLT4(0),SLT44(0);
var : SHV5(0),SHV55(0),SHD5(0),SHD55(0),SHT5(0),SHT55(0);
var : SLV5(0),SLV55(0),SLD5(0),SLD55(0),SLT5(0),SLT55(0);
var : Hma1(0),Hma2(0),Lma1(0),Lma2(0);
if SwingHigh(1,H,left,right,left+right+1) != -1 Then{
SHV1 = H[right];
SHD1 = sdate[right];
SHT1 = sTime[right];
SHV2 = SHV1[1];
SHD2 = SHD1[1];
SHT2 = SHT1[1];
SHV3 = SHV2[1];
SHV4 = SHV3[1];
SHV5 = SHV4[1];
var1 = TL_New(SHD2,SHT2,SHV2,SHD1,SHT1,SHV1);
}
if SwingLow(1,L,left,right,left+right+1) != -1 Then{
SLV1 = L[right];
SLD1 = sdate[right];
SLT1 = sTime[right];
SLV2 = SLV1[1];
SLD2 = SLD1[1];
SLT2 = SLT1[1];
SLV3 = SLV2[1];
SLV4 = SLV3[1];
SLV5 = SLV4[1];
var11 = TL_New(SLD2,SLT2,SLV2,SLD1,SLT1,SLV1);
}
Hma1 = ma(h,P1);
Lma1 = ma(L,P1);
Hma2 = ma(h,P2);
Lma2 = ma(L,P2);
plot1(SHV1,"스윙하이1");
plot2(SHV2,"스윙하이2");
plot3(SHV3,"스윙하이3");
plot4(SHV4,"스윙하이4");
plot5(SHV5,"스윙하이5");
plot6(SLV1,"스윙로우1");
plot7(SLV2,"스윙로우2");
plot8(SLV3,"스윙로우3");
plot9(SLV4,"스윙로우4");
plot10(SLV5,"스윙로우5");
plot11(Hma1,"고가이평1");
plot12(Lma1,"저가이평1");
plot13(Hma2,"고가이평2");
plot14(Lma2,"저가이평2");
2. 검색
input : Left(3),right(3);
var : SHV1(0),SLV1(0);
if SwingHigh(1,H,Left,right,Left+Right+1) != -1 Then{
SHV1 = H[bars1];
plot1(SHV1,"스윙하이1");
Text_New(sdate,stime,SHV1,NumToStr(SHV1,2));
}
if SwingLow(1,L,Left,right,bars1*2+1) != -1 Then{
SLV1 = L[bars1];
plot2(SHV1,"스윙로우1");
Text_New(sdate,stime,SLV1,NumToStr(SLV1,2));
}
3.
input : Left(3),right(3);
input : P1(5),P2(20);
var : SHV1(0),SHV2(0);
var : SLV1(0),SLV2(0);
var : Hma1(0),Hma2(0),Lma1(0),Lma2(0);
if SwingHigh(1,H,Left,right,Left+Right+1) != -1 Then{
SHV1 = H[right];
SHV2 = SHV1[1];
}
if SwingLow(1,L,Left,right,Left+Right+1) != -1 Then{
SLV1 = L[right];
SLV2 = SLV1[1];
}
Hma1 = ma(h,P1);
Lma1 = ma(L,P1);
Hma2 = ma(h,P2);
Lma2 = ma(L,P2);
if crossup(c,Hma1) or crossup(C,Hma2) Then
var1 = 1;
if CrossDown(c,Lma1) or CrossDown(C,Hma2) Then
var1 = -1;
if var1 == 1 and (crossup(c,SHV1) or crossup(C, SLV1)) Then
buy();
if var1 == 1 and (crossup(c,SHV2) or crossup(C, SLV2)) Then
buy();
if var1 == -1 and (CrossDown(c,SHV1) or CrossDown(C, SLV1)) Then
sell();
if var1 == -1 and (CrossDown(c,SHV2) or CrossDown(C, SLV2)) Then
sell();
즐거운 하루되세요
> 파생사랑 님이 쓴 글입니다.
> 제목 : 지표 부탁드립니다.
> SwingHigh/SwingLow(변수값 5개 , 지표표시 10개)와
이평단순 (변수값 2개,지표표시4개)고가와 저가
1. 지표식(선으로 표기,차트설정에서 할것임)
2. 검색식(점, 가격이 텍스트로 나오게)
3. 자동추세선 연결식 H 와 H 를 연결, L와L를 연결되게 각각
위식에 대한 시스템식도 부탁드립니다.
예비 신호도 같이 나오게 만들어주세요.
매수조건 :
C가 이평고가1또는 이평고가2를 돌파하고 직전 SwingHigh 또는 직전 SwingLow를 돌파하면
C가 이평고가1또는 이평고가2를 돌파하고 전전 SwingHigh 또는 전전 SwingLow를 돌파하면
C가 이평고가1또는 이평고가2를 돌파하고 전전전 SwingHigh 또는 전전전 SwingLow를 돌파하면 "매수"
매도조건은 반대 "매도"
부탁드립니다. 수고하세요.
예스스탁 예스스탁 답변
2013-10-01 15:58:45
안녕하세요
예스스탁입니다.
1.
input : left1(3),right1(3);
input : left2(4),right2(4);
input : left3(5),right3(5);
input : left4(6),right4(6);
input : left5(7),right5(7);
input : P1(5),P2(20);
var : SHV1(0),SLV1(0),SHV2(0),SLV2(0),SHV3(0),SLV3(0);
var : SHV4(0),SLV4(0),SHV5(0),SLV5(0);
var : Hma1(0),Hma2(0),Lma1(0),Lma2(0);
if SwingHigh(1,H,left1,right1,left1+right1+1) != -1 Then{
SHV1 = H[right1];
plot1(SHV1,"스윙하이점1_수평-right1");
Text_Delete(var1);
var1 = Text_New(sdate[right1],stime[right1],SHV1,NumToStr(SHV1,2));
}
if SwingLow(1,L,left1,right1,left1+right1+1) != -1 Then {
SLV1 = L[right1];
plot2(SLV2,"스윙로우점1_수평-right1");#이동 -right1
Text_Delete(var2);
var2 = Text_New(sdate[right1],stime[right1],SLV1,NumToStr(SLV1,2));
}
if SwingHigh(1,H,left2,right2,left2+right2+1) != -1 Then {
SHV2 = H[right2];
plot3(SHV2,"스윙하이점2_수평-right2");#이동 -right2
Text_Delete(var1);
Text_Delete(var1);
var1 = Text_New(sdate[right2],stime[right2],SHV2,NumToStr(SHV2,2));
}
if SwingLow(1,L,left2,right2,left2+right2+1) != -1 Then {
SLV2 = L[right2];
plot4(SLV2,"스윙로우점2_수평-right2");#이동 -right2
Text_Delete(var2);
var2 = Text_New(sdate[right3],stime[right3],SLV2,NumToStr(SLV2,2));
}
if SwingHigh(1,H,left3,right3,left3+right3+1) != -1 Then {
SHV3 = H[right3];
plot5(SHV3,"스윙하이점3_수평-right3");#이동 -right3
Text_Delete(var1);
var1 = Text_New(sdate[right3],stime[right3],SHV3,NumToStr(SHV3,2));
}
if SwingLow(1,L,left3,right3,left3+right3+1) != -1 Then {
SLV3 = L[right3];
plot6(SLV3,"스윙로우점3_수평-right3");#이동 -right3
Text_Delete(var2);
var2 = Text_New(sdate[right3],stime[right3],SLV3,NumToStr(SLV3,2));
}
if SwingHigh(1,H,left4,right4,left4+right4+1) != -1 Then {
SHV4 = H[right4];
plot7(SHV4,"스윙하이점4_수평-right4");#이동 -right4
Text_Delete(var1);
var1 = Text_New(sdate[right4],stime[right4],SHV4,NumToStr(SHV4,2));
}
if SwingLow(1,L,left4,right4,left4+right4+1) != -1 Then {
SLV4 = L[right4];
plot8(SLV4,"스윙로우점4_수평-right4");#이동 -right4
Text_Delete(var2);
var2 = Text_New(sdate[right4],stime[right4],SLV4,NumToStr(SLV4,2));
}
if SwingHigh(1,H,left5,right5,left5+right5+1) != -1 Then {
SHV5 = H[right5];
plot9(SHV5,"스윙하이점5_수평-right5");#이동 -right5
Text_Delete(var1);
var1 = Text_New(sdate[right5],stime[right5],SHV5,NumToStr(SHV5,2));
}
if SwingLow(1,L,left5,right5,left5+right5+1) != -1 Then {
SLV5 = L[right5];
plot10(SLV5,"스윙로우점5_수평-right5");#이동 -right5
Text_Delete(var2);
var2 = Text_New(sdate[right5],stime[right5],SLV5,NumToStr(SLV5,2));
}
Hma1 = ma(h,P1);
Lma1 = ma(L,P1);
Hma2 = ma(h,P2);
Lma2 = ma(L,P2);
plot11(SHV1,"스윙하이선1");
plot12(SHV2,"스윙하이선2");
plot13(SHV3,"스윙하이선3");
plot14(SHV4,"스윙하이선4");
plot15(SHV5,"스윙하이선5");
plot16(SLV1,"스윙로우선1");
plot17(SLV2,"스윙로우선2");
plot18(SLV3,"스윙로우선3");
plot19(SLV4,"스윙로우선4");
plot20(SLV5,"스윙로우선5");
if C > Hma1 Then plot21(Hma1,"고가이평점1");
if C < Lma1 Then plot22(Lma1,"저가이평점1");
if C > Hma2 then plot23(Hma2,"고가이평점2");
if C < Lma2 then plot24(Lma2,"저가이평점2");
2.
input : left1(3),right1(3);
input : left2(4),right2(4);
input : left3(5),right3(5);
input : left4(6),right4(6);
input : left5(7),right5(7);
input : P1(5),P2(20);
var : SHV1(0),SLV1(0),SHV2(0),SLV2(0),SHV3(0),SLV3(0);
var : SHV4(0),SLV4(0),SHV5(0),SLV5(0);
var : Hma1(0),Hma2(0),Lma1(0),Lma2(0);
if SwingHigh(1,H,left1,right1,left1+right1+1) != -1 Then{
SHV1 = H[right1];
var1 = SHV1;
var11 = var1[1];
var12 = var11[1];
}
if SwingLow(1,L,left1,right1,left1+right1+1) != -1 Then {
SLV1 = L[right1];
var2 = SLV1;
var21 = var2[1];
var22 = var21[1];
}
if SwingHigh(1,H,left2,right2,left2+right2+1) != -1 Then {
SHV2 = H[right2];
var1 = SHV2;
var11 = var1[1];
var12 = var11[1];
}
if SwingLow(1,L,left2,right2,left2+right2+1) != -1 Then {
SLV2 = L[right2];
var2 = SLV2;
var21 = var2[1];
var22 = var21[1];
}
if SwingHigh(1,H,left3,right3,left3+right3+1) != -1 Then {
SHV3 = H[right3];
var1 = SHV3;
var11 = var1[1];
var12 = var11[1];
}
if SwingLow(1,L,left3,right3,left3+right3+1) != -1 Then {
SLV3 = L[right3];
var2 = SLV3;
var21 = var2[1];
var22 = var21[1];
}
if SwingHigh(1,H,left4,right4,left4+right4+1) != -1 Then {
SHV4 = H[right4];
var1 = SHV4;
var11 = var1[1];
var12 = var11[1];
}
if SwingLow(1,L,left4,right4,left4+right4+1) != -1 Then {
SLV4 = L[right4];
var2 = SLV4;
var21 = var2[1];
var22 = var21[1];
}
if SwingHigh(1,H,left5,right5,left5+right5+1) != -1 Then {
SHV5 = H[right5];
var1 = SHV5;
var11 = var1[1];
var12 = var11[1];
}
if SwingLow(1,L,left5,right5,left5+right5+1) != -1 Then {
SLV5 = L[right5];
var2 = SLV5;
var21 = var2[1];
var22 = var21[1];
}
Hma1 = ma(h,P1);
Lma1 = ma(L,P1);
Hma2 = ma(h,P2);
Lma2 = ma(L,P2);
if crossup(c,Hma1) or crossup(C,Hma2) Then
value1 = 1;
if CrossDown(c,Lma1) or CrossDown(C,Hma2) Then
value1 = -1;
if crossup(c,Hma1) or crossup(C,Hma2) Then
value1 = 1;
if CrossDown(c,Lma1) or CrossDown(C,Hma2) Then
value1 = -1;
if value1 == 1 Then{
if crossup(c,var1) or crossup(c,var11) or crossup(c,var12) Then{
buy();
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); #소리출력
}
if crossup(c,var2) or crossup(c,var21) or crossup(c,var22) Then{
buy();
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); #소리출력
}
}
if value1 == -1 Then{
if CrossDown(c,var1) or CrossDown(c,var11) or CrossDown(c,var12) Then{
sell();
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); #소리출력
}
if CrossDown(c,var2) or CrossDown(c,var21) or CrossDown(c,var22) Then{
sell();
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); #소리출력
}
}
aysound함수는 사용자분의 컴퓨터 안의 wav파일의 경로와 이름을 지정해서
조건만족시 구동하는 함수입니다. 위식에는 예스트레이더에 기본으로 제공되는 wav파일을 지정했습니다.
게시판에서 복사하시면 경로명 안의 ￦가 폰트가 깨질수 있으므로
직접 타이핑을 해주시기 바랍니다
즐거운 하루되세요
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 지표 부탁드립니다.
> 안녕하세요
예스스탁입니다.
1. 지표
input : left(3),right(5);
input : P1(5),P2(20);
var : SHV1(0),SHV11(0),SHD1(0),SHD11(0),SHT1(0),SHT11(0);
var : SLV1(0),SLV11(0),SLD1(0),SLD11(0),SLT1(0),SLT11(0);
var : SHV2(0),SHV22(0),SHD2(0),SHD22(0),SHT2(0),SHT22(0);
var : SLV2(0),SLV22(0),SLD2(0),SLD22(0),SLT2(0),SLT22(0);
var : SHV3(0),SHV33(0),SHD3(0),SHD33(0),SHT3(0),SHT33(0);
var : SLV3(0),SLV33(0),SLD3(0),SLD33(0),SLT3(0),SLT33(0);
var : SHV4(0),SHV44(0),SHD4(0),SHD44(0),SHT4(0),SHT44(0);
var : SLV4(0),SLV44(0),SLD4(0),SLD44(0),SLT4(0),SLT44(0);
var : SHV5(0),SHV55(0),SHD5(0),SHD55(0),SHT5(0),SHT55(0);
var : SLV5(0),SLV55(0),SLD5(0),SLD55(0),SLT5(0),SLT55(0);
var : Hma1(0),Hma2(0),Lma1(0),Lma2(0);
if SwingHigh(1,H,left,right,left+right+1) != -1 Then{
SHV1 = H[right];
SHD1 = sdate[right];
SHT1 = sTime[right];
SHV2 = SHV1[1];
SHD2 = SHD1[1];
SHT2 = SHT1[1];
SHV3 = SHV2[1];
SHV4 = SHV3[1];
SHV5 = SHV4[1];
var1 = TL_New(SHD2,SHT2,SHV2,SHD1,SHT1,SHV1);
}
if SwingLow(1,L,left,right,left+right+1) != -1 Then{
SLV1 = L[right];
SLD1 = sdate[right];
SLT1 = sTime[right];
SLV2 = SLV1[1];
SLD2 = SLD1[1];
SLT2 = SLT1[1];
SLV3 = SLV2[1];
SLV4 = SLV3[1];
SLV5 = SLV4[1];
var11 = TL_New(SLD2,SLT2,SLV2,SLD1,SLT1,SLV1);
}
Hma1 = ma(h,P1);
Lma1 = ma(L,P1);
Hma2 = ma(h,P2);
Lma2 = ma(L,P2);
plot1(SHV1,"스윙하이1");
plot2(SHV2,"스윙하이2");
plot3(SHV3,"스윙하이3");
plot4(SHV4,"스윙하이4");
plot5(SHV5,"스윙하이5");
plot6(SLV1,"스윙로우1");
plot7(SLV2,"스윙로우2");
plot8(SLV3,"스윙로우3");
plot9(SLV4,"스윙로우4");
plot10(SLV5,"스윙로우5");
plot11(Hma1,"고가이평1");
plot12(Lma1,"저가이평1");
plot13(Hma2,"고가이평2");
plot14(Lma2,"저가이평2");
2. 검색
input : Left(3),right(3);
var : SHV1(0),SLV1(0);
if SwingHigh(1,H,Left,right,Left+Right+1) != -1 Then{
SHV1 = H[bars1];
plot1(SHV1,"스윙하이1");
Text_New(sdate,stime,SHV1,NumToStr(SHV1,2));
}
if SwingLow(1,L,Left,right,bars1*2+1) != -1 Then{
SLV1 = L[bars1];
plot2(SHV1,"스윙로우1");
Text_New(sdate,stime,SLV1,NumToStr(SLV1,2));
}
3.
input : Left(3),right(3);
input : P1(5),P2(20);
var : SHV1(0),SHV2(0);
var : SLV1(0),SLV2(0);
var : Hma1(0),Hma2(0),Lma1(0),Lma2(0);
if SwingHigh(1,H,Left,right,Left+Right+1) != -1 Then{
SHV1 = H[right];
SHV2 = SHV1[1];
}
if SwingLow(1,L,Left,right,Left+Right+1) != -1 Then{
SLV1 = L[right];
SLV2 = SLV1[1];
}
Hma1 = ma(h,P1);
Lma1 = ma(L,P1);
Hma2 = ma(h,P2);
Lma2 = ma(L,P2);
if crossup(c,Hma1) or crossup(C,Hma2) Then
var1 = 1;
if CrossDown(c,Lma1) or CrossDown(C,Hma2) Then
var1 = -1;
if var1 == 1 and (crossup(c,SHV1) or crossup(C, SLV1)) Then
buy();
if var1 == 1 and (crossup(c,SHV2) or crossup(C, SLV2)) Then
buy();
if var1 == -1 and (CrossDown(c,SHV1) or CrossDown(C, SLV1)) Then
sell();
if var1 == -1 and (CrossDown(c,SHV2) or CrossDown(C, SLV2)) Then
sell();
즐거운 하루되세요
> 파생사랑 님이 쓴 글입니다.
> 제목 : 지표 부탁드립니다.
> SwingHigh/SwingLow(변수값 5개 , 지표표시 10개)와
이평단순 (변수값 2개,지표표시4개)고가와 저가
1. 지표식(선으로 표기,차트설정에서 할것임)
2. 검색식(점, 가격이 텍스트로 나오게)
3. 자동추세선 연결식 H 와 H 를 연결, L와L를 연결되게 각각
위식에 대한 시스템식도 부탁드립니다.
예비 신호도 같이 나오게 만들어주세요.
매수조건 :
C가 이평고가1또는 이평고가2를 돌파하고 직전 SwingHigh 또는 직전 SwingLow를 돌파하면
C가 이평고가1또는 이평고가2를 돌파하고 전전 SwingHigh 또는 전전 SwingLow를 돌파하면
C가 이평고가1또는 이평고가2를 돌파하고 전전전 SwingHigh 또는 전전전 SwingLow를 돌파하면 "매수"
매도조건은 반대 "매도"
부탁드립니다. 수고하세요.
예스스탁 예스스탁 답변
2013-10-01 17:12:12
안녕하세요
예스스탁입니다.
1.
input : left1(3),right1(3);
input : left2(4),right2(4);
input : left3(5),right3(5);
input : left4(6),right4(6);
input : left5(7),right5(7);
input : P1(5),P2(20);
var : SHV1(0),SLV1(0),SHV2(0),SLV2(0),SHV3(0),SLV3(0);
var : SHV4(0),SLV4(0),SHV5(0),SLV5(0);
var : ma1(0),Li1(0),Hi1(0),trend1(0),trend2(0);
var : ma2(0),Li2(0),Hi2(0);
if SwingHigh(1,H,left1,right1,left1+right1+1) != -1 Then{
SHV1 = H[right1];
plot1(SHV1,"스윙하이점1_수평-right1");
Text_Delete(var1);
var1 = Text_New(sdate[right1],stime[right1],SHV1,NumToStr(SHV1,2));
}
if SwingLow(1,L,left1,right1,left1+right1+1) != -1 Then {
SLV1 = L[right1];
plot2(SLV2,"스윙로우점1_수평-right1");#이동 -right1
Text_Delete(var2);
var2 = Text_New(sdate[right1],stime[right1],SLV1,NumToStr(SLV1,2));
}
if SwingHigh(1,H,left2,right2,left2+right2+1) != -1 Then {
SHV2 = H[right2];
plot3(SHV2,"스윙하이점2_수평-right2");#이동 -right2
Text_Delete(var1);
Text_Delete(var1);
var1 = Text_New(sdate[right2],stime[right2],SHV2,NumToStr(SHV2,2));
}
if SwingLow(1,L,left2,right2,left2+right2+1) != -1 Then {
SLV2 = L[right2];
plot4(SLV2,"스윙로우점2_수평-right2");#이동 -right2
Text_Delete(var2);
var2 = Text_New(sdate[right3],stime[right3],SLV2,NumToStr(SLV2,2));
}
if SwingHigh(1,H,left3,right3,left3+right3+1) != -1 Then {
SHV3 = H[right3];
plot5(SHV3,"스윙하이점3_수평-right3");#이동 -right3
Text_Delete(var1);
var1 = Text_New(sdate[right3],stime[right3],SHV3,NumToStr(SHV3,2));
}
if SwingLow(1,L,left3,right3,left3+right3+1) != -1 Then {
SLV3 = L[right3];
plot6(SLV3,"스윙로우점3_수평-right3");#이동 -right3
Text_Delete(var2);
var2 = Text_New(sdate[right3],stime[right3],SLV3,NumToStr(SLV3,2));
}
if SwingHigh(1,H,left4,right4,left4+right4+1) != -1 Then {
SHV4 = H[right4];
plot7(SHV4,"스윙하이점4_수평-right4");#이동 -right4
Text_Delete(var1);
var1 = Text_New(sdate[right4],stime[right4],SHV4,NumToStr(SHV4,2));
}
if SwingLow(1,L,left4,right4,left4+right4+1) != -1 Then {
SLV4 = L[right4];
plot8(SLV4,"스윙로우점4_수평-right4");#이동 -right4
Text_Delete(var2);
var2 = Text_New(sdate[right4],stime[right4],SLV4,NumToStr(SLV4,2));
}
if SwingHigh(1,H,left5,right5,left5+right5+1) != -1 Then {
SHV5 = H[right5];
plot9(SHV5,"스윙하이점5_수평-right5");#이동 -right5
Text_Delete(var1);
var1 = Text_New(sdate[right5],stime[right5],SHV5,NumToStr(SHV5,2));
}
if SwingLow(1,L,left5,right5,left5+right5+1) != -1 Then {
SLV5 = L[right5];
plot10(SLV5,"스윙로우점5_수평-right5");#이동 -right5
Text_Delete(var2);
var2 = Text_New(sdate[right5],stime[right5],SLV5,NumToStr(SLV5,2));
}
plot11(SHV1,"스윙하이선1");
plot12(SHV2,"스윙하이선2");
plot13(SHV3,"스윙하이선3");
plot14(SHV4,"스윙하이선4");
plot15(SHV5,"스윙하이선5");
plot16(SLV1,"스윙로우선1");
plot17(SLV2,"스윙로우선2");
plot18(SLV3,"스윙로우선3");
plot19(SLV4,"스윙로우선4");
plot20(SLV5,"스윙로우선5");
ma1 = ma(L,P1);
if ma1 > ma1[1] Then
trend1 = 1;
if ma1 < ma1[1] Then
trend1 = -1;
if trend1 == 1 and trend1[1] != 1 then
LI1 = ma1[1];
if trend1 == -1 and trend1[1] != 1 then
Hi1 = ma1[1];
ma2 = ma(L,P2);
if ma2 > ma2[1] Then
trend2 = 1;
if ma2 < ma2[1] Then
trend2 = -1;
if trend2 == 1 and trend2[1] != 1 then
LI2 = ma2[1];
if trend2 == -1 and trend2[1] != 1 then
Hi2 = ma2[1];
if C > Li1 Then plot21(Li1,"이평점1");
if C < Hi1 Then plot22(Hi1,"이평점2");
if C > Li2 Then plot23(Li2,"이평점11");
if C < Hi2 Then plot24(Hi2,"이평점22");
2. 시스템
input : left1(3),right1(3);
input : left2(4),right2(4);
input : left3(5),right3(5);
input : left4(6),right4(6);
input : left5(7),right5(7);
input : P1(5),P2(20);
var : SHV1(0),SLV1(0),SHV2(0),SLV2(0),SHV3(0),SLV3(0);
var : SHV4(0),SLV4(0),SHV5(0),SLV5(0);
var : ma1(0),Li1(0),Hi1(0),trend1(0),trend2(0);
var : ma2(0),Li2(0),Hi2(0);
if SwingHigh(1,H,left1,right1,left1+right1+1) != -1 Then{
SHV1 = H[right1];
var1 = SHV1;
var11 = var1[1];
var12 = var11[1];
}
if SwingLow(1,L,left1,right1,left1+right1+1) != -1 Then {
SLV1 = L[right1];
var2 = SLV1;
var21 = var2[1];
var22 = var21[1];
}
if SwingHigh(1,H,left2,right2,left2+right2+1) != -1 Then {
SHV2 = H[right2];
var1 = SHV2;
var11 = var1[1];
var12 = var11[1];
}
if SwingLow(1,L,left2,right2,left2+right2+1) != -1 Then {
SLV2 = L[right2];
var2 = SLV2;
var21 = var2[1];
var22 = var21[1];
}
if SwingHigh(1,H,left3,right3,left3+right3+1) != -1 Then {
SHV3 = H[right3];
var1 = SHV3;
var11 = var1[1];
var12 = var11[1];
}
if SwingLow(1,L,left3,right3,left3+right3+1) != -1 Then {
SLV3 = L[right3];
var2 = SLV3;
var21 = var2[1];
var22 = var21[1];
}
if SwingHigh(1,H,left4,right4,left4+right4+1) != -1 Then {
SHV4 = H[right4];
var1 = SHV4;
var11 = var1[1];
var12 = var11[1];
}
if SwingLow(1,L,left4,right4,left4+right4+1) != -1 Then {
SLV4 = L[right4];
var2 = SLV4;
var21 = var2[1];
var22 = var21[1];
}
if SwingHigh(1,H,left5,right5,left5+right5+1) != -1 Then {
SHV5 = H[right5];
var1 = SHV5;
var11 = var1[1];
var12 = var11[1];
}
if SwingLow(1,L,left5,right5,left5+right5+1) != -1 Then {
SLV5 = L[right5];
var2 = SLV5;
var21 = var2[1];
var22 = var21[1];
}
ma1 = ma(L,P1);
if ma1 > ma1[1] Then
trend1 = 1;
if ma1 < ma1[1] Then
trend1 = -1;
if trend1 == 1 and trend1[1] != 1 then
LI1 = ma1[1];
if trend1 == -1 and trend1[1] != 1 then
Hi1 = ma1[1];
ma2 = ma(L,P2);
if ma2 > ma2[1] Then
trend2 = 1;
if ma2 < ma2[1] Then
trend2 = -1;
if trend2 == 1 and trend2[1] != 1 then
LI2 = ma2[1];
if trend2 == -1 and trend2[1] != 1 then
Hi2 = ma2[1];
if crossup(c,Li1) or crossup(C,Li2) Then
value1 = 1;
if CrossDown(c,Hi1) or CrossDown(C,Hi2) Then
value1 = -1;
if value1 == 1 Then{
if crossup(c,var1) or crossup(c,var11) or crossup(c,var12) Then{
buy();
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); #소리출력
}
if crossup(c,var2) or crossup(c,var21) or crossup(c,var22) Then{
buy();
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); #소리출력
}
}
if value1 == -1 Then{
if CrossDown(c,var1) or CrossDown(c,var11) or CrossDown(c,var12) Then{
sell();
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); #소리출력
}
if CrossDown(c,var2) or CrossDown(c,var21) or CrossDown(c,var22) Then{
sell();
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); #소리출력
}
}
즐거운 하루되세요
다음글
이전글