Option 逆推定プログラム（貸借対照表 → K, K1）修正版 Option 逆推定プログラム（貸借対照表 → K, K1） // --- 入力 --- var S = prompt("S を入力してください（資産価格推定値）"); var SX = prompt("SX を入力してください（自己資本）"); var O1 = prompt("O1 を入力してください"); var O2 = prompt("O2 を入力してください"); var O3 = prompt("O3 を入力してください"); var O4 = prompt("O4 を入力してください"); // --- 型変換 --- S = parseFloat(S); SX = parseFloat(SX); O1 = parseFloat(O1); O2 = parseFloat(O2); O3 = parseFloat(O3); O4 = parseFloat(O4); var res = document.getElementById("result"); // --- 入力チェック --- if ([S,SX,O1,O2,O3,O4].some(x => isNaN(x))) { res.innerHTML = "

入力が数値ではありません。もう一度正しい数値を入力してください。

"; } else if (Math.abs(S) < 1e-12 || Math.abs(SX) < 1e-12) { res.innerHTML = "

S または SX がゼロ近いため計算不能です。

"; } else { // --- K, K1 の逆算 --- var K = (1 + (O1 - O2)/S ) / 0.95; var K1 = (1 - (O3 - O4)/SX) / 0.95; // --- 借入金／貸付金の判定（どちらか一方のみ表示） --- var borrowing = Math.max(S - SX, 0); // 借入金（負債、貸方） var loanRecv = Math.max(SX - S, 0); // 貸付金（資産、借方） var assetsTotal = S + loanRecv; // 資産合計（貸付金が借方に入る） var creditTotal = SX + borrowing; // 貸方合計（純資産 + 借入金） // --- 入力値テーブル --- var inputTable = ""; inputTable += "

入力値一覧

"; inputTable += ""; inputTable += ""; inputTable += ""; inputTable += ""; inputTable += ""; inputTable += ""; inputTable += ""; inputTable += ""; inputTable += "

項目	値	補足
S	" + S.toFixed(6) + "	資産価格の推定値
SX	" + SX.toFixed(6) + "	自己資本（資本金等）
O1	" + O1.toFixed(6) + "	オプション感応度1
O2	" + O2.toFixed(6) + "	オプション感応度2
O3	" + O3.toFixed(6) + "	オプション感応度3
O4	" + O4.toFixed(6) + "	オプション感応度4

"; // --- 出力（K, K1） --- var outputTable = ""; outputTable += "

逆算結果

"; outputTable += ""; outputTable += ""; outputTable += ""; outputTable += ""; outputTable += "

項目	値
K	" + K.toFixed(6) + "
K1	" + K1.toFixed(6) + "

"; // --- 簡易貸借対照表（借方／貸方） --- (借入金 or 貸付金のいずれかのみ表示) var bs = ""; bs += "

貸借対照表（簡易・二分法）

"; bs += ""; bs += ""; bs += ""; bs += ""; bs += ""; // 1行目：主たる資産（借方） - 借入金は貸方に表示（青） bs += ""; bs += ""; bs += ""; if (borrowing > 0) { bs += ""; bs += ""; } else { bs += ""; } bs += ""; // 2行目：貸付金（借方、青）と純資産（貸方） bs += ""; if (loanRecv > 0) { bs += ""; bs += ""; } else { bs += ""; } bs += ""; bs += ""; bs += ""; // 合計行 bs += ""; bs += ""; bs += ""; bs += ""; bs += ""; bs += ""; bs += "

借方（資産）		貸方（負債・純資産）
主たる資産（市場推定）	" + S.toFixed(6) + "	借入金（貸方）	" + borrowing.toFixed(6) + "
貸付金（借方）	" + loanRecv.toFixed(6) + "			純資産（資本金等・貸方）	" + SX.toFixed(6) + "
資産合計	" + assetsTotal.toFixed(6) + "	負債・純資産合計	" + creditTotal.toFixed(6) + "

"; // 検算メッセージ bs += "

検算：資産合計＝負債・純資産合計 → " + (Math.abs(assetsTotal - creditTotal) < 1e-9 ? "一致" : "不一致") + "

"; // --- 注意（趣旨） --- var note = ""; note += "

"; note += "・本貸借対照表は、証券市場の取引を一般的な資産と比較することを目的とした「簡易表示」です。
"; note += "・したがって、一般的な貸借対照表の一定時点における資産構成の全てを保証するものではありません。参考目的でご利用ください。"; note += "

"; // --- 出力反映 --- res.innerHTML = inputTable + outputTable + bs + note; }

BONDSTOCKBALANCE