#require(fractions)
library(knitr)
#library(MASS)
#1lb=453.5g
#1ounce=28.3g
#自制健康狗饭食(幼犬)
##########################################################
#体重（斤→磅） ##
n=10.6; a = (n*500)/454;a ##必！
#全天餐次？ ##填！
b = 3 ##项！
#鲜食餐次？ ##目！
c = 2 ##
##########################################################
#注：（1）额外添加海藻粉2.5g/天；并通过≈15%的贝类、内脏等补充锌等微量元素
# （2）钙剂使用柠檬酸钙粉，使用儿童维生素矿物质混合片
#(1)鸡肉米饭
#每餐食材重量（熟,g）
#需要热量比例(标准热量由体重查表)
d = 585/908*c/b/c;d #当前体重需要，标准餐提供，换算比例
cincken_breast = round(8*28.3*d,1)
rice = round(2*d,1)
oil = round(3*d,1)
vegetables = round(1*d,1)
sault = round(3/2*d,1)
vitamins = round(3/2*d,2)
calcium = round(cincken_breast/100*1.5/c,2)
Food<-c('cincken_breast','rice','oil','vegetables','sault','vitamins','calcium')
Weight<-c(cincken_breast,rice,oil,vegetables,sault,vitamins,calcium)
Unit<-c('g','cup','tbsp','cup','tsp','tablet','tsp')
df1 <- cbind(Food,Weight,Unit)
##############################################################################
#(2)鸡肉藜麦
#每餐食材重量（熟,g）
#需要热量比例(标准热量由体重查表)
d = 585/648*c/b/c;d #当前体重需要，标准餐提供，换算比例
cincken_breast = round(4*28.3*d,1)
quinoa = round(3/2*d,1)
oil = round(1*d,1)
sault = round(3/4*d,1)
vitamins = round(3/2*d,2)
calcium = round(cincken_breast/100*1.5/c,2)
Food<-c('cincken_breast','quinoa','oil','sault','vitamins','calcium')
Weight<-c(cincken_breast,quinoa,oil,sault,vitamins,calcium)
Unit<-c('g','cup','tbsp','tsp','tablet','tsp')
df2 <- cbind(Food,Weight,Unit)
##############################################################################
#(3)牛肉米饭
#每餐食材重量（熟,g）
#需要热量比例(标准热量由体重查表)
d = 585/1219*c/b/c;d #当前体重需要，标准餐提供，换算比例
beef = round(12*28.3*d,1)
rice = round(3/2*d,1)
oil = round(1*d,1)
sault = round(3/2*d,1)
vitamins = round(3/2*d,2)
calcium = round(beef/100*1.5/c,2)
Food<-c('beef','rice','oil','sault','vitamins','calcium')
Weight<-c(beef,rice,oil,sault,vitamins,calcium)
Unit<-c('g','cup','tbsp','tsp','tablet','tsp')
df3 <- cbind(Food,Weight,Unit)
##############################################################################
#(4)牛肉土豆
#每餐食材重量（熟,g）
#需要热量比例(标准热量由体重查表)
d = 585/1182*c/b/c;d #当前体重需要，标准餐提供，换算比例
beef = round(12*28.3*d,1)
potato = round(2*d,1)
oil = round(1*d,1)
sault = round(3/2*d,1)
vitamins = round(3/2*d,2)
calcium = round(beef/100*1.5/c,2)
Food<-c('beef','potato','oil','sault','vitamins','calcium')
Weight<-c(beef,potato,oil,sault,vitamins,calcium)
Unit<-c('g','cup','tbsp','tsp','tablet','tsp')
df4 <- cbind(Food,Weight,Unit)
##############################################################################
#(5)鸡蛋鱼肉米饭
#每餐食材重量（熟,g）
#需要热量比例(标准热量由体重查表)
d = 585/1065*c/b/c;d #当前体重需要，标准餐提供，换算比例
egg = round(5*d,1)
rice = round(3/2*d,1)
fish = round(4*d,1)
oil = round(2*d,1)
sault = round(3/2*d,1)
vitamins = round(3/2*d,2)
calcium = '1/4'
Food<-c('egg','rice','fish','oil','sault','vitamins','calcium')
Weight<-c(egg,rice,fish,oil,sault,vitamins,calcium)
Unit<-c('each','cup','each','tsp','tsp','tablet','shell')
df5 <- cbind(Food,Weight,Unit)
##############################################################################
#(6)羊肉鱼肉米饭
#每餐食材重量（熟,g）
#需要热量比例(标准热量由体重查表)
d = 585/956*c/b/c;d #当前体重需要，标准餐提供，换算比例
lamb = round(6*28.3*d,1)
rice = round(3/2*d,1)
fish = round(2*d,1)
oil = round(1*d,1)
sault = round(5/4*d,1)
vitamins = round(3/2*d,2)
calcium = round(lamb/100*1.5/c,2)
Food<-c('lamb','rice','fish','oil','sault','vitamins','calcium')
Weight<-c(lamb,rice,fish,oil,sault,vitamins,calcium)
Unit<-c('g','cup','each','tsp','tsp','tablet','tsp')
df6 <- cbind(Food,Weight,Unit)
##############################################################################
#打印菜单表格
print(kable(df1),'1. 成幼犬——鸡肉米饭')
print(kable(df2),'2. 成幼犬——鸡肉藜麦')
print(kable(df3),'3. 成幼犬——牛肉米饭')
print(kable(df4),'4. 成幼犬——牛肉土豆')
print(kable(df5),'5. 成幼犬——鸡蛋鱼肉米饭')
print(kable(df6),'6. 成幼犬——羊肉鱼肉米饭')
网友评论