「我吃的盐比你吃的米还多」，这真的有可能吗？( 三 ) _小知识

因为 0 到 6 个月的婴儿该当对峙母乳喂养，是以严酷遵守炊事指南的小张 0 到 6 个月时代没有吃过米。
7 到 24 个月的婴幼儿，按照中国营养学会的 7-24 月龄炊事浮图，天天应该摄入 20-75g（7-12 月龄）、50-100g（13-24 月龄）的谷类。

文章插图
其实照理说，这个时辰的婴儿还只能吃碾碎的米糊，可是米碾当作糊也是米！所以仍是算作小张吃米了！
那么，因为婴儿添加辅食是一个慢慢过渡的过程，不克不及一来就给他怼上 75g，所以我们假设小张整个 7-24 月龄阶段平均下来谷类食用量线性增加，天天吃 20g 谷类和 75g 谷类的中心值，47.5g 谷类。
而 2 岁以上的小张，就可以起头合用中国营养学会的《中国居平易近炊事指南》[3]中谷类部门的保举量了：

文章插图
同样地，对这张内外面的摄入规模，我们都假设小张教员吃的是取平均的中心值。那么，我们可以把前面的这些摄入参考量用这样的代码写进 R：

#rice intake datacrop.intake=c(0,(20+75)/2,(50+100)/2,(85+100)/2,(100+150)/2,(150+200)/2,(225+250)/2,(250+300)/2,(200+300)/2,(200+250)/2)age.low.crop=c(0,0.5,1,2,4,7,11,14,18,65)age.high.crop=c(age.low.crop[-1],NA)rice.intake=crop.intakerice.trait=data.frame(cbind(age.low.crop,age.high.crop,rice.intake,crop.intake))

运行上述代码，可以获得这样一张包含各春秋阶段该吃几多米的参考数值表：

文章插图
接下来，我们要像算老张的盐那样，用这张表的信息算小张到今天满六岁为止一共吃了几多谷类。
我们直接挪用前面写好的函数，将“小张的岁数是 6 岁”和“他吃的是米”这两个信息告诉我方才写的那个复合的函数：
calc(6,rice.trait)R 的运行成果如下：

文章插图
于是我们知道了，截至小张 6 岁生日那天，小张吃了 194952.2g 谷类。
快要 400 斤！！！
老张可怜兮兮的七十来斤盐摄入量，在这复杂的优势面前，根，本，不，堪，一，击。
于是我们可以获得结论了：若是老张在他 30 岁那年的时辰告诉 6 岁的小张说“我吃的盐比你吃过的米要多”，那么他是在乱说。
以上。
哈哈哈哈哈哈怎么可能才到这就以上了呢！
从小到大，我们都频频地被数学教员教育，不要一天到晚为了几个特别值算出来的数字沾沾自喜，我们要的是通解！
说到通解，有没有想起来我前面写的那个函数？
是的，我之所以把它写当作了面标的目的标的目的量的函数，就是因为要许可 R 用它作一个区间内的持续的函数图像呀！
啊哈哈哈哈哈哈，噫嘻嘻嘻嘻嘻嘻嘻，噢嚯嚯嚯活活活活~~~~

文章插图
让我们用这些咒语（划失落）号令 R 里面把父子俩的盐摄入量和谷类摄入量画个图出来……

curve(calc(son.age.trans,rice.trait),xname = "son.age.trans",from=0,to=6,xlab = "son's age (father's age minus 24)",ylab = "aggregated intake",lty="solid",col="#0084ff",lwd=2)curve(calc(dad.age+24,Na.trait),xname = "dad.age",from=0,to=6,add = T,lty="solid",lwd=2,col="#8590a6")leg("topleft", leg = c("father's salt intake", "son's rice intake"),col = c("#8590a6", "#0084ff"), lty = 1:1, cex = 0.8)

R 收到号令之后，画出了这样的一张图：