커뮤니티
예스랭귀지 Q&A
답변완료
[공지] 예스랭귀지 AI 어시스턴트, '예스나 AI' 출시 및 무료 체험 안내
안녕하세요, 예스스탁 입니다.복잡한 수식 공부 없이 여러분의 아이디어를 말하면 시스템 트레이딩 언어 예스랭귀지로 작성해주는 서비스예스나 AI(YesNa AI)가 출시되었습니다.지금 예스나 AI를 직접 경험해 보실 수 있도록 20크레딧(질문권 20회)를 무료로 증정해 드리고 있습니다.바로 여러분의 아이디어를 코드로 변환해보세요.--------------------------------------------------🚀 YesNa AI 핵심 기능- 지표식/전략식/종목검색식 생성: 자연어로 요청하면 예스랭귀지 문법에 맞는 코드를 작성합니다.- 종목검색식 변환 지원: K증권의 종목 검색식을 예스랭귀지로 변환 지원합니다.- 컴파일 검증: 작성된 코드가 실행 가능한지 컴파일러를 통해 문법 검증을 거쳐 결과물을 제공합니다.상세한 서비스 개요 및 활용 방법은 [서비스 소개 페이지]에서 확인하실 수 있습니다.▶ 서비스 소개 페이지: 바로가기서비스 사용 유의사항 및 결제 환불정책은 [이용약관]을 참고 부탁드립니다.▶ 서비스 이용약관: 바로가기💬 이용 문의사용 중 문의사항은 [프로그램 사용법 Q&A] 게시판에서 [예스나 AI] 카테고리를 설정 후 문의해 주시면 상세히 안내해 드리겠습니다.--------------------------------------------------앞으로도 AI를 활용한 다양한 트레이딩 기능들을 지속적으로 선보일 예정입니다.많은 관심과 기대 부탁드립니다.
2026-02-27
7296
글번호 230811
답변완료
문의드립니다
Input:length(5);
Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0),TL1(0),TL2(0),TL3(0),Text1(0),처리구분(""),
TL_Val1(0),TL_Val2(0);
Var:TL11(0),TL12(0),TL13(0),TL14(0),TL15(0),TL16(0),TL17(0),TL18(0),TL19(0),TL20(0);
Array:고점[10,2](0),저점[10,2](0);
var : D1(0),D2(0),V1(0),V2(0),mav(0),T(0),count(0),HH(0);
if bdate != Bdate[1] Then{
count = 0;
HH = 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
{
if T != 1 then{
T = 1;
count = count+1;
}
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);
If 고점[3,1][1] < 고점[2,1][1] and 고점[2,1][1] > 고점[1,1][1] and 저점[2,1][1] < 저점[1,1][1] Then
TL_Delete(TL2);
}
TL1 = TL_New(sDate[sBar],sTime[sBar],저점[1,1],sDate[eBar],sTime[eBar],고점[1,1]);
V1 = 고점[1,1]-저점[1,1];
if HH == 0 or (V1 > HH) then{
HH = V1;
TL_Delete(TL11);
TL_Delete(TL12);
TL_Delete(TL13);
TL_Delete(TL14);
TL_Delete(TL15);
TL_Delete(TL16);
TL_Delete(TL17);
TL11 = TL_New(sDate[sBar],sTime[sBar],고점[1,1],sDate[eBar],sTime[eBar],고점[1,1]);
TL12 = TL_New(sDate[sBar],sTime[sBar],고점[1,1]-V1*0.236,sDate[eBar],sTime[eBar],고점[1,1]-V1*0.236);
TL13 = TL_New(sDate[sBar],sTime[sBar],고점[1,1]-V1*0.382,sDate[eBar],sTime[eBar],고점[1,1]-V1*0.382);
TL14 = TL_New(sDate[sBar],sTime[sBar],고점[1,1]-V1*0.500,sDate[eBar],sTime[eBar],고점[1,1]-V1*0.500);
TL15 = TL_New(sDate[sBar],sTime[sBar],고점[1,1]-V1*0.618,sDate[eBar],sTime[eBar],고점[1,1]-V1*0.618);
TL16 = TL_New(sDate[sBar],sTime[sBar],고점[1,1]-V1*0.764,sDate[eBar],sTime[eBar],고점[1,1]-V1*0.761);
TL17 = TL_New(sDate[sBar],sTime[sBar],저점[1,1],sDate[eBar],sTime[eBar],저점[1,1]);
}
Text1 = Text_New(sDate[eBar],sTime[eBar],고점[1,1],NumToStr(고점[1,1],2));
PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav");
TL_SetColor(TL11,WHITE);
TL_SetColor(TL11,WHITE);
TL_SetColor(TL12,WHITE);
TL_SetColor(TL13,WHITE);
TL_SetColor(TL14,WHITE);
TL_SetColor(TL15,WHITE);
TL_SetColor(TL16,WHITE);
TL_SetColor(TL17,WHITE);
TL_SetSize(TL1,1);
TL_SetSize(TL11,1);
TL_SetSize(TL12,1);
TL_SetSize(TL13,1);
TL_SetSize(TL14,1);
TL_SetSize(TL15,1);
TL_SetSize(TL16,1);
TL_SetSize(TL17,1);
If 고점[3,1] < 고점[2,1] and 고점[2,1] > 고점[1,1] and 저점[2,1] < 저점[1,1] Then
{
sBar = Index - 저점[2,2];
eBar = Index - 저점[1,2];
}
}
}
If 처리구분 == "저점처리" Then
{
if T != -1 then{
T = -1;
count = count+1;
}
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(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then
{
TL_Delete(TL1);
Text_Delete(Text1);
If 저점[2,1][1] < 저점[1,1][1] and 저점[2,1][1] < 저점[3,1][1] and 고점[2,1][1] > 고점[1,1][1] Then
TL_Delete(TL3);
}
TL1 = TL_New(sDate[sBar],sTime[sBar],고점[1,1],sDate[eBar],sTime[eBar],저점[1,1]);
V1 = 고점[1,1]-저점[1,1];
if HH == 0 or (V1 > HH) then{
HH = V1;
TL_Delete(TL11);
TL_Delete(TL12);
TL_Delete(TL13);
TL_Delete(TL14);
TL_Delete(TL15);
TL_Delete(TL16);
TL_Delete(TL17);
TL11 = TL_New(sDate[sBar],sTime[sBar],고점[1,1],sDate[eBar],sTime[eBar],고점[1,1]);
TL12 = TL_New(sDate[sBar],sTime[sBar],고점[1,1]-V1*0.236,sDate[eBar],sTime[eBar],고점[1,1]-V1*0.236);
TL13 = TL_New(sDate[sBar],sTime[sBar],고점[1,1]-V1*0.382,sDate[eBar],sTime[eBar],고점[1,1]-V1*0.382);
TL14 = TL_New(sDate[sBar],sTime[sBar],고점[1,1]-V1*0.500,sDate[eBar],sTime[eBar],고점[1,1]-V1*0.500);
TL15 = TL_New(sDate[sBar],sTime[sBar],고점[1,1]-V1*0.618,sDate[eBar],sTime[eBar],고점[1,1]-V1*0.618);
TL16 = TL_New(sDate[sBar],sTime[sBar],고점[1,1]-V1*0.764,sDate[eBar],sTime[eBar],고점[1,1]-V1*0.761);
TL17 = TL_New(sDate[sBar],sTime[sBar],저점[1,1],sDate[eBar],sTime[eBar],저점[1,1]);
}
Text1 = Text_New(sDate[eBar],sTime[eBar],저점[1,1],NumToStr(저점[1,1],2));
PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav");
TL_SetColor(TL11,WHITE);
TL_SetColor(TL11,WHITE);
TL_SetColor(TL12,BLUE);
TL_SetColor(TL13,WHITE);
TL_SetColor(TL14,BLACK);
TL_SetColor(TL15,WHITE);
TL_SetColor(TL16,BLUE);
TL_SetColor(TL17,WHITE);
TL_SetSize(TL1,1);
TL_SetSize(TL11,1);
TL_SetSize(TL12,1);
TL_SetSize(TL13,1);
TL_SetSize(TL14,1);
TL_SetSize(TL15,1);
TL_SetSize(TL16,1);
TL_SetSize(TL17,1);
If 저점[2,1] < 저점[1,1] and 저점[2,1] < 저점[3,1] and 고점[2,1] > 고점[1,1] Then
{
sBar = Index - 고점[2,2];
eBar = Index - 고점[1,2];
}
}
}
mav = ma(c,20);
0.236프로2틱돌파시레드색 0.764프로2틱돌파시블루색 강조식부탁드립니다~~
2017-09-18
206
글번호 112867
답변완료
문의드립니다.
안녕하세요. 수고많으십니다. 수식문의드립니다.
Input : 손절틱(50);
Input : 손절판단틱퍼센트(60); #손절틱(60)시 진입 후 평균 주가가 진입주가 대비 현재가 보다 60% 높거나 낮음 판단용.
Input : 청산계약수(1); #1=진입한 1계약만 청상, 2=진입한 1계약 청산 & 반대 1계약 신규 진입.
Var : 손절주가(0);
Var : 종가평균(0);
수식1) 매수진입시
1계약 매수 진입 시점에 손절주가 계산하여 저장 ▶ 손절주가 = 진입가-(틱가치*손절틱수)
주가가 손절주가에 도달하면 진입시점봉~현재봉까지의 종가기준 평균 산출 ▶종가평균
"종가평균 < 진입가~손절주가*손절판단틱퍼센트"면 손절 청상 _ 손철청산계약수(1),(2)를 다르게 적용 ▶손절판단틱퍼센트 = 손절틱(60)시 60% 적용 _ 이때 60%는 진입가 대비 손절주가까지의 60%부분의 주가값.
#청산계약수(1)일때
1계약 매수 진입분만 청상
#청산계약수(2)일때
1계약 매수 진입분 청상 & 신규 반대포지션(매도) 1계약 신규 진입 ▶이때도 손절주가 변수 신규 산출 저장
수식2) 매도진입시 ▶매수진입과 반대로 수식 적용
1계약 매도 진입 시점에 손절주가 계산하여 저장 ▶ 손절주가 = 진입가+(틱가치*손절틱수)
주가가 손절주가에 도달하면 진입시점봉~현재봉까지의 종가기준 평균 산출 ▶종가평균
"종가평균 > 진입가~손절주가*손절판단틱퍼센트"면 손절 청상 _ 손철청산계약수(1),(2)를 다르게 적용 ▶손절판단틱퍼센트 = 손절틱(60)시 60% 적용 _ 이때 60%는 진입가~손절주가의 60%부분의 주가값.
#손절청산계약수(1)일때
1계약 매도 진입분만 청상
#청산계약수(2)일때
1계약 매도 진입분 청상 & 신규 반대포지션(매수) 1계약 신규 진입 ▶이때도 손절주가 변수 신규 산출 저장
미리 감사드립니다.
2017-09-18
150
글번호 112866
답변완료
안녕하세요?
1. 윗꼬리가 없는 음봉 캔들 - 빨간점을 찍어 주시고
2. 아랫꼬리가 없는 양봉 캔들 - 파란점을 찍어 주세요
감사합니다
2017-09-18
157
글번호 112865
답변완료
문의드립니다.
안녕하세요.
아래의 식은 국내선물 3계약을 매수하여 분할 청산하는 수식입니다.
"매수익절1" 과 "매수익절2"는 청산 가격과 수량을 명시하고 있고,
"매수최종청산"는 5이평선과 20이평선이 데드크로스하는 시점에 "보유하고 있는 모든 수량"을 청산하는 것을 목적으로 하고 있습니다. 오류 없이 제대로 작성된 수식인지 검증 부탁그리겠습니다.
감사합니다.
--------------------------------------------------------------------------------------
var1 = ma(C,5);
var2 = ma(C,20);
if 조건 then
{
Buy("매수",onclose,def,3);
SetStopLoss(0.55,PointStop);
}
if MarketPosition == 1 Then{
if IsEntryName("매수") == true Then
ExitLong("매수익절1",Atlimit,Dayopen()+1.0,"갭상0.7선_매수",1,1);
ExitLong("매수익절2",Atlimit,Dayopen()+1.5,"갭상0.7선_매수",1,1);
If CrossDown(var1,var2) Then
ExitLong("매수최종청산")
}
2017-09-18
145
글번호 112864
답변완료
문의드립니다.
주가가 90일 이동평균선 위에 있을 경우
Chaikin Oscillator가 -에서 +로 전환하는 경우 매수
주가가 90일 이동평균선 아래에 있을 때
Chaikin Oscillator가 +에서 -로 전환하는 경우 매도
수식작성 부탁드립니다.
2017-09-18
138
글번호 112863
답변완료
기존 프로그램 수정과 그외 질문
질문1.
2개의 차트(data1과 data2)의 5이평선 간의 상관계수를 구하는 프로그램을 구합니다.
즉, 현재 봉 포함 과거 30봉까지의 두 5이평선 간의 상관관계 값(𐐙)을 구하고자 합니다.
두 변량 x, y 는 동일 시간대 봉에 대하여 5이평선 주가입니다. 즉, x는 data1 이평선의 주가, y는 data2 이평선의 주가입니다. 상관관계 값(𐐙)을 구하는 공식은 파일로 첨부합니다.
질문2.
아래는 지그재그 선을 그리며 고점 꼭지점(상승을 지속하고 고가 형성 후 하락하는 시점) 주가와 저점 꼭지점(하락을 지속하다가 주가를 형성 후 상승으로 전환하는 시점)을 차트 상에 찍어 주는 프로그램입니다.
이 프로그램을 수정하여 각 꼭지점을 프린트문(print)으로 엑셀파일에 C드라이브의 K폴드에 다음과 같이 저장하는 프로그램을 구합니다.
----------------------------------------------------
데이터발생일시 주가 형태
----------------------------------------------------
2017. 09. 19. 12:0000 308.112 고점 꼭지점
2017. 09. 19. 12:0200 307.012 저점 꼭지점
:
:
#==========================================#
# 지 표 명 : 고저라인 지그재그 파동선
# 버 전 : 1.2
# 작 성 자 : 수식지왕
# 블 로 그 : http://yahoosir.blog.me
# 업데이트 : 2017-03-10
#==========================================#
Input:length(10),종가사용여부(0),파동선두께(2),수치표시(1);
Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),
TL1(0),Text1(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
{
최종고가 = 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, 1);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,RED);
}
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
{
최종저가 = 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, 0);
}
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));
}
}
최종꼭지점 = "저점";
}
감사합니다.
2017-09-18
405
글번호 112859
답변완료
부탁드립니다
수고하십니다
1.9시 시가4번째양봉고가.
9시 시가4번째음봉저가표시
2.고점에서4번째음봉 종가,저가표시
2017-09-18
150
글번호 112857
답변완료
문의드립니다.
수식지왕님의 피보나치 되돌림 지표입니다.
상승파동 하락파동에 따른 피보나치 되돌림 비율을 선으로 나타낸 지표인데요
이걸 시스템으로 만들고 싶습니다.
예들들어
상승파동끝나고 조정나올때(되돌림) 61.8%선에서 매수하고 100%선을 이탈하면 매도스위칭입니다.
하락파동이 끝나고 상승나올때 되돌림 61.8%선에서 매도하고 100%선을 돌파하면 매수스위칭입니다.
kbjmhlove@naver.com 이메일로 답변부탁드립니다. 감사합니다.
#==========================================#
# 지 표 명 : 피보나치되돌림
# 작 성 자 : 수식지왕
# 블 로 그 : http://yahoosir.blog.me
#==========================================#
Input:length(30),파동선두께(0.5),수치표시(1);
Var:j(0),jj(0),최종고가(0),최종저가(0),최종변곡점(""),처리구분(""),
TL1(0);
Array:고[5,4](0),저[5,4](0); // 1:가격, 2:Index, 3:sDate, 4:sTime
#==========================================#
If Index == 0 Then
{
고[1,1] = H;
저[1,1] = L;
}
Condition1 = Highest(H,length) == H and 최종고가 <> H;
Condition2 = Lowest (L,length) == L and 최종저가 <> L;
처리구분 = "";
If Condition1 and Condition2 Then // 기간고점과 기간저점 동시 발생
{
If 최종변곡점 == "저점" Then 처리구분 = "고점처리"; // 저 - 고 순으로 처리
Else 처리구분 = "저점처리"; // 고 - 저 순으로 처리
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";
#==========================================#
If 처리구분 == "고점처리" Then
{
최종고가 = H; // 신규고점을 체크하기 위해 저장
If 최종변곡점 == "저점" Then
{
For j = 5 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = H;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); /// 상승파동
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,MAGENTA);
}
Else If 고[1,1] < H Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = H;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
}
최종변곡점 = "고점";
}
#==========================================#
If 처리구분 == "저점처리" Then
{
최종저가 = L;
If 최종변곡점 == "고점" then
{
For j = 5 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = L;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); /// 하락파동
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,CYAN);
}
Else If 저[1,1] > L then
{
저[1,1] = L;
저[1,3] = sDate;
저[1,4] = sTime;
저[1,2] = Index;
TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
}
최종변곡점 = "저점";
}
#==========================================#
Array: fr[7,4](0); // 1:비율, 2:값, 3:라인번호, 4:텍스트번호
If Index == 0 Then
{
fr[1,1] = 0;
fr[2,1] = 0.326;
fr[3,1] = 0.500;
fr[4,1] = 0.618;
fr[5,1] = 1.000;
fr[6,1] = 1.500;
fr[7,1] = 2.000;
}
If 최종변곡점[1] == "고점" and 최종변곡점 == "저점" Then // 상승파동 추세가 바뀔 때 피보나치 라인을 계산
{
for j = 1 to 7
{
//If fr[j,3] > 0 Then TL_Delete(fr[j,3]); // 하락파동에 대한 상승 기존 피보나치 라인은 지우고
fr[j,2] = 고[1,1] - ((고[1,1] - 저[2,1]) * fr[j,1]); // 하락 목표 피보나치 비율을 곱해서 계산
fr[j,3] = TL_New(저[2,3],저[2,4],fr[j,2],sDate,sTime,fr[j,2]); // 상승파에 대한 하락목표 라인을 생성
TL_SetColor(fr[j,3],LMAGENTA); // 하락 피보나치 목표 라인 색표현
If 수치표시 == 1 Then
{
If fr[j,4] > 0 Then Text_Delete(fr[j,4]); // 기존의 텍스트는 지우고 젤 뒤에것만 둔다
fr[j,4] = Text_New(저[2,3],저[2,4],fr[j,2]," (" + NumToStr(fr[j,1]*100,1) + "%) " + NumToStr(fr[j,2],2)); /// 피보나치 텍스트 생성
Text_SetStyle(fr[j,4], 1, 2); // 왼쪽,중앙
Text_SetColor(fr[j,4],LMAGENTA); /// 수치값 색표현
}
}
}
Else If 최종변곡점[1] == "저점" and 최종변곡점 == "고점" Then // 하락파동 추세가 바뀔 때 피보나치 라인 계산
{
for j = 1 to 7
{
// If fr[j,3] > 0 Then TL_Delete(fr[j,3]); // 상승파동에 대한 하락 기존 피보나치 라인은 지우고
fr[j,2] = 저[1,1] + ((고[2,1] - 저[1,1]) * fr[j,1]); // 상승목표 피보나치 비율을 곱해서 계산
fr[j,3] = TL_New(고[2,3],고[2,4],fr[j,2],sDate,sTime,fr[j,2]); // 상승목표 라인을 생성
TL_SetColor(fr[j,3],CYAN); // 피보나치 라인 색표현
If 수치표시 == 1 Then
{
If fr[j,4] > 0 Then Text_Delete(fr[j,4]); // 기존의 텍스트는 지우고 젤 뒤에것만둔다.
fr[j,4] = Text_New(고[2,3],고[2,4],fr[j,2]," (" + NumToStr(fr[j,1]*100,1) + "%) " + NumToStr(fr[j,2],2)); // 피보나치 비율을 곱해서 계산
Text_SetStyle(fr[j,4], 1, 2);
Text_SetColor(fr[j,4],CYAN);
}
}
}
//Else
//{
// for j = 1 to 7
// {
// TL_SetEnd(fr[j,3],sDate,sTime,fr[j,2]);
// }
//}
2017-09-18
731
글번호 112856
답변완료
순위정하는 수식이 형식이 맞나좀 봐주십시요
For tempi11 = 1 to 25
{
tempmax11 = -999;
tempmax12 = -999;
For tempi1 = 1 to 25
{
if ( tempmax11 < ivf[tempi1] ) then
{
tempmax11 = ivf[tempi1];
tempmax12 = ivfm[tempi1];
tempIndex1 = tempi1;
}
}
NTHVALUE1[tempi11] = tempmax12/tempmax11;
ivf[tempIndex1] = -999;
}
2017-09-18
178
글번호 112855