# loop-type: date-only
//==============================
require "TIlib"
require "Utility"
require "TrendCheck"
// ======================================
// 日経平均採用銘柄の急落を狙った逆張り戦略
// ======================================
// 【買い(エントリー)ルール】
//
// 日経平均採用銘柄の 終値が前日終値と比べて5.00%以上小さい
// ⇒上記を満たした銘柄をシグナル当日の終値 -5.00%の指値で買い付け
//
// 【売りルール】
//
// [利益確定を表す条件式]含み益が5.00%以上
// [期限切れを表す条件式]エントリーした日から7日以上経過
codes = CodeList
if ($code_num && $code_num != Length(codes))
Print("前回と異なる銘柄リストでは実行できません。")
Dummy
end
$code_num = Length(codes)
//グローバル変数を初期化
if (!$__INIT__)
$budgetIni = 3000000
$buyUnit = 500000 // 1回の購入資金 (50万円)
$MaxHoldDay = 5 // 最大保有日数
$shortSelling = 0 // 空売り戦略 Yes(1)/No(0)
$Interest = 1 // 無制限(0) / 単利(1) / 複利(2)
$reverse = 0 // 購入順序 昇順(0) / 降順(1)
$udcount = 0 // 騰落レシオ利用数
Init()
//------------------------------------------------
//------------------------------------------------
InitDone() // 騰落レシオ初期化
$__INIT__ = 1
end
def Main(i)
//==================================================
// 条件(買条件, 売条件共通部分)
//==================================================
//まだ上場していない銘柄は株価データがないためnullが返る
if (Index == null)
return
end
if ($order[(int)Code] == -1)
$order[(int)Code] = i
$hold[i] = 0
end
//==================================================
// 保有してない→購入
//==================================================
if ! ($hold[i])
if ! (Close && {-1}Close && Volume)
return
end
//==================================================
// 売買(買い)
//==================================================
// 日経平均採用銘柄の 終値が前日終値と比べて5.00%以上小さい
flag1 = Close <= {-1}Close * 0.95
if (flag1)
// シグナル当日の終値 -5.00%の指値で買い付け
$buyflag[i][0] = Close * 0.95
$buyflag[i][1] = 1
$buyflag[i][2] = 1
$buyCnt = $buyCnt + 1
end
//==================================================
// 保有している→売却
//==================================================
elsif ($hold[i])
if ($set[i] < 1)
$set[i] = 1
return
end
$set[i] = $set[i] + 1
//==================================================
// 売買(売り)
//==================================================
// 1) 利食い:含み益が5%以上
if (Close >= 1.05 * $buy[i])
PrintLog("利食い")
$sellflag[i] = 1
$set[i] = 0
// 2) 損切り:7日経過(営業日5日で近似)
elsif ($set[i] >= $MaxHoldDay)
$sellflag[i] = 1
$set[i] = 0
end
end
end
//==================================================
// 翌日指値チェック
//==================================================
def CheckHighLow2(t)
if ! ({1}High > t && t > {1}Low)
return 0
end
if (t > {1}Open)
return {1}Open
else
return t
end
end
//==================================================
// 買い(指値)
//==================================================
def Buying2(i)
if (HasPricedata({1}Open))
t = 0
if ($buyflag[i][0])
PrintLog($buyflag[i][0] + "円で購入予定" + _
" 始値(" + {1}Open + ")" + _
" 高値(" + {1}High + ")" + _
" 安値(" + {1}Low + ")")
t = CheckHighLow2($buyflag[i][0])
end
if (t)
BuyingLimitedPrice(i, 1, t)
end
end
end
//====================
// 買い処理
//====================
def SortBuy()
if ! (HasPricedata(Close))
return
end
$long = 0
$long = Num($buyUnit, Close)
codeset = $order[(int)Code]
Buying2(codeset)
end
//====================
// 売り処理
//====================
def Sell_(i)
if ($sellflag[i])
Selling(i)
$sellflag[i] = 0
$buyflag[i][2] = 0
end
// 使用した$buyflag 配列を初期化
if ($buyflag[i][0])
$buyflag[i][0] = 0
$buyflag[i][1] = 0
end
end
//====================
// 銘柄コードを変えながらMain関数,BuySell関数を実行
//====================
Print("-------------------------------------------------")
Print("日付 = "+ Year + "/" + Month + "/" + Day)
$buyCnt = 0 // 購入数初期化
i = -1
while (i + 1 < $code_num)
i = i + 1
{codes[i]}Main(i)
end
i = 0
if ($buyCnt)
sortList = SelectionSort($buyCnt, 0)
while i < $buyCnt
{sortList[i]}SortBuy()
i = i + 1
end
end
//----------------------------------------------
i = -1
while (i + 1 < $code_num)
i = i + 1
{codes[i]}Sell_(i)
end