Human_height

全球身高统计
Country/Region↓Average male height↓Average female height↓Sample population /
age range↓
Methodology↓Year↓Source↓
Argentina1.745 m (5 ft 812 in)1.610 m (5 ft 312 in)19Measured1998–2001[1]
Australia1.748 m (5 ft 9 in)1.634 m (5 ft 412 in)18+Measured1995[2]
Australia1.784 m (5 ft 10 in)1.645 m (5 ft 5 in)18–24Measured1995[2]
Austria1.796 m (5 ft 1012 in)1.671 m (5 ft 6 in)21-25Self Reported1997–2002[3]
Azerbaijan1.718 m (5 ft 712 in)1.654 m (5 ft 5 in)16+Measured2005[4]
Bahrain1.651 m (5 ft 5 in)1.542 m (5 ft 12 in)19+Measured2002[5]
Belgium1.795 m (5 ft 1012 in)1.678 m (5 ft 6 in)21-25Self Reported1997–2002[3]
Brazil1.690 m (5 ft 612 in)1.580 m (5 ft 2 in)21–65Measured2003[6][7]
Cameroon1.706 m (5 ft 7 in)1.613 m (5 ft 312 in)Urban adultsMeasured2003[8]
Canada1.736 m (5 ft 812 in)1.595 m (5 ft 3 in)25+Measured2005[9]
Canada1.760 m (5 ft 912 in)1.633 m (5 ft 412 in)25-44Measured2005[9]
Chile1.690 m (5 ft 612 in)1.550 m (5 ft 1 in)17+Measured2008[10][11]
China (PRC)1.730 m (5 ft 8 in)1.621 m (5 ft 4 in)AdultsMeasured2008[12]
Colombia1.706 m (5 ft 7 in)1.587 m (5 ft 212 in)18–22Measured2002[13]
Côte d’Ivoire1.701 m (5 ft 7 in)1.591 m (5 ft 212 in)25–29Measured1985–1987[14]
Denmark1.803 m (5 ft 11 in)
Conscripts, 18-19Measured2006[15]
Dinaric Alps1.856 m (6 ft 1 in)1.710 m (5 ft 712 in)17Measured2005[16]
Estonia1.791 m (5 ft 1012 in)
17
2003[17]
Finland1.800 m (5 ft 11 in)1.660 m (5 ft 512 in)25–34Self-reported2004[18]
France1.741 m (5 ft 812 in)1.619 m (5 ft 312 in)20+Measured2001[19]
France1.770 m (5 ft 912 in)1.646 m (5 ft 5 in)20–29Measured2001[19]
Ghana1.695 m (5 ft 612 in)1.585 m (5 ft 212 in)25–29Measured1987–1989[14]
Gambia1.680 m (5 ft 6 in)1.578 m (5 ft 2 in)Rural, 21–49Measured1950–1974[20]
Germany1.780 m (5 ft 10 in)1.650 m (5 ft 5 in)AdultsSelf-reported2005[21]
Germany1.810 m (5 ft 1112 in)1.670 m (5 ft 512 in)18–19Self-reported2005[21]
Greece1.781 m (5 ft 10 in)
18-26Measured2006[22]
Hungary1.760 m (5 ft 912 in)1.640 m (5 ft 412 in)AdultsMeasured2000s[23]
India1.695 m (5 ft 612 in)1.540 m (5 ft 12 in)20Measured2005–2006[24][25]
India1.652 m (5 ft 5 in)1.521 m (4 ft 12 in)Rural, 17+Measured2007[26]
Indonesia1.580 m (5 ft 2 in)1.470 m (4 ft 10 in)50+Self-reported1997[27]
IndonesiaEast Java1.624 m (5 ft 4 in)1.513 m (4 ft 1112 in)Urban, 19–23Measured1995[28]
Iran1.703 m (5 ft 7 in)1.572 m (5 ft 2 in)21+Measured2005[29]
Iran1.734 m (5 ft 812 in)1.598 m (5 ft 3 in)21-25Measured2005[29]
Iraq - Baghdad1.654 m (5 ft 5 in)1.558 m (5 ft 112 in)18–44Measured1999–2000[30]
Ireland1.774 m (5 ft 10 in)1.644 m (5 ft 412 in)21-25Self Reported1997–2002[3]
Israel1.756 m (5 ft 9 in)1.628 m (5 ft 4 in)21Measured1980–2000[31]
Italy1.760 m (5 ft 912 in)1.650 m (5 ft 5 in)18-40Measured2005[32]
Jamaica1.718 m (5 ft 712 in)1.608 m (5 ft 312 in)25–74Measured1994–1996

[33]

Japan1.715 m (5 ft 712 in)1.580 m (5 ft 2 in)19Measured2006[34]
Kazakhstan1.755 m (5 ft 9 in)1.659 m (5 ft 512 in)18-35Measured1991-2008[35]
Lithuania1.763 m (5 ft 912 in)
Conscripts, 19–25Measured2006[36]
Malaysia1.647 m (5 ft 5 in)1.533 m (5 ft 12 in)20+Measured1996[37]
Malta1.699 m (5 ft 7 in)1.599 m (5 ft 3 in)AdultsSelf-reported2003[38]
Malta1.752 m (5 ft 9 in)1.638 m (5 ft 412 in)25–34Self-reported2003[38]
Malawi1.660 m (5 ft 512 in)1.550 m (5 ft 1 in)Urban, 16–60Measured2000[39]
Mali1.713 m (5 ft 712 in)1.604 m (5 ft 3 in)Rural adultsMeasured1992[40]
MexicoMorelos1.670 m (5 ft 512 in)1.550 m (5 ft 1 in)AdultsSelf-reported1998[41]
Mexico1.630 m (5 ft 4 in)1.510 m (4 ft 1112 in)50+Measured2001[42]
Mongolia1.684 m (5 ft 612 in)1.577 m (5 ft 2 in)25–34Measured2006[43]
Netherlands1.808 m (5 ft 11 in)1.678 m (5 ft 6 in)20+Self-reported2008[44]
Netherlands1.843 m (6 ft 12 in)1.702 m (5 ft 7 in)25–34Self-reported2008[44]
New Zealand1.770 m (5 ft 912 in)1.650 m (5 ft 5 in)19–45Estimates1993–2007[45]
New Zealand1.745 m (5 ft 812 in)1.630 m (5 ft 4 in)45–65Estimates1993–2007[45]
Nigeria1.638 m (5 ft 412 in)1.578 m (5 ft 2 in)18–74Measured1994–1996

[33]

Norway1.797 m (5 ft 1012 in)1.672 m (5 ft 6 in)Conscripts, 18–19Measured2008[46]
Peru1.640 m (5 ft 412 in)1.510 m (4 ft 1112 in)20+Measured2005[47]
Philippines1.619 m (5 ft 312 in)1.502 m (4 ft 11 in)20+Measured2003[48]
Philippines1.634 m (5 ft 412 in)1.517 m (4 ft 1112 in)20-39Measured2003[48]
Portugal1.728 m (5 ft 8 in)
Conscripts, 21Measured1998–99[49]
Singapore1.706 m (5 ft 7 in)1.600 m (5 ft 3 in)17–25
2003[50]
South Africa1.690 m (5 ft 612 in)1.590 m (5 ft 212 in)25–34Measured1998[51]
South Korea1.738 m (5 ft 812 in)1.607 m (5 ft 312 in)19Measured2006[52]
Spain1.761 m (5 ft 912 in)1.655 m (5 ft 5 in)21-25Self Reported1997–2002[3]
Spain1.780 m (5 ft 10 in)1.650 m (5 ft 5 in)21Measured1998–2000[53]
Sweden1.779 m (5 ft 10 in)1.646 m (5 ft 5 in)20–74

[54]
Sweden1.815 m (5 ft 1112 in)1.668 m (5 ft 512 in)20–29Measured2008[55]
Switzerland1.754 m (5 ft 9 in)1.640 m (5 ft 412 in)20–74

