在Excel中完成简略寿命表的计算.doc

  1. 1、本文档共7页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
在Excel中完成简略寿命表的计算

简略寿命表Excel程序的编制及在居民健康状况评价中的应用 陈青山,王锋,李晓珍,杨剑,胡军(510632广州,暨南大学医学院流行病学教研室) [摘要] 目的 在Excel中编制现时简略寿命表的计算程序,为评价居民健康状况提供一套简便的计算工具。方法 应用Excel的数学函数和计算公式,编写现时简略寿命表的计算程序,结合居民健康状况的实例资料评价Excel程序的计算结果。结果 在Excel中可以计算现时简略寿命表中年龄组死亡概率()尚存人数()死亡人数()生存人年数()生存总人年数()预期寿命()死亡概率预期寿命寿命表亦称生命表(1ife table),是一种根据特定人群的年龄组死亡率编制的统计表年龄组指刚满年龄,如刚满岁的。年龄组死亡概率() 表示同时出生的一代人,刚满x岁的尚存者在今后n年内死亡的可能性编制寿命表时,0岁组死亡概率一般用婴儿死亡率或校正婴儿死亡率估计,最后一个年龄组(x=w)的死亡概率为1,其他各年龄组中,当年龄组距n5时,与某年龄组人口在n年内的平均死亡水平近似函数关系= 。 x岁尚存在者在今后n年的生存概率或 1.2.3 尚存人数()死亡人数()尚存人数表示同时出生的一代人中活满x岁的人数死亡人数亦称寿命表死亡人数,表示同时出生的一代人活满岁时,在今后n年内死亡的人数。尚存人数与死亡人数的计算式如下=· =- 1.2.4 生存人年数()及生存总人年数()生存人年数指x岁尚存者在今后n年内的生存人年数, 应将0~岁组死亡者的平均存活年数计算在内:每个死亡婴儿平均存活年数,。 生存总人年数活满x岁者今后尚能生存的总人年数即x岁及以上各年龄组生存人年数()的总和。 1.2.5 预期寿命()活满x岁者今后尚能存活的年数即岁数=。 2 编程步骤 2.1 电子表格的结构与编程 2.1.1建立Excel电子表格结构 包括年龄组、平均人口数、死亡数、死亡率、死亡概率、生存人数、死亡人数、生存人年数、生存总人年数、预期寿命,分别占用各单元格。H5单元格设定生存人数的预设值。其中红框以下部分为数据录人区域,红框右侧部分为结果区域,如图1。 图1 简略寿命表的Excel电子表格结构 2.1.2编程(如表1) ①在B列输入各年龄组的起始年龄 B6输入“0”,B7输入“1”,作为两个独立组;B8输入“5”,B9输入“10”,其余组距皆为5岁,依次类推,直至最后,本例最后一组为“80~”。 ②输入年龄组起止符号“~” C6单元格中录入:=IF(B6,~,)”时,按住鼠标左键不放,垂直下拉至C23放开。此步简记:C6=IF (B6,~,) F6=IF(B6,E6/D6,)→确定→下拉→F23。 ④死亡概率 G6=IF(AND(B7,D6),IF(B6=0,F6,2*(B7-B6)*F6/(2+(B7-B6)*F6)), IF(AND(B7=,D6),1,))→确定→下拉→G23。 ⑤死亡人数=IF(B6,H6*G6,)→确定→下拉→I23。 ⑥生存人数 H6=IF(AND(B6=0,D6),100000,IF(AND(B60,D6),H5-I5,))→确定→下拉→H23。 ⑦计算生存人年数 J6=IF(AND(B7,D6),IF(B6=0,H7+0.15*I6,(B7-B6)/2*(H6+ H7)),IF(AND(B7=,D6),H6/F6,))→确定→下拉→J23。 ⑧计算生存总年数 K6=IF(AND(B7,D6),K7+J6,IF(AND(B7= ,D6),J6,))→确定→下拉→K23。 ⑨计算预期寿命 L6=IF(B6,K6/H6,)→确定→下拉→L23。 表1 简略寿命表的编制 B C D E F G H I J K L 2 年龄组(岁) 平均人口数 死亡数 死亡率 死亡概率 生存人数 死亡人数 生存人年数 生存总人年数 预期寿命 x~ nPx nDx nmx nqx lx ndx nLx Tx ex (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) 5 100000 6 0 =IF(B6,~,) 21865 256 =IF(B,E6/D6,) =IF(AND(B7,D6),IF(B6=0,F8,2*(B7-B6)*F6/(2+(B7-B6)*F6)),IF(AND(B7=,D6),1,)) =IF(AND(B6=0,D6),100000,IF(AND(B60,D6),H5-I5,)) =IF(B6,H6*G6,) =IF(AND(B7,D6),IF(B6=0,H7+0.15*I6,(B7-B6)/2*(H6+H7)),IF(AND(B7=,D6),H6/F6,)) =IF(AND(B7,D6),K7+J6,IF(AND(B7=,D6

文档评论(0)

tiangou + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档