답변완료
부탁 드립니다.
도움에 감사 드립니다.
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);
}
2020-09-27
685
글번호 142691
시스템