高校数学の質問スレ Part410at MATH

---

867:(a+b)/2 n=(a-b)/2 " d=divisors(72) e=cbind(d,72/d) f <- function(x){ a=x[1];b=x[2] c(m=(a+b)/2,n=(a-b)/2) } (apply(e,1,f)) > (apply(e,1,f)) [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] m.d 36.5 19 13.5 11 9 8.5 8.5 9 11 13.5 19 36.5 n.d -35.5 -17 -10.5 -7 -3 -0.5 0.5 3 7 10.5 17 35.5 n.dが整数なのを選ぶと ±3 ±7 ±17 # 検算 sqrt(c(3,7,17)^2+72) sqrt(c(-3,-7,-17)^2+72)

---

次ページ

続きを表示

1を表示

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch