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

---

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

---

812: 2019/12/22(日)13:49 ID:D+p3chog(1/5) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
812: [sage] 2019/12/22(日) 13:49:45 ID:D+p3chog # 小数点付きの数numをN進法で表示する floor((1.2-1)*5) != floor(1) rm(list=ls()) decN <- function(num, N, kmin = 5){ # kmin：最小小数点後桁 int=floor(num) r=int%%N q=int%/%N while(q > 0){ r=append(q%%N,r) q=q%/%N } # rに整数のN進法表示を格納 x=num-floor(num) k=max(nchar(x)-2,kmin) # 同長もしくはkminの長さの小数表示 a=numeric(k) for(i in 1:k){ y=x*N a[i]=floor(y+2e-13) # n=1:9 ;trunc((1+1/n-1)*n) ;trunc((1+1/n-1)*n+5e-14)対応 x=y-a[i] # r . a[1] a[2] a[3] ... a[k] } b=list(integer=r,decimal=a,num=sum(c(int,a)*(1/N)^(0:k))) fig=c(0:9,letters)[1:N] if(N<=36){ # Nが36以下は数値として表示 cat(b$integer,'.',paste(fig[b$decimal+1],sep='',collapse=''),sep='') cat('\n') } else{ # Nが1１以上は整数部分と小数部分を数列で表示 print(b[1:2]) } invisible(b) } http://egg.5ch.net/test/read.cgi/hosp/1540905566/812
小数点付きの数を進法で表示する 最小小数点後桁 に整数の進法表示を格納 同長もしくはの長さの小数表示 対応 が以下は数値として表示 が１以上は整数部分と小数部分を数列で表示

---

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

---

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

---

ぬこの手 ぬこTOP 0.071s