[過去ﾛｸﾞ] 臨床統計もおもしろいですよ、その2 (1002ﾚｽ)
上下前次1-新

---

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

---

902: 2020/02/01(土)22:05 ID:hIisy8jC(2/2) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
902: [sage] 2020/02/01(土) 22:05:31 ID:hIisy8jC H(n) = Σ[k=1,2,...,n] 1/k とする。H(n)を既約分数で表したときの分子の整数をf(n)と表す。 f <- function(n){ # Σ 1/kを既約分数表示する if(n==1){ cat(n, ':' ,1,'\n') invisible(1) }else{ GCD <- function(a,b){　 # ユークリッドの互除法 r = a%%b # a=bq+r ⇒ a%%b=b%%rで最大公約数表示 while(r!=0){a = b ; b = r ; r = a%%b} b } nn = 1:n # nn : 1 2 3 ... n nume=list() # 分子の容器となるlist length(nume)=n # を設定 Nume=0 library(gmp) for(i in nn) Nume = Nume + prod.bigz(nn[-i]) # nnからi番目の要素を除いて乗算して総和を分子に Deno=factorialZ(n) # 分母 gcd = GCD(Nume,Deno) # 約分するため最大公約数を計算 NUME=Nume/gcd DENO=Deno/gcd ratio=as.numeric(Nume/Deno) RE=list(NUME,DENO,ratio) cat(n, ':' ,as.character(NUME),'/',as.character(DENO),'\n') invisible(RE) }} http://egg.5ch.net/test/read.cgi/hosp/1540905566/902
とするを既約分数で表したときの分子の整数をと表す を既約分数表示する ユークリッドの互除法 で最大公約数表示 分子の容器となる を設定 から番目の要素を除いて乗算して総和を分子に 分母 約分するため最大公約数を計算

---

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

---

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

---

ぬこの手 ぬこTOP 0.027s