답변완료
수식의뢰 드립니다!
안녕하세요!
일목의 파동 목표가를 구하는 수식을 만들어 보다가 너무 어려워 도움을 부탁드립니다!
이해를 돕고져 첨부해 드리는 이미지와 수식을 기준으로 목표가를 나타내고 싶습니다.
(조건)
A = 이전 파동 최고점
B = 이전 파동 최저점
C = 현재 파동 최고점
D = 현재 파동 최고점 이후 눌림이 최저점
(산출식)
E = 2*C-B
V = 2*C-D
N = C-B+D
NT = 2*D-B
VT = 2*A-B
--------------------------------
위의 산출식이 안되면 아래식으로도 해주셔도 됩니다
A = 파동전 최저점(파동의 시작점)
B = 파동후 최고점
C = B이후의 눌림 목 최저점
V = 2B - C
N = C+B-A
E = 2B-A
NT = 2C-A
부탁드려요!
----------------------------------------
항상 노고에 감사드립니다!
input:length(4),종가사용여부(0),파동선두께(1),수치표시(1);
Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),
TL1(0),Text1(0),tl2(0),tl3(0),tl4(0),tl5(0),T(0);
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
HH = IFF(종가사용여부==1,C,H);
LL = IFF(종가사용여부==1,C,L);
If Index == 0 Then
{
고[1,1] = HH;
저[1,1] = LL;
}
Condition1 = Highest(HH,length) == HH and 최종고가 <> HH;
Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL;
처리구분 = "";
If Condition1 and Condition2 Then // 기간고점과 기간저점 동시 발생
{
If 최종꼭지점 == "저점" Then
{
If 저[1,1] > LL Then 처리구분 = "저점처리";
Else 처리구분 = "고점처리";
}
Else If 최종꼭지점 == "고점" Then
{
If 고[1,1] < HH Then 처리구분 = "고점처리";
Else 처리구분 = "저점처리";
}
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";
#==========================================#
If 처리구분 == "고점처리" Then
{
T = 1;
최종고가 = HH; // 신규고점을 체크하기 위해 저장
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
# TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
If 수치표시 == 1 Then
{
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2));
Text_SetStyle(Text1, 2, 0);
Text_SetColor(Text1,BLACK);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,yellow);
}
Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
# TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr(고[1,1],2));
}
}
최종꼭지점 = "고점";
}
#==========================================#
If 처리구분 == "저점처리" Then
{
T = -1;
최종저가 = LL;
If 최종꼭지점 == "고점" then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
# TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
If 수치표시 == 1 Then
{
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2));
Text_SetStyle(Text1, 2, 1);
Text_SetColor(Text1,BLACK);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,blue);
}
Else If 저[1,1] > LL then
{
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
# TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr(저[1,1],2));
}
}
최종꼭지점 = "저점";
}
if T == -1 and T[1] != -1 Then{
TL2 = TL_New(고[2,3],고[2,4],고[2,1],sdate,stime,고[2,1]);
TL_Delete(TL3);
TL3 = TL_New(고[1,3],고[1,4],고[1,1],sdate,stime,고[1,1]);
TL_SetExtRight(TL3,true);
TL_SetSize(TL2,파동선두께);
TL_SetColor(TL2,rgb(126,126,126));
TL_SetSize(TL3,파동선두께);
TL_SetColor(TL3,rgb(126,126,126));
}
if T == 1 and T[1] != 1 Then{
TL4= TL_New(저[2,3],저[2,4],저[2,1],sdate,stime,저[2,1]);
TL_Delete(TL5);
TL5= TL_New(저[1,3],저[1,4],저[1,1],sdate,stime,저[1,1]);
TL_SetExtRight(TL5,true);
TL_SetSize(TL4,파동선두께);
TL_SetColor(TL4,rgb(128,128,128));
TL_SetSize(TL5,파동선두께);
TL_SetColor(TL5,rgb(128,128,128));
}
2020-11-12
546
글번호 143796
지표
답변완료
행복; 시스템식 작성 바랍니다
한국의 금융산업 발전을 위해 불철주야 애쓰시는 귀하의 노고를 높이 평가합니다
시스템식 관련입니다
<< 질문 >>
- 11월 2일(월요일) 종가에 매수 후
- 다음날인 11월 3일(화요일) 조건이 맞으면 즉시 (매도 또는 매수)가 가능하려면
< 예제 1 > 처럼 MarketPosition == 1 을 사용해도 되나요 ?
< 예제 2 > 처럼 MaxEntries == 1 을 사용해도 되나요 ?
< 예제 3 > 처럼 TotalTrades() == 1 을 사용해도 되나요 ?
< 예제 4 > 처럼 Condition1 == 1 을 사용해도 되나요 ?
< 예제 5 > 처럼 Var == 1 을 사용해도 되나요 ?
- 안된다면
CurrentContracts > 1 때문인가요?
High > 1100 때문인가요?
-----------< 예제 1 시작 >-----------------------------
주기; 일봉
11월 2일 종가에 매수
If MarketPosition == 0 and Close > 1000 Then
buy("b1",OnClose,10); // 종가 매수
11월 3일 즉시 (매수와 동시에 매도)
If MarketPosition == 1 and CurrentContracts > 1 and High > 1100 Then{
exitlong("eL",AtLimit,Close[1]*0.9,"",5,1);
buy("b2",AtStop,1,1);
}
-----------< 예제 1 끝 >-----------------------------
-----------< 예제 2 시작 >-----------------------------
주기; 일봉
11월 2일 종가에 매수
If TotalTrades == 0 and Close > 1000 Then
buy("b1",OnClose,10); // 종가 매수
11월 3일 즉시 (매수와 동시에 매도)
If TotalTrades == 1 and CurrentContracts > 1 and High > 1100 Then{
exitlong("eL",AtLimit,Close[1]*0.9,"",5,1);
buy("b2",AtStop,1,1);
}
-----------< 예제 2 끝 >-----------------------------
-----------< 예제 3 시작 >-----------------------------
주기; 일봉
11월 2일 종가에 매수
If MaxEntries == 0 and Close > 1000 Then
buy("b1",OnClose,10); // 종가 매수
11월 3일 즉시 (매수와 동시에 매도)
If MaxEntries == 1 and CurrentContracts > 1 and High > 1100 Then{
exitlong("eL",AtLimit,Close[1]*0.9,"",5,1);
buy("b2",AtStop,1,1);
}
-----------< 예제 3 끝 >-----------------------------
-----------< 예제 4 시작 >-----------------------------
주기; 일봉
11월 2일 종가에 매수
If Condition1 == False and Close > 1000 Then{
buy("b1",OnClose,10); // 종가 매수
Condition1 = True;
}
11월 3일 즉시 (매수와 동시에 매도)
If Condition1 == True and CurrentContracts > 1 and High > 1100 Then{
exitlong("eL",AtLimit,Close[1]*0.9,"",5,1);
buy("b2",AtStop,1,1);
}
-----------< 예제 4 끝 >-----------------------------
-----------< 예제 5 시작 >-----------------------------
주기; 일봉
11월 2일 종가에 매수
If Close > 1000 Then{
buy("b1",OnClose,10); // 종가 매수
Var1 = 1;
}
11월 3일 즉시 (매수와 동시에 매도)
If Var == 1 and and CurrentContracts > 1 and High > 1100 Then{
exitlong("eL",AtLimit,Close[1]*0.9,"",5,1);
buy("b2",AtStop,1,1);
}
-----------< 예제 5 끝 >-----------------------------
수고하십시요^^
2020-11-10
628
글번호 143779
시스템