답변완료
수식작성 부탁드립니다.
대신증권cybos언어로 구현된 것인데 예스랭귀지로 변환하고 싶습니다.
Input: len(3.2), len1(0.34)
If opend>closed(1) Then
Var1=(highd(1)+closed(1)+2*lowd(1))/2-lowd(1)
Var2=(highd(1)+closed(1)+2*lowd(1))/2-highd(1)
Elseif opend<closed(1) Then
Var1=(2*highd(1)+closed(1)+lowd(1))/2-lowd(1)
Var2=(2*highd(1)+closed(1)+lowd(1))/2-highd(1)
Else
Var1=(highd(1)+2*closed(1)+lowd(1))/2-lowd(1)
Var2=(highd(1)+2*closed(1)+lowd(1))/2-highd(1)
End If
Cond1= tdate=exitdate(1) And position(1)=1
Cond2= tdate=exitdate(1) And position(1)=-1
If ttime<1500 Then
If Cond1=False Then
If opend>var1 Then
Call buy("매수1",Atstop,Def,opend+(Var1-var2)*len1)
End If
If opend<var2 Then
Call buy("매수4",Atstop,Def,Var2)
End If
End If
If Cond2=False Then
If opend>var1 Then
Call sell("매도1",Atstop,Def,Var1)
End If
If opend<var2 Then
Call sell("매도4",Atstop,Def,opend-(Var1-var2)*len1)
End If
End If
End If
If position<>0 Then
Call exitlong("매수청산",Atstop,hhv(1,high,barnumsinceentry+1)-atr(20)*len)
Call exitshort("매도청산",Atstop,llv(1,low,barnumsinceentry+1)+atr(20)*len)
End If
2024-02-20
1057
글번호 176815
시스템
답변완료
수식수정부탁드립니다,
안녕하세요?
택스트가 최종 하나만 표시되도록 수식정정 부탁드립니다,,,
감사합니다
var : tx1(0),tx2(0),tx3(0),tx4(0),tx5(0);
var : tx6(0),tx7(0),tx8(0),tx9(0),tx10(0),tx11(0);
Text_Delete(tx1);
tx1 = Text_New(NextBarSdate,NextBarStime,Data1(HighD(1)),"자기전고:"+NumToStr(Data1(HighD(1)),2));
Text_SetStyle(tx1,0,2);
Text_Delete(tx2);
tx2 = Text_New(NextBarSdate,NextBarStime,Data1(lowD(1)),"자기전저:"+NumToStr(Data1(lowD(1)),2));
Text_SetStyle(tx2,0,2);
Text_Delete(tx3);
tx3 = Text_New(NextBarSdate,NextBarStime,Data2(HighD(1)),"상대전고:"+NumToStr(Data2(lowD(1)),2));
Text_SetStyle(tx3,0,2);
Text_Delete(tx4);
tx4 = Text_New(NextBarSdate,NextBarStime,Data2(lowD(1)),"상대전저:"+NumToStr(Data2(lowD(1)),2));
Text_SetStyle(tx4,0,2);
Text_Delete(tx5);
tx5 = Text_New(NextBarSdate,NextBarStime,Data1((highD(1)+lowD(1))/2),"전일중간:"+NumToStr(Data1((highD(1)+lowD(1))/2),2));
Text_SetStyle(tx5,0,2);
Text_Delete(tx6);
tx6 = Text_New(NextBarSdate,NextBarStime,Data1(highD(0)),"자기당고:"+NumToStr(Data1(highD(0)),2));
Text_SetStyle(tx6,0,2);
Text_Delete(tx7);
tx7 = Text_New(NextBarSdate,NextBarStime,Data1(lowD(0)),"자기당저:"+NumToStr(Data1(lowD(0)),2));
Text_SetStyle(tx7,0,2);
Text_Delete(tx8);
tx8 = Text_New(NextBarSdate,NextBarStime,Data2(highD(0)),"상대당고:"+NumToStr(Data2(highD(0)),2));
Text_SetStyle(tx8,0,2);
Text_Delete(tx9);
tx9 = Text_New(NextBarSdate,NextBarStime,Data2(LowD(0)),"상대당저:"+NumToStr(Data2(lowD(0)),2));
Text_SetStyle(tx9,0,2);
Text_Delete(tx10);
tx10 = Text_New(NextBarSdate,NextBarStime,Data1((HighD(0)+lowD(0))/2),"당일중간:"+NumToStr(Data1((HighD(0)+lowD(0))/2),2));
Text_SetStyle(tx10,0,2);
Text_Delete(tx11);
tx11 = Text_New(NextBarSdate,NextBarStime,Data2((HighD(0)+lowD(0))/2),"당일중간1:"+NumToStr(Data2((HighD(0)+lowD(0))/2),2));
Text_SetStyle(tx11,0,2);
// 전일고저가격
plot1(Data1(HighD(1)), "전자고");
plot2(Data1(LowD(1)), "전자저");
plot3(Data2(HighD(1)), "전상고");
plot4(Data2(LowD(1)), "전상저");
plot5(Data1((HighD(1)+lowD(1))/2), "중심");
// 당일가격
plot6(Data1(HighD(0)), "당자고");
plot7(Data1(LowD(0)), "당자저");
plot8(Data2(HighD(0)), "당상고");
plot9(Data2(LowD(0)), "당상저");
plot10(Data1((HighD(0)+lowD(0))/2), "당중");
plot11(Data2((highD(0)+lowD(0))/2), "당중");
2024-02-20
1156
글번호 176814
지표
답변완료
차트에 RSI(14) 65이상, 30미만 표시
자꾸 질의가 길어져 죄송합니다.
아래 수식으로 강조에 해봐도 첨부파일1(황금색은 65이상, 회색은 30미만)
과 같이 차트의 가격화면에 제대로 표시되지 않습니다.
예를들면 어제 2.20일 애니플러스 일봉의 RSI(14)는 77.06이었는데
색이 나오지 않았어요. 가능하다면 차트에 실제 넣어서 실증해보시면 어떨까요?
검토바랍니다.
=======================================================================
input : P(14);
var : R(0),Box(0);
R = RSI(P);
Condition1 = R >= 65;
Condition2 = R <= 30;
if Condition1 == true Then
{
if Condition1 != Condition1[1] Then
{
box = box_new(sDate,sTime,0,sDate,sTime,9999999);
Box_SetColor(Box,Gold);
Box_SetFill(Box,true);
Box_SetExtFill(box,true);//하단 지표영역까지 모두 표시
}
Else
Box_SetEnd(box,sDate,sTime,9999999);
}
if Condition2 == true Then
{
if Condition2 != Condition2[1] Then
{
box = box_new(sDate,sTime,0,sDate,sTime,9999999);
Box_SetColor(Box,Gray);
Box_SetFill(Box,true);
Box_SetExtFill(box,true);//하단 지표영역까지 모두 표시
}
Else
Box_SetEnd(box,sDate,sTime,9999999);
}
2024-02-20
1061
글번호 176811
강조
답변완료
문의드립니다
max( avg(C,short), avg(C,mid), avg(C,long)) <
min( avg(C,short), avg(C,mid), avg(C,long)) * (1+Percent/100) &&
HIGHEST(H, 4, 1) < C
and O < C
and ((C(1)*1.025 <= C) or (O*1.025 <= C))
and (C-O)*2.5 >= (H-C)
and V(1)*1.2 <= V
and avg(V, 5) >= 30000
and PreDayClose() >= 950
and Crossup(C,SAR(0.02, 0.2))
and CrossUp(h,BBandsUp(20, 2))
short 5
mid 20
long 60
percent 5
이 수식의 종목검색을 부탁드립니다
2024-02-20
1027
글번호 176810
종목검색