[54]
Switzerland1.781 m (5 ft 10 in)
Conscripts, 18–21Measured2005[56]
Thailand1.675 m (5 ft 6 in)1.573 m (5 ft 2 in)STOU university studentSelf-reported1991–1995[57]
TurkeyAnkara1.740 m (5 ft 812 in)1.589 m (5 ft 212 in)18-59Measured2004–2006[58]
TurkeyAnkara1.761 m (5 ft 912 in)1.620 m (5 ft 4 in)18-29Measured2004–2006[58]
TurkeyEdirne1.737 m (5 ft 812 in)1.614 m (5 ft 312 in)17Measured2001[59]
United Kingdom1.772 m (5 ft 10 in)1.634 m (5 ft 412 in)25-34Measured2007[60]
United Kingdom1.753 m (5 ft 9 in)1.616 m (5 ft 312 in)AdultsMeasured2007[60]
U.S.1.763 m (5 ft 912 in)1.622 m (5 ft 4 in)All Americans, 20+Measured2003–2006[61]
U.S.1.776 m (5 ft 10 in)1.632 m (5 ft 412 in)All Americans, 20–29Measured2003–2006[61]
U.S.1.789 m (5 ft 1012 in)1.638 m (5 ft 412 in)White Americans, 20–39Measured2003–2006[61]
U.S.1.780 m (5 ft 10 in)1.632 m (5 ft 412 in)Black Americans, 20–39Measured2003–2006[61]
U.S.1.706 m (5 ft 7 in)1.587 m (5 ft 212 in)Mexican-Americans, 20–39Measured2003–2006[61]
Vietnam1.65 m (5 ft 5 in)1.53 m (5 ft 0 in)AdolescentsMeasured2004[62]
Vietnam1.621 m (5 ft 4 in)1.522 m (4 ft 12 in)25–29Measured1992–1993[14]
http://en.wikipedia.org/wiki/Human_height

转载于:https://www.cnblogs.com/cutepig/archive/2010/04/11/1709590.html

