# Bid底値から必要な残高を算出
bid2balance=\(
bid, # Bidの底値
ask, # c(取得買値)
lot, # c(取得ロット)
swap, # スワップ
credit, # クレジット
loss_cut){ # 強制ロスカットの証拠金維持率(%) Loss Cut Margin Level
f=\(x) ML(Balance=x,Bid=bid,Ask=ask,Lot=lot,Swap=swap,Credit=credit) - loss_cut
uniroot(f,c(0,1e7))$root
}

# 残高の値から１ドル何円のBid底値まで耐えうるかを算出
balance2bid=\(
balance, # 残高
ask, # c(取得買値)
lot, # c(取得ロット)
swap, # c(スワップ)
credit, # クレジット
loss_cut=20){# 強制ロスカットの証拠金維持率(%)
g=\(x) ML(Balance=balance,Bid=x,Ask=ask,Lot=lot,Swap=swap,Credit=credit) - loss_cut
uniroot(g,c(50,360))$root
}