昨日の介入で146円前半でもう1ロット拾えて( ・∀・)ｲｲ!!

ロットが複数になったので計算プログラムを作り直し。

# 証拠金維持率(Margin Level)の算出
ML=\(
Balance, # 残高
Bid, # Bid(介入後はBidの底値)
Ask, # c(エントリー価格)
Lot, # c(購入ロット数)
Swap, # c(スワップ)
Credit, # クレジット
Leverage=1000, # レバレッジ
Dollars_per_Lot=1e5, # 1ロット通貨数
verbose=FALSE){

Dollars=Dollars_per_Lot*Lot # 購入＄
Margin=sum(Ask*Dollars/Leverage) # 必要証拠金
Profit=sum((Bid-Ask)*Dollars)+sum(Swap) # 損益
Equity=Balance+Credit+Profit # 有効証拠金
FreeMargin=Equity-Margin # 余剰証拠金
MarginLevel=Equity/Margin*100 #　証拠金維持率
if(verbose)print(c('証拠金'=Margin,'損益'=Profit,'有効証拠金'=Equity,
'余剰証拠金'=FreeMargin,'証拠金維持率'=MarginLevel))
return(MarginLevel)
}