커뮤니티
예스랭귀지 Q&A
답변완료
[공지] 예스랭귀지 AI 어시스턴트, '예스나 AI' 출시 및 무료 체험 안내
안녕하세요, 예스스탁 입니다.복잡한 수식 공부 없이 여러분의 아이디어를 말하면 시스템 트레이딩 언어 예스랭귀지로 작성해주는 서비스예스나 AI(YesNa AI)가 출시되었습니다.지금 예스나 AI를 직접 경험해 보실 수 있도록 20크레딧(질문권 20회)를 무료로 증정해 드리고 있습니다.바로 여러분의 아이디어를 코드로 변환해보세요.--------------------------------------------------🚀 YesNa AI 핵심 기능- 지표식/전략식/종목검색식 생성: 자연어로 요청하면 예스랭귀지 문법에 맞는 코드를 작성합니다.- 종목검색식 변환 지원: K증권의 종목 검색식을 예스랭귀지로 변환 지원합니다.- 컴파일 검증: 작성된 코드가 실행 가능한지 컴파일러를 통해 문법 검증을 거쳐 결과물을 제공합니다.상세한 서비스 개요 및 활용 방법은 [서비스 소개 페이지]에서 확인하실 수 있습니다.▶ 서비스 소개 페이지: 바로가기서비스 사용 유의사항 및 결제 환불정책은 [이용약관]을 참고 부탁드립니다.▶ 서비스 이용약관: 바로가기💬 이용 문의사용 중 문의사항은 [프로그램 사용법 Q&A] 게시판에서 [예스나 AI] 카테고리를 설정 후 문의해 주시면 상세히 안내해 드리겠습니다.--------------------------------------------------앞으로도 AI를 활용한 다양한 트레이딩 기능들을 지속적으로 선보일 예정입니다.많은 관심과 기대 부탁드립니다.
2026-02-27
2548
글번호 230811
답변완료
누적수식(옵션만기일 기준)
아래식은 data3 기준으로 선물만기일(3개월 단위) 이후 누적 수식입니다.
data3 기준으로 옵션만기일(1개월 단위) 이후 누적수식으로 변경하여 주십시요.
항상 고맙습니다.
**********************************************************************************
안녕하세요
예스스탁입니다.
선물만기일이후 누적으로 변경해 드립니다.
만기 다음날부터 현재까지의 일봉값 누적입니다.
input: 주식개인순매수금액(3000);
input: 선물외국인누적순매수수량(50000);
var : month(0,data3),nday(0,data3),week(0,data3);
var : X(False,data3),sum3(0,data3),Prev(0,data3),cond(False,data3);
month = data3(int(date/100)-int(date/10000)*100);
nday = data3(date - int(date/100)*100);
Week = data3(DayOfWeek(date));
if (month%3 == 0 and nday >= 8 and nday <= 14 and week == 4) then
X = true;
Else
X = False;
if X == False and data3(Bdate != Bdate[1]) Then
{
if X[1] == true Then
{
cond = true;
Prev = 0;
}
Else
{
if cond == true Then
Prev = prev + data3(CloseD(1));
}
}
if cond == true Then
{
sum3 = prev + data3(c);
if data2(c > lowd(0)+주식개인순매수금액) and sum3 > 선물외국인누적순매수수량 Then
Buy();
}
2024-08-01
778
글번호 181082
답변완료
수식문의 드립니다
안녕하세요
수고 많으십니다.
해당 수식에 포인트(점수) 를 각각 부여해서 총합이 원하는 점수에 진입 하면 검색이 되게끔 부탁 드리겠습니다.
전일대비 거래량비율
1% 발생시1점, 2% 발생시 2점, 3%발생시 3점 , ........( 무한대)
거래대금
1억발생시 1점 , 2억 발생시 2점 , 3억 발생시 3점 , .........(무한대)
전일 종가대비. 오늘봉이 상승 갭 발생시
상승갭0.1%~ 상승갭 3% (10점) 에 최고 점수를 부여 하고
3%~ 4% 구간은 3%가 넘어설때는 마이너스(-) 로 전환 되어서 상승갭이 4%가 발생하면 0점이되고 상승갭 4% 이후로는 0.1% 당 마이너스 2점을 부여 해서 5%의 상승갭이 발생 하면 -20점으로 부여
(예: 1프로 상승갭 발생시 3점부여
2프로. 상승갭 발생시 6점부여
3프로 상승갭 발생시. 최고점수 10 점 부여(max)
3.5프로 상승갭 발생시 5점부여
4프로 상승갭발생시 0점 부여
4.5 프로 상승갭 발생시 마이너스 10 프로부여
5프로. 상승갭 발생시. 마이너스. 20 프로 부여
5.5 상승갭 발생시 마이너스 30프로 부여, ...(무한대 )
시가대비
1% 상승시 5점 , 2% 상승시 10점, 3% 상승시 15점 , .......(무한대)
위 조건의 점수 총 합이 80점 이상이면 종목 검색이 되게끔 부탁드리겠습니다.
----------------------------------------------------------------------
2. 아래조건은 위의 조건에 추가해서 부탁드리겠습니다.
1봉전,또는 2봉전 대비 (0봉기준) 체결강도 변동율이 20% 이상이면 20점 (이하 및 이상은 더이
상의 점수는 가감 하지않습니다.) 예: 1봉전,2봉전 쳬결강도가 100프로 가정. 현제봉이 120 프로면. 20 프로 이상입니다.
20봉간 전봉대비 체결강도 변동율이 100% 이상이 2회 이상(20점) (이것또한 이상 이하
는 더이상의 점수는 가감하지않습니다)
20봉간 체결강도가 100% 이상이 2 회 이상 이면 20점부여 (이것또한 해당조건으로만한정. 가감없습니다)
If= 위조건 + 아래조건 점수 총합이 140점 이상이면 검색이 되게끔 부탁드리겠습니다.
---------------------------------------------------------------------------------
항상 감사 드리면서
주말 마무리 잘하시고
습한 날씨에 건강관리 잘하시고
항상 건강 하십시요
2024-07-01
883
글번호 181081
답변완료
종가기준 20일신고가
안녕하세요?수고 많으십니다 당일제외 종가기준 20일신고가 수식을 작성해보았는데 잘 안되고 있습니다 어디가 잘못일까요?
INPUT:PERIOD(20);
IF HIGHEST(C[1],20)==C[1] THEN
VAR1=C[1];
PLOT1(VAR1);//비츠로테크24.6.28일기준19일전종가 9500이맞는데34일전종가에서 가격이 하락하면 따라 내려와야는데 안내려옵니다.== C[1]대신에== H를 넣어봐도 안되구요 ㅋ
2024-06-30
1038
글번호 181080
답변완료
추세 당일
input : Period(250);
Var:j(0),T(0),tl(0),TL1(0),tx(0),txx(0) ,box(0),box1(0);
Var: date11(0),date12(0),time11(0),time12(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0);
Array: HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
var :tx98count(0),tx99count(0),l1(0),l2(0),H1(0),H2(0);
Plot1(value12,"value12",IFf(t==1,Red,Blue));
For j = 0 To 19
{
HiBar[j] = HiBar[j] + 1;
LoBar[j] = LoBar[j] + 1;
}
if crossup(c,highest(H,Period)[1]) Then
T = 1;
if CrossDown(c,Lowest(L,Period)[1]) Then
T = -1;
If T == -1 Then
{
If T[1] != -1 Then
{
For j = 18 DownTo 0
{
LoVal[j+1] = LoVal[j];
LoBar[j+1] = LoBar[j];
}
LoVal[0] = L;
LoBar[0] = 0;
date11 = date[HiBar[0]];
time11 = stime[HiBar[0]];
Value11 = HiVal[0];
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date21 = date[HiBar[0]];
time21 = stime[HiBar[0]];
date22 = date[0];
time22 = stime[0];
box = Box_New(date11,time11,Value11,date12,time12,Value12);
Text_SetSize(tx,25);
Text_SetColor(Tx,Red);
Text_SetStyle(tx,1,1);
Text_SetBold(tx,1);
if abs(value12[1]-value11[1]) < 0.5 Then
Text_Delete(tx);
tx = Text_New(sDate,stime,value12,NumToStr(value11-value12,2));
Text_SetColor(Tx,Blue);
Text_SetStyle(tx,1,0);
Text_SetSize(tx,25);
Text_SetBold(tx,1);
}
If LoVal[0] > L Then
{
LoVal[0] = L;
LoBar[0] = 0;
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date22 = date[0];
time22 = stime[0];
Box_SetEnd(box,date12,time12,Value12);
Text_SetString(tx,NumToStr(value11-value12,2));
Text_SetLocation(tx,sDate,sTime,value12);
}
if value12 > value11-0.7 Then
{
Box_SetColor(box,Cyan);
Box_SetFill(box,true,50);
}
else if value12 <= value11-0.7 and value12 > value11-0.9 Then
{
Box_SetColor(box,Yellow);
Box_SetFill(box,true,90);
}
else if value12 <= value11-0.9 and value12 > value11-1.3 Then
{
Box_SetColor(box,Lime);
Box_SetFill(box,true,60);
}
else if value12 <= value11-1.3 and value12 > value11-1.6 Then
{
Box_SetColor(box,Cyan);
Box_SetFill(box,true,40);
}
else if value12 <= value11-1.6 and value12 > value11-1.9 Then
{
Box_SetColor(box,Blue);
Box_SetFill(box,true,20);
}
else
{
Box_SetColor(box,Yellow);
Box_SetFill(box,true,60);
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
For j = 18 DownTo 0
{
HiVal[j+1] = HiVal[j];
HiBar[j+1] = HiBar[j];
}
HiVal[0] = H;
HiBar[0] = 0;
date11 = date[LoBar[0]];
time11 = stime[LoBar[0]];
Value11 = LoVal[0];
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
date31 = date[LoBar[0]];
time31 = stime[LoBar[0]];
date32 = date[0];
time32 = stime[0];
box = Box_New(date11,time11,Value11,date12,time12,Value12);
Text_SetSize(tx,25);
Text_SetColor(Tx,Blue);
Text_SetStyle(tx,1,0);
Text_SetBold(tx,1);
if abs(value12[1]-value11[1]) < 0.5 Then
Text_Delete(tx);
tx = Text_New(sDate,stime,value12,NumToStr(value12-value11,2));
Text_SetColor(Tx,Red);
Text_SetStyle(tx,1,1);
Text_SetSize(tx,25);
Text_SetBold(tx,1);
}
If HiVal[0] <H Then
{
HiVal[0] = H;
HiBar[0] = 0;
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
date32 = date[0];
time32 = stime[0];
Box_SetEnd(box,date12,time12,Value12);
Text_SetString(tx,NumToStr(value12-value11,2));
Text_SetLocation(tx,sDate,sTime,value12);
}
if Value12 > value11+1.1 Then
{
Box_SetColor(box,Pink);
Box_SetFill(box,true,60);
}
else if value12 >= value11+0.8 and value12 <= value11+1.1 Then
{
Box_SetColor(box,Magenta);
Box_SetFill(box,true,30);
}
Else
{
Box_SetColor(box,Orange);
Box_SetFill(box,true,50);
}
}
전일은 연관없게 무시하고, 당일의 시초부터만 모든 지표 시작. 감사합니다.
2024-06-30
743
글번호 181079
답변완료
전환추세 당일
Input : 전환(0.55);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분("");
Array:고[10,4](0),저[10,4](0);
var : box(0),TX(0),TX2(0),TL(0),TL1(0);
HH = H;
LL = L;
If Index == 0 or Bdate != Bdate[1] Then
{
고[1,1] = HH;
고[1,2] = 0;
고[1,3] = sDate;
고[1,4] = sTime;
저[1,1] = LL;
저[1,2] = 0;
저[1,3] = sDate;
저[1,4] = sTime;
최종꼭지점 = "";
처리구분 = "";
}
If Index > 0 and Bdate == Bdate[1] Then
{
hiBar = hiBar + 1;
loBar = loBar + 1;
}
If HH[hiBar] < HH Then hiBar = 0;
If LL[loBar] > LL Then loBar = 0;
Condition1 = 저[1,1]+전환 <= HH and hiBar == 0;
Condition2 = 고[1,1]-전환 >= LL and loBar == 0;
처리구분 = "";
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
{
If 최종꼭지점 == "저점" or 최종꼭지점 == "" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH[hiBar];
고[1,2] = Index - hiBar;
고[1,3] = sDate[hiBar];
고[1,4] = sTime[hiBar];
hiBar = -1;
loBar = -1;
TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
TL_SetSize(TL,1);
TL_SetColor(TL,RED);
TX = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1]-저[1,1],2)+" ");
Text_SetSize(tx,25);
Text_SetColor(tx,Red);
Text_SetStyle(tx,2,1);
Text_SetBold(tx,1);
box = Box_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
}
If 고[1,1] < HH[hiBar] Then
{
고[1,1] = HH[hiBar];
고[1,2] = Index - hiBar;
고[1,3] = sDate[hiBar];
고[1,4] = sTime[hiBar];
hiBar = -1;
loBar = -1;
TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]);
Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)+" ");
Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]);
Box_SetEnd(box,고[1,3],고[1,4],고[1,1]);
}
if 고[1,1] >= 저[1,1]+1.3 Then
{
Box_SetColor(box,Gray);
Box_SetFill(box,true,40);
}
else if 고[1,1] < 저[1,1]+1.3 and 고[1,1] >= 저[1,1]+0.8 Then
{
Box_SetColor(box,Magenta);
Box_SetFill(box,true,30);
}
else if 고[1,1] < 저[1,1]+0.8 and 고[1,1] >= 저[1,1]+0.7 Then
{
Box_SetColor(box,Gray);
Box_SetFill(box,true,60);
}
else if 고[1,1] < 저[1,1]+0.7 and 고[1,1] >= 저[1,1]+0.45 Then
{
Box_SetColor(box,Orange);
Box_SetFill(box,true,70);
}
else
{
Box_SetColor(box,Magenta);
Box_SetFill(box,true,50);
}
최종꼭지점 = "고점";
Plot1(고[1,1]);
NoPlot(2);
}
If 처리구분 == "저점처리" Then
{
If 최종꼭지점 == "고점" or 최종꼭지점 == "" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL[loBar];
저[1,2] = Index - loBar;
저[1,3] = sDate[loBar];
저[1,4] = sTime[loBar];
hiBar = -1;
loBar = -1;
TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
TL_SetSize(TL,1);
TL_SetColor(TL,Green);
TX = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(고[1,1]-저[1,1],2)+" ");
Text_SetSize(tx,25);
Text_SetColor(tx,Blue);
Text_SetStyle(tx,2,0);
Text_SetBold(tx,1);
box = Box_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
}
If 저[1,1] > LL[loBar] Then
{
저[1,1] = LL[loBar];
저[1,2] = Index - loBar;
저[1,3] = sDate[loBar];
저[1,4] = sTime[loBar];
hiBar = -1;
loBar = -1;
TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]);
Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)+" ");
Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]);
Box_SetEnd(box,저[1,3],저[1,4],저[1,1]);
}
if 저[1,1] > 고[1,1]-0.45 Then
{
Box_SetColor(box,Lime);
Box_SetFill(box,true,80);
}
else if 저[1,1] <= 고[1,1]-0.45 and 저[1,1] > 고[1,1]-0.6 Then
{
Box_SetColor(box,Cyan);
Box_SetFill(box,true,60);
}
else if 저[1,1] <= 고[1,1]-0.6 and 저[1,1] > 고[1,1]-0.9 Then
{
Box_SetColor(box,Yellow);
Box_SetFill(box,true,90);
}
else if 저[1,1] <= 고[1,1]-0.9 and 저[1,1] > 고[1,1]-1.3 Then
{
Box_SetColor(box,Lime);
Box_SetFill(box,true,70);
}
else if 저[1,1] <= 고[1,1]-1.3 and 저[1,1] > 고[1,1]-1.6 Then
{
Box_SetColor(box,Cyan);
Box_SetFill(box,true,60);
}
else if 저[1,1] <= 고[1,1]-1.6 and 저[1,1] > 고[1,1]-1.9 Then
{
Box_SetColor(box,Blue);
Box_SetFill(box,true,20);
}
else
{
Box_SetColor(box,Yellow);
Box_SetFill(box,true,60);
}
최종꼭지점 = "저점";
Plot2(저[1,1]);
NoPlot(1);
}
추세선이 발생한 시점의 고가가 기준이 되어야 하는데,첫봉의 고가가 고점의 기준이 됩니다.
상승추세선도 시점 최저가가 기준이 되어야 하는데, 당일 첫봉의 저가입니다.
첫봉이 기준이면 몇틱봉으로 조회하느냐에 따라 첫추세선의 수치가 다르게 나옵니다.
당일 첫추세선 기준점을, 전일은 무시하고 당일 첫봉이 아닌 당일 첫추세선 시점 최고가,최저가로 기준점을 수정 부탁드립니다.
2024-06-30
949
글번호 181078
답변완료
종목검색식 부탁드립니다.
키움 수식을 분봉에서 검색될 수 있도록 종목검색식 부탁드립니다.
A=Valuewhen(1, Dayclose()>Predayclose()*multiple, Dayhigh());
B=Valuewhen(1, Dayclose()>Predayclose()*multiple, Daylow());
D=A-((A-B)/m);
CrossUp(C, D) && Rsi(14)>50 && C>O
&& V>V(1)*배수
(지표변수) multiple: 0.9 / 배수: 0.5 / m: 2.7
2024-06-29
888
글번호 181077
답변완료
수식수정
Inputs : Period(20), Sence(1.5), CC_DN(Yellow);
Vars:
VLineUp(0),
VLineDn(0),
HHighest(0),
LLowest(0),
JustChanged(FALSE),
VLine(0), DBN(0),T(0);
Array:
Highs[35](0),
Lows[35](0),
RRange[35](0),
UpWave[1](FALSE),
DnWave[1](FALSE);
If STime == 180000 Then
DBN = 0;
DBN = DBN + 1;
Var1 = Period;
Var2 = Var1 - 1;
Var3 = Var1 - 2;
Var5 = Sence;
Var6 = H-L;
JustChanged = FALSE;
if CurrentBar <= Var2 then begin
Highs[CurrentBar] = Close;
Lows[CurrentBar] = Close;
RRange[CurrentBar] = (H-L) /2;
end;
if CurrentBar == Var1 then begin
if Highs[Var2] >= Highs[Var3] then begin
UpWave[1] = TRUE;
HHighest = Highs[Var2];
VLineUp = HHighest - (Var5 * MA(Var6,Var2));
#Plot1(VLineUp,"VLineUp");
end;
if Highs[Var2] < Highs[Var3] then begin
DnWave[1] = TRUE;
LLowest = Lows[Var2];
VLineDn = LLowest + (Var5 * MA(Var6,Var2));
#Plot2(VLineDn,"VLineDn");
end;
end;
if CurrentBar > Var1 then begin
if DnWave[1] and Close > VLineDn then begin
DnWave[1] = FALSE;
UpWave[1] = TRUE;
JustChanged = TRUE;
HHighest = Close;
LLowest = 0;
end;
if UpWave[1] and Close < VLineUp and JustChanged == FALSE then begin
UpWave[1] = FALSE;
DnWave[1] = TRUE;
JustChanged = TRUE;
LLowest = Close;
HHighest = 0;
end;
if JustChanged == FALSE then begin
if Close > HHighest then
HHighest = Close;
else if Close < LLowest then
LLowest = Close;
end;
VLineUp = HHighest - (Var5 * MA(Var6,Var2));
VLineDn = LLowest + (Var5 * MA(Var6,Var2));
if UpWave[1] then
T = 1;
else if DnWave[1] then
T = -1;
end;
Input : BBP(20), MultiD(2);
var : BBmd(0),BBup(0),BBdn(0);
BBmd = ma(C,Period);
BBup = BollBandUp(BBP,MultiD);
BBdn = BollBandDown(BBP,MultiD);
if CrossDown(C,BBup) and t == -1 Then
sell();
if crossup(C,BBdn) and t == 1 Then
buy();
안녕하세요
위식적용결과 sw2선 음봉에서 매수가 발생됨니다
검토좀해주세요
Sw2양선 매수.
음선에서 매도.
첨부 sw2선 자유게시판 2109번
2024-06-29
729
글번호 181076
답변완료
RSI 침체와 과열을 이용한 질문을 보충 하여 드립니다
안녕 하세요?
이전에 올렸던 질문이 서툴러 두버째종목 검색식에 대한 문의 다시 드립니다,
아래 수식은 RSi 침체구간을 사용해 진입 위치를 잡고 수식 입니다,
--------------------------------------------------
RSi(%기간%)침체
R = RSi(기간);
if(R<=40, Valuewhen(1, L < L(1), L) *0.97,
Valuewhen(1,CrossUp(R, 40) or CrossDown(R, 40), C))
매수라인
R = RSi(기간); 회색라인(진입라인)/15분
Valuewhen(1, CrossUp(R, 40) or CrossDown(R, 40), C)
--------------------------------------------------------
RSi(%기간%)과열, 지표 기간값 21
R = RSi(기간);
if(R>60, Valuewhen(1, H > H(1), H) *1.03,
Valuewhen(1,CrossUp(R, 60) or CrossDown(R, 60), C))
매도라인(일목균형표)
R = RSi(기간);
Valuewhen(1, CrossUp(R, 60) or CrossDown(R, 60), C)
위 수식을 예스 트레이더 수식검색식으로 변환 될수 있도록 부탁 드립니다.
저의 질문 내용이 선생님께 잘 전달 되기 바라며 저의 짧은 지식 안에서 질문을 드려 봅니다
파일이 참고가 될수 있기를 바라 봅니다
노고에 늘 감사 드립니다
2024-07-04
888
글번호 181075
답변완료
수정부탁드립니다.
안녕하세요
늘 도움주심에 감사드립니다.
아래의 식은 제가 일부 수정하여 사용하고 있는데 지표부분은 없애고 하단부근의 원으로
색상표시 되는 부분을 시스템으로 수정 부탁드립니다.
input : length(23);
input : len2(13);
input : showsignals(true);
input : highlighting(true);
var : upper(0),lower(0);
lower = lowest(L,length);
upper = highest(H,length);
plot1(upper, "Upper");
plot2(lower, "Lower");
var : up(0),down(0),sup(0),sdown(0);
var : k1(0),k2(0),k3(0),k4(0),i1(-1),i2(-1);
up=highest(high,length);
down=lowest(low,length);
sup=highest(high,len2);
sdown=lowest(low,len2);
if high >= up[1] Then
i1 = 0;
Else
{
if i1 >= 0 Then
i1 = i1+1;
}
if Low <= down[1] Then
i2 = 0;
Else
{
if i2 >= 0 Then
i2 = i2+1;
}
K1=iff(i1 <=i2, down , up);
K2=iff(i1 <= i2,sdown,sup);
K3=iff(close>K1,down,nan);
K4=iff(close<K1,up,nan);
plot3(K1,"Trend Line",red);
plot4(K2,"Exit Line",blue);
var : buySignal(False),sellSignal(False),buyExit(False),sellExit(False);
var : O1(-1),O2(-1),O3(-1),O4(-1);
var : E1(-1),E2(-1),E3(-1),E4(-1);
var : tx1(0),tx2(0),tx3(0),tx4(0);
var : tx5(0),tx6(0),tx7(0),tx8(0);
buySignal=high==upper[1] or CrossUp(high,upper[1]);
sellSignal = low==lower[1] or CrossUp(lower[1],low);
buyExit=low==sdown[1] or CrossUp(sdown[1],low);
sellExit = high==sup[1] or CrossUp(high,sup[1]);
if BuySignal == true Then
var1 = Index;
if sellSignal == true Then
var2 = Index;
if buyExit == true Then
var3 = Index;
if sellExit == true Then
var4 = Index;
O1= IFf(var1 > 0,Index-var1,-1);
O2= IFf(var2 > 0,Index-var2,-1);
O3= IFf(var3 > 0,Index-var3,-1);
O4= IFf(var4 > 0,Index-var4,-1);
if BuySignal[1] == true Then
var5 = Index;
if sellSignal[1] == true Then
var6 = Index;
if buyExit[1] == true Then
var7 = Index;
if sellExit[1] == true Then
var8 = Index;
E1= IFf(var5 > 0,Index-var5,-1);
E2= IFf(var6 > 0,Index-var6,-1);
E3= IFf(var7 > 0,Index-var7,-1);
E4= IFf(var8 > 0,Index-var8,-1);
if buySignal and O3<O1[1] Then
{
tx1 = Text_New(sDate,sTime,down,"●");
Text_SetColor(tx1,Red);
}
if buyExit and O1<O3[1] Then
{
tx5 = Text_New(sDate,sTime,up,"●");
Text_SetColor(tx5,Blue);
}
2024-06-29
699
글번호 181074