library(deSolve) library(tidyverse) library(pracma) # 1. 定义口服PBPK模型函数 pk_model_oral <- function(time, state, params) { with(as.list(c(state, params)), { # 胃肠道药量变化率:吸收过程 dA_gi <- -ka * A_gi # 中央室药量变化率:吸收进入 - 消除 dA_c <- ka * A_gi * F_abs - (CL / Vd) * A_c # 计算中央室浓度 C <- A_c / Vd # 返回微分方程结果 return(list(c(dA_gi, dA_c), C = C)) }) } # 2. 动物口服PK数据准备(包含生物利用度信息)[^1][^3] animal_data <- data.frame( species = c("mouse", "rat", "dog"), weight_kg = c(0.02, 0.25, 9), CL_animal = c(4.64, 7.61, 1.76), # 清除率 (L/h/kg) Vd_animal = c(8.53, 22.8, 4.67), # 分布容积 (L/kg) F_animal = c(0.16, 0.03, 0.29), # 口服生物利用度(小数形式)[^1] ka_animal = c(1.2, 0.9, 0.6) # 吸收速率常数 (h⁻¹) ) # 3. 外推人体参数(使用异速缩放)[^1][^3] extrapolate_human_pk <- function(animal_data) { # 清除率异速缩放指数 b_CL <- 0.75 # 分布容积异速缩放指数 b_Vd <- 1.0 # 计算人体参数 human_CL <- mean(animal_data$CL_animal) * (70/mean(animal_data$weight_kg))^b_CL human_Vd <- mean(animal_data$Vd_animal) * (70/mean(animal_data$weight_kg))^b_Vd human_ka <- mean(animal_data$ka_animal) * (mean(animal_data$weight_kg)/70)^0.25 # 吸收常数缩放 human_F <- mean(animal_data$F_animal) # 平均生物利用度 return(list(CL = human_CL, Vd = human_Vd, ka = human_ka, F = human_F)) } human_pk <- extrapolate_human_pk(animal_data) # 4. 口服参数设置 dose <- 500 # 口服剂量 (mg) # 5. 初始状态设置 state <- c( A_gi = dose, # 胃肠道初始药量 A_c = 0 # 中央室初始药量 ) # 6. 完整参数集 params <- c( CL = human_pk$CL, Vd = human_pk$Vd, ka = human_pk$ka, F_abs = human_pk$F # 生物利用度 ) # 7. 模型求解 times <- seq(0, 24, by = 0.1) solution <- ode( y = state, times = times, func = pk_model_oral, parms = params ) # 8. 结果处理与可视化 results <- as.data.frame(solution) %>% mutate(Concentration = ifelse(is.na(C), 0, C)) # 计算关键PK参数 Cmax <- max(results$Concentration, na.rm = TRUE) Tmax <- results$time[which.max(results$Concentration)] AUC <- trapz(results$time, results$Concentration) # 使用pracma包的梯形法积分 # 9. 可视化 ggplot(results, aes(x = time, y = Concentration)) + geom_line(color = "blue", linewidth = 1.2) + geom_point(aes(x = Tmax, y = Cmax), color = "red", size = 3) + labs(title = "基于动物数据外推的人体口服PK曲线", subtitle = sprintf("剂量: %d mg | 生物利用度: %.1f%% | Cmax: %.2f μg/mL | Tmax: %.1f h", dose, human_pk$F*100, Cmax, Tmax), x = "时间 (小时)", y = "血药浓度 (μg/mL)") + theme_minimal() + scale_y_continuous(expand = c(0, 0)) + annotate("text", x = 12, y = 0.9*Cmax, label = sprintf("AUC₀-₂₄: %.1f μg·h/mL", AUC), size = 5) # 10. 输出关键PK参数 cat("外推的人体PK参数:\n") cat(sprintf("清除率 (CL): %.2f L/h\n", human_pk$CL)) cat(sprintf("分布容积 (Vd): %.2f L\n", human_pk$Vd)) cat(sprintf("吸收速率常数 (ka): %.2f h⁻¹\n", human_pk$ka)) cat(sprintf("生物利用度 (F): %.1f%%\n", human_pk$F*100)) cat(sprintf("峰浓度 (Cmax): %.2f μg/mL\n", Cmax)) cat(sprintf("达峰时间 (Tmax): %.1f h\n", Tmax)) cat(sprintf("药时曲线下面积 (AUC₀-₂₄): %.1f μg·h/mL\n", AUC)) 修改图中浓度单位为ng/ml
08-13
帮我把这个转换成视频 from moviepy.editor import * from moviepy.video.fx.all import speedx # 1. 开场冲击(5秒) intro_clip = VideoFileClip("drone_footage.mp4").subclip(0, 5).fx(speedx, 0.5) # 慢动作 intro_clip = intro_clip.resize(height=1080) # 调整分辨率 intro_text = TextClip("世界比你想象的更辽阔", fontsize=70, color='white', font='SimHei') intro_text = intro_text.set_position('center').set_duration(5).set_start(0) intro_audio = AudioFileClip("wind_sound.mp3").subclip(0, 5) intro_clip = CompositeVideoClip([intro_clip, intro_text]).set_audio(intro_audio) # 2. 快剪合集(10秒) clip1 = VideoFileClip("backpack_throw.mp4").subclip(0, 0.8).fx(speedx, 0.5) # 定格 clip2 = VideoFileClip("skydiver.mp4").subclip(0, 2) clip3 = VideoFileClip("night_market.mp4").subclip(0, 1.5) clip4 = VideoFileClip("coffee_art.mp4").subclip(0, 1.5).fx(speedx, 0.5) # 延时 clip5 = VideoFileClip("waves.mp4").subclip(0, 4).fx(speedx, 0.5) # 慢镜头 fast_cut = concatenate_videoclips([clip1, clip2, clip3, clip4, clip5]) fast_text = TextClip("去感受 去碰撞 去活着", fontsize=70, color='white', font='SimHei') fast_text = fast_text.set_position('center').set_duration(10).set_start(5) fast_cut = CompositeVideoClip([fast_cut, fast_text]) # 3. 人文段落(15秒) clip6 = VideoFileClip("craftsman.mp4").subclip(0, 5) # 推镜头 clip7 = VideoFileClip("children.mp4").subclip(0, 5) # 跟拍 clip8 = VideoFileClip("prayer_wheel.mp4").subclip(0, 5) # 手部特写 human_clip = concatenate_videoclips([clip6, clip7, clip8]) human_text = TextClip("每个角落都有独特的心跳", fontsize=70, color='white', font='SimHei') human_text = human_text.set_position('center').set_duration(15).set_start(15) human_audio = AudioFileClip("ethnic_music.mp3").subclip(0, 15) human_clip = CompositeVideoClip([human_clip, human_text]).set_audio(human_audio) # 4. 风景蒙太奇(20秒) clip9 = VideoFileClip("hot_air_balloon.mp4").subclip(0, 4) clip10 = VideoFileClip("desert_camel.mp4").subclip(0, 4) clip11 = VideoFileClip("glacier.mp4").subclip(0, 4) clip12 = VideoFileClip("cherry_blossoms.mp4").subclip(0, 4) clip13 = VideoFileClip("city_lights.mp4").subclip(0, 4) montage_clip = concatenate_videoclips([clip9, clip10, clip11, clip12, clip13]) montage_text = TextClip("48小时 体验地球的四季", fontsize=70, color='white', font='SimHei') montage_text = montage_text.set_position('center').set_duration(20).set_start(30) montage_clip = CompositeVideoClip([montage_clip, montage_text
03-17
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值