답변완료
수식 수정 좀 부탁드립니다.
아래의 식에서 계속 검증 오류가 나는데 원인을 찾을 수 없어서 질문드립니다. 오류부분 수정 좀 부탁드립니다.
input : starttime(173000),Endtime(055000);
Inputs: Length(20), StdDev(2), Bars(2);
Input : Periods (20);
Input :dif1(0),dif2(30);
var : Slope(0);
Slope = LRS(C,Periods);
var: maxs(0),mins(0);
maxs=max(Slope,Slope[1]); #1봉전 slope 과 해당봉의 siope 중 큰거
mins=min(Slope,Slope[1]); #1봉전 slope 과 해당봉의 siope 중 작은 거
var : difs(0);
difs= maxs - mins
input : 손실포인트(30);
input : 목표수익(100);
input : 진입수량(1);
Var : BBTop(0),BBBot(0),BBMid(0),T(0);
var : Tcond(False),trade(False),Sarv(0),entry(0),BWidth(0);
BBMid = ma(C,Length);
BBTop = BollBandup(Length, StdDev);
BBBot = BollBanddown(Length, StdDev);
BWidth = ((BBTop - BBBot)/ BBMid)*100;
if Tcond == true and Trade == true Then
{
If MarketPosition <= 0 and C > BBTop and BBtop > L and C > O and difs >=dif1 and difs <=dif2 Then
{
Buy("b",OnClosE,DeF,진입수량);
ExitLong("bx1",AtStop,L);
}
#and HLE1 >=HLEnvelope and HLE2 <=HLEnvelope
If MarketPosition >= 0 and C < BBBot and BBBot < H and C < O and difs >=dif1 and difs <=dif2 Then
{
Sell("s",OnClosE,DeF,진입수량);
ExitShort("sx1",AtStop,H);
}
}
if MarketPosition == 1 Then
{
ExitLong("bx2",AtStop,L[BarsSinceEntry]);
}
if MarketPosition == -1 Then
{
ExitShort("sx2",AtStop,H[BarsSinceEntry]);
}
SetStopLoss(손실포인트,PointStop);
SetStopProfittarget(목표수익,PointStop);
2024-06-11
861
글번호 180501
시스템
답변완료
추세선 변경 수식 부탁합니다
아래 추세선 수식의 변곡점이 상승변곡점(최고점)은 1로 표시
변곡점이 하락변곡점(최저점)은 -1로 표시 하는
수식 부탁드립니다
========================================================================
input : period2(5),Period(35),선두께(2);
Var:상승색(Turquoise), 하락색(Turquoise);
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;
}
if ma(asks,period2)-ma(bids,period2) > 0 Then
T = 1;
if ma(asks,period2)-ma(bids,period2) < 0 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);
2024-06-11
700
글번호 180497
지표