0引言
一般来说,成人每天至少需要1500千卡的能量来维持身体机能,这是因为即使你躺着不动,你的身体仍需能量来保持体温,心肺功能和大脑运作。基础代谢消耗会因个体间身高、体重、年龄、性别
的差异而有所不同。1
百度百科1就这一话题给出了如下简单和精确的计算公式。
【人体基础代谢的需要基本热量 简单算法】
女子 : 基本热量(大卡)= 体重(斤) x 9
男子 : 基本热量(大卡)= 体重(斤) x 10
【基本热量 精确算法】
女子
年龄 公式
18- 30 岁 14.6 x 体重(公斤) + 450
31- 60 岁 8.6 x 体重(公斤) + 830
本文根据该公式设计代码,实现计算一个人计算自己每天的基础消耗。
1.代码块
# year:出生年
# Weight:体重(公斤)
Heataccount <- function(year = 2002, Weight = 50, sex = "女"){
Sys.year <- as.numeric(format(Sys.Date(), "%Y"))
Old = (Sys.year - year + 1)
if(sex == "男"){
H1 = Weight*2*10
H2 = (Old >= 18 && Old <= 30)*(14.6*Weight + 450) +
(Old >= 31)*(8.6*Weight + 830)
}else{
H1 = Weight*2*9
H2 = (Old >= 18 && Old <= 30)*(14.6*Weight + 450) +
(Old >= 31)*(8.6*Weight + 830)
}
list(简单算法 = H1, 精确算法 = H2)
}
2.实例
2.1 实例一
一个2000年
出生,体重为45公斤
的女性
一天坐着可以消耗多少热量?
> Heataccount(2000, 45, "女")
$简单算法
[1] 810
$精确算法
[1] 1107
2.1 实例二
一个1986年
出生,体重为52公斤
的女性
一天坐着可以消耗多少热量?文章来源:https://www.toymoban.com/news/detail-598900.html
> Heataccount(1986, 52, "女")
$简单算法
[1] 936
$精确算法
[1] 1277.2
-
https://zhidao.baidu.com/question/556355984521961092.html ↩︎ ↩︎文章来源地址https://www.toymoban.com/news/detail-598900.html
到了这里,关于人一天坐着可以消耗多少热量——R语言计算代码的文章就介绍完了。如果您还想了解更多内容,请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章,希望大家以后多多支持TOY模板网!