커뮤니티
지표
2023-01-03 09:38:14
863
글번호 165021
80166
수식부탁드립니다
[1]현재캔들 오른쪽여백에 시간표시 가능할까요
[2]2번수식도 (고점저점에 표시해주셔서감사합니다.)
오른쪽여백에 표시 부탁드립니다.
답변 1
예스스탁 예스스탁 답변
2023-01-03 15:51:07
안녕하세요
예스스탁입니다.
1
마지막봉의 시간값만 오른쪽에 표시되게 수정해 드립니다.
input : P(5);
var : S1(0),D1(0),vv(0),sTM(0),eTM(0);
Var : SSc(0),TSc(0),second(0);
var : HH(0),MM(0),SS(0),str(""),tx(0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = Bdate;
}
if D1 > 0 then
{
if sdate == D1 Then
sTM = TimeToMinutes(stime)-S1;
Else
sTM = TimeToMinutes(stime)+1440-S1;
if date == D1 Then
eTM = TimeToMinutes(time)-S1;
Else
eTM = TimeToMinutes(time)+1440-S1;
var1 = sTM*60;
var2 = FracPortion(stime/100)*100;
SSc = var1+var2;
value1 = eTM*60;
value2 = FracPortion(time/100)*100;
TSc = value1+value2;
Second = TSc-SSc;
HH = Floor(second/3600);
MM = Floor((second%3600)/60);
SS = Floor(second%60);
str = "";
if HH > 0 Then
{
if HH >= 10 Then
str = str + NumToStr(HH,0)+":";
Else
str = str + "0"+NumToStr(HH,0)+":";
}
Else
str = str + "00"+":";
if MM > 0 Then
{
if MM >= 10 Then
str = str + NumToStr(MM,0)+":";
Else
str = str + "0"+NumToStr(MM,0)+":";
}
Else
str = str + "00"+":";
if SS > 0 Then
{
if SS >= 10 Then
str = str + NumToStr(SS,0);
Else
Str = str + "0"+NumToStr(SS,0);
}
Else
str = str + "00";
Text_Delete(tx);
tx = Text_New(sDate,sTime,h," "+str);
Text_SetStyle(tx,0,1);
}
2
각 가격라인의 위치에 각각표시되게 작성해 드립니다.
input:length(10),글자크기(8);
Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0),TL1(0),
Text1(0),처리구분(""),t(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
{
T = 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);
}
TL1 = 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]-저점[1,1]),2)+NewLine+ NumToStr(고점[1,1],2));
Text_SetStyle(Text1, 2, 1);
Text_SetSize(text1,글자크기);
}
}
If 처리구분 == "저점처리" Then
{
T = -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);
}
TL1 = 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]-저점[1,1]),2)+NewLine+
NumToStr(저점[1,1],2));
Text_SetStyle(Text1, 2, 0);
Text_SetSize(text1,글자크기);
}
}
TL_SetSize(TL1,3);
TL_SetColor(TL1,Yellow);
Plot1(T);
var : text3(0),text4(0),text5(0),text6(0),text7(0),text8(0),text9(0);
Text_Delete(text2);
Text_Delete(text3);
Text_Delete(text4);
Text_Delete(text5);
Text_Delete(text6);
Text_Delete(text7);
Text_Delete(text8);
Text_Delete(text9);
if T == 1 Then
{
Text2 = Text_New(sDate[eBar],sTime[eBar],고점[1,1]-1.25," 고-1.25:"+NumToStr(고점[1,1]-1.25,2));
Text3 = Text_New(sDate[eBar],sTime[eBar],고점[1,1]-2.50," 고-2.50:"+NumToStr(고점[1,1]-2.50,2));
Text4 = Text_New(sDate[eBar],sTime[eBar],고점[1,1]-3.75," 고-3.75:"+NumToStr(고점[1,1]-3.75,2));
Text5 = Text_New(sDate[eBar],sTime[eBar],고점[1,1]-5.00," 고-5.00:"+NumToStr(고점[1,1]-5.00,2));
Text6 = Text_New(sDate[eBar],sTime[eBar],고점[1,1]-6.25," 고-6.25:"+NumToStr(고점[1,1]-6.25,2));
Text7 = Text_New(sDate[eBar],sTime[eBar],고점[1,1]-7.50," 고-7.50:"+NumToStr(고점[1,1]-7.50,2));
Text8 = Text_New(sDate[eBar],sTime[eBar],고점[1,1]-8.75," 고-8.75:"+NumToStr(고점[1,1]-8.75,2));
Text_SetStyle(Text2,0,2) ;
Text_SetStyle(Text3,0,2) ;
Text_SetStyle(Text4,0,2) ;
Text_SetStyle(Text5,0,2) ;
Text_SetStyle(Text6,0,2) ;
Text_SetStyle(Text7,0,2) ;
Text_SetStyle(Text8,0,2) ;
}
Else
{
Text2 = Text_New(sDate[eBar],sTime[eBar],저점[1,1]+8.75," 저+8.75:"+NumToStr(저점[1,1]+8.75,2));
Text3 = Text_New(sDate[eBar],sTime[eBar],저점[1,1]+7.50," 저+7.50:"+NumToStr(저점[1,1]+7.50,2));
Text4 = Text_New(sDate[eBar],sTime[eBar],저점[1,1]+6.25," 저+6.25:"+NumToStr(저점[1,1]+6.25,2));
Text5 = Text_New(sDate[eBar],sTime[eBar],저점[1,1]+5.00," 저+5.00:"+NumToStr(저점[1,1]+5.00,2));
Text6 = Text_New(sDate[eBar],sTime[eBar],저점[1,1]+3.75," 저+3.75:"+NumToStr(저점[1,1]+3.75,2));
Text7 = Text_New(sDate[eBar],sTime[eBar],저점[1,1]+2.50," 저+2.50:"+NumToStr(저점[1,1]+2.50,2));
Text8 = Text_New(sDate[eBar],sTime[eBar],저점[1,1]+1.25," 저+1.25:"+NumToStr(저점[1,1]+1.25,2));
Text_SetStyle(Text2,0,2) ;
Text_SetStyle(Text3,0,2) ;
Text_SetStyle(Text4,0,2) ;
Text_SetStyle(Text5,0,2) ;
Text_SetStyle(Text6,0,2) ;
Text_SetStyle(Text7,0,2) ;
Text_SetStyle(Text8,0,2) ;
}
Text_SetSize(text2,글자크기);
Text_SetSize(text3,글자크기);
Text_SetSize(text4,글자크기);
Text_SetSize(text5,글자크기);
Text_SetSize(text6,글자크기);
Text_SetSize(text7,글자크기);
Text_SetSize(text8,글자크기);
즐거운 하루되세요
> 호정0688 님이 쓴 글입니다.
> 제목 : 지표
> 80166
수식부탁드립니다
[1]현재캔들 오른쪽여백에 시간표시 가능할까요
[2]2번수식도 (고점저점에 표시해주셔서감사합니다.)
오른쪽여백에 표시 부탁드립니다.