커뮤니티
수식 부탁드립니다
2018-09-11 13:18:26
158
글번호 121950
첨부 이미지
그림1
첨부한 파일처럼 종목이 파동을 그리면서 움직이면 그 파동의 고점 저점의 가격과
그 파동이 움직인 틱수를 파일처럼 표시되게끔 수식좀 부탁드립니다
- 1. 122546_캡처.PNG (0.05 MB)
답변 2
예스스탁 예스스탁 답변
2018-09-12 09:50:47
안녕하세요
예스스탁입니다.
아래 내용 참고하셔서 수정보완해 사용하시기 바랍니다.
Input : length(12), 선굵기(5),소숫점자리(0);
Var : j(0), lastHiVal(0), lastLoVal(0), sBar(0), eBar(0);
var : TL1(0),TL2(0), Text1(0), Text2(0), 처리구분("");
Array : 고점[10,2](0), 저점[10,2](0);
If Highest(H,length) == H and lastHiVal <> H and
Lowest(L,length) == L and lastLoVal <> L Then {
If 저점[1,1] > L Then 처리구분 = "저점처리";
If 고점[1,1] < H Then 처리구분 = "고점처리";
}
Else If Highest(H,length) == H and lastHiVal <> H Then
처리구분 = "고점처리";
Else If Lowest(L,length) == L and lastLoVal <> L Then
처리구분 = "저점처리";
//=======================================================
If 처리구분 == "고점처리" Then { //상승파동
lastHiVal = H;
If 고점[1,2] < 저점[1,2] Then
{
For j = 10 DownTo 2
{
고점[j,1] = 고점[j-1,1];
고점[j,2] = 고점[j-1,2];
}
}
If 고점[1,2] < 저점[1,2] or 고점[1,1] < H Then
{
고점[1,1] = H;
고점[1,2] = Index;
sBar = Index - 저점[1,2];
eBar = 0;
If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then
{
TL_Delete(TL1);
Text_Delete(Text1);
}
TL1 = TL_New(sDate[sBar],sTime[sBar],저점[1,1], sDate[eBar],sTime[eBar],고점[1,1]); //상승츠세선
TL_SetSize(TL1,선굵기);
TL_SetColor(TL1, RED);
Text1 = Text_New(sDate[eBar], sTime[eBar], 고점[1,1]+(pricescale*1),
"고점 : "+NumToStr(고점[1,1], 소숫점자리)+NewLine+"차이 :"+NumToStr((고점[1,1]-저점[1,1])/PriceScale,0));
Text_SetStyle(Text1, 2, 1); //고점 가격 */
}
}
If 처리구분 == "저점처리" Then //하락파동
{
lastLoVal = L;
If 저점[1,2] < 고점[1,2] then
{
For j = 10 DownTo 2
{
저점[j,1] = 저점[j-1,1];
저점[j,2] = 저점[j-1,2];
}
}
If 저점[1,2] < 고점[1,2] or 저점[1,1] > L then
{
저점[1,1] = L;
저점[1,2] = Index;
sBar = Index - 고점[1,2];
eBar = 0;
If TL_GetBeginDate(TL2) == sDate[sBar] and
TL_GetBeginTime(TL2) == sTime[sBar] Then
{
TL_Delete(TL2);
Text_Delete(Text2);
}
TL2 = TL_New(sDate[sBar], sTime[sBar], 고점[1,1], sDate[eBar], sTime[eBar], 저점[1,1]); //하락추세선
TL_SetSize(TL2, 선굵기);
TL_SetColor(TL2, BLUE);
Text2 = Text_New(sDate[eBar], sTime[eBar], 저점[1,1]-(pricescale*1),
"저점 : "+NumToStr(저점[1,1], 소숫점자리)+NewLine+"차이 : "+NumToStr( (저점[1,1]-고점[1,1])/PriceScale,0) );
Text_SetStyle(Text2, 2, 0); //저점 가격 위치
}
}
즐거운 하루되세요
> 초보나무 님이 쓴 글입니다.
> 제목 : 수식 부탁드립니다
> 첨부한 파일처럼 종목이 파동을 그리면서 움직이면 그 파동의 고점 저점의 가격과
그 파동이 움직인 틱수를 파일처럼 표시되게끔 수식좀 부탁드립니다
무한도전짱짱
2018-09-23 22:44:30
지원안한다는 얘기를 주셔서 추가 답변내용을 확인 못 했는데
이렇게 신경써주셔서 너무 감사드립니다.
이제야 확인 했네요 ^^
추석 명절 즐겁게 보내세요 ~
지표 잘 나옵니다. ~ ^^
시스템식으로 작성해 봤는데.. 고/저점 꺾이는 구간에서 신호가 나오게 하려는데
잘 안되네요 ㅠㅠ 시스템 식도 가능 할까요? ㅠㅠ
################################################
Input : length(12), 선굵기(3),소숫점자리(0);
Var : j(0), lastHiVal(0), lastLoVal(0), sBar(0), eBar(0);
var : TL1(0),TL2(0), Text1(0), Text2(0), 처리구분("");
Array : 고점[10,2](0), 저점[10,2](0);
If Highest(H,length) == H and lastHiVal <> H and
Lowest(L,length) == L and lastLoVal <> L Then {
If 저점[1,1] > L Then 처리구분 = "저점처리";
If 고점[1,1] < H Then 처리구분 = "고점처리";
}
Else If Highest(H,length) == H and lastHiVal <> H Then
처리구분 = "고점처리";
Else If Lowest(L,length) == L and lastLoVal <> L Then
처리구분 = "저점처리";
//=======================================================
If 처리구분 == "고점처리" Then { //상승파동
lastHiVal = H;
If 고점[1,2] < 저점[1,2] Then
{
For j = 10 DownTo 2
{
고점[j,1] = 고점[j-1,1];
고점[j,2] = 고점[j-1,2];
}
}
If 고점[1,2] < 저점[1,2] or 고점[1,1] < H Then
{
고점[1,1] = H;
고점[1,2] = Index;
sBar = Index - 저점[1,2];
eBar = 0;
If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then
{
TL_Delete(TL1);
Text_Delete(Text1);
}
// TL1 = TL_New(sDate[sBar],sTime[sBar],저점[1,1], sDate[eBar],sTime[eBar],고점[1,1]); //상승츠세선
// TL_SetSize(TL1,선굵기);
// TL_SetColor(TL1, RED); // 매수 색상
//Text1 = Text_New(sDate[eBar], sTime[eBar], 고점[1,1]+(pricescale*1),
// "고점 : "+NumToStr(고점[1,1], 소숫점자리)+NewLine+"차이 :"+NumToStr((고점[1,1]-저점[1,1])/PriceScale,0));
//Text_SetStyle(Text1, 2, 1); //고점 가격 */
sell();
}
}
If 처리구분 == "저점처리" Then //하락파동
{
lastLoVal = L;
If 저점[1,2] < 고점[1,2] then
{
For j = 10 DownTo 2
{
저점[j,1] = 저점[j-1,1];
저점[j,2] = 저점[j-1,2];
}
}
If 저점[1,2] < 고점[1,2] or 저점[1,1] > L then
{
저점[1,1] = L;
저점[1,2] = Index;
sBar = Index - 고점[1,2];
eBar = 0;
If TL_GetBeginDate(TL2) == sDate[sBar] and
TL_GetBeginTime(TL2) == sTime[sBar] Then
{
TL_Delete(TL2);
Text_Delete(Text2);
}
// TL2 = TL_New(sDate[sBar], sTime[sBar], 고점[1,1], sDate[eBar], sTime[eBar], 저점[1,1]); //하락추세선
// TL_SetSize(TL2, 선굵기);
// TL_SetColor(TL2, BLUE); // 매도 색상
// Text2 = Text_New(sDate[eBar], sTime[eBar], 저점[1,1]-(pricescale*1),
// "저점 : "+NumToStr(저점[1,1], 소숫점자리)+NewLine+"차이 : "+NumToStr( (저점[1,1]-고점[1,1])/PriceScale,0) );
// Text_SetStyle(Text2, 2, 0); //저점 가격 위치
buy();
}
}
문의사항 :
"차이"라는 부분은 틱수 인가요?
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 수식 부탁드립니다
>
안녕하세요
예스스탁입니다.
아래 내용 참고하셔서 수정보완해 사용하시기 바랍니다.
Input : length(12), 선굵기(5),소숫점자리(0);
Var : j(0), lastHiVal(0), lastLoVal(0), sBar(0), eBar(0);
var : TL1(0),TL2(0), Text1(0), Text2(0), 처리구분("");
Array : 고점[10,2](0), 저점[10,2](0);
If Highest(H,length) == H and lastHiVal <> H and
Lowest(L,length) == L and lastLoVal <> L Then {
If 저점[1,1] > L Then 처리구분 = "저점처리";
If 고점[1,1] < H Then 처리구분 = "고점처리";
}
Else If Highest(H,length) == H and lastHiVal <> H Then
처리구분 = "고점처리";
Else If Lowest(L,length) == L and lastLoVal <> L Then
처리구분 = "저점처리";
//=======================================================
If 처리구분 == "고점처리" Then { //상승파동
lastHiVal = H;
If 고점[1,2] < 저점[1,2] Then
{
For j = 10 DownTo 2
{
고점[j,1] = 고점[j-1,1];
고점[j,2] = 고점[j-1,2];
}
}
If 고점[1,2] < 저점[1,2] or 고점[1,1] < H Then
{
고점[1,1] = H;
고점[1,2] = Index;
sBar = Index - 저점[1,2];
eBar = 0;
If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then
{
TL_Delete(TL1);
Text_Delete(Text1);
}
TL1 = TL_New(sDate[sBar],sTime[sBar],저점[1,1], sDate[eBar],sTime[eBar],고점[1,1]); //상승츠세선
TL_SetSize(TL1,선굵기);
TL_SetColor(TL1, RED);
Text1 = Text_New(sDate[eBar], sTime[eBar], 고점[1,1]+(pricescale*1),
"고점 : "+NumToStr(고점[1,1], 소숫점자리)+NewLine+"차이 :"+NumToStr((고점[1,1]-저점[1,1])/PriceScale,0));
Text_SetStyle(Text1, 2, 1); //고점 가격 */
}
}
If 처리구분 == "저점처리" Then //하락파동
{
lastLoVal = L;
If 저점[1,2] < 고점[1,2] then
{
For j = 10 DownTo 2
{
저점[j,1] = 저점[j-1,1];
저점[j,2] = 저점[j-1,2];
}
}
If 저점[1,2] < 고점[1,2] or 저점[1,1] > L then
{
저점[1,1] = L;
저점[1,2] = Index;
sBar = Index - 고점[1,2];
eBar = 0;
If TL_GetBeginDate(TL2) == sDate[sBar] and
TL_GetBeginTime(TL2) == sTime[sBar] Then
{
TL_Delete(TL2);
Text_Delete(Text2);
}
TL2 = TL_New(sDate[sBar], sTime[sBar], 고점[1,1], sDate[eBar], sTime[eBar], 저점[1,1]); //하락추세선
TL_SetSize(TL2, 선굵기);
TL_SetColor(TL2, BLUE);
Text2 = Text_New(sDate[eBar], sTime[eBar], 저점[1,1]-(pricescale*1),
"저점 : "+NumToStr(저점[1,1], 소숫점자리)+NewLine+"차이 : "+NumToStr( (저점[1,1]-고점[1,1])/PriceScale,0) );
Text_SetStyle(Text2, 2, 0); //저점 가격 위치
}
}
즐거운 하루되세요
> 초보나무 님이 쓴 글입니다.
> 제목 : 수식 부탁드립니다
> 첨부한 파일처럼 종목이 파동을 그리면서 움직이면 그 파동의 고점 저점의 가격과
그 파동이 움직인 틱수를 파일처럼 표시되게끔 수식좀 부탁드립니다
다음글
이전글