臨床統計もおもしろいですよ、その１ [無断転載禁止]©2ch.net

[過去ﾛｸﾞ] 臨床統計もおもしろいですよ、その１ [無断転載禁止]©2ch.net (747ﾚｽ)
上下前次 1-新

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

689: 2018/09/13(木)08:15 ID:ha3KPNlb(2/4) AAS
p=c(9,9,9,9,9,5)/50
n=length(p)
seg=cumsum(p)
p
seg
x=runif(1)
x
x > seg
k=numeric(n)
k | (x > seg)

690: 2018/09/13(木)08:35 ID:ha3KPNlb(3/4) AAS
p=c(9,9,9,9,9,5)/50
n=length(p)
seg=cumsum(p)
count=0
k=numeric(n)
while(k<2^n-1){
x=runif(1)
k | (x > seg)
k=k | (x > seg)
count=count+1
省2

691: 2018/09/13(木)11:52 ID:vlGxfg9U(1) AAS
sim1 <- function(p){
n=length(p)
sep=cumsum(p)
y=NULL
count=0
while(length(y) < n){
z=sample(1:n,1,prob=p)
if(!any(z==y)) y=append(y,z) # append new item only
count=count+1
}
省17

692: 2018/09/13(木)19:14 ID:ha3KPNlb(4/4) AAS
qsort [] = []
qsort (n:xs) = qsort lt ++ [n] ++ qsort gteq
where
lt = [x | x <- xs, x < n]
gteq = [x | x <- xs, x >= n]

main = do print $ qsort [4, 6, 9, 8, 3, 5, 1, 7, 2]

693: 2018/09/14(金)07:47 ID:IOEu7JkF(1/2) AAS
foo <- function(a,b,c){
gr=expand.grid(1:a,1:b)
c2=(1:c)^2
f = function(x,y) (x<y) & (x^2+y^2) %in% c2
i=which(mapply(f,gr[,1],gr[,2]))
ab=as.matrix(gr[i,])
cbind(ab,sqrt(ab[,1]^2+ab[,2]^2))
}
foo(20,20,20)

a=20;b=20;c=20
省4

694: 2018/09/14(金)08:01 ID:IOEu7JkF(2/2) AAS
foo <- function(a,b,c){
gr=expand.grid(1:a,1:b)
c2=(1:c)^2
f = function(x,y) (x<y) & (x^2+y^2) %in% c2
i=which(mapply(f,gr[,1],gr[,2]))
ab=as.matrix(gr[i,])
cbind(ab,sqrt(ab[,1]^2+ab[,2]^2))
}
foo(20,20,20)
foo(100,100,100)
省9

695: 2018/09/14(金)09:51 ID:pDMF5zq8(1) AAS
#include<stdio.h>
#include<stdlib.h>

int pit(int A,int B, int C){
int a,b,c; int pit=0;
for(a=1;a<=A;a++){
for(b=a;b<=B;b++){
for(c=b;c<=C;c++){
if((a<b) && (a*a+b*b==c*c)) {
++pit;
printf("%d : %d * %d + %d * %d = %d * %d\n",pit,a,a,b,b,c,c);
省14

696: 2018/09/15(土)09:37 ID:LVUNnMZD(1/3) AAS
とある会社の社長は毎日午後5時に会社を出て自宅からの迎えのクルマに乗って帰る。
ある日、午後4時に退社した。
天気が良かったので、迎えのクルマに出会うまで散歩した。
出会ったところで、クルマはUターンして自宅に戻った。
するといつもより10分早く帰宅した。
何時何分にクルマに出会ったか？

外部ﾘﾝｸ[html]:cybozushiki.cybozu.co.jp

尚、迎えの車は５時に会社に到着するように自宅を出発し行きも帰りも等速走行を仮定する。

697: 2018/09/15(土)18:48 ID:LVUNnMZD(2/3) AAS
診療所から病院に患者を救急搬送する。
病院から救急車が診療所に向かっており１０時到着予定と連絡が入った。
患者が９時に急変したため診療所の普通車で病院に向かって救急車と出会ったら救急車に患者を移して搬送し病院到着を早めることになった。当然、救急車の方が速く走れる。
９時５０分に救急車に乗り移ることができた。
病院到着は予定より何分早まるか述べよ。
乗り換えに要する時間は０とする。

698: 2018/09/15(土)22:29 ID:LVUNnMZD(3/3) AAS
>>490
一般化してみた。

歩行時間:t
歩行距離:l
迎えの車速:rv
同乗の車速:v
出発時刻差:s
到着時刻差:X

通常走行時間:d/rv+d/v
早退時走行時間:(d-l)/rv+(d-l)/v
省7

699: 2018/09/16(日)18:25 ID:MIF83oNx(1/3) AAS
# include<stdio.h>
# include <stdlib.h>
# define N 10

int a[N + 1], key;
int search(int a[],int key,int i);

int main(int argc, char *argv[])
{
int a[]= {0,1,2,3,4,5,6,7,8,9};
key = atoi(argv[1]);

a[N]=key;
省14

700: 2018/09/16(日)19:43 ID:MIF83oNx(2/3) AAS
# 歩行時間:t
# 歩行速度:w
# 迎えの車速:v0
# 同乗の車速:v1
# 出発時刻差:s
# 到着時刻差:X
# l=wt

# 通常走行時間:d/v0+d/v1
# 早退時走行時間:(d-wt)/v0+(d-wt)/v1
# d/v0+d/v1 - ((d-wt)/v0+(d-wt)/v1)= X
省8

701(1): 2018/09/16(日)21:14 ID:MIF83oNx(3/3) AAS
# The ambulance arrives X hours ealier at hospital,
# when the patient leave clinic s hours earlier than planned
# and encounter the ambulance t hours later,
# ambulance runs with the velocity of v0 without patient, and v1 with patient
# clinic car runs with the velocity of w

Earlier <- # s hour earlier departure, X hour earlier arrival
function(s=NULL,X=NULL,t=NULL,v0=60,v1=45,w=30){
if(is.null(s)) re=c(s=X/(v0/(v0+w)*w*(1/v0+1/v1)),t=X/w/(1/v0+1/v1))
if(is.null(X)) re=c(X=s*v0/(v0+w)*w*(1/v0+1/v1),t=s*v0/(v0+w))
if(!is.null(t)) re=c(s=t + t*w/v0, X = t*w*(1/v0+1/v1))
省5

702: 2018/09/17(月)08:24 ID:Oiy+BYJP(1/2) AAS
こういう計算ができるとdoor to balloon timeが短縮できるから臨床医に必要な能力だな。

診療所から病院に患者を救急搬送する。
病院から医師搭乗の救急車が診療所に向かっており１０時到着予定と連絡が入った。
患者の病態が悪化したら、診療所の普通車で病院に向かい救急車と出会ったら
救急車に患者を移して搬送し病院到着を急ぐという計画を立てた。
普通車から救急車への患者の乗り換えで１０分余分に時間がかかる。
道路事情から病院から診療所への道は
平均時速６０ｋｍで、逆方向は平均時速４５ｋｍで定速走行する。診療所の普通車は信号待ちもあり平均時速３０kmで定速走行する。
何時以降の病態悪化は診療所の車を使わずに救急車の到着を待つ方が病院に早く着くか？

703: 2018/09/17(月)08:25 ID:Oiy+BYJP(2/2) AAS
こういう計算ができるとdoor to balloon timeが短縮できるから臨床医に必要な能力だな。

診療所から病院に患者を救急搬送する。
病院から医師搭乗の救急車が診療所に向かっており１０時到着予定と連絡が入った。
患者の病態が悪化したら、診療所の普通車で病院に向かい救急車と出会ったら
救急車に患者を移して搬送し病院到着を急ぐという計画を立てた。
普通車から救急車への患者の乗り換えで１０分余分に時間がかかる。
道路事情から救急車は病院から診療所への道は
平均時速６０ｋｍで、逆方向は平均時速４５ｋｍで定速走行する。診療所の普通車は信号待ちもあり平均時速３０kmで定速走行する。

何時以降の病態悪化は診療所の車を使わずに救急車の到着を待つ方が病院に早く着くか？

704: 2018/09/17(月)20:23 ID:cb+FssaI(1/3) AAS
診療所から病院に患者を救急搬送する。
病院から救急車が診療所に向かっており１０時到着予定と連絡が入った。
患者が９時に急変したため診療所の普通車で病院に向かって救急車と出会ったら救急車に患者を移して搬送し病院到着を早めることになった。救急車の方が速く走れる。
９時５０分に救急車に乗り移ることができた。
病院到着は予定より何分早まるか述べよ。
車は定速走行とし、乗り換えに要する時間は考慮しない。

705: 2018/09/17(月)22:45 ID:cb+FssaI(2/3) AAS
# How it works
dec2n <- function(num, N, digit = 3){ # decimal to 0,1,..,n-1 vector
if(num <= 0 & digit <= 0) return(NULL)
else{
append(dec2n(num%/%N, N ,digit-1), num%%N)
}
}
dec2n(42,5,4) # 0 1 3 2
N=5
num=42 ; digit=4
省10

706: 2018/09/17(月)22:46 ID:cb+FssaI(3/3) AAS
# while loop version for dec2n
dec2nw <- function(num, N, digit = 4){
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
return(r)
省1

707: 2018/09/18(火)01:40 ID:jA0T/PMd(1/3) AAS
外部ﾘﾝｸ[php]:www.tutorialspoint.com

708: 2018/09/18(火)06:21 ID:jA0T/PMd(2/3) AAS
>>701
外部ﾘﾝｸ:tpcg.io

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

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

ぬこの手ぬこTOP 0.158s*