커뮤니티
함수 추가 요청
2015-04-30 23:21:44
347
글번호 85616
안녕하세요?
아래의 식에다 함수를 추가요청드립니다.
조건은 전일 손실발생시 당일 거래를 하는 것입니다.
var : OH(0),OL(0),HL(0),CH(0),CL(0),CO(0);
var : maOH(0),maOL(0),maHL(0),maCH(0),maCL(0),maCO(0);
var : cnt(0),sumOH(0),sumOL(0),sumHL(0),sumCH(0),sumCL(0),sumCO(0);
OH = DayOpen-DayHigh;
OL = DayOpen-DayLow;
HL = DayHigh-DayLow;
CH = abs(dayhigh(1)-DayClose);
CL = abs(DayClose-DayLow(1));
CO = DayClose-dayopen(1);
sumOH = 0;
sumOL = 0;
sumHL = 0;
sumCH = 0;
sumCL = 0;
sumCO = 0;
for cnt = 0 to 9{
sumOH = sumOH + (dayopen(cnt)-dayhigh(cnt));
sumOL = sumOL + (DayOpen(cnt)-DayLow(cnt));
sumHL = sumHL + (DayHigh(cnt)-DayLow(cnt));
sumCH = sumCH + Abs(dayhigh(cnt+1)-DayClose(cnt));
sumCL = sumCL + Abs(DayClose(cnt)-DayLow(cnt+1));
sumCO = sumCO + (DayClose(cnt)-DayOpen(cnt+1));
}
maOH = sumOH/10;
maOL = sumOL/10;
maHL = sumHL/10;
maCH = sumCH/10;
maCL = sumCL/10;
maCO = sumCO/10;
var1 = ;
var2 = ;
var3 = ;
var4 = ;
var5 = ;
var6 = ;
var7 = ;
var8 = ;
var9 = ;
var10 = ;
var11 = ;
var12 = ;
var : entry(0);
if bdate != bdate[1] Then
Entry = 0;
if MarketPosition != 0 and MarketPosition != MarketPosition[1] Then
Entry = Entry+1;
if (stime >= 80000 or stime < 050000) then{
if MarketPosition == 0 and dayopen > var11 and entry < 1 Then
sell("s1",AtStop,var11);
}
if MarketPosition == -1 and IsEntryName("S1") == true Then{
ExitShort("SP1",atlimit,var12);
ExitShort("SL1",AtStop,var10);
}
if stime == 050000 or (stime > 050000 and stime[1] < 050000) Then{
ExitShort("Sx");
}
답변 1
예스스탁 예스스탁 답변
2015-05-04 08:25:27
안녕하세요
예스스탁입니다.
var : OH(0),OL(0),HL(0),CH(0),CL(0),CO(0);
var : maOH(0),maOL(0),maHL(0),maCH(0),maCL(0),maCO(0);
var : cnt(0),sumOH(0),sumOL(0),sumHL(0),sumCH(0),sumCL(0),sumCO(0);
var : entry(0),NP(0),NP1(0),NP11(0),EntryCond(false);
OH = DayOpen-DayHigh;
OL = DayOpen-DayLow;
HL = DayHigh-DayLow;
CH = abs(dayhigh(1)-DayClose);
CL = abs(DayClose-DayLow(1));
CO = DayClose-dayopen(1);
sumOH = 0;
sumOL = 0;
sumHL = 0;
sumCH = 0;
sumCL = 0;
sumCO = 0;
for cnt = 0 to 9{
sumOH = sumOH + (dayopen(cnt)-dayhigh(cnt));
sumOL = sumOL + (DayOpen(cnt)-DayLow(cnt));
sumHL = sumHL + (DayHigh(cnt)-DayLow(cnt));
sumCH = sumCH + Abs(dayhigh(cnt+1)-DayClose(cnt));
sumCL = sumCL + Abs(DayClose(cnt)-DayLow(cnt+1));
sumCO = sumCO + (DayClose(cnt)-DayOpen(cnt+1));
}
maOH = sumOH/10;
maOL = sumOL/10;
maHL = sumHL/10;
maCH = sumCH/10;
maCL = sumCL/10;
maCO = sumCO/10;
var1 = ;
var2 = ;
var3 = ;
var4 = ;
var5 = ;
var6 = ;
var7 = ;
var8 = ;
var9 = ;
var10 = ;
var11 = ;
var12 = ;
NP = NetProfit;
if bdate != bdate[1] Then{
Entry = 0;
NP1 = NP;
NP11 = NP1[1];
EntryCond = false;
if NP1-NP11 > 0 Then
EntryCond = true;
}
if MarketPosition != 0 and MarketPosition != MarketPosition[1] Then
Entry = Entry+1;
if (stime >= 80000 or stime < 050000) and EntryCond == false then{
if MarketPosition == 0 and dayopen > var11 and entry < 1 Then
sell("s1",AtStop,var11);
}
if MarketPosition == -1 and IsEntryName("S1") == true Then{
ExitShort("SP1",atlimit,var12);
ExitShort("SL1",AtStop,var10);
}
if stime == 050000 or (stime > 050000 and stime[1] < 050000) Then{
ExitShort("Sx");
}
즐거운 하루되세요
> 통큰베팅 님이 쓴 글입니다.
> 제목 : 함수 추가 요청
> 안녕하세요?
아래의 식에다 함수를 추가요청드립니다.
조건은 전일 손실발생시 당일 거래를 하는 것입니다.
var : OH(0),OL(0),HL(0),CH(0),CL(0),CO(0);
var : maOH(0),maOL(0),maHL(0),maCH(0),maCL(0),maCO(0);
var : cnt(0),sumOH(0),sumOL(0),sumHL(0),sumCH(0),sumCL(0),sumCO(0);
OH = DayOpen-DayHigh;
OL = DayOpen-DayLow;
HL = DayHigh-DayLow;
CH = abs(dayhigh(1)-DayClose);
CL = abs(DayClose-DayLow(1));
CO = DayClose-dayopen(1);
sumOH = 0;
sumOL = 0;
sumHL = 0;
sumCH = 0;
sumCL = 0;
sumCO = 0;
for cnt = 0 to 9{
sumOH = sumOH + (dayopen(cnt)-dayhigh(cnt));
sumOL = sumOL + (DayOpen(cnt)-DayLow(cnt));
sumHL = sumHL + (DayHigh(cnt)-DayLow(cnt));
sumCH = sumCH + Abs(dayhigh(cnt+1)-DayClose(cnt));
sumCL = sumCL + Abs(DayClose(cnt)-DayLow(cnt+1));
sumCO = sumCO + (DayClose(cnt)-DayOpen(cnt+1));
}
maOH = sumOH/10;
maOL = sumOL/10;
maHL = sumHL/10;
maCH = sumCH/10;
maCL = sumCL/10;
maCO = sumCO/10;
var1 = ;
var2 = ;
var3 = ;
var4 = ;
var5 = ;
var6 = ;
var7 = ;
var8 = ;
var9 = ;
var10 = ;
var11 = ;
var12 = ;
var : entry(0);
if bdate != bdate[1] Then
Entry = 0;
if MarketPosition != 0 and MarketPosition != MarketPosition[1] Then
Entry = Entry+1;
if (stime >= 80000 or stime < 050000) then{
if MarketPosition == 0 and dayopen > var11 and entry < 1 Then
sell("s1",AtStop,var11);
}
if MarketPosition == -1 and IsEntryName("S1") == true Then{
ExitShort("SP1",atlimit,var12);
ExitShort("SL1",AtStop,var10);
}
if stime == 050000 or (stime > 050000 and stime[1] < 050000) Then{
ExitShort("Sx");
}
이전글