高校数学の質問スレ Part410at MATH

---

962:ﾖ利だな。 簡単に自作関数結果の検算に使えますね。 CurveLength <- function(f='log(1+cos(x))',from=0,to=pi/2){ Df <- eval(str2lang(paste("deriv(~ ",f,",","'x',func=TRUE)"))) f1 <- Vectorize(function(x) as.numeric(attributes(Df(x)))) integrate(function(x) sqrt(1+f1(x)^2), from, to, rel.tol = 1e-12)} まあ、数値解しかでないけど。 > CurveLength()$value [1] 1.762747

---

次ページ

続きを表示

1を表示

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch