眼科病床的合理安排

眼科病床的合理安排

摘 要

本文全面分析了医院病床安排所存在的问题，影响问题的因素，并利用病人满意度和医院工作效率作为评价指标，对现有的FCFS模型进行了优劣分析，建立了更为高效的综合病床安排模型。

问题一：为了能够更加合理的对医院病床使用情况做出评价，建立了病人满意度MYD，床位使用率，床位周转次数N0，病床使用指数评价体系。求出病人满意度MYD4.909，床位使用效率1，床位周转次数N040.7027，病床使用指数1.2719。

问题二: 医院在安排病人入院时要考虑多方面的因素，不仅要考虑病人的满意度，而且还要使医院资源的最大化利用。在安排已入院的病人手术时，给不同眼科疾病的病人的入院顺序赋予不同的优先级，根据每天的空病床数，决定入院病人的名额，在依次选取的一组未入院的门诊病人中按照优先级的高低依次安排人院，同种病人按门诊时间的先后顺序依次安排入院。

问题三：为了能够让病人在门诊时就能被告知大致入住医院的时间区间，我们根据当时已出院病人的数据，统计得到除急症病人外，其他病人的平均住院时间，然后建立正态分布的区间估计模型，对门诊病人的住院时间进行估计。计算可得，平均等待时间的置信度为10.95的置信区间为(12.5391，12.7595)，即可认为病致入住医院的时间区间为(12，13)。

问题四：周六周日不安排手术，则星期四、五的安排手术的时间就会发生变化，因此对星期四、五的对未住院的不同疾病的门诊病人的优先级进行相应的调整可得到到最优值。

问题五：为了使得所有病人在系统内的平均逗留时间T最短，以T做为目标函数，建立线性规划模型，用LINGO软件求解得到各类病人占用病床的比例：

x1:x2:x3:x4:x512:17:18:23:9

关键词：综合指标评价模型；病床合理分配

1.问题重述

医院就医排队是大家都非常熟悉的现象，它以这样或那样的形式出现在我们面前，例如，患者到门诊就诊、到收费处划价、到药房取药、到注射室打针、等待住院等，往往需要排队等待接受某种服务。

我们考虑某医院眼科病床的合理安排的数学建模问题。

该医院眼科门诊每天开放，住院部共有病床79张。该医院眼科手术主要分四大类：白内障、视网膜疾病、青光眼和外伤。附录中给出了2008年7月13日至2008年9月11日这段时间里各类病人的情况。

白内障手术较简单，而且没有急症。目前该院是每周一、三做白内障手术，此类病人的术前准备时间只需1、2天。做两只眼的病人比做一只眼的要多一些，大约占到60%。如果要做双眼是周一先做一只，周三再做另一只。

外伤疾病通常属于急症，病床有空时立即安排住院，住院后第二天便会安排手术。

其他眼科疾病比较复杂，有各种不同情况，但大致住院以后2-3天内就可以接受手术，主要是术后的观察时间较长。这类疾病手术时间可根据需要安排，一般不安排在周一、周三。由于急症数量较少，建模时这些眼科疾病可不考虑急症。

该医院眼科手术条件比较充分，在考虑病床安排时可不考虑手术条件的，但考虑到手术医生的安排问题，通常情况下白内障手术与其他眼科手术（急症除外）不安排在同一天做。当前该住院部对全体非急症病人是按照FCFS（First come, First serve）规则安排住院，但等待住院病人队列却越来越长，医院方面希望你们能通过数学建模来帮助解决该住院部的病床合理安排问题，以提高对医院资源的有效利用。

问题一：试分析确定合理的评价指标体系，用以评价该问题的病床安排模型的优劣。

问题二：试就该住院部当前的情况，建立合理的病床安排模型，以根据已知的第二天拟出院病人数来确定第二天应该安排哪些病人住院。并对你们的模型利用问题一中的指标体系作出评价。

问题三：作为病人，自然希望尽早知道自己大约何时能住院。能否根据当时住院病人及等待住院病人的统计情况，在病人门诊时即告知其大致入住时间区

间。

问题四：若该住院部周六、周日不安排手术，请你们重新回答问题二，医院的手术时间安排是否应作出相应调整?

问题五：有人从便于管理的角度提出建议，在一般情形下，医院病床安排可采取使各类病人占用病床的比例大致固定的方案，试就此方案，建立使得所有病人在系统内的平均逗留时间（含等待入院及住院时间）最短的病床比例分配模型。

2.模型假设及符号说明

2.1.模型假设

(1)由于视网膜疾病和青光眼急症数量较少，而白内障没有急症，在建模过程中这些眼科疾病我们不予考虑急症情况。

(2)该医院手术条件比较充分，在考虑病床安排时可不考虑手术条件的。 (3)每个病人只患一种病，不考虑一个病人兼患两种病（或以上）的情况。 (4)假设样本数据有代表性，能够反映医院眼科门诊每天接收各类病人的数量的分布以及各类病人术后的观察时间的分布。

(5)这个问题中，在FCFS条件下，为减少排队人数，假设医院的床位被全部利用，即医院的病床使用率始终为100%。

(6)病人门诊当天不能入院，最快要第二天入院。 2.2.符号说明

tij：病人从门诊到入院的等待时间； t'ij：病人从入院到手术的等待时间； tij：病人从门诊到入院的等待时间的平均值； t'ij；病人从入院到手术的等待时间的平均值；

w：病人从门诊到入院的等待时间平均值的权值；

w'：病人从门诊到入院的等待时间平均值的权值； MYD：病人的满意度；

：病床使用率；

d：实际占用总床日数； D：实际开放总床日数；

n0：床位周转次数 N0：标准周转次数 ：病床使用指数

3.模型的分析、建立及求解

3.1.模型一：评价指标体系模型

我们首先给出一个总的评价指标体系模型，对医院现行的病床安排以及我们以后给出的病床合理安排模型进行评价。 3.1.1.模型分析

对医院的病床安排问题，一个合理的评价指标体系必须要包括以下2个方面的因素：

(1)病人的满意度。病人从到医院门诊时开始接受医院的服务，从门诊到入院的等待时间和从入院到接受手术直至出院的等待时间构成了病人对医院的满意程度。一般来说，等待时间越长满意度越低，最后趋于平缓。而且从入院到手术的等待时间t'ij比从门诊到入院的等待时间tij的影响要更大一些，因为病人在入院了之后要缴纳住院费。

(2)医院工作效率。对医院方面来说，良好的工作效率构成了评价一个医院指标好与坏的前提，其主要包括两个方面：床位使用率和病人周转率。 3.1.2.模型建立

(1)病人的满意度

病人的满意度跟病人从门诊到入院的等待时间tij和从入院到手术的等待时间t'ij有关。一般来说，从入院到手术的等待时间t'ij比从门诊到入院的等待时间tij对病人满意度的影响更大一些，因为病人从入院到手术的等待时间内要缴纳手续术。我们对病人从门诊到入院的等待时间tij取平均值tij，对病人从入院到手术的等待时间取平均值t'ij，因为t'ij比tij对病人的满意度的影响更大一些，我们对tij取权值w=0.3，对t'ij取权值w'=0.7，得病人的满意度评价指标如下：

MYDwtijw't'ij;

由上面的分析知，病人的满意度对眼科病床的安排有明显的影响，MYD越小，则说明眼科病床的安排越合理；越大，则说明眼科病床的安排不太合理，还有待改进。

(2)医院工作效率

床位使用率：病床使用率=实际占用总床日数d/实际开放总床日数D，查阅国家标准，≥60%。它反映平均每天使用床位与实有床位的比例情况。使用率高，表示病床得到充分使用；反之，则说明病床空闲较多。

床位周转次数：床位周转次数n0=周期内入住人数（或者退出人数）NT/床位数N，查阅国家标准，医院年病床周转次数≥32。床位周转次数是衡量医院床位周转速度快慢的指标。平均床位工作日和床位使用率，只能说明床位的一般工作负荷状况，还不能表示床位的工作效率情况。分析病床工作效率时，应注意在一定时间内，周转次数多即周转速度快、病床利用情况好，病人平均住院天数少。

病床使用指数：病床使用指数=病床周转次数n0/标准周转次数N0*病床使用率。

综合上述的评价模型，我们可以得出一个合理的评价方案：

d/D;n0NT/N;

n0/N0对上面的分析知，病床使用指数反映了一个医院的工作效率，若病床使用指数越大，则医院的工作效率越高；若病床使用指数越小，则医院的工作效率越低。

3.1.3.模型求解

我们对以上建立的模型进行求解，可以求得病人的满意度和医院的工作效率指标。

3.1.3.1.病人满意度

通过病人满意度模型的建立，MYDwtijw't'ij;，我们利用Matlab对所给出的数据进行处理，得出病人的满意度MYD4.909。

3.1.3.2.医院工作效率

8月8号到8月28号医院病床使用数量达到动态平衡的饱和状态，见下表：

表1 8月8号至8月28号医院病人统计表

最终床位入院入院时间 人数 2008-8-8 2008-8-9 2008-8-10 2008-8-11 2008-8-12 2008-8-13 2008-8-14 2008-8-15 2008-8-16 2008-8-17 2008-8-18 2008-8-19 2008-8-20 2008-8-21 2008-8-22 2008-8-23 2008-8-24 2008-8-25 2008-8-26 2008-8-27 2008-8-28 15 20 9 6 2 6 9 8 13 6 4 7 10 4 8 18 11 6 3 8 12 天数/第i天 27 28 星期五 星期六 星期日 星期一 星期二 星期三 星期四 星期五 星期六 星期日 星期一 星期二 星期三 星期四 星期五 星期六 星期日 星期一 星期二 星期三 星期四 出院入院累计量 141 161 170 176 178 184 193 201 214 220 224 231 241 245 253 271 282 288 291 299 311 出院累积量 62 82 91 97 99 105 114 122 135 141 145 152 162 166 174 192 203 209 212 220 232 床位使用数 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 使用数 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 人数 15 20 9 6 2 6 9 8 13 6 4 7 10 4 8 18 11 6 3 8 12 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 求解得到的结果如下表：

表2 问题二求解结果

出院总人数 总床 实际周转次数 标准病人周转次数 工作效率

周期一 67 79 0.8481 0.6137 1.3819 周期二 52 79 0.6582 0.6137 1.0725 周期三 66 79 0.8354 总数：40.7027 0.6137 1.3613 1.2719 3.2.模型二：排队模型

3.2.1.问题分析及模型建立求解

医院在安排病人入院时要考虑多方面的因素，不仅要考虑病人的满意度，而且还要使医院资源的最大化利用。在安排已入院的病人手术时，考虑白内障手术较简单，而且没有急症，此类病人的术前准备时间只需1、2天。目前该院是每周一、三做白内障手术，如果要做双眼是周一先做一只，周三再做另一只。可是在我们对该医院的病人数据进行处理后，发现白内障和白内障(双眼)病人入院后等待手术的时间分别为2．333和3．579天，与正常的术前准备时间不否，多出的准备时间会给病人增加多余的经济负担，使病人满意度降低，同时造成了医院的资源浪费。

通过对问题的分析，在安排病人入院时，针对目前该医院所存在的资源浪费问题以及减少每种病人的术前准备的时间，我们将每天的未人院的门诊病人作为一组，一起作为考虑人院的对象。

考虑到病人的术前准备时间以及对患白内障疾病病人的手术时间的特殊安排．在安排入院时，对一星期中的七天。每天给不同眼科疾病的病人的入院顺序赋予不同的优先级，根据每天的空病床数，决定人院病人的名额，在依次选取的一组未入院的门诊病人中按照优先级的高低依次安排人院，同种病人按门诊时间的先后顺序依次安排入院。即患有不同疾病的病人可以按优先级在有空床的当天入院，相同疾病的病人按照FCFS规则选择入院。为实现该模型，经过对大量数据的分析和手术安排的规划，规定一星期七天中每天对不同疾病未入院的门诊病人的优先级（4>3>2>1），其具体级别如表1所示。

表3 优先级表

优先级 白内障双眼 白内障单眼 视网膜、青光眼 外伤 星期一 星期二 星期三 星期四 星期五 星期六 星期日 1 1 1 1 1 3 3 3 3 2 2 2 2 2 2 2 3 3 3 1 1 4 4 4 4 4 4 4 具体算法步骤：

Step1：估计表二中病人的出院时间，选出表二中最早出院时间，并查找出在此

天出院的人数及空床数，判断此天是星期几，然后根据上述优先级表格安排此天住院人；

Step2：根据上述安排估计出被安排住院的人的出院时间，将已安排住院的那天

日期记为无穷大（即再选出院时间就不会在选这一天，而选这天之后的）；

Step3：重复以上步骤，直到表三中门诊病人都被安排住院。

以下列出部分求解结果，全部求解结果见附录7，程序代码见附录2。

表4 问题二部分求解结果

1 2 3 4 5 6 7 8 9 10 11 视网膜疾病 视网膜疾病 2008-8-15 2008-8-29 2008-8-31 2008-8-16 2008-8-29 2008-8-31 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-2 2008-9-3 2008-9-3 2008-9-3 2008-9-8 2008-9-4 2008-9-4 2008-9-4 2008-9-8 2008-9-4 2008-9-5 2008-9-8 2008-9-8 / / 2008-9-10 / / / 2008-9-10 / / 2008-9-10 2008-9-10 2008-9-10 2008-9-10 2008-9-13 2008-9-12 2008-9-14 2008-9-14 2008-9-13 2008-9-14 2008-9-15 2008-9-13 2008-9-13 白内障(双眼) 2008-8-19 青光眼 视网膜疾病 视网膜疾病 2008-8-19 2008-8-19 2008-8-19 白内障(双眼) 2008-8-19 视网膜疾病 视网膜疾病 2008-8-19 2008-8-19 白内障(双眼) 2008-8-19 白内障(双眼) 2008-8-19

12 13 14 15 16 17 18 19 20 视网膜疾病 白内障 视网膜疾病 视网膜疾病 视网膜疾病 视网膜疾病 视网膜疾病 2008-8-19 2008-8-19 2008-8-19 2008-8-20 2008-8-20 2008-8-20 2008-8-20 2008-9-3 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-5 2008-9-5 2008-9-8 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-8 2008-9-7 / / / / / / / 2008-9-10 / 2008-9-15 2008-9-11 2008-9-16 2008-9-16 2008-9-16 2008-9-16 2008-9-16 2008-9-13 2008-9-17 白内障(双眼) 2008-8-20 视网膜疾病 2008-8-21

3.2.2.模型建立的检验

本文在问题二中建立的优化模型后，预测出题目中表2、表3的数据，包括入院时间，手术时间，出院时间，按照问题一给定的满意度的指标进行评价，检验，最终得到综合满意度为MYD4.424，与第一问的MYD4.907相比显得更优秀，验证了模型的合理性。

针对问题二中排队模型的Matlab代码见附录6。 3.3.模型三：区间估计模型

为了能够让病人在门诊时就能被告知大致人住医院的时间区间，我们根据当时已经出院病人的数据，统计得到除急症病人外，其他病人的平均住院时间，然后建立区间估计模型，对门诊病人的住院时间进行估计。在不考虑外伤的情况下，可近似认为病人的服务时间即等待时间tij服从正态分布N(,2)，其中方差2未知，故平均等待时间的置信度为10.95的置信区间为

(tijt(n1)21SnS,tijt(n1)n)1nn 2计算可得，置信区间为(12.5314，12.7672)。故可以在病人门诊时告知其大致入住院时间区间为(12，13)，即住院时间大概是在门诊后的第12或13天。 3.4.模型四

3.4.1.模型建立及求解

周六周日不安排手术，则星期四、五的安排手术的时间就会发生变化，因此

对星期四、五的对未住院的不同疾病的门诊病人的优先级进行如下调整：

表4 调整后的优先表 白内障单优先级 白内障双眼 星期一 星期二 星期三 星期四 星期五 星期六 星期日 1 1 1 3 3 3 3 眼 3 3 2 2 2 2 2 视网膜、青光眼 4 2 3 1 1 1 1 外伤 2 4 4 4 4 4 4 针对问题四中Matlab程序代码见附录2，求解结果见附录8。 3.4.2.结果分析

通过对建立的模型进行仿真与分析后，认为该医院目前所采取的FCFS规则，虽然可以解决大部分病人的住院问题，但是不能够使医院的资源得以合理有效的利用，同时损害了病人的利益，使病人的满意率下降；而基于优先级的病床安排，不仅可以权衡病人和医院双方的利益，而且使排队系统的绝大多数的运营指标均处于最优状态．得到了最优化的处理结果。 3.5.模型五：线性规划模型 3.5.1.模型分析

从便于管理的角度出发，在一般情形下，医院病床安排可采取按照各类病人占用病床的比例进行分类排队的方案。 3.5.2.模型建立

因为单眼白内障和双眼白内障病人所需住院时间不一样，把病人再细分为外伤、单眼白内障、双眼白内障、青光眼和视网膜疾病五类。设这五类病人的占用病床比例为x1:x2:x3:x4:x5。病人在系统内的平均逗留时间T主要由等待入院时间axi、术前准备时间bxi和术后观察时间cxi决定。为了使得所有病人在系统内的平均逗留时间T最短，我们以T做为目标函数，建立线性规划模型：

minW=ajxibjxicjxi同时必须满足以下条件：

(1)xi都不能超过79张床，且x1,x2,x3,x4,x5的和为79；

(2)根据医院历史的统计情况，对不同情况作出统计，五种病所占的比例约为：12，13，20，23, 9，所以需满足 x112,x213,x320,x49,x59;

(3)病床数xi为正整数，各种病床总数之和为79。

考虑不同病症的病情、手术时间安排和术后观察时间长度等情况各不相同，术前准备时间长和术后观察时间长的病症因为病床周转慢，所以应多分配占用多一些床数，统计2008-07-13到2008-09-11的病人信息表中可以得出

x2x4x1x3x5。于是得出线性规划模型：

目标函数为：minWajxibkxicnxi 约束条件为：

0x79xxxxxx79x12x13x20x23x9x0 i241355i1i12345i五种不同种类的病的入院等待时间，手术等待时间，术后观察时间如下表：

表5 等待时间表

入院等待时间（天） 术前等待时间（天） 术后观察时间（天） 外伤 1 1 6.03 白内障单眼 12.6667 2.3333 2.9028 白内障双眼 12.5122 3.5976 2.9634 青光眼 12.25 2.4103 8.0769 视网膜 12.549 2.3752 10.1069

3.5.3.模型求解

对线性规划模型用LINGO求解得到：x1:x2:x3:x4:x512:17:18:23:9，分析结果可知，病床数之和为79，使病床使用量达到动态平衡的饱和状态，故所得的结果具有较大的合理性。

针对问题五的lingo程序代码见附录5。

4.模型误差和优缺点分析

4.1.误差分析

(1)数据的近似误差

在建立模型以前，为了更容易利用数据，对数据进行了近似处理，必然也存在着一定的误差，而对数值的平均和求解其概率，都是一个近似的问题。

(1)因素考虑的不全面所带来的误差

虽然附件中给出了大量相关数据，但由于病人是随机抽取的，7月13号之前和9月11好之后的数据题目中没有提供，这样就可能存在某些病人的数据缺失的情况，因此我们统计的数据与真实的情况存在一些偏差。

为了统计计算方便，有必要剔出一些不规则数据，即奇异值，且把某个时间点附近测试的情况全部归到该时间点，这样也会造成所建模型与真实情况有一定的差异。 4.2.模型的优点

1、模型在确定医院眼科病床的安排指标体系中，综合考虑了病人的满意率和医院的工作效率等两个方面，其中病人的满意率又细分为病人对从门诊到入院的等待时间和从入院到手术的等待时间的满意程度，并能根据实际情况赋予不同的权值，医院的工作效率联系了国家标准的病床周转次数，所得模型比较合理。

2、模型采用了区间估计的方法，通过对大量数据的分析，具有很高的可信度。

3、可以作为查询服务平台，具有很高的实用性。 4.3.模型的缺点

1、模型在对患者身体状况优劣的研究上，认为所有患者具有相同的体质，接受治疗的效果是相同的，对其他因素没有过多考虑，当然这种情况是无法避免

的。

2、对于病人的住院时间，我们通过统计的方法求得其平均值，在模型中加以使用。但在现实生活中，病人的治疗时间是随机分布的，这样就存在一定的误差。

5.模型的推广

对于建立的模型，我们在将其仿真之后做成可视化的界面形式，提供给医院作为医院门诊病人的资料库，在病人输入患病类型之后，系统能够自动的告知患者前来入院的时间。

本模型利用大量有效、可靠的原始数据和相关信息，利用排队模型，和统计预测的知识，对医院就诊病人数量，病人入院时间安排效果进行分析、预测。得出了患者满意度和医院病床利用率都较合理的预测结果，此结论可直接应用于医院的查询平台系统。另外，模型中分析问题、解决问题时的一些独到方式、方法可以直接应用到银行，火车站等公共设施排队问题的分析上。模型中所引入的一些新的提法（例如：等待因子）等，也是与现实中的情况紧密相关的。通过对其量化，从而使其在很大程度上反映了人的真实心理，使模型的实用价值更强。

参考文献

[1] 薛毅，耿美英.运筹学与实验[M].北京：电子工业出版社，2008.9 [2] 姜启源，谢金星，叶俊.数学模型[M].北京：高等教育出版社,2003.8

附 录

附录1：床位使用统计表

入院累计入院时间 入院人数 2008-7-13 2008-7-14 2008-7-17 2008-7-18 2008-7-19 2008-7-20 2008-7-21 2008-7-22 2008-7-23 2008-7-24 2008-7-25 2008-7-26 2008-7-27 2008-7-28 2008-7-29 2008-7-30 2008-7-31 2008-8-1 2008-8-2 2008-8-3 2008-8-4 2008-8-5 2008-8-6 2008-8-7 0 1 1 1 2 1 2 2 1 2 4 8 11 11 9 9 8 7 12 6 6 5 9 8 量 0 1 2 3 5 6 8 10 11 13 17 25 36 47 56 65 73 80 92 98 104 109 118 126 出院人数 0 0 0 0 1 0 0 1 0 0 2 1 1 3 2 5 1 2 5 2 2 4 8 7 出院累积量 0 0 0 0 1 1 1 2 2 2 4 5 6 9 11 16 17 19 24 26 28 32 40 47 床位使用数 0 1 2 3 4 5 7 8 9 11 13 20 30 38 45 49 56 61 68 72 76 77 78 79 72 76 77 78 79 该段时间床位使用数很少的原因是：从2008-7-14以前的在住院人数不清。 最终床位使用数

2008-8-8 2008-8-9 2008-8-10 2008-8-11 2008-8-12 2008-8-13 2008-8-14 2008-8-15 2008-8-16 2008-8-17 2008-8-18 2008-8-19 2008-8-20 2008-8-21 2008-8-22 2008-8-23 2008-8-24 2008-8-25 2008-8-26 2008-8-27 2008-8-28 2008-8-29 2008-8-30 2008-8-31 2008-9-1 2008-9-2 2008-9-3 2008-9-4 15 20 9 6 2 6 9 8 13 6 4 7 10 4 8 18 11 6 3 8 12 8 14 2 1 1 1 2 141 161 170 176 178 184 193 201 214 220 224 231 241 245 253 271 282 288 291 299 311 319 333 335 336 337 338 340 15 20 9 6 2 6 9 8 13 6 4 7 10 4 8 18 11 6 3 8 12 10 14 2 6 2 5 9 62 82 91 97 99 105 114 122 135 141 145 152 162 166 174 192 203 209 212 220 232 242 256 258 2 266 271 280 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 77 77 77 72 71 67 60 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79

2008-9-5 2008-9-6 2008-9-7 2008-9-8 2008-9-9 2008-9-10 2008-9-11 5 0 4 0 0 0 0 345 345 349 349 349 349 349 13 17 10 4 5 13 7 293 310 320 324 329 342 349 52 35 29 25 20 7 0 79 79 79 79 79 79 79

附录2：问题五求解的lingo程序代码

sets:

chuangshu/1,2,3,4,5/:x; pdengruyuan/1,2,3,4,5/:a; pdengshoushu/1,2,3,4,5/:b; phuifu/1,2,3,4,5/:c; endsets

min=@sum(chuangshu(i):a(i)*x(i)+b(i)*x(i)+c(i)*x(i)); @sum(chuangshu(i):x(i))=79;

@for(chuangshu(i):@GIN(x(i));); @for(chuangshu(i):x(i)>5;); @BND(1,x(1),12); @bnd(1,x(2),35); @bnd(1,x(3),35); @bnd(1,x(4),23); @bnd(1,x(5),9); x(2)+x(3)<35; x(2)-x(3)<0; data:

a=1 12.6667 12.5122 12.25 12.5490;

b=1 2.3333 3.5976 2.4103 2.3725; c=6.03 2.9028 2.9634 8.0769 10.1569; enddata end

附录3：第二问程序代码

function [cysjb2,rysj2,cysjb3,sssj2]=er

lb1=[3 3 1 4 3 3 1 3 3 1 3 1 1 3 4 4 1 3 1 1 4 1 1 3 2 1 3 3 3 2 1 4 4 3 4 1 3 2 1 2

5 5 5];

lb2=[1 3 4 3 3 1 2 4 1 3 1 3 2 3 3 2 2 1 2 3 2 4 3 3 3 4 1 1 4 4 2 1 1 1 3 4 1 3 1 3 4 3 2 2 3 2 1 2 2 1

1 5 1 3 2 3 3];

mzsj2=[16 16 16 16 16 16 17 17 17 18 18 18 18 18 18 19 19 19 19 21 21 21 21 21 21 21 21 21 21 22 22 22 22 23 23 23 23 24 24 26 26 26 26 26 27 27 27 27 27

28 28 28 28 28 28 28 28];

rysj2=zeros(1,102);

sssj1=[17 17 25 21 21 21 25 21 22 25 24 25 25 24 24 24 25 26 25 26 26 25 25 26 25 25 26 28 28

32 32 28 29 29 29 32 29 32 32 1 3 2 4 3 1 3 1 3 1 3 2 3 3 4 3 3 1 3 3 1 2 3 3 2 4 1 17 17 17 19 20 20 21 21 21 24 25 25 27 27 27 25 25 22 25 26 26 27 28 32 32 32 30 3 3 3 3 3 1 2 1 3 3 5 5 2 3 3 2 3 2 1 1 3 2 1 2 3 3 4 17 17 18 20 20 20 22 22 22 25 25 25 27 28 28 25 23 23 25 26 26 28 27 32 32 30 23 3 3 14 3 33 3 15 5 54 1 13 3 11 4 13 2 41 1 418 18 1820 20 2022 22 2225 25 2528 28 2823 23 2325 26 2629 29 2924 24 24

25 27 28 28];

cysj1=zeros(1,79); cysj2=zeros(1,102); hfsj=[5,3,10,8,6]; cysjb3=zeros(1,102); sssj2=zeros(1,102);

for i=1:79 %表二的出院日期 l=lb1(i);

cysj1(i)=sssj1(i)+hfsj(l); end

cysjb2=cysj1; kongchuangshu=0; ss=0; while(ss~=1)

chuyuan=zeros(2,102); chuyuan(1,1:79)=cysj1; chuyuan(2,:)=cysj2; for i=1:2 for j=1:102

if chuyuan(i,j)==0 chuyuan(i,j)=inf; end end end

zx=min(min(chuyuan));%寻找最近出院时间 xh=find(chuyuan==zx);

geshu=length(xh)+kongchuangshu; for i=1:length(xh) k1=mod(xh(i),2); if k1==1

cysj1(ceil(xh(i)/2))=inf; end end

xingqi=mod(zx+4,7); mz=find(mzsj2<=zx); kzy=length(mz); mzlb=zeros(kzy); kmzsj=zeros(kzy); for i=1:kzy

kmzsj(i)=mzsj2(mz(i)); mzlb(i)=lb2(mz(i)); end

wai=find(mzlb==5); wss=length(wai); bais=find(mzlb==1); bss=length(bais); baid=find(mzlb==2); bds=length(baid); sq=find(mzlb==3|mzlb==4); sqs=length(sq); switch xingqi case 1

if wss>=geshu for i=1:geshu

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

elseif (wss=(geshu-wss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:geshu-wss

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+2+hfsj(2); cysjb3(mz(baid(i)))=zx+2+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+2; end

elseif (wss=(geshu-wss-bds)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+2+hfsj(2); cysjb3(mz(baid(i)))=zx+2+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+2; end

for i=1:geshu-wss-bds rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+3+hfsj(4); cysjb3(mz(sq(i)))=zx+3+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+3; end elseif

(wss=(geshu-wss-bds-sqs)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+2+hfsj(2); cysjb3(mz(baid(i)))=zx+2+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+2; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+3+hfsj(4); cysjb3(mz(sq(i)))=zx+3+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+3; end

for i=1:geshu-wss-bds-sqs rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+7+hfsj(1); cysjb3(mz(bais(i)))=zx+7+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+7; end else

for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+2+hfsj(2); cysjb3(mz(baid(i)))=zx+2+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+2; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+3+hfsj(4); cysjb3(mz(sq(i)))=zx+3+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+3; end

for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+7+hfsj(1); cysjb3(mz(bais(i)))=zx+7+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+7; end

kongchuangshu=geshu-length(mz); end case 2

if wss>=geshu for i=1:geshu

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

elseif (wss=(geshu-wss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:geshu-wss

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+1+hfsj(2); cysjb3(mz(baid(i)))=zx+1+hfsj(2); mzsj2(mz(baid(i)))=inf;

sssj2(mz(baid(i)))=zx+1; end

elseif (wss=(geshu-wss-bds)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+1+hfsj(2); cysjb3(mz(baid(i)))=zx+1+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+1; end for i=1:geshu-wss-bds rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end elseif

(wss=(geshu-wss-bds-sqs)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5);

mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+1+hfsj(2); cysjb3(mz(baid(i)))=zx+1+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+1; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

for i=1:geshu-wss-bds-sqs rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+6+hfsj(1); cysjb3(mz(bais(i)))=zx+6+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+6; end else

for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf;

sssj2(mz(wai(i)))=zx+1; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+1+hfsj(2); cysjb3(mz(baid(i)))=zx+1+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+1; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+6+hfsj(1); cysjb3(mz(bais(i)))=zx+6+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+6; end

kongchuangshu=geshu-length(mz); end case 3

if wss>=geshu for i=1:geshu

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5);

cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

elseif (wss=(geshu-wss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:geshu-wss rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

elseif (wss=(geshu-wss-sqs)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4);

cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

for i=1:geshu-wss-sqs rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+5+hfsj(2); cysjb3(mz(baid(i)))=zx+5+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+5; end elseif

(wss=(geshu-wss-bds-sqs)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+5+hfsj(2);

cysjb3(mz(baid(i)))=zx+5+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+5; end

for i=1:geshu-wss-bds-sqs rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+5+hfsj(1); cysjb3(mz(bais(i)))=zx+5+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+5; end else

for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+5+hfsj(2); cysjb3(mz(baid(i)))=zx+5+hfsj(2);

mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+5; end

for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+5+hfsj(1); cysjb3(mz(bais(i)))=zx+5+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+5; end

kongchuangshu=geshu-length(mz); end case 4

if wss>=geshu for i=1:geshu

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

elseif (wss=(geshu-wss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:geshu-wss

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

elseif (wss=(geshu-wss-sqs)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

for i=1:geshu-wss-sqs rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+4+hfsj(2); cysjb3(mz(baid(i)))=zx+4+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+4; end elseif

(wss=(geshu-wss-bds-sqs))

for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysj2(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+4+hfsj(2); cysjb3(mz(baid(i)))=zx+4+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+4; end

for i=1:geshu-wss-bds-sqs rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+4+hfsj(1); cysjb3(mz(bais(i)))=zx+4+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+4; end else

for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+4+hfsj(2); cysjb3(mz(baid(i)))=zx+4+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+4; end

for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+4+hfsj(1); cysjb3(mz(bais(i)))=zx+4+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+4; end

kongchuangshu=geshu-length(mz); end case 5

if wss>=geshu for i=1:geshu

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

elseif (wss=(geshu-wss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:geshu-wss rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

elseif (wss=(geshu-wss-sqs)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1;

end

for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

for i=1:geshu-wss-sqs rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+3+hfsj(2); cysjb3(mz(baid(i)))=zx+3+hfsj(2); sssj2(mz(baid(i)))=zx+3; mzsj2(mz(baid(i)))=inf; end elseif

(wss=(geshu-wss-bds-sqs)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2;

end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+3+hfsj(2); cysjb3(mz(baid(i)))=zx+3+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+3; end

for i=1:geshu-wss-bds-sqs rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+3+hfsj(1); cysjb3(mz(bais(i)))=zx+3+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+3; end else

for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+3+hfsj(2); cysjb3(mz(baid(i)))=zx+3+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+3; end

for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+3+hfsj(1); cysjb3(mz(bais(i)))=zx+3+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+3; end

kongchuangshu=geshu-length(mz); end case 6

if wss>=geshu for i=1:geshu

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

elseif (wss=(geshu-wss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5);

mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:geshu-wss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+2+hfsj(1); cysjb3(mz(bais(i)))=zx+2+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+2; end

elseif (wss=(geshu-wss-bss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+2+hfsj(1); cysjb3(mz(bais(i)))=zx+2+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+2; end

for i=1:geshu-wss-bss rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+2+hfsj(2); cysjb3(mz(baid(i)))=zx+2+hfsj(2); mzsj2(mz(baid(i)))=inf;

sssj2(mz(baid(i)))=zx+2; end elseif

(wss=(geshu-wss-bds-bss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+2+hfsj(1); cysjb3(mz(bais(i)))=zx+2+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+2; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+2+hfsj(2); cysjb3(mz(baid(i)))=zx+2+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+2; end

for i=1:geshu-wss-bds-bss rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+3+hfsj(4); cysjb3(mz(sq(i)))=zx+3+hfsj(4); mzsj2(mz(sq(i)))=inf;

sssj2(mz(sq(i)))=zx+3; end else

for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+2+hfsj(1); cysjb3(mz(bais(i)))=zx+2+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+2; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+2+hfsj(2); cysjb3(mz(baid(i)))=zx+2+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+2; end

for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+3+hfsj(4); cysjb3(mz(sq(i)))=zx+3+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+3;

end

kongchuangshu=geshu-length(mz); end otherwise

if wss>=geshu for i=1:geshu

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

elseif (wss=(geshu-wss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:geshu-wss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+1+hfsj(1); cysjb3(mz(bais(i)))=zx+1+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+1; end

elseif (wss=(geshu-wss-bss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+1+hfsj(1); cysjb3(mz(bais(i)))=zx+1+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+1; end

for i=1:geshu-wss-bss rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+1+hfsj(2); cysjb3(mz(baid(i)))=zx+1+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+1; end elseif

(wss=(geshu-wss-bds-bss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+1+hfsj(1); cysjb3(mz(bais(i)))=zx+1+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+1; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+1+hfsj(2); cysjb3(mz(baid(i)))=zx+1+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+1; end

for i=1:geshu-wss-bds-bss rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end else for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+1+hfsj(1);

cysjb3(mz(bais(i)))=zx+1+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+1; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+1+hfsj(2); cysjb3(mz(baid(i)))=zx+1+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+1; end

for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

kongchuangshu=geshu-length(mz); end end

bi=mzsj2==(zeros(1,102)+inf); ss=sum(bi)/102; for i=1:length(xh) if mod(xh(i),2)==0

cysj2(ceil(xh(i)/2))=inf; end end end

附录4：第四问程序代码

function [cysjb2,rysj2,cysjb3,sssj2]=si lb1=[3 3 1 4 3 1 1 3 4 1 1 3 1 4 4 3

5

5 5]; lb2=[1 3 4 3 1 3 2 3 2 4 3 3 2 1 1 1 4 3 2 2

1

5

1

3

mzsj2=[16 16 16 18 18 18 18 21 21 21 21 22 22 22 22 26 26 26 26

28 28 28 28 rysj2=zeros(1,102);

sssj1=[17 17 25 21 24 25 25 24 26 25 25 26 32 28 29 29

27 28 28];

cysj1=zeros(1,79); cysj2=zeros(1,102); hfsj=[5,3,10,8,6]; cysjb3=zeros(1,102);

3 3 1 4 4 1 2 1 3 4

1

3

3 1 2 3 2 2 3 4 1 3 4 1 3 2 1 2

3

3];

16 16 16 18 18 19 21 21 21 23 23 23 26 27 27 28 28 28 21 21 25 24 24 25 25 25 26 29 32 29 3 3 1 3 1 1 3 3 2 2

1

2

4 1 3 1 2 3 1 4 4 3 1 3 2

2

1

17 17 17 19 19 19 21 21 21 23 24 24 27 27 27 28];

21 22 25 26 25 25 28 28 27 32 32 32 1 3 2 4 3 1 3 1 3 1

3

2

3 3 4 3 3 1 3 3 1 2 3 3 2

4

1

17 17 17 19 20 20 21 21 21 24 25 25 27 27 27 25 22 25 26 26 25 28 32 28 32 30 32 3 3 3 3 3 1 2 1 3 3

5

5

2 3 3 2 3 2 1 1 3 2 1 2 3

3

4

17 17 18 20 20 20 22 22 22 25 25 25 27 28 28 23 23 23 26 26 25 27 32 29 30 23 24 3 3 14 3 33 3 15

5

5

4 1 13 3 11 4 13 2 41

1

4

18 18 18

20 20 2022 22 2225 25 2528 28 2823 23 2526 26 2629 29 3224 24 25

sssj2=zeros(1,102);

for i=1:79 %表二的出院日期 l=lb1(i);

cysj1(i)=sssj1(i)+hfsj(l); end

cysjb2=cysj1; kongchuangshu=0; ss=0; while(ss~=1) chuyuan=zeros(2,102); chuyuan(1,1:79)=cysj1; chuyuan(2,:)=cysj2; for i=1:2 for j=1:102

if chuyuan(i,j)==0 chuyuan(i,j)=inf; end end end

zx=min(min(chuyuan));%寻找最近出院时间 xh=find(chuyuan==zx);

geshu=length(xh)+kongchuangshu; for i=1:length(xh) k1=mod(xh(i),2); if k1==1

cysj1(ceil(xh(i)/2))=inf; end end

xingqi=mod(zx+4,7); mz=find(mzsj2<=zx);

kzy=length(mz); mzlb=zeros(kzy); kmzsj=zeros(kzy); for i=1:kzy

kmzsj(i)=mzsj2(mz(i)); mzlb(i)=lb2(mz(i)); end

wai=find(mzlb==5); wss=length(wai); bais=find(mzlb==1); bss=length(bais); baid=find(mzlb==2); bds=length(baid);

sq=find(mzlb==3|mzlb==4); sqs=length(sq); switch xingqi case 1

if wss>=geshu for i=1:geshu

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

elseif (wss=(geshu-wss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5);

mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:geshu-wss

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+2+hfsj(2); cysjb3(mz(baid(i)))=zx+2+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+2; end

elseif (wss=(geshu-wss-bds)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+2+hfsj(2); cysjb3(mz(baid(i)))=zx+2+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+2; end for i=1:geshu-wss-bds rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+3+hfsj(4); cysjb3(mz(sq(i)))=zx+3+hfsj(4); mzsj2(mz(sq(i)))=inf;

sssj2(mz(sq(i)))=zx+3; end elseif

(wss=(geshu-wss-bds-sqs)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+2+hfsj(2); cysjb3(mz(baid(i)))=zx+2+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+2; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+3+hfsj(4); cysjb3(mz(sq(i)))=zx+3+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+3; end

for i=1:geshu-wss-bds-sqs rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+7+hfsj(1); cysjb3(mz(bais(i)))=zx+7+hfsj(1); mzsj2(mz(bais(i)))=inf;

sssj2(mz(bais(i)))=zx+7; end else

for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+2+hfsj(2); cysjb3(mz(baid(i)))=zx+2+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+2; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+3+hfsj(4); cysjb3(mz(sq(i)))=zx+3+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+3; end for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+7+hfsj(1); cysjb3(mz(bais(i)))=zx+7+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+7;

end

kongchuangshu=geshu-length(mz); end case 2

if wss>=geshu for i=1:geshu

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

elseif (wss=(geshu-wss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:geshu-wss

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+1+hfsj(2); cysjb3(mz(baid(i)))=zx+1+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+1; end

elseif (wss=(geshu-wss-bds)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+1+hfsj(2); cysjb3(mz(baid(i)))=zx+1+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+1; end for i=1:geshu-wss-bds rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end elseif

(wss=(geshu-wss-bds-sqs)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+1+hfsj(2); cysjb3(mz(baid(i)))=zx+1+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+1; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

for i=1:geshu-wss-bds-sqs rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+6+hfsj(1); cysjb3(mz(bais(i)))=zx+6+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+6; end else

for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+1+hfsj(2);

cysjb3(mz(baid(i)))=zx+1+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+1; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+6+hfsj(1); cysjb3(mz(bais(i)))=zx+6+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+6; end

kongchuangshu=geshu-length(mz); end case 3

if wss>=geshu for i=1:geshu

rysj2(mz(wai(i)))=zx; cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

elseif (wss=(geshu-wss))

for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:geshu-wss rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

elseif (wss=(geshu-wss-sqs)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

for i=1:geshu-wss-sqs

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+5+hfsj(2); cysjb3(mz(baid(i)))=zx+5+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+5; end elseif

(wss=(geshu-wss-bds-sqs)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+5+hfsj(2); cysjb3(mz(baid(i)))=zx+5+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+5; end

for i=1:geshu-wss-bds-sqs

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+5+hfsj(1); cysjb3(mz(bais(i)))=zx+5+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+5; end else

for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+5+hfsj(2); cysjb3(mz(baid(i)))=zx+5+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+5; end for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+5+hfsj(1); cysjb3(mz(bais(i)))=zx+5+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+5; end

kongchuangshu=geshu-length(mz); end case 4

if wss>=geshu for i=1:geshu

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

elseif (wss=(geshu-wss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:geshu-wss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+5+hfsj(4); cysjb3(mz(bais(i)))=zx+5+hfsj(4); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+4;

end

elseif (wss=(geshu-wss-sqs)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end for i=1:bss

rysj2(mz(bais(i)))=zx; cysj2(mz(bais(i)))=zx+5+hfsj(4); cysjb3(mz(bais(i)))=zx+5+hfsj(4); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+4; end

for i=1:geshu-wss-bss rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+4+hfsj(2); cysjb3(mz(baid(i)))=zx+4+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+4; end elseif

(wss=(geshu-wss-bds-sqs)) for i=1:wss rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf;

sssj2(mz(wai(i)))=zx+1; end for i=1:bss

rysj2(mz(bais(i)))=zx; cysj2(mz(bais(i)))=zx+5+hfsj(4); cysjb3(mz(bais(i)))=zx+5+hfsj(4); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+4; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+4+hfsj(2); cysjb3(mz(baid(i)))=zx+4+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+4; end

for i=1:geshu-wss-bds-bss rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+5+hfsj(1); cysjb3(mz(sq(i)))=zx+5+hfsj(1); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+5; end else

for i=1:wss rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1;

end for i=1:bss

rysj2(mz(bais(i)))=zx; cysj2(mz(bais(i)))=zx+5+hfsj(4); cysjb3(mz(bais(i)))=zx+5+hfsj(4); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+4; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+4+hfsj(2); cysjb3(mz(baid(i)))=zx+4+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+4; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+5+hfsj(1); cysjb3(mz(sq(i)))=zx+5+hfsj(1); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+5; end

kongchuangshu=geshu-length(mz); end case 5

if wss>=geshu for i=1:geshu

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+3+hfsj(5); cysjb3(mz(wai(i)))=zx+3+hfsj(5);

mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+3; end

elseif (wss=(geshu-wss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+3+hfsj(5); cysjb3(mz(wai(i)))=zx+3+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+3; end

for i=1:geshu-wss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+3+hfsj(4); cysjb3(mz(bais(i)))=zx+3+hfsj(4); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+3; end

elseif (wss=(geshu-wss-sqs)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+3+hfsj(5); cysjb3(mz(wai(i)))=zx+3+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+3; end for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+3+hfsj(4); cysjb3(mz(bais(i)))=zx+3+hfsj(4);

mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+3; end

for i=1:geshu-wss-bss rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+3+hfsj(2); cysjb3(mz(baid(i)))=zx+3+hfsj(2); sssj2(mz(baid(i)))=zx+3; mzsj2(mz(baid(i)))=inf; end elseif

(wss=(geshu-wss-bds-sqs)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+3+hfsj(5); cysjb3(mz(wai(i)))=zx+3+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+3; end for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+3+hfsj(4); cysjb3(mz(bais(i)))=zx+3+hfsj(4); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+3; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+3+hfsj(2); cysjb3(mz(baid(i)))=zx+3+hfsj(2);

sssj2(mz(baid(i)))=zx+3; mzsj2(mz(baid(i)))=inf; end

for i=1:geshu-wss-bds-bss rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+4+hfsj(1); cysjb3(mz(sq(i)))=zx+4+hfsj(1); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+4; end else

for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+3+hfsj(5); cysjb3(mz(wai(i)))=zx+3+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+3; end for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+3+hfsj(4); cysjb3(mz(bais(i)))=zx+3+hfsj(4); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+3; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+3+hfsj(2); cysjb3(mz(baid(i)))=zx+3+hfsj(2); sssj2(mz(baid(i)))=zx+3;

mzsj2(mz(baid(i)))=inf; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+4+hfsj(1); cysjb3(mz(sq(i)))=zx+4+hfsj(1); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+4; end

kongchuangshu=geshu-length(mz); end case 6

if wss>=geshu for i=1:geshu

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+2+hfsj(5); cysjb3(mz(wai(i)))=zx+2+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+2; end

elseif (wss=(geshu-wss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+2+hfsj(5); cysjb3(mz(wai(i)))=zx+2+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+2; end

for i=1:geshu-wss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+2+hfsj(1); cysjb3(mz(bais(i)))=zx+2+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+2; end

elseif (wss=(geshu-wss-bss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+2+hfsj(5); cysjb3(mz(wai(i)))=zx+2+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+2; end for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+2+hfsj(1); cysjb3(mz(bais(i)))=zx+2+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+2; end

for i=1:geshu-wss-bss rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+2+hfsj(2); cysjb3(mz(baid(i)))=zx+2+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+2; end elseif

(wss=(geshu-wss-bds-bss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+2+hfsj(5); cysjb3(mz(wai(i)))=zx+2+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+2; end for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+2+hfsj(1); cysjb3(mz(bais(i)))=zx+2+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+2; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+2+hfsj(2); cysjb3(mz(baid(i)))=zx+2+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+2; end

for i=1:geshu-wss-bds-bss rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+3+hfsj(4); cysjb3(mz(sq(i)))=zx+3+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+3; end else

for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+2+hfsj(5); cysjb3(mz(wai(i)))=zx+2+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+2; end for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+2+hfsj(1); cysjb3(mz(bais(i)))=zx+2+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+2; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+2+hfsj(2); cysjb3(mz(baid(i)))=zx+2+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+2; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+3+hfsj(4); cysjb3(mz(sq(i)))=zx+3+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+3; end

kongchuangshu=geshu-length(mz); end otherwise

if wss>=geshu

for i=1:geshu

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

elseif (wss=(geshu-wss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:geshu-wss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+1+hfsj(1); cysjb3(mz(bais(i)))=zx+1+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+1; end

elseif (wss=(geshu-wss-bss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end

for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+1+hfsj(1); cysjb3(mz(bais(i)))=zx+1+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+1; end

for i=1:geshu-wss-bss rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+1+hfsj(2); cysjb3(mz(baid(i)))=zx+1+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+1; end elseif

(wss=(geshu-wss-bds-bss)) for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+1+hfsj(1); cysjb3(mz(bais(i)))=zx+1+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+1; end

for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+1+hfsj(2); cysjb3(mz(baid(i)))=zx+1+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+1; end

for i=1:geshu-wss-bds-bss rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end else for i=1:wss

rysj2(mz(wai(i)))=zx;

cysj2(mz(wai(i)))=zx+1+hfsj(5); cysjb3(mz(wai(i)))=zx+1+hfsj(5); mzsj2(mz(wai(i)))=inf; sssj2(mz(wai(i)))=zx+1; end for i=1:bss

rysj2(mz(bais(i)))=zx;

cysj2(mz(bais(i)))=zx+1+hfsj(1); cysjb3(mz(bais(i)))=zx+1+hfsj(1); mzsj2(mz(bais(i)))=inf; sssj2(mz(bais(i)))=zx+1; end for i=1:bds

rysj2(mz(baid(i)))=zx;

cysj2(mz(baid(i)))=zx+1+hfsj(2); cysjb3(mz(baid(i)))=zx+1+hfsj(2); mzsj2(mz(baid(i)))=inf; sssj2(mz(baid(i)))=zx+1; end for i=1:sqs

rysj2(mz(sq(i)))=zx;

cysj2(mz(sq(i)))=zx+2+hfsj(4); cysjb3(mz(sq(i)))=zx+2+hfsj(4); mzsj2(mz(sq(i)))=inf; sssj2(mz(sq(i)))=zx+2; end

kongchuangshu=geshu-length(mz); end end

bi=mzsj2==(zeros(1,102)+inf); ss=sum(bi)/102; for i=1:length(xh) if mod(xh(i),2)==0 cysj2(ceil(xh(i)/2))=inf; end end end

附录5：求解问题一程序代码

function

[manyidu,bsd,bdd,qingd,shid]=ff(w1,w2,a1,a2,a3,a4,b1,b2,b3,b4,c1,c2,c3,c4,d1,d2,d3,d4,e1,e2,e3,e4)

manyidu=((w1*sum(a2-a1)+w2*sum(a3-a2))/length(a1)+(w1*sum(b2-b1)+w2*sum(b3-b2))/length(b1)+(w1*sum(c2-c1)+w2*sum(c3-c2))/length(c1)+(w1*sum(d2-d1)+w2*sum(d3-d2))/length(

d1)+(w1*sum(e2-e1)+w2*sum(e3-e2))/length(e1))/5; bsn=length(a1); bdn=length(b1); qingn=length(c1); shin=length(d1); en=length(e1); bsd=sum(a2-a1)/bsn; bdd=sum(b2-b1)/bdn; qingd=sum(c2-c1)/qingn; shid=sum(d2-d1)/shin;

附录6：检验问题二的程序代码

function manyidu=ff(w1,w2,a1,a2,a3,b1,b2,b3,c1,c2,c3,d1,d2,d3,e1,e2,e3) a1=a1'; a2=a2'; a3=a3'; b1=b1'; b2=b2'; b3=b3'; c1=c1'; c2=c2'; c3=c3'; e1=e1'; e2=e2'; e3=e3';

a2(23:51)=a2(23:51)+33; a3(23:51)=a3(23:51)+33; b2(8:28)=b2(8:28)+33; b3(8:28)=b3(8:28)+33; c2(10:24)=c2(10:24)+33; c3(10:24)=c3(10:24)+33;

d2(34:69)=d2(34:69)+33; d3(34:69)=d3(34:69)+33; e2(9)=e2(9)+33; e3(9)=e3(9)+33; bsn=length(a1); bdn=length(b1); qingn=length(c1); shin=length(d1); en=length(e1); bsd=sum(a2-a1)/bsn bdd=sum(b2-b1)/bdn qingd=sum(c2-c1)/qingn shid=sum(d2-d1)/shin

manyidu=((w1*sum(a2-a1)+w2*sum(a3-a2))/length(a1)+(w1*sum(b2-b1)+w2*sum(b3-b2))/length(b1)+(w1*sum(c2-c1)+w2*sum(c3-c2))/length(c1)+(w1*sum(d2-d1)+w2*sum(d3-d2))/length(d1)+(w1*sum(e2-e1)+w2*sum(e3-e2))/length(e1))/5;

附录7：问题二求解结果

1 2 3 4 5 6 7 8 9 10 11 12 视网膜疾病 视网膜疾病 2008-8-15 2008-8-29 2008-8-31 2008-8-16 2008-8-29 2008-8-31 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-2 2008-9-3 2008-9-3 2008-9-3 2008-9-3 2008-9-8 2008-9-4 2008-9-4 2008-9-4 2008-9-8 2008-9-4 2008-9-5 2008-9-8 2008-9-8 2008-9-5 / / 2008-9-10 / / / 2008-9-10 / / 2008-9-10 2008-9-10 / 2008-9-10 2008-9-10 2008-9-13 2008-9-12 2008-9-14 2008-9-14 2008-9-13 2008-9-14 2008-9-15 2008-9-13 2008-9-13 2008-9-15 白内障(双眼) 2008-8-19 青光眼 视网膜疾病 视网膜疾病 2008-8-19 2008-8-19 2008-8-19 白内障(双眼) 2008-8-19 视网膜疾病 视网膜疾病 2008-8-19 2008-8-19 白内障(双眼) 2008-8-19 白内障(双眼) 2008-8-19 视网膜疾病 2008-8-19

13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 白内障 视网膜疾病 视网膜疾病 视网膜疾病 视网膜疾病 视网膜疾病 2008-8-19 2008-8-19 2008-8-20 2008-8-20 2008-8-20 2008-8-20 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-7 2008-9-8 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-8 2008-9-7 2008-9-8 2008-9-8 2008-9-7 2008-9-7 2008-9-7 2008-9-8 2008-9-9 2008-9-8 2008-9-8 2008-9-9 2008-9-9 2008-9-8 2008-9-9 2008-9-9 2008-9-8 2008-9-9 2008-9-9 2008-9-9 2008-9-9 2008-9-8 2008-9-8 / / / / / / 2008-9-10 / 2008-9-10 2008-9-10 / / / 2008-9-10 / 2008-9-10 2008-9-10 / / 2008-9-10 / / 2008-9-10 / / / / 2008-9-10 2008-9-10 2008-9-11 2008-9-16 2008-9-16 2008-9-16 2008-9-16 2008-9-16 2008-9-13 2008-9-17 2008-9-13 2008-9-13 2008-9-17 2008-9-15 2008-9-15 2008-9-13 2008-9-19 2008-9-13 2008-9-13 2008-9-17 2008-9-19 2008-9-13 2008-9-19 2008-9-19 2008-9-13 2008-9-17 2008-9-19 2008-9-19 2008-9-17 2008-9-13 2008-9-13 白内障(双眼) 2008-8-20 视网膜疾病 2008-8-21 白内障(双眼) 2008-8-22 白内障(双眼) 2008-8-22 视网膜疾病 青光眼 青光眼 2008-8-22 2008-8-23 2008-8-23 白内障(双眼) 2008-8-23 视网膜疾病 2008-8-23 白内障(双眼) 2008-8-23 白内障(双眼) 2008-8-23 青光眼 视网膜疾病 2008-8-24 2008-8-24 白内障(双眼) 2008-8-24 视网膜疾病 视网膜疾病 2008-8-24 2008-8-24 白内障(双眼) 2008-8-24 青光眼 视网膜疾病 视网膜疾病 青光眼 2008-8-24 2008-8-25 2008-8-25 2008-8-25 白内障(双眼) 2008-8-25 白内障(双眼) 2008-8-25

42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 65 66 67 68 69 70 视网膜疾病 白内障 2008-8-26 2008-8-26 2008-9-7 2008-9-7 2008-9-7 2008-9-7 2008-9-8 2008-9-8 2008-9-8 2008-9-8 2008-9-9 2008-9-9 2008-9-9 2008-9-9 2008-9-8 2008-9-8 2008-9-9 2008-9-11 2008-9-11 2008-9-10 2008-9-11 / / 2008-9-10 / / / / / 2008-9-19 2008-9-11 2008-9-13 2008-9-19 2008-9-21 2008-9-21 2008-9-13 2008-9-21 2008-9-20 2008-9-21 2008-9-13 2008-9-20 2008-9-22 2008-9-22 2008-9-22 2008-9-20 2008-9-20 2008-9-19 2008-9-20 2008-9-22 2008-9-20 2008-9-20 2008-9-22 2008-9-18 2008-9-20 2008-9-18 2008-9-20 2008-9-23 2008-9-18 白内障(双眼) 2008-8-26 视网膜疾病 视网膜疾病 视网膜疾病 白内障 视网膜疾病 2008-8-26 2008-8-27 2008-8-27 2008-8-27 2008-8-27 白内障(双眼) 2008-8-27 视网膜疾病 白内障 2008-8-28 2008-8-28 2008-9-15 2008-9-17 2008-9-11 2008-9-10 / / 白内障(双眼) 2008-8-28 2008-9-10 2008-9-15 2008-9-17 视网膜疾病 视网膜疾病 视网膜疾病 2008-8-28 2008-9-10 2008-9-12 2008-8-28 2008-9-10 2008-9-12 2008-8-28 2008-9-10 2008-9-12 / / / 白内障(双眼) 2008-8-28 2008-9-10 2008-9-15 2008-9-17 白内障(双眼) 2008-8-28 2008-9-10 2008-9-15 2008-9-17 青光眼 青光眼 视网膜疾病 青光眼 2008-8-28 2008-9-9 2008-9-11 / / / / 2008-8-29 2008-9-10 2008-9-12 2008-8-29 2008-9-10 2008-9-12 2008-8-29 2008-9-10 2008-9-12 白内障(双眼) 2008-8-29 2008-9-10 2008-9-15 2008-9-17 视网膜疾病 白内障 2008-8-29 2008-9-10 2008-9-12 2008-8-29 2008-9-11 2008-9-15 / / 白内障(双眼) 2008-8-29 2008-9-11 2008-9-15 2008-9-17 白内障 2008-8-29 2008-9-11 2008-9-15 / 白内障(双眼) 2008-8-29 2008-9-11 2008-9-15 2008-9-17 视网膜疾病 白内障 2008-8-30 2008-9-11 2008-9-13 2008-8-30 2008-9-11 2008-9-15 / /

71 72 73 74 75 76 77 78 79 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 视网膜疾病 外伤 外伤 外伤 外伤 外伤 外伤 外伤 外伤 2008-8-30 2008-9-11 2008-9-13 2008-9-4 2008-9-5 2008-9-5 2008-9-5 2008-9-6 2008-9-8 2008-9-9 2008-9-9 2008-9-5 2008-9-6 2008-9-6 2008-9-6 2008-9-7 2008-9-9 2008-9-6 2008-9-7 2008-9-7 2008-9-7 2008-9-8 2008-9-10 / / / / / / / / / 2008-9-23 2008-9-12 2008-9-13 2008-9-13 2008-9-13 2008-9-14 2008-9-16 2008-9-17 2008-9-17 2008-9-10 2008-9-11 2008-9-10 2008-9-11 白内障(双眼) 2008-8-30 2008-9-13 2008-9-15 2008-9-17 视网膜疾病 青光眼 视网膜疾病 视网膜疾病 2008-8-30 2008-9-10 2008-9-12 2008-8-30 2008-9-10 2008-9-12 2008-8-30 2008-9-11 2008-9-13 2008-8-30 2008-9-12 2008-9-14 / / / / 2008-9-20 2008-9-20 2008-9-20 2008-9-21 2008-9-22 2008-9-20 2008-9-20 2008-9-22 2008-9-20 2008-9-27 2008-9-27 2008-9-27 2008-9-27 2008-9-20 2008-9-27 2008-9-27 2008-9-27 2008-9-20 2008-9-20 白内障(双眼) 2008-8-30 2008-9-13 2008-9-15 2008-9-17 白内障 青光眼 2008-8-31 2008-9-15 2008-9-17 2008-8-31 2008-9-12 2008-9-14 / / 白内障(双眼) 2008-8-31 2008-9-13 2008-9-15 2008-9-17 视网膜疾病 视网膜疾病 视网膜疾病 青光眼 白内障 视网膜疾病 视网膜疾病 青光眼 白内障(双眼) 白内障(双眼) 2008-8-31 2008-9-17 2008-9-19 2008-8-31 2008-9-17 2008-9-19 2008-8-31 2008-9-17 2008-9-19 2008-8-31 2008-9-17 2008-9-19 2008-8-31 2008-9-15 2008-9-17 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-17 2008-9-19 2008-9-17 2008-9-19 2008-9-17 2008-9-19 / / / / / / / / 2008-9-13 2008-9-15 2008-9-17 2008-9-13 2008-9-15 2008-9-17

20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 白内障(双眼) 视网膜疾病 白内障 视网膜疾病 视网膜疾病 白内障 白内障 白内障(双眼) 白内障 视网膜疾病 视网膜疾病 视网膜疾病 白内障(双眼) 白内障 视网膜疾病 白内障 视网膜疾病 视网膜疾病 白内障(双眼) 白内障 青光眼 视网膜疾病 视网膜疾病 视网膜疾病 青光眼 白内障(双眼) 白内障(双眼) 青光眼 青光眼 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-2 2008-9-2 2008-9-2 2008-9-2 2008-9-2 2008-9-3 2008-9-3 2008-9-3 2008-9-3 2008-9-3 2008-9-3 2008-9-3 2008-9-3 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-13 2008-9-15 2008-9-17 2008-9-18 2008-9-20 2008-9-15 2008-9-17 2008-9-18 2008-9-20 2008-9-18 2008-9-20 2008-9-15 2008-9-17 2008-9-16 2008-9-17 / / / / / / 2008-9-20 2008-9-28 2008-9-20 2008-9-28 2008-9-28 2008-9-20 2008-9-20 2008-9-20 2008-9-20 2008-9-28 2008-9-29 2008-9-29 2008-9-20 2008-9-20 2008-9-29 2008-9-20 2008-9-29 2008-9-29 2008-9-20 2008-9-20 2008-9-29 2008-9-29 2008-9-29 2008-9-29 2008-10-1 2008-9-20 2008-9-20 2008-10-1 2008-10-1 2008-9-13 2008-9-15 2008-9-17 2008-9-16 2008-9-17 2008-9-18 2008-9-20 2008-9-19 2008-9-21 2008-9-19 2008-9-21 / / / / 2008-9-13 2008-9-15 2008-9-17 2008-9-16 2008-9-17 2008-9-19 2008-9-21 2008-9-16 2008-9-17 2008-9-19 2008-9-21 2008-9-19 2008-9-21 / / / / / 2008-9-13 2008-9-15 2008-9-17 2008-9-16 2008-9-17 2008-9-19 2008-9-21 2008-9-19 2008-9-21 2008-9-19 2008-9-21 2008-9-19 2008-9-21 2008-9-20 2008-9-23 / / / / / / 2008-9-13 2008-9-15 2008-9-17 2008-9-13 2008-9-15 2008-9-17 2008-9-20 2008-9-23 2008-9-20 2008-9-23 / /

49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 65 66 67 68 69 70 71 72 73 74 75 76 77 视网膜疾病 视网膜疾病 白内障(双眼) 白内障(双眼) 白内障(双眼) 视网膜疾病 白内障(双眼) 青光眼 白内障(双眼) 白内障 白内障(双眼) 白内障(双眼) 白内障(双眼) 视网膜疾病 青光眼 白内障(双眼) 视网膜疾病 白内障(双眼) 视网膜疾病 白内障 视网膜疾病 视网膜疾病 白内障 白内障(双眼) 白内障 视网膜疾病 白内障 青光眼 青光眼 2008-9-4 2008-9-4 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-7 2008-9-7 2008-9-7 2008-9-8 2008-9-8 2008-9-8 2008-9-8 2008-9-8 2008-9-8 2008-9-8 2008-9-8 2008-9-9 2008-9-9 2008-9-20 2008-9-23 2008-9-20 2008-9-23 / / 2008-10-1 2008-10-1 2008-9-20 2008-9-20 2008-9-20 2008-10-1 2008-9-20 2008-10-1 2008-9-20 2008-9-20 2008-9-20 2008-9-20 2008-9-20 2008-10-1 2008-10-1 2008-9-20 2008-10-1 2008-9-20 2008-10-1 2008-9-25 2008-10-1 2008-10-1 2008-9-25 2008-9-20 2008-9-25 2008-10-1 2008-9-25 2008-10-1 2008-10-1 2008-9-13 2008-9-15 2008-9-17 2008-9-13 2008-9-15 2008-9-17 2008-9-13 2008-9-15 2008-9-17 2008-9-20 2008-9-23 / 2008-9-13 2008-9-15 2008-9-17 2008-9-20 2008-9-23 / 2008-9-13 2008-9-15 2008-9-17 2008-9-16 2008-9-17 2008-9-13 2008-9-15 / / 2008-9-13 2008-9-15 2008-9-17 2008-9-13 2008-9-15 2008-9-17 2008-9-20 2008-9-23 2008-9-20 2008-9-23 / / 2008-9-13 2008-9-15 2008-9-17 2008-9-20 2008-9-23 / 2008-9-14 2008-9-15 2008-9-17 2008-9-20 2008-9-23 2008-9-20 2008-9-22 2008-9-20 2008-9-23 2008-9-20 2008-9-23 2008-9-20 2008-9-22 / / / / / 2008-9-14 2008-9-15 2008-9-17 2008-9-20 2008-9-22 2008-9-20 2008-9-23 2008-9-20 2008-9-22 2008-9-20 2008-9-23 2008-9-20 2008-9-23 / / / / /

78 79 80 81 82 83 84 85 86 87 88 90 91 92 93 94 95 96 97 98 99 100 101 102

视网膜疾病 白内障 白内障 视网膜疾病 白内障 2008-9-9 2008-9-9 2008-9-9 2008-9-20 2008-9-23 2008-9-20 2008-9-22 2008-9-20 2008-9-22 / / / / / / / / 2008-10-1 2008-9-25 2008-9-25 2008-10-1 2008-9-25 2008-9-20 2008-9-25 2008-9-25 2008-9-20 2008-9-25 2008-10-1 2008-9-27 2008-10-1 2008-10-1 2008-10-1 2008-9-27 2008-9-27 2008-10-1 2008-9-27 2008-9-18 2008-9-27 2008-10-1 2008-9-25 2008-10-1 2008-10-1 2008-9-10 2008-9-20 2008-9-23 2008-9-10 2008-9-20 2008-9-22 白内障(双眼) 2008-9-10 2008-9-14 2008-9-15 白内障 白内障 2008-9-10 2008-9-20 2008-9-22 2008-9-10 2008-9-20 2008-9-22 白内障(双眼) 2008-9-10 2008-9-14 2008-9-15 2008-9-17 白内障 青光眼 2008-9-10 2008-9-20 2008-9-22 2008-9-10 2008-9-20 2008-9-23 / / 白内障(双眼) 2008-9-10 2008-9-20 2008-9-22 2008-9-24 视网膜疾病 视网膜疾病 青光眼 2008-9-11 2008-9-20 2008-9-23 2008-9-11 2008-9-20 2008-9-23 2008-9-11 2008-9-20 2008-9-23 / / / 白内障(双眼) 2008-9-11 2008-9-20 2008-9-22 2008-9-24 白内障(双眼) 2008-9-11 2008-9-20 2008-9-22 2008-9-24 青光眼 2008-9-11 2008-9-20 2008-9-23 / / / 白内障(双眼) 2008-9-11 2008-9-20 2008-9-22 外伤 2008-9-11 2008-9-11 2008-9-12 白内障(双眼) 2008-9-11 2008-9-20 2008-9-22 2008-9-24 视网膜疾病 白内障 视网膜疾病 视网膜疾病 2008-9-11 2008-9-20 2008-9-23 2008-9-11 2008-9-20 2008-9-22 2008-9-11 2008-9-20 2008-9-23 2008-9-11 2008-9-20 2008-9-23 / / / / 附录八：问题四求解结果

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 视网膜疾病 视网膜疾病 白内障(双眼) 青光眼 视网膜疾病 视网膜疾病 白内障(双眼) 视网膜疾病 视网膜疾病 白内障(双眼) 白内障(双眼) 视网膜疾病 白内障 视网膜疾病 视网膜疾病 视网膜疾病 视网膜疾病 视网膜疾病 白内障(双眼) 视网膜疾病 白内障(双眼) 白内障(双眼) 视网膜疾病 青光眼 青光眼 白内障(双眼) 视网膜疾病 白内障(双眼) 白内障(双眼) 2008-8-15 2008-8-16 2008-8-19 2008-8-19 2008-8-19 2008-8-19 2008-8-19 2008-8-19 2008-8-19 2008-8-19 2008-8-19 2008-8-19 2008-8-19 2008-8-19 2008-8-20 2008-8-20 2008-8-20 2008-8-20 2008-8-20 2008-8-21 2008-8-22 2008-8-22 2008-8-22 2008-8-23 2008-8-23 2008-8-23 2008-8-23 2008-8-23 2008-8-23 2008-8-29 2008-8-29 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-2 2008-9-3 2008-9-3 2008-9-3 2008-9-3 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-6 2008-9-6 2008-9-6 2008-8-31 2008-8-31 2008-9-8 2008-9-4 2008-9-4 2008-9-4 2008-9-8 2008-9-4 2008-9-5 2008-9-8 2008-9-8 2008-9-5 2008-9-8 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-8 2008-9-7 2008-9-8 2008-9-8 2008-9-7 2008-9-7 2008-9-7 2008-9-8 2008-9-9 2008-9-8 2008-9-8 / / 2008-9-10 / / / 2008-9-10 / / 2008-9-10 2008-9-10 / / / / / / / 2008-9-10 / 2008-9-10 2008-9-10 / / / 2008-9-10 / 2008-9-10 2008-9-10 2008-9-10 2008-9-10 2008-9-13 2008-9-12 2008-9-14 2008-9-14 2008-9-13 2008-9-14 2008-9-15 2008-9-13 2008-9-13 2008-9-15 2008-9-11 2008-9-16 2008-9-16 2008-9-16 2008-9-16 2008-9-16 2008-9-13 2008-9-17 2008-9-13 2008-9-13 2008-9-17 2008-9-15 2008-9-15 2008-9-13 2008-9-19 2008-9-13 2008-9-13

30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 青光眼 视网膜疾病 白内障(双眼) 视网膜疾病 视网膜疾病 白内障(双眼) 青光眼 视网膜疾病 视网膜疾病 青光眼 白内障(双眼) 白内障(双眼) 视网膜疾病 白内障 白内障(双眼) 视网膜疾病 视网膜疾病 视网膜疾病 白内障 视网膜疾病 白内障(双眼) 视网膜疾病 白内障 白内障(双眼) 视网膜疾病 视网膜疾病 视网膜疾病 白内障(双眼) 白内障(双眼) 2008-8-24 2008-8-24 2008-8-24 2008-8-24 2008-8-24 2008-8-24 2008-8-24 2008-8-25 2008-8-25 2008-8-25 2008-8-25 2008-8-25 2008-8-26 2008-8-26 2008-8-26 2008-8-26 2008-8-27 2008-8-27 2008-8-27 2008-8-27 2008-8-27 2008-8-28 2008-8-28 2008-8-28 2008-8-28 2008-8-28 2008-8-28 2008-8-28 2008-8-28 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-7 2008-9-7 2008-9-7 2008-9-7 2008-9-7 2008-9-8 2008-9-8 2008-9-8 2008-9-8 2008-9-9 2008-9-9 2008-9-9 2008-9-10 2008-9-10 2008-9-10 2008-9-10 2008-9-10 2008-9-10 2008-9-9 2008-9-9 2008-9-8 2008-9-9 2008-9-9 2008-9-8 2008-9-9 2008-9-9 2008-9-9 2008-9-9 2008-9-8 2008-9-8 2008-9-9 2008-9-8 2008-9-8 2008-9-9 2008-9-11 2008-9-11 2008-9-10 2008-9-11 2008-9-15 2008-9-11 2008-9-10 2008-9-15 2008-9-12 2008-9-12 2008-9-12 2008-9-15 2008-9-15 / / 2008-9-10 / / 2008-9-10 / / / / 2008-9-10 2008-9-10 / / 2008-9-10 / / / / / 2008-9-17 / / 2008-9-17 / / / 2008-9-17 2008-9-17 2008-9-17 2008-9-19 2008-9-13 2008-9-19 2008-9-19 2008-9-13 2008-9-17 2008-9-19 2008-9-19 2008-9-17 2008-9-13 2008-9-13 2008-9-19 2008-9-11 2008-9-13 2008-9-19 2008-9-21 2008-9-21 2008-9-13 2008-9-21 2008-9-20 2008-9-21 2008-9-13 2008-9-20 2008-9-22 2008-9-22 2008-9-22 2008-9-20 2008-9-20

59 60 61 62 63 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 1 2 3 4 5 6 7 青光眼 青光眼 视网膜疾病 青光眼 白内障(双眼) 视网膜疾病 白内障 白内障(双眼) 白内障 白内障(双眼) 视网膜疾病 白内障 视网膜疾病 外伤 外伤 外伤 外伤 外伤 外伤 外伤 外伤 2008-8-28 2008-8-29 2008-8-29 2008-8-29 2008-8-29 2008-8-29 2008-8-29 2008-8-29 2008-8-29 2008-8-29 2008-8-30 2008-8-30 2008-8-30 2008-9-4 2008-9-5 2008-9-5 2008-9-5 2008-9-6 2008-9-8 2008-9-9 2008-9-9 2008-8-30 2008-8-30 2008-8-30 2008-8-30 2008-8-30 2008-8-30 2008-8-31 2008-9-9 2008-9-10 2008-9-10 2008-9-10 2008-9-10 2008-9-10 2008-9-11 2008-9-11 2008-9-11 2008-9-11 2008-9-11 2008-9-11 2008-9-11 2008-9-5 2008-9-6 2008-9-6 2008-9-6 2008-9-7 2008-9-9 2008-9-10 2008-9-10 2008-9-11 2008-9-10 2008-9-10 2008-9-17 2008-9-17 2008-9-12 2008-9-15 2008-9-11 2008-9-12 2008-9-12 2008-9-12 2008-9-15 2008-9-12 2008-9-15 2008-9-15 2008-9-15 2008-9-15 2008-9-13 2008-9-15 2008-9-13 2008-9-6 2008-9-7 2008-9-7 2008-9-7 2008-9-8 2008-9-10 2008-9-11 2008-9-11 2008-9-15 2008-9-12 2008-9-12 2008-9-19 2008-9-19 2008-9-15 2008-9-17 / / / / 2008-9-17 / / 2008-9-17 / 2008-9-17 / / / / / / / / / / / 2008-9-19 2008-9-20 2008-9-22 2008-9-20 2008-9-20 2008-9-22 2008-9-18 2008-9-20 2008-9-18 2008-9-20 2008-9-23 2008-9-18 2008-9-23 2008-9-12 2008-9-13 2008-9-13 2008-9-13 2008-9-14 2008-9-16 2008-9-17 2008-9-17 2008-9-24 2008-9-20 2008-9-20 2008-9-27 2008-9-27 2008-9-23 2008-9-20 白内障(双眼) 视网膜疾病 青光眼 视网膜疾病 视网膜疾病 白内障(双眼) 白内障 2008-9-17 / / / / 2008-9-17 /

8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 青光眼 白内障(双眼) 视网膜疾病 视网膜疾病 视网膜疾病 青光眼 白内障 视网膜疾病 视网膜疾病 青光眼 白内障(双眼) 白内障(双眼) 白内障(双眼) 视网膜疾病 白内障 视网膜疾病 视网膜疾病 白内障 白内障 白内障(双眼) 白内障 视网膜疾病 视网膜疾病 视网膜疾病 白内障(双眼) 白内障 视网膜疾病 白内障 视网膜疾病 2008-8-31 2008-8-31 2008-8-31 2008-8-31 2008-8-31 2008-8-31 2008-8-31 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-1 2008-9-2 2008-9-2 2008-9-2 2008-9-2 2008-9-2 2008-9-3 2008-9-3 2008-9-3 2008-9-3 2008-9-3 2008-9-3 2008-9-3 2008-9-17 2008-9-12 2008-9-17 2008-9-17 2008-9-17 2008-9-17 2008-9-15 2008-9-18 2008-9-18 2008-9-18 2008-9-13 2008-9-13 2008-9-13 2008-9-18 2008-9-15 2008-9-18 2008-9-18 2008-9-15 2008-9-16 2008-9-13 2008-9-16 2008-9-18 2008-9-18 2008-9-18 2008-9-13 2008-9-16 2008-9-18 2008-9-16 2008-9-18 2008-9-19 2008-9-15 2008-9-19 2008-9-19 2008-9-19 2008-9-19 2008-9-17 2008-9-23 2008-9-23 2008-9-23 2008-9-15 2008-9-15 2008-9-15 2008-9-23 2008-9-17 2008-9-23 2008-9-23 2008-9-17 2008-9-17 2008-9-15 2008-9-17 2008-9-23 2008-9-23 2008-9-23 2008-9-15 2008-9-17 2008-9-23 2008-9-17 2008-9-23 / 2008-9-17 / / / / / / / / 2008-9-17 2008-9-17 2008-9-17 / / / / / / 2008-9-17 / / / / 2008-9-17 / / / / 2008-9-27 2008-9-23 2008-9-27 2008-9-27 2008-9-27 2008-9-27 2008-9-20 2008-9-28 2008-9-28 2008-9-28 2008-9-20 2008-9-20 2008-9-20 2008-9-28 2008-9-20 2008-9-28 2008-9-28 2008-9-20 2008-9-20 2008-9-20 2008-9-20 2008-9-28 2008-9-28 2008-9-28 2008-9-20 2008-9-20 2008-9-28 2008-9-20 2008-9-28

37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 65 视网膜疾病 白内障(双眼) 白内障 青光眼 视网膜疾病 视网膜疾病 视网膜疾病 青光眼 白内障(双眼) 白内障(双眼) 青光眼 青光眼 视网膜疾病 视网膜疾病 白内障(双眼) 白内障(双眼) 白内障(双眼) 视网膜疾病 白内障(双眼) 青光眼 白内障(双眼) 白内障 白内障(双眼) 白内障(双眼) 白内障(双眼) 视网膜疾病 青光眼 白内障(双眼) 视网膜疾病 2008-9-3 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-4 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-5 2008-9-6 2008-9-6 2008-9-6 2008-9-6 2008-9-7 2008-9-18 2008-9-13 2008-9-16 2008-9-18 2008-9-18 2008-9-18 2008-9-18 2008-9-18 2008-9-13 2008-9-13 2008-9-18 2008-9-18 2008-9-18 2008-9-18 2008-9-13 2008-9-13 2008-9-13 2008-9-18 2008-9-13 2008-9-18 2008-9-13 2008-9-16 2008-9-13 2008-9-13 2008-9-13 2008-9-18 2008-9-18 2008-9-13 2008-9-18 2008-9-23 2008-9-15 2008-9-17 2008-9-23 2008-9-23 2008-9-23 2008-9-23 2008-9-23 2008-9-15 2008-9-15 2008-9-23 2008-9-23 2008-9-23 2008-9-23 2008-9-15 2008-9-15 2008-9-15 2008-9-23 2008-9-15 2008-9-23 2008-9-15 2008-9-17 2008-9-15 2008-9-15 2008-9-15 2008-9-23 2008-9-23 2008-9-15 2008-9-23 / 2008-9-17 / / / / / / 2008-9-17 / / / / / 2008-9-17 2008-9-17 2008-9-17 / 2008-9-17 / 2008-9-17 / 2008-9-17 2008-9-17 2008-9-17 / / 2008-9-17 / 2008-9-28 2008-9-20 2008-9-20 2008-9-28 2008-9-28 2008-9-28 2008-9-28 2008-9-28 2008-9-20 2008-9-20 2008-9-28 2008-9-28 2008-9-28 2008-9-28 2008-9-20 2008-9-20 2008-9-20 2008-9-28 2008-9-20 2008-9-28 2008-9-20 2008-9-20 2008-9-20 2008-9-20 2008-9-20 2008-9-28 2008-9-28 2008-9-20 2008-9-28

66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 90 91 92 93 94 白内障(双眼) 视网膜疾病 白内障 视网膜疾病 视网膜疾病 白内障 白内障(双眼) 白内障 视网膜疾病 白内障 青光眼 青光眼 视网膜疾病 白内障 白内障 视网膜疾病 白内障 白内障(双眼) 白内障 白内障 白内障(双眼) 白内障 青光眼 白内障(双眼) 视网膜疾病 视网膜疾病 青光眼 白内障(双眼) 白内障(双眼) 2008-9-7 2008-9-7 2008-9-8 2008-9-8 2008-9-8 2008-9-8 2008-9-8 2008-9-8 2008-9-8 2008-9-8 2008-9-9 2008-9-9 2008-9-9 2008-9-9 2008-9-9 2008-9-10 2008-9-10 2008-9-10 2008-9-10 2008-9-10 2008-9-10 2008-9-10 2008-9-10 2008-9-10 2008-9-11 2008-9-11 2008-9-11 2008-9-11 2008-9-11 2008-9-13 2008-9-18 2008-9-18 2008-9-18 2008-9-18 2008-9-18 2008-9-13 2008-9-18 2008-9-18 2008-9-18 2008-9-18 2008-9-18 2008-9-18 2008-9-18 2008-9-18 2008-9-18 2008-9-18 2008-9-13 2008-9-18 2008-9-18 2008-9-14 2008-9-18 2008-9-18 2008-9-14 2008-9-18 2008-9-18 2008-9-18 2008-9-14 2008-9-14 2008-9-15 2008-9-23 2008-9-22 2008-9-23 2008-9-23 2008-9-22 2008-9-15 2008-9-22 2008-9-23 2008-9-22 2008-9-23 2008-9-23 2008-9-23 2008-9-22 2008-9-22 2008-9-23 2008-9-22 2008-9-15 2008-9-22 2008-9-22 2008-9-15 2008-9-22 2008-9-23 2008-9-15 2008-9-23 2008-9-23 2008-9-23 2008-9-15 2008-9-15 2008-9-17 / / / / / 2008-9-17 / / / / / / / / / / 2008-9-17 / / 2008-9-17 / / 2008-9-17 / / / 2008-9-17 2008-9-17 2008-9-20 2008-9-28 2008-9-25 2008-9-28 2008-9-28 2008-9-25 2008-9-20 2008-9-25 2008-9-28 2008-9-25 2008-9-28 2008-9-28 2008-9-28 2008-9-25 2008-9-25 2008-9-28 2008-9-25 2008-9-20 2008-9-25 2008-9-25 2008-9-20 2008-9-25 2008-9-28 2008-9-20 2008-9-28 2008-9-28 2008-9-28 2008-9-20 2008-9-20

95 96 97 98 99 100 101 102

青光眼 白内障(双眼) 外伤 白内障(双眼) 视网膜疾病 白内障 视网膜疾病 视网膜疾病 2008-9-11 2008-9-11 2008-9-11 2008-9-11 2008-9-11 2008-9-11 2008-9-11 2008-9-11 2008-9-18 2008-9-18 2008-9-11 2008-9-18 2008-9-18 2008-9-18 2008-9-18 2008-9-18 2008-9-23 2008-9-22 2008-9-12 2008-9-22 2008-9-23 2008-9-22 2008-9-23 2008-9-23 / 2008-9-24 / 2008-9-24 / / / / 2008-9-28 2008-10-1 2008-9-18 2008-10-1 2008-9-28 2008-9-25 2008-9-28 2008-9-28