커뮤니티
문의 드립니다
2013-05-29 12:26:23
236
글번호 63736
늘 감사합니다.
답변 1
예스스탁 예스스탁 답변
2013-05-29 11:41:30
안녀하세요
예스스탁입니다.
1.
https://www.yesstock.com/YesTrader/YesLanguage/YesLanguage_help/3_9.htm
위링크에 가시면 설명이 있습니다.
CodeCategory는 차트의 종목이 선물인지 옵션인지, 코스피종목인지, 코스닥 종목인지등
차트 종목이 어떤 종목인지 알때 상요되는 함수입니다.
BasePrice는 해당 종목의 기준가입니다.
(기준가에 대해서는 krx홈페이지등에서 확인하시기 바랍니다)
BigPointValue는 파생상품(선물,옵션)에서 1포인트를 금액으로 환산한 값입니다.
2.
예 가능하지 않습니다.
수식은 계산에 필요한 봉갯수 이후로 값이 출력이 됩니다.
문의하신 내용은 최소 100봉이 필요하므로
100봉이전에는 값을 리턴하지 않습니다.
그러므로 1~99봉가지는 값을 함수로 받아볼수 없습니다.
3.
현재 식이 주식선무에는 수량이 계산되지 않게 되어 있어
추가했습니다.
1.매수
input : Imoney(10000000);
var : vol(0),diff(0),Xcnt(0);
#kospi
if CodeCategory == 1 Then{
if BasePrice < 50000 Then
vol = int(int(Imoney/C)/10)*10;
Else
vol = int(Imoney/C);
}
if CodeCategory == 2 or CodeCategory == 4 Then
vol = int(Imoney/C);
if CodeCategory == 6 Then
vol = int((Imoney)/(C*BigPointValue));
if MarketPosition == 0 and stime == 140000 Then
buy("b",OnClose,def,vol);
if MarketPosition == 1 Then{
if CurrentContracts < CurrentContracts[1] Then
Xcnt = Xcnt+1;
if stime == 140000 Then{
var1 = abs(Vol-CurrentContracts);
if vol > CurrentContracts Then
buy("bb",OnClose,def,var1);
if vol < CurrentContracts Then{
if Xcnt == 0 Then ExitLong("bx1",OnClose,def,"",var1,1);
if Xcnt == 1 Then ExitLong("bx2",OnClose,def,"",var1,1);
if Xcnt == 2 Then ExitLong("bx3",OnClose,def,"",var1,1);
if Xcnt == 3 Then ExitLong("bx4",OnClose,def,"",var1,1);
if Xcnt == 4 Then ExitLong("bx5",OnClose,def,"",var1,1);
if Xcnt == 5 Then ExitLong("bx6",OnClose,def,"",var1,1);
if Xcnt == 6 Then ExitLong("bx7",OnClose,def,"",var1,1);
if Xcnt == 7 Then ExitLong("bx8",OnClose,def,"",var1,1);
if Xcnt == 8 Then ExitLong("bx9",OnClose,def,"",var1,1);
if Xcnt == 9 Then ExitLong("bx10",OnClose,def,"",var1,1);
if Xcnt == 10 Then ExitLong("bx11",OnClose,def,"",var1,1);
if Xcnt == 11 Then ExitLong("bx12",OnClose,def,"",var1,1);
if Xcnt == 12 Then ExitLong("bx13",OnClose,def,"",var1,1);
if Xcnt == 13 Then ExitLong("bx14",OnClose,def,"",var1,1);
if Xcnt == 14 Then ExitLong("bx15",OnClose,def,"",var1,1);
if Xcnt == 15 Then ExitLong("bx16",OnClose,def,"",var1,1);
if Xcnt == 16 Then ExitLong("bx17",OnClose,def,"",var1,1);
if Xcnt == 17 Then ExitLong("bx18",OnClose,def,"",var1,1);
if Xcnt == 18 Then ExitLong("bx19",OnClose,def,"",var1,1);
if Xcnt == 19 Then ExitLong("bx20",OnClose,def,"",var1,1);
if Xcnt == 20 Then ExitLong("bx21",OnClose,def,"",var1,1);
if Xcnt == 21 Then ExitLong("bx22",OnClose,def,"",var1,1);
if Xcnt == 22 Then ExitLong("bx23",OnClose,def,"",var1,1);
if Xcnt == 23 Then ExitLong("bx24",OnClose,def,"",var1,1);
if Xcnt == 24 Then ExitLong("bx25",OnClose,def,"",var1,1);
if Xcnt == 25 Then ExitLong("bx26",OnClose,def,"",var1,1);
if Xcnt == 26 Then ExitLong("bx27",OnClose,def,"",var1,1);
if Xcnt == 27 Then ExitLong("bx28",OnClose,def,"",var1,1);
if Xcnt == 28 Then ExitLong("bx29",OnClose,def,"",var1,1);
if Xcnt == 29 Then ExitLong("bx30",OnClose,def,"",var1,1);
if Xcnt == 30 Then ExitLong("bx31",OnClose,def,"",var1,1);
if Xcnt == 31 Then ExitLong("bx32",OnClose,def,"",var1,1);
if Xcnt == 32 Then ExitLong("bx33",OnClose,def,"",var1,1);
if Xcnt == 33 Then ExitLong("bx34",OnClose,def,"",var1,1);
if Xcnt == 34 Then ExitLong("bx35",OnClose,def,"",var1,1);
if Xcnt == 35 Then ExitLong("bx36",OnClose,def,"",var1,1);
if Xcnt == 36 Then ExitLong("bx37",OnClose,def,"",var1,1);
if Xcnt == 37 Then ExitLong("bx38",OnClose,def,"",var1,1);
if Xcnt == 38 Then ExitLong("bx39",OnClose,def,"",var1,1);
if Xcnt == 39 Then ExitLong("bx40",OnClose,def,"",var1,1);
if Xcnt == 40 Then ExitLong("bx41",OnClose,def,"",var1,1);
if Xcnt == 41 Then ExitLong("bx42",OnClose,def,"",var1,1);
if Xcnt == 42 Then ExitLong("bx43",OnClose,def,"",var1,1);
if Xcnt == 43 Then ExitLong("bx44",OnClose,def,"",var1,1);
if Xcnt == 44 Then ExitLong("bx45",OnClose,def,"",var1,1);
if Xcnt == 45 Then ExitLong("bx46",OnClose,def,"",var1,1);
if Xcnt == 46 Then ExitLong("bx47",OnClose,def,"",var1,1);
if Xcnt == 47 Then ExitLong("bx48",OnClose,def,"",var1,1);
if Xcnt == 48 Then ExitLong("bx49",OnClose,def,"",var1,1);
if Xcnt == 49 Then ExitLong("bx50",OnClose,def,"",var1,1);
if Xcnt == 50 Then ExitLong("bx51",OnClose,def,"",var1,1);
if Xcnt == 51 Then ExitLong("bx52",OnClose,def,"",var1,1);
if Xcnt == 52 Then ExitLong("bx53",OnClose,def,"",var1,1);
if Xcnt == 53 Then ExitLong("bx54",OnClose,def,"",var1,1);
if Xcnt == 54 Then ExitLong("bx55",OnClose,def,"",var1,1);
if Xcnt == 55 Then ExitLong("bx56",OnClose,def,"",var1,1);
if Xcnt == 56 Then ExitLong("bx57",OnClose,def,"",var1,1);
if Xcnt == 57 Then ExitLong("bx58",OnClose,def,"",var1,1);
if Xcnt == 58 Then ExitLong("bx59",OnClose,def,"",var1,1);
if Xcnt == 60 Then ExitLong("bx60",OnClose,def,"",var1,1);
if Xcnt == 60 Then ExitLong("bx61",OnClose,def,"",var1,1);
if Xcnt == 61 Then ExitLong("bx62",OnClose,def,"",var1,1);
if Xcnt == 62 Then ExitLong("bx63",OnClose,def,"",var1,1);
if Xcnt == 63 Then ExitLong("bx64",OnClose,def,"",var1,1);
if Xcnt == 64 Then ExitLong("bx65",OnClose,def,"",var1,1);
if Xcnt == 65 Then ExitLong("bx66",OnClose,def,"",var1,1);
if Xcnt == 66 Then ExitLong("bx67",OnClose,def,"",var1,1);
if Xcnt == 67 Then ExitLong("bx68",OnClose,def,"",var1,1);
if Xcnt == 68 Then ExitLong("bx69",OnClose,def,"",var1,1);
if Xcnt == 69 Then ExitLong("bx70",OnClose,def,"",var1,1);
if Xcnt == 70 Then ExitLong("bx71",OnClose,def,"",var1,1);
if Xcnt == 71 Then ExitLong("bx72",OnClose,def,"",var1,1);
if Xcnt == 72 Then ExitLong("bx73",OnClose,def,"",var1,1);
if Xcnt == 73 Then ExitLong("bx74",OnClose,def,"",var1,1);
if Xcnt == 74 Then ExitLong("bx75",OnClose,def,"",var1,1);
if Xcnt == 75 Then ExitLong("bx76",OnClose,def,"",var1,1);
if Xcnt == 76 Then ExitLong("bx77",OnClose,def,"",var1,1);
if Xcnt == 77 Then ExitLong("bx78",OnClose,def,"",var1,1);
if Xcnt == 78 Then ExitLong("bx79",OnClose,def,"",var1,1);
if Xcnt == 79 Then ExitLong("bx80",OnClose,def,"",var1,1);
if Xcnt == 80 Then ExitLong("bx81",OnClose,def,"",var1,1);
if Xcnt == 81 Then ExitLong("bx82",OnClose,def,"",var1,1);
if Xcnt == 82 Then ExitLong("bx83",OnClose,def,"",var1,1);
if Xcnt == 83 Then ExitLong("bx84",OnClose,def,"",var1,1);
if Xcnt == 84 Then ExitLong("bx85",OnClose,def,"",var1,1);
if Xcnt == 85 Then ExitLong("bx86",OnClose,def,"",var1,1);
if Xcnt == 86 Then ExitLong("bx87",OnClose,def,"",var1,1);
if Xcnt == 87 Then ExitLong("bx88",OnClose,def,"",var1,1);
if Xcnt == 88 Then ExitLong("bx89",OnClose,def,"",var1,1);
if Xcnt == 89 Then ExitLong("bx90",OnClose,def,"",var1,1);
if Xcnt == 90 Then ExitLong("bx91",OnClose,def,"",var1,1);
if Xcnt == 91 Then ExitLong("bx92",OnClose,def,"",var1,1);
if Xcnt == 92 Then ExitLong("bx93",OnClose,def,"",var1,1);
if Xcnt == 93 Then ExitLong("bx94",OnClose,def,"",var1,1);
if Xcnt == 94 Then ExitLong("bx95",OnClose,def,"",var1,1);
if Xcnt == 95 Then ExitLong("bx96",OnClose,def,"",var1,1);
if Xcnt == 96 Then ExitLong("bx97",OnClose,def,"",var1,1);
if Xcnt == 97 Then ExitLong("bx98",OnClose,def,"",var1,1);
if Xcnt == 98 Then ExitLong("bx99",OnClose,def,"",var1,1);
if Xcnt == 99 Then ExitLong("bx100",OnClose,def,"",var1,1);
}
}
}
Else
Xcnt = 0;
2. 매도
input : Imoney(10000000);
var : vol(0),diff(0),Xcnt(0);
#kospi
if CodeCategory == 1 Then{
if BasePrice < 50000 Then
vol = int(int(Imoney/C)/10)*10;
Else
vol = int(Imoney/C);
}
if CodeCategory == 2 or CodeCategory == 4 Then
vol = int(Imoney/C);
if CodeCategory == 6 Then
vol = int((Imoney)/(C*BigPointValue));
if MarketPosition == 0 and stime == 140000 Then
sell("s",OnClose,def,vol);
if MarketPosition == -1 Then{
if CurrentContracts < CurrentContracts[1] Then
Xcnt = Xcnt+1;
if stime == 140000 Then{
var1 = abs(Vol-CurrentContracts);
if vol > CurrentContracts Then
sell("ss",OnClose,def,var1);
if vol < CurrentContracts Then{
if Xcnt == 0 Then ExitShort("sx1",OnClose,def,"",var1,1);
if Xcnt == 1 Then ExitShort("sx2",OnClose,def,"",var1,1);
if Xcnt == 2 Then ExitShort("sx3",OnClose,def,"",var1,1);
if Xcnt == 3 Then ExitShort("sx4",OnClose,def,"",var1,1);
if Xcnt == 4 Then ExitShort("sx5",OnClose,def,"",var1,1);
if Xcnt == 5 Then ExitShort("sx6",OnClose,def,"",var1,1);
if Xcnt == 6 Then ExitShort("sx7",OnClose,def,"",var1,1);
if Xcnt == 7 Then ExitShort("sx8",OnClose,def,"",var1,1);
if Xcnt == 8 Then ExitShort("sx9",OnClose,def,"",var1,1);
if Xcnt == 9 Then ExitShort("sx10",OnClose,def,"",var1,1);
if Xcnt == 10 Then ExitShort("sx11",OnClose,def,"",var1,1);
if Xcnt == 11 Then ExitShort("sx12",OnClose,def,"",var1,1);
if Xcnt == 12 Then ExitShort("sx13",OnClose,def,"",var1,1);
if Xcnt == 13 Then ExitShort("sx14",OnClose,def,"",var1,1);
if Xcnt == 14 Then ExitShort("sx15",OnClose,def,"",var1,1);
if Xcnt == 15 Then ExitShort("sx16",OnClose,def,"",var1,1);
if Xcnt == 16 Then ExitShort("sx17",OnClose,def,"",var1,1);
if Xcnt == 17 Then ExitShort("sx18",OnClose,def,"",var1,1);
if Xcnt == 18 Then ExitShort("sx19",OnClose,def,"",var1,1);
if Xcnt == 19 Then ExitShort("sx20",OnClose,def,"",var1,1);
if Xcnt == 20 Then ExitShort("sx21",OnClose,def,"",var1,1);
if Xcnt == 21 Then ExitShort("sx22",OnClose,def,"",var1,1);
if Xcnt == 22 Then ExitShort("sx23",OnClose,def,"",var1,1);
if Xcnt == 23 Then ExitShort("sx24",OnClose,def,"",var1,1);
if Xcnt == 24 Then ExitShort("sx25",OnClose,def,"",var1,1);
if Xcnt == 25 Then ExitShort("sx26",OnClose,def,"",var1,1);
if Xcnt == 26 Then ExitShort("sx27",OnClose,def,"",var1,1);
if Xcnt == 27 Then ExitShort("sx28",OnClose,def,"",var1,1);
if Xcnt == 28 Then ExitShort("sx29",OnClose,def,"",var1,1);
if Xcnt == 29 Then ExitShort("sx30",OnClose,def,"",var1,1);
if Xcnt == 30 Then ExitShort("sx31",OnClose,def,"",var1,1);
if Xcnt == 31 Then ExitShort("sx32",OnClose,def,"",var1,1);
if Xcnt == 32 Then ExitShort("sx33",OnClose,def,"",var1,1);
if Xcnt == 33 Then ExitShort("sx34",OnClose,def,"",var1,1);
if Xcnt == 34 Then ExitShort("sx35",OnClose,def,"",var1,1);
if Xcnt == 35 Then ExitShort("sx36",OnClose,def,"",var1,1);
if Xcnt == 36 Then ExitShort("sx37",OnClose,def,"",var1,1);
if Xcnt == 37 Then ExitShort("sx38",OnClose,def,"",var1,1);
if Xcnt == 38 Then ExitShort("sx39",OnClose,def,"",var1,1);
if Xcnt == 39 Then ExitShort("sx40",OnClose,def,"",var1,1);
if Xcnt == 30 Then ExitShort("sx41",OnClose,def,"",var1,1);
if Xcnt == 41 Then ExitShort("sx42",OnClose,def,"",var1,1);
if Xcnt == 42 Then ExitShort("sx43",OnClose,def,"",var1,1);
if Xcnt == 43 Then ExitShort("sx44",OnClose,def,"",var1,1);
if Xcnt == 44 Then ExitShort("sx45",OnClose,def,"",var1,1);
if Xcnt == 45 Then ExitShort("sx46",OnClose,def,"",var1,1);
if Xcnt == 46 Then ExitShort("sx47",OnClose,def,"",var1,1);
if Xcnt == 47 Then ExitShort("sx48",OnClose,def,"",var1,1);
if Xcnt == 48 Then ExitShort("sx49",OnClose,def,"",var1,1);
if Xcnt == 49 Then ExitShort("sx50",OnClose,def,"",var1,1);
if Xcnt == 50 Then ExitShort("sx51",OnClose,def,"",var1,1);
if Xcnt == 51 Then ExitShort("sx52",OnClose,def,"",var1,1);
if Xcnt == 52 Then ExitShort("sx53",OnClose,def,"",var1,1);
if Xcnt == 53 Then ExitShort("sx54",OnClose,def,"",var1,1);
if Xcnt == 54 Then ExitShort("sx55",OnClose,def,"",var1,1);
if Xcnt == 55 Then ExitShort("sx56",OnClose,def,"",var1,1);
if Xcnt == 56 Then ExitShort("sx57",OnClose,def,"",var1,1);
if Xcnt == 57 Then ExitShort("sx58",OnClose,def,"",var1,1);
if Xcnt == 58 Then ExitShort("sx59",OnClose,def,"",var1,1);
if Xcnt == 59 Then ExitShort("sx60",OnClose,def,"",var1,1);
if Xcnt == 60 Then ExitShort("sx61",OnClose,def,"",var1,1);
if Xcnt == 61 Then ExitShort("sx62",OnClose,def,"",var1,1);
if Xcnt == 62 Then ExitShort("sx63",OnClose,def,"",var1,1);
if Xcnt == 63 Then ExitShort("sx64",OnClose,def,"",var1,1);
if Xcnt == 64 Then ExitShort("sx65",OnClose,def,"",var1,1);
if Xcnt == 65 Then ExitShort("sx66",OnClose,def,"",var1,1);
if Xcnt == 66 Then ExitShort("sx67",OnClose,def,"",var1,1);
if Xcnt == 67 Then ExitShort("sx68",OnClose,def,"",var1,1);
if Xcnt == 68 Then ExitShort("sx69",OnClose,def,"",var1,1);
if Xcnt == 69 Then ExitShort("sx70",OnClose,def,"",var1,1);
if Xcnt == 60 Then ExitShort("sx71",OnClose,def,"",var1,1);
if Xcnt == 71 Then ExitShort("sx72",OnClose,def,"",var1,1);
if Xcnt == 72 Then ExitShort("sx73",OnClose,def,"",var1,1);
if Xcnt == 73 Then ExitShort("sx74",OnClose,def,"",var1,1);
if Xcnt == 74 Then ExitShort("sx75",OnClose,def,"",var1,1);
if Xcnt == 75 Then ExitShort("sx76",OnClose,def,"",var1,1);
if Xcnt == 76 Then ExitShort("sx77",OnClose,def,"",var1,1);
if Xcnt == 77 Then ExitShort("sx78",OnClose,def,"",var1,1);
if Xcnt == 78 Then ExitShort("sx79",OnClose,def,"",var1,1);
if Xcnt == 79 Then ExitShort("sx80",OnClose,def,"",var1,1);
if Xcnt == 80 Then ExitShort("sx81",OnClose,def,"",var1,1);
if Xcnt == 81 Then ExitShort("sx82",OnClose,def,"",var1,1);
if Xcnt == 82 Then ExitShort("sx83",OnClose,def,"",var1,1);
if Xcnt == 83 Then ExitShort("sx84",OnClose,def,"",var1,1);
if Xcnt == 84 Then ExitShort("sx85",OnClose,def,"",var1,1);
if Xcnt == 85 Then ExitShort("sx86",OnClose,def,"",var1,1);
if Xcnt == 86 Then ExitShort("sx87",OnClose,def,"",var1,1);
if Xcnt == 87 Then ExitShort("sx88",OnClose,def,"",var1,1);
if Xcnt == 88 Then ExitShort("sx89",OnClose,def,"",var1,1);
if Xcnt == 89 Then ExitShort("sx90",OnClose,def,"",var1,1);
if Xcnt == 90 Then ExitShort("sx91",OnClose,def,"",var1,1);
if Xcnt == 91 Then ExitShort("sx92",OnClose,def,"",var1,1);
if Xcnt == 92 Then ExitShort("sx93",OnClose,def,"",var1,1);
if Xcnt == 93 Then ExitShort("sx94",OnClose,def,"",var1,1);
if Xcnt == 94 Then ExitShort("sx95",OnClose,def,"",var1,1);
if Xcnt == 95 Then ExitShort("sx96",OnClose,def,"",var1,1);
if Xcnt == 96 Then ExitShort("sx97",OnClose,def,"",var1,1);
if Xcnt == 97 Then ExitShort("sx98",OnClose,def,"",var1,1);
if Xcnt == 98 Then ExitShort("sx99",OnClose,def,"",var1,1);
if Xcnt == 99 Then ExitShort("sx100",OnClose,def,"",var1,1);
}
}
}
즐거운 하루되세요
> 에구머니 님이 쓴 글입니다.
> 제목 : 문의 드립니다
> 늘 감사합니다.