답변완료
부탁드립니다.
1>
Plot1 부터 Plot5 까지 굵기10으로 만들 수 있게 색상도 변경할 수 있게 수식에 넣어 주세요
input : 기간(60),k(25);
var : HH(0),LL(0);
HH=highest(H,기간);
LL=Lowest(L,기간);
Plot1(HH,"상방돌파");
Plot2((HH-LL)*0.750+LL,"상빠른매매");
Plot3((HH-LL)*0.5+LL,"핵심선");
Plot4((HH-LL)*(K/100)+LL,"하빠른매매");
Plot1(LL,"하방돌파");
2>
마디가 검은 굵은선 10의 두께로 지정하고
마디가와 마디가 중간선 빼고 녹색 분홍색 선 지워 주세요
input : 간격(2.5);
var : cnt(0);
Array : TL1[100](0),TL2[100](0),TL3[100](0),TL4[100](0);
Array : TL5[100](0),TL6[100](0),TL7[100](0),TL8[100](0);
Array : TX1[100](0),TX2[100](0),TX3[100](0),TX4[100](0);
Array : TX5[100](0),TX6[100](0),TX7[100](0),TX8[100](0);
if Index == 1 or Bdate != Bdate[1] Then
{
var1 = (Floor(DayOpen/간격)*간격)-100;
For cnt = 0 to 99
{
TL_Delete(TL1[cnt]);
TL_Delete(TL2[cnt]);
TL_Delete(TL3[cnt]);
TL_Delete(TL4[cnt]);
TL_Delete(TL5[cnt]);
TL_Delete(TL6[cnt]);
TL_Delete(TL7[cnt]);
TL_Delete(TL8[cnt]);
value11 = var1+간격*cnt;
value12 = value11+(간격/8)*1;
value13 = value11+(간격/8)*2;
value14 = value11+(간격/8)*3;
value15 = value11+(간격/8)*4;
value16 = value11+(간격/8)*5;
value17 = value11+(간격/8)*6;
value18 = value11+(간격/8)*7;
TL1[cnt] = TL_New(sDate,sTime,value11,NextBarSdate,NextBarStime,Value11);
TL2[cnt] = TL_New(sDate,sTime,value12,NextBarSdate,NextBarStime,Value12);
TL3[cnt] = TL_New(sDate,sTime,value13,NextBarSdate,NextBarStime,Value13);
TL4[cnt] = TL_New(sDate,sTime,value14,NextBarSdate,NextBarStime,Value14);
TL5[cnt] = TL_New(sDate,sTime,value15,NextBarSdate,NextBarStime,Value15);
TL6[cnt] = TL_New(sDate,sTime,value16,NextBarSdate,NextBarStime,Value16);
TL7[cnt] = TL_New(sDate,sTime,value17,NextBarSdate,NextBarStime,Value17);
TL8[cnt] = TL_New(sDate,sTime,value18,NextBarSdate,NextBarStime,Value18);
TL_SetExtLeft(TL1[cnt],true);
TL_SetExtLeft(TL2[cnt],true);
TL_SetExtLeft(TL3[cnt],true);
TL_SetExtLeft(TL4[cnt],true);
TL_SetExtLeft(TL5[cnt],true);
TL_SetExtLeft(TL6[cnt],true);
TL_SetExtLeft(TL7[cnt],true);
TL_SetExtLeft(TL8[cnt],true);
TL_SetExtRight(TL1[cnt],true);
TL_SetExtRight(TL2[cnt],true);
TL_SetExtRight(TL3[cnt],true);
TL_SetExtRight(TL4[cnt],true);
TL_SetExtRight(TL5[cnt],true);
TL_SetExtRight(TL6[cnt],true);
TL_SetExtRight(TL7[cnt],true);
TL_SetExtRight(TL8[cnt],true);
TL_SetSize(TL1[cnt],6);
TL_SetSize(TL2[cnt],0);
TL_SetSize(TL3[cnt],0);
TL_SetSize(TL4[cnt],0);
TL_SetSize(TL5[cnt],0);
TL_SetSize(TL6[cnt],0);
TL_SetSize(TL7[cnt],0);
TL_SetSize(TL8[cnt],0);
TL_SetStyle(TL1[cnt],0);
TL_SetStyle(TL2[cnt],3);
TL_SetStyle(TL3[cnt],0);
TL_SetStyle(TL4[cnt],3);
TL_SetStyle(TL5[cnt],2);
TL_SetStyle(TL6[cnt],3);
TL_SetStyle(TL7[cnt],0);
TL_SetStyle(TL8[cnt],3);
TL_SetColor(TL1[cnt], rgb(0, 0, 0));
TL_SetColor(TL2[cnt],rgb(242, 135, 192));
TL_SetColor(TL3[cnt],rgb(155, 217, 157));
TL_SetColor(TL4[cnt],rgb(242, 135, 192));
TL_SetColor(TL5[cnt], rgb(0, 0, 0));
TL_SetColor(TL6[cnt],rgb(242, 135, 192));
TL_SetColor(TL7[cnt],rgb(155, 217, 157));
TL_SetColor(TL8[cnt],rgb(242, 135, 192));
Text_Delete(TX1[cnt]);
Text_Delete(TX2[cnt]);
Text_Delete(TX3[cnt]);
Text_Delete(TX4[cnt]);
Text_Delete(TX5[cnt]);
Text_Delete(TX6[cnt]);
Text_Delete(TX7[cnt]);
Text_Delete(TX8[cnt]);
TX1[cnt] = Text_New(NextBarSdate,NextBarStime,value11," "+NumToStr(value11,2));
TX2[cnt] = Text_New(NextBarSdate,NextBarStime,value12," "+NumToStr(value12,2));
TX3[cnt] = Text_New(NextBarSdate,NextBarStime,value13," "+NumToStr(value13,2));
TX4[cnt] = Text_New(NextBarSdate,NextBarStime,value14," "+NumToStr(value14,2));
TX5[cnt] = Text_New(NextBarSdate,NextBarStime,value15," "+NumToStr(value15,2));
TX6[cnt] = Text_New(NextBarSdate,NextBarStime,value16," "+NumToStr(value16,2));
TX7[cnt] = Text_New(NextBarSdate,NextBarStime,value17," "+NumToStr(value17,2));
TX8[cnt] = Text_New(NextBarSdate,NextBarStime,value18," "+NumToStr(value18,2));
Text_SetStyle(TX1[cnt],0,1);
Text_SetStyle(TX2[cnt],0,1);
Text_SetStyle(TX3[cnt],0,1);
Text_SetStyle(TX4[cnt],0,1);
Text_SetStyle(TX5[cnt],0,1);
Text_SetStyle(TX6[cnt],0,1);
Text_SetStyle(TX7[cnt],0,1);
Text_SetStyle(TX8[cnt],0,1);
Text_SetSize(TX1[cnt],12);
Text_SetSize(TX2[cnt],12);
Text_SetSize(TX3[cnt],12);
Text_SetSize(TX4[cnt],12);
Text_SetSize(TX5[cnt],12);
Text_SetSize(TX6[cnt],12);
Text_SetSize(TX7[cnt],12);
Text_SetSize(TX8[cnt],12);
Text_SetColor(TX1[cnt], rgb(0, 0, 0));
Text_SetColor(TX2[cnt], rgb(245, 102, 200));
Text_SetColor(TX3[cnt],rgb(1, 198, 8));
Text_SetColor(TX4[cnt], rgb(245, 102, 200));
Text_SetColor(TX5[cnt],rgb(0, 0, 0));
Text_SetColor(TX6[cnt], rgb(245, 102, 200));
Text_SetColor(TX7[cnt],rgb(1, 198, 8));
Text_SetColor(TX8[cnt], rgb(245, 102, 200));
}
}
Else
{
For cnt = 0 to 99
{
Text_SetLocation(TX1[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX1[cnt]));
Text_SetLocation(TX2[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX2[cnt]));
Text_SetLocation(TX3[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX3[cnt]));
Text_SetLocation(TX4[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX4[cnt]));
Text_SetLocation(TX5[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX5[cnt]));
Text_SetLocation(TX6[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX6[cnt]));
Text_SetLocation(TX7[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX7[cnt]));
Text_SetLocation(TX8[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX8[cnt]));
}
}
2025-07-17
204
글번호 192538
지표
답변완료
추세선의 높이 구하는 수식 부탁드립니다
추세선의 높이를 구하는 수식 부탁드립니다
상승추세는 빨강색
하락추세는 파랑색
=============================================
input : Period(35),선두께(2),기준(-10),p(5);
Var:상승색(Turquoise), 하락색(Turquoise),Vpower(0),mav(0);
Var:j(0),T(0);
Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),tl9(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0);
Plot1(0);
For j = 0 To 19
{
HiBar[j] = HiBar[j] + 1;
LoBar[j] = LoBar[j] + 1;
}
Vpower = upVol/(upVol+downVol)*100-50;
mav = ma(Vpower,p);
if 기준 < mav Then
T = 1;
if 기준 > mav 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];
TL_Delete(tl);
TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetColor(TL1,하락색);
date21 = date[HiBar[0]];
time21 = stime[HiBar[0]];
date22 = date[0];
time22 = stime[0];
for j = 0 to 6
{
fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]);
}
}
If LoVal[0] > L Then
{
LoVal[0] = L;
LoBar[0] = 0;
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
TL_SetEnd(TL1, date12,time12,Value12);
date22 = date[0];
time22 = stime[0];
TL_Delete(tl);
TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);
}
}
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];
TL_Delete(tl);
TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetColor(TL1,상승색);
date31 = date[LoBar[0]];
time31 = stime[LoBar[0]];
date32 = date[0];
time32 = stime[0];
for j = 0 to 5
{
fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]);
}
}
If HiVal[0] < H Then
{
HiVal[0] = H;
HiBar[0] = 0;
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
TL_SetEnd(TL1, date12,time12,Value12);
date32 = date[0];
time32 = stime[0];
TL_Delete(tl);
TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);
}
}
TL_SetSize(TL1,선두께);
TL_SetDrawMode(TL1,0);
2025-07-16
194
글번호 192532
지표