[過去ﾛｸﾞ] 高校数学の質問スレ Part410 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

50(3): [sage] 2021/02/17(水) 22:02:29.25 ID:/6KwdMZR(1/5) AA×
>>33


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
50: [sage] 2021/02/17(水) 22:02:29.25 ID:/6KwdMZR >>33 無思考の数値積分で出してみました。 f0 <- function(x) ifelse(x<=1,1,-1) f0=Vectorize(f0) f1 <- function(x) integrate(f0,0,x)$value ; f1=Vectorize(f1) f2 <- function(x) integrate(f1,0,x)$value ; f2=Vectorize(f2) f3 <- function(x) integrate(f2,0,x)$value ; f3=Vectorize(f3) # (1) fractions(f3(1)) fractions(f3(2)) # (2) fractions(integrate(f2,1,2)$value) # (3) fractions(integrate(function(x) f0(x)*f1(x),0,2)$value) > # (1) > fractions(f3(1)) [1] 1/6 > fractions(f3(2)) [1] 1 > # (2) > fractions(integrate(f2,1,2)$value) [1] 5/6 > # (3) > fractions(integrate(function(x) f0(x)*f1(x),0,2)$value) [1] 0 http://rio2016.5ch.net/test/read.cgi/math/1613212701/50
無思考の数値積分で出してみました

---

上下前次1-新書関写板覧索設栞歴

---

あと 952 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.032s