0引言

一般来说，成人每天至少需要1500千卡的能量来维持身体机能，这是因为即使你躺着不动，你的身体仍需能量来保持体温，心肺功能和大脑运作。基础代谢消耗会因个体间身高、体重、年龄、性别的差异而有所不同。¹
百度百科¹就这一话题给出了如下简单和精确的计算公式。
【人体基础代谢的需要基本热量简单算法】

女子：基本热量（大卡）= 体重(斤） 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公斤的女性一天坐着可以消耗多少热量？

> Heataccount(1986, 52, "女")
$简单算法
[1] 936

$精确算法
[1] 1277.2

https://zhidao.baidu.com/question/556355984521961092.html ↩︎ ↩︎

0 条评论