커뮤니티
부탁 드립니다.
2020-09-27 10:52:36
686
글번호 142691
도움에 감사 드립니다.
1)
하락 다이버전스(TL1~TL5)의
5개 중 3개 이상(가능하면 개수 외부 변수 입력) 생성되면 매도,
진입후에
상승 다이버전스 ((TL51~TL55)의
5개 중 3개 이상(가능하면 외부 변수 입력) 생성되면 청산
2)
상승 다이버전스(TL51~TL55)의
5개 중 3개 이상(가능하면 개수 외부 변수 입력) 생성되면 매수,
진입후에
하락 다이버전스 ((TL1~TL5)의
5개 중 3개 이상(가능하면 외부 변수 입력) 생성되면 청산
3)
하락 다이버전스(TL1~TL5)의
5개 중 3개 이상(가능하면 개수 외부 변수 입력) 생성되면 매도
진입후에
임의의 시점(외부 변수로 입력)에서 강제 청산
4)
상승 다이버전스(TL51~TL55)의
5개 중 3개 이상(가능하면 개수 외부 변수 입력) 생성되면 매수
진입후에
임의의 시점(외부 변수로 입력)에서 강제 청산
input:p1(9);
input:P2(26);
INPUT:sig(5);
INPUT:틱조정(10000);
INPUT:하락_다이버기준선(0);
VAR:상승_다이버기준선(0);
상승_다이버기준선=-하락_다이버기준선;
var1=ma(macd(p1,P2),sig);
plot1(var1,"1",black,def,1);
plotbaseline2(0,"0",black,def,0);
//위쪽_하락 다이버전스
var :TL1(0);
if H > H[10] and VAR1 < VAR1[10] AND VAR1>하락_다이버기준선 THEN{
TL_Delete(TL1);
TL1 = TL_New_self(sdate[10],stime[10],VAR1[10]+1/틱조정,sdate,stime,VAR1+1/틱조정);
TL_SetColor(TL1,RED);
TL_Setsize(TL1,0);
}
var :TL2(0);
if H > H[20] and VAR1 < VAR1[20] AND VAR1>하락_다이버기준선 Then{
TL_Delete(TL2);
TL2 = TL_New_self(sdate[20],stime[20],VAR1[20]+2/틱조정,sdate,stime,VAR1+2/틱조정);
TL_SetColor(TL2,YELLOW);
TL_Setsize(TL2,0);
}
var :TL3(0);
if H > H[30] and VAR1 < VAR1[30] AND VAR1>하락_다이버기준선 Then{
TL_Delete(TL3);
TL3 = TL_New_self(sdate[30],stime[30],VAR1[30]+3/틱조정,sdate,stime,VAR1+3/틱조정);
TL_SetColor(TL3,MAGENTA);
TL_Setsize(TL3,0);
}
var :TL4(0);
if H > H[40] and VAR1 < VAR1[40] AND VAR1>하락_다이버기준선 Then{
TL_Delete(TL4);
TL4 = TL_New_self(sdate[40],stime[40],VAR1[40]+4/틱조정,sdate,stime,VAR1+4/틱조정);
TL_SetColor(TL4,GREEN);
TL_Setsize(TL4,0);
}
var :TL5(0);
if H > H[50] and VAR1 < VAR1[50] AND VAR1>하락_다이버기준선 Then{
TL_Delete(TL5);
TL5 = TL_New_self(sdate[50],stime[50],VAR1[50]+5/틱조정,sdate,stime,VAR1+5/틱조정);
TL_SetColor(TL5,WHITE);
TL_Setsize(TL5,0);
}
//아래쪽_상승 다이버전스
var :TL51(0);
if L < L[10] and VAR1 > VAR1[10] AND VAR1<상승_다이버기준선 Then{
TL_Delete(TL51);
TL51 = TL_New_self(sdate[10],stime[10],VAR1[10]-1/틱조정,sdate,stime,VAR1-1/틱조정);
TL_SetColor(TL51,LYELLOW);
TL_Setsize(TL51,0);
}
var :TL52(0);
if L < L[20] and VAR1 > VAR1[20] AND VAR1<상승_다이버기준선 Then{
TL_Delete(TL52);
TL52 = TL_New_self(sdate[20],stime[20],VAR1[20]-2/틱조정,sdate,stime,VAR1-2/틱조정);
TL_SetColor(TL52,LBLUE);
TL_Setsize(TL52,0);
}
var :TL53(0);
if L < L[30] and VAR1 > VAR1[30] AND VAR1<상승_다이버기준선 Then{
TL_Delete(TL53);
TL53 = TL_New_self(sdate[30],stime[30],VAR1[30]-3/틱조정,sdate,stime,VAR1-3/틱조정);
TL_SetColor(TL53,LMAGENTA);
TL_Setsize(TL53,0);
}
var :TL54(0);
if L < L[40] and VAR1 > VAR1[40] AND VAR1<상승_다이버기준선 Then{
TL_Delete(TL54);
TL54 = TL_New_self(sdate[40],stime[40],VAR1[40]-4/틱조정,sdate,stime,VAR1-4/틱조정);
TL_SetColor(TL54,LGREEN);
TL_Setsize(TL54,0);
}
var :TL55(0);
if L < L[50] and VAR1 > VAR1[50] AND VAR1<상승_다이버기준선 Then{
TL_Delete(TL55);
TL55 = TL_New_self(sdate[50],stime[50],VAR1[50]-5/틱조정,sdate,stime,VAR1-5/틱조정);
TL_SetColor(TL55,BLACK);
TL_Setsize(TL55,0);
}
답변 1
예스스탁 예스스탁 답변
2020-09-28 10:52:33
안녕하세요
예스스탁입니다.
1
input:p1(9);
input:P2(26);
INPUT:sig(5);
INPUT:틱조정(10000);
INPUT:하락_다이버기준선(0);
VAR:상승_다이버기준선(0);
var :TL1(0),TL2(0),TL3(0),TL4(0),TL5(0);
var :TL51(0),TL52(0),TL53(0),TL54(0),TL55(0);
input : n(5);
상승_다이버기준선 = -하락_다이버기준선;
var1=ma(macd(p1,P2),sig);
if CrossUp(var1,하락_다이버기준선) Then
{
value1 = 0;
value2 = 0;
value3 = 0;
value4 = 0;
value5 = 0;
value51 = 0;
value52 = 0;
value53 = 0;
value54 = 0;
value55 = 0;
}
if CrossDown(var1,상승_다이버기준선) Then
{
value1 = 0;
value2 = 0;
value3 = 0;
value4 = 0;
value5 = 0;
value51 = 0;
value52 = 0;
value53 = 0;
value54 = 0;
value55 = 0;
}
if H > H[10] and VAR1 < VAR1[10] AND VAR1>하락_다이버기준선 THEN
{
value1 = 1;
TL_Delete(TL1);
TL1 = TL_New_self(sdate[10],stime[10],VAR1[10]+1/틱조정,sdate,stime,VAR1+1/틱조정);
TL_SetColor(TL1,RED);
TL_Setsize(TL1,0);
}
if H > H[20] and VAR1 < VAR1[20] AND VAR1>하락_다이버기준선 Then
{
Value2 = 1;
TL_Delete(TL2);
TL2 = TL_New_self(sdate[20],stime[20],VAR1[20]+2/틱조정,sdate,stime,VAR1+2/틱조정);
TL_SetColor(TL2,YELLOW);
TL_Setsize(TL2,0);
}
if H > H[30] and VAR1 < VAR1[30] AND VAR1>하락_다이버기준선 Then
{
Value3 = 1;
TL_Delete(TL3);
TL3 = TL_New_self(sdate[30],stime[30],VAR1[30]+3/틱조정,sdate,stime,VAR1+3/틱조정);
TL_SetColor(TL3,MAGENTA);
TL_Setsize(TL3,0);
}
if H > H[40] and VAR1 < VAR1[40] AND VAR1>하락_다이버기준선 Then
{
Value4 = 1;
TL_Delete(TL4);
TL4 = TL_New_self(sdate[40],stime[40],VAR1[40]+4/틱조정,sdate,stime,VAR1+4/틱조정);
TL_SetColor(TL4,GREEN);
TL_Setsize(TL4,0);
}
if H > H[50] and VAR1 < VAR1[50] AND VAR1>하락_다이버기준선 Then
{
Value5 = 0;
TL_Delete(TL5);
TL5 = TL_New_self(sdate[50],stime[50],VAR1[50]+5/틱조정,sdate,stime,VAR1+5/틱조정);
TL_SetColor(TL5,WHITE);
TL_Setsize(TL5,0);
}
//아래쪽_상승 다이버전스
if L < L[10] and VAR1 > VAR1[10] AND VAR1<상승_다이버기준선 Then
{
value51 = 1;
TL_Delete(TL51);
TL51 = TL_New_self(sdate[10],stime[10],VAR1[10]-1/틱조정,sdate,stime,VAR1-1/틱조정);
TL_SetColor(TL51,LYELLOW);
TL_Setsize(TL51,0);
}
if L < L[20] and VAR1 > VAR1[20] AND VAR1<상승_다이버기준선 Then
{
value52 = 1;
TL_Delete(TL52);
TL52 = TL_New_self(sdate[20],stime[20],VAR1[20]-2/틱조정,sdate,stime,VAR1-2/틱조정);
TL_SetColor(TL52,LBLUE);
TL_Setsize(TL52,0);
}
if L < L[30] and VAR1 > VAR1[30] AND VAR1<상승_다이버기준선 Then
{
value53 = 1;
TL_Delete(TL53);
TL53 = TL_New_self(sdate[30],stime[30],VAR1[30]-3/틱조정,sdate,stime,VAR1-3/틱조정);
TL_SetColor(TL53,LMAGENTA);
TL_Setsize(TL53,0);
}
if L < L[40] and VAR1 > VAR1[40] AND VAR1<상승_다이버기준선 Then
{
Value54 = 1;
TL_Delete(TL54);
TL54 = TL_New_self(sdate[40],stime[40],VAR1[40]-4/틱조정,sdate,stime,VAR1-4/틱조정);
TL_SetColor(TL54,LGREEN);
TL_Setsize(TL54,0);
}
if L < L[50] and VAR1 > VAR1[50] AND VAR1<상승_다이버기준선 Then
{
Value55 = 1;
TL_Delete(TL55);
TL55 = TL_New_self(sdate[50],stime[50],VAR1[50]-5/틱조정,sdate,stime,VAR1-5/틱조정);
TL_SetColor(TL55,BLACK);
TL_Setsize(TL55,0);
}
if (Value1+Value2+value3+Value4+Value5) >= n Then
{
Sell();
}
if (Value51+Value52+value53+Value54+Value55) >= n Then
{
ExitShort();
}
2
input:p1(9);
input:P2(26);
INPUT:sig(5);
INPUT:틱조정(10000);
INPUT:하락_다이버기준선(0);
VAR:상승_다이버기준선(0);
var :TL1(0),TL2(0),TL3(0),TL4(0),TL5(0);
var :TL51(0),TL52(0),TL53(0),TL54(0),TL55(0);
input : n(5);
상승_다이버기준선 = -하락_다이버기준선;
var1=ma(macd(p1,P2),sig);
if CrossUp(var1,하락_다이버기준선) Then
{
value1 = 0;
value2 = 0;
value3 = 0;
value4 = 0;
value5 = 0;
value51 = 0;
value52 = 0;
value53 = 0;
value54 = 0;
value55 = 0;
}
if CrossDown(var1,상승_다이버기준선) Then
{
value1 = 0;
value2 = 0;
value3 = 0;
value4 = 0;
value5 = 0;
value51 = 0;
value52 = 0;
value53 = 0;
value54 = 0;
value55 = 0;
}
if H > H[10] and VAR1 < VAR1[10] AND VAR1>하락_다이버기준선 THEN
{
value1 = 1;
TL_Delete(TL1);
TL1 = TL_New_self(sdate[10],stime[10],VAR1[10]+1/틱조정,sdate,stime,VAR1+1/틱조정);
TL_SetColor(TL1,RED);
TL_Setsize(TL1,0);
}
if H > H[20] and VAR1 < VAR1[20] AND VAR1>하락_다이버기준선 Then
{
Value2 = 1;
TL_Delete(TL2);
TL2 = TL_New_self(sdate[20],stime[20],VAR1[20]+2/틱조정,sdate,stime,VAR1+2/틱조정);
TL_SetColor(TL2,YELLOW);
TL_Setsize(TL2,0);
}
if H > H[30] and VAR1 < VAR1[30] AND VAR1>하락_다이버기준선 Then
{
Value3 = 1;
TL_Delete(TL3);
TL3 = TL_New_self(sdate[30],stime[30],VAR1[30]+3/틱조정,sdate,stime,VAR1+3/틱조정);
TL_SetColor(TL3,MAGENTA);
TL_Setsize(TL3,0);
}
if H > H[40] and VAR1 < VAR1[40] AND VAR1>하락_다이버기준선 Then
{
Value4 = 1;
TL_Delete(TL4);
TL4 = TL_New_self(sdate[40],stime[40],VAR1[40]+4/틱조정,sdate,stime,VAR1+4/틱조정);
TL_SetColor(TL4,GREEN);
TL_Setsize(TL4,0);
}
if H > H[50] and VAR1 < VAR1[50] AND VAR1>하락_다이버기준선 Then
{
Value5 = 0;
TL_Delete(TL5);
TL5 = TL_New_self(sdate[50],stime[50],VAR1[50]+5/틱조정,sdate,stime,VAR1+5/틱조정);
TL_SetColor(TL5,WHITE);
TL_Setsize(TL5,0);
}
//아래쪽_상승 다이버전스
if L < L[10] and VAR1 > VAR1[10] AND VAR1<상승_다이버기준선 Then
{
value51 = 1;
TL_Delete(TL51);
TL51 = TL_New_self(sdate[10],stime[10],VAR1[10]-1/틱조정,sdate,stime,VAR1-1/틱조정);
TL_SetColor(TL51,LYELLOW);
TL_Setsize(TL51,0);
}
if L < L[20] and VAR1 > VAR1[20] AND VAR1<상승_다이버기준선 Then
{
value52 = 1;
TL_Delete(TL52);
TL52 = TL_New_self(sdate[20],stime[20],VAR1[20]-2/틱조정,sdate,stime,VAR1-2/틱조정);
TL_SetColor(TL52,LBLUE);
TL_Setsize(TL52,0);
}
if L < L[30] and VAR1 > VAR1[30] AND VAR1<상승_다이버기준선 Then
{
value53 = 1;
TL_Delete(TL53);
TL53 = TL_New_self(sdate[30],stime[30],VAR1[30]-3/틱조정,sdate,stime,VAR1-3/틱조정);
TL_SetColor(TL53,LMAGENTA);
TL_Setsize(TL53,0);
}
if L < L[40] and VAR1 > VAR1[40] AND VAR1<상승_다이버기준선 Then
{
Value54 = 1;
TL_Delete(TL54);
TL54 = TL_New_self(sdate[40],stime[40],VAR1[40]-4/틱조정,sdate,stime,VAR1-4/틱조정);
TL_SetColor(TL54,LGREEN);
TL_Setsize(TL54,0);
}
if L < L[50] and VAR1 > VAR1[50] AND VAR1<상승_다이버기준선 Then
{
Value55 = 1;
TL_Delete(TL55);
TL55 = TL_New_self(sdate[50],stime[50],VAR1[50]-5/틱조정,sdate,stime,VAR1-5/틱조정);
TL_SetColor(TL55,BLACK);
TL_Setsize(TL55,0);
}
if (Value51+Value52+value53+Value54+Value55) >= n Then
{
buy();
}
if (Value1+Value2+value3+Value4+Value5) >= n Then
{
ExitLong();
}
3,4
3번과 4번의 청산은 내용을 알수 없습니다.
1번과 2번식 참고하셔서 직접 추가하시기 바랍니다.
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 감사 드립니다.
1)
하락 다이버전스(TL1~TL5)의
5개 중 3개 이상(가능하면 개수 외부 변수 입력) 생성되면 매도,
진입후에
상승 다이버전스 ((TL51~TL55)의
5개 중 3개 이상(가능하면 외부 변수 입력) 생성되면 청산
2)
상승 다이버전스(TL51~TL55)의
5개 중 3개 이상(가능하면 개수 외부 변수 입력) 생성되면 매수,
진입후에
하락 다이버전스 ((TL1~TL5)의
5개 중 3개 이상(가능하면 외부 변수 입력) 생성되면 청산
3)
하락 다이버전스(TL1~TL5)의
5개 중 3개 이상(가능하면 개수 외부 변수 입력) 생성되면 매도
진입후에
임의의 시점(외부 변수로 입력)에서 강제 청산
4)
상승 다이버전스(TL51~TL55)의
5개 중 3개 이상(가능하면 개수 외부 변수 입력) 생성되면 매수
진입후에
임의의 시점(외부 변수로 입력)에서 강제 청산
input:p1(9);
input:P2(26);
INPUT:sig(5);
INPUT:틱조정(10000);
INPUT:하락_다이버기준선(0);
VAR:상승_다이버기준선(0);
상승_다이버기준선=-하락_다이버기준선;
var1=ma(macd(p1,P2),sig);
plot1(var1,"1",black,def,1);
plotbaseline2(0,"0",black,def,0);
//위쪽_하락 다이버전스
var :TL1(0);
if H > H[10] and VAR1 < VAR1[10] AND VAR1>하락_다이버기준선 THEN{
TL_Delete(TL1);
TL1 = TL_New_self(sdate[10],stime[10],VAR1[10]+1/틱조정,sdate,stime,VAR1+1/틱조정);
TL_SetColor(TL1,RED);
TL_Setsize(TL1,0);
}
var :TL2(0);
if H > H[20] and VAR1 < VAR1[20] AND VAR1>하락_다이버기준선 Then{
TL_Delete(TL2);
TL2 = TL_New_self(sdate[20],stime[20],VAR1[20]+2/틱조정,sdate,stime,VAR1+2/틱조정);
TL_SetColor(TL2,YELLOW);
TL_Setsize(TL2,0);
}
var :TL3(0);
if H > H[30] and VAR1 < VAR1[30] AND VAR1>하락_다이버기준선 Then{
TL_Delete(TL3);
TL3 = TL_New_self(sdate[30],stime[30],VAR1[30]+3/틱조정,sdate,stime,VAR1+3/틱조정);
TL_SetColor(TL3,MAGENTA);
TL_Setsize(TL3,0);
}
var :TL4(0);
if H > H[40] and VAR1 < VAR1[40] AND VAR1>하락_다이버기준선 Then{
TL_Delete(TL4);
TL4 = TL_New_self(sdate[40],stime[40],VAR1[40]+4/틱조정,sdate,stime,VAR1+4/틱조정);
TL_SetColor(TL4,GREEN);
TL_Setsize(TL4,0);
}
var :TL5(0);
if H > H[50] and VAR1 < VAR1[50] AND VAR1>하락_다이버기준선 Then{
TL_Delete(TL5);
TL5 = TL_New_self(sdate[50],stime[50],VAR1[50]+5/틱조정,sdate,stime,VAR1+5/틱조정);
TL_SetColor(TL5,WHITE);
TL_Setsize(TL5,0);
}
//아래쪽_상승 다이버전스
var :TL51(0);
if L < L[10] and VAR1 > VAR1[10] AND VAR1<상승_다이버기준선 Then{
TL_Delete(TL51);
TL51 = TL_New_self(sdate[10],stime[10],VAR1[10]-1/틱조정,sdate,stime,VAR1-1/틱조정);
TL_SetColor(TL51,LYELLOW);
TL_Setsize(TL51,0);
}
var :TL52(0);
if L < L[20] and VAR1 > VAR1[20] AND VAR1<상승_다이버기준선 Then{
TL_Delete(TL52);
TL52 = TL_New_self(sdate[20],stime[20],VAR1[20]-2/틱조정,sdate,stime,VAR1-2/틱조정);
TL_SetColor(TL52,LBLUE);
TL_Setsize(TL52,0);
}
var :TL53(0);
if L < L[30] and VAR1 > VAR1[30] AND VAR1<상승_다이버기준선 Then{
TL_Delete(TL53);
TL53 = TL_New_self(sdate[30],stime[30],VAR1[30]-3/틱조정,sdate,stime,VAR1-3/틱조정);
TL_SetColor(TL53,LMAGENTA);
TL_Setsize(TL53,0);
}
var :TL54(0);
if L < L[40] and VAR1 > VAR1[40] AND VAR1<상승_다이버기준선 Then{
TL_Delete(TL54);
TL54 = TL_New_self(sdate[40],stime[40],VAR1[40]-4/틱조정,sdate,stime,VAR1-4/틱조정);
TL_SetColor(TL54,LGREEN);
TL_Setsize(TL54,0);
}
var :TL55(0);
if L < L[50] and VAR1 > VAR1[50] AND VAR1<상승_다이버기준선 Then{
TL_Delete(TL55);
TL55 = TL_New_self(sdate[50],stime[50],VAR1[50]-5/틱조정,sdate,stime,VAR1-5/틱조정);
TL_SetColor(TL55,BLACK);
TL_Setsize(TL55,0);
}