数学建模社区-数学中国

标题: 东三省二等奖论文 [打印本页]

作者: 刘李 时间: 2013-1-23 20:18
标题: 东三省二等奖论文
深圳市人口与医疗需求预测
摘要
本文是一个如何准确预测深圳市人口数量和年龄结构，并结合深圳市疾病别的患病情况，来预测深圳市未来十年医疗床位需求的问题。以概率论和数理统计为基础，我们建立了基于灰色预测和神经网络的组合模型并结合人口动力发展方程来做出比较精确的预测。
针对问题(1)，即深圳市未来十年的总人口预测，我们从《深圳市统计年鉴》上搜集的部分数据，利用灰色预测建模所需信息少、方案简单的特点和神经网络具有较强的非线性映射能力的特征，提出一种基于灰色预测和神经网络的人口预测方案。首先对人口规模的灰色预测GM（1,1）等维新息模型预测，然后再用优化的BP神经网络对GM（1,1）模型的预测值进行组合预测以作为其最终的预测值，以获得更高的预测精度。
针对问题(2)，即深圳市全市的医疗床位需求预测，我们根据历年的出生率、死亡率、总和生育率等指标，提出了人口动力发展方程，来预测深圳市未来的人口年龄结构。
针对问题(3)，即不同疾病在不同机构的床位需求，我们选取了高血压和分娩这两种具有代表性的疾病，按卫生部推荐的卫生服务需求量法进行卫生资源配置标准的测算，我们倾向于从提高和促进人群健康水平的高度和卫生资源公平与效率的角度，确定区域卫生资源的数量、质量、结构、层次、布局以及发展速度与规模，并结合了深圳市的人均可支配收入、产业结构的调整所带来的影响以及居民对不同医疗机构的选取指标来作出预测，而不是仅仅站在卫生机构生存和发展的立场上加以考虑。
关键词：GM(1,1)灰色预测  人工神经网络  遗传模拟退火算法(GASA)  卫生服务需求法

1．问题的重述
1.1  问题背景
深圳是我国经济发展最快的城市之一，30多年来，卫生事业取得了长足发展，形成了市、区及社区医疗服务系统，较好地解决了现有人口的就医问题。
根据深圳市第六次人口普查的数据，“深圳常住人口十年来年均增长3．98％，低于上一个十年（1990－2000）6．34％的增长，但仍快于全国（0．57％）、全省（1．90％）的平均水平。”
过去十年，深圳人口仍增长较快，主要原因有两个：一是人口流入量较大。十年来，深圳经济保持较高增速，提供了较多的就业岗位，吸引了大量市外人员到深圳工作和生活。深圳常住人口中，约有798万人是非户籍人口，占常住总人口的77％；二是户籍人口增长较快。十年间，深圳采取多项措施，降低了入户门槛，加快了户籍人口增长步伐。普查登记的户籍人口达251．03万人（未剔除流出市外半年以上人口），与第五次全国人口普查的121．48万人相比，10年共增加了130万人，增长1．1倍，年平均增加13万人，年平均增长7．53％。老年人口占总人口比例呈正增长趋势。因为深圳市是我国改革开放以后首批开始发展的新型城市，建市至今将近30年，人口逐渐凸显老龄化趋势。人口的增长，尤其是人口老龄化的加剧，必然导致现有的医疗资源的不足。国内外有关研究表明，人均医疗资源的需求与不同年龄的人群有关，一般情况下，60岁以上年龄组的医疗需求是60岁以下人群的3～5倍。由于老年人口是发病率和患病率最高的人群，所以老年人口的增加，意味着医疗卫生需求大幅增加。未来的医疗需求与人口结构、数量和经济发展等因素相关，合理预测能使医疗设施建设正确匹配未来人口健康保障需求，是保证深圳社会经济可持续发展的重要条件。人口预测是否科学准确，直接关系到其总体规划方案是否合理和实用。
对深圳市未来人口的准确预测，能够为深圳市医疗资源的合理、有效配置提供科学依据，这对加速推进深圳市的经济发展和全市消费有效需求的利用有着极为重要的现实意义。因此，根据已有数据，运用数学建模的方法，对深圳市人口数量和结构做出分析和预测，进而分析深圳市的医疗资源（主要是床位）的需求是一个重要问题。
1.2  问题提出
过去十年，深圳市的人口发展出现了一些新的特点，例如：老龄化进程加速，出生人口性别比持续升高，具体表现为男多女少，家庭规模偏小以及乡村人口城镇化等因素，这些都影响着深圳市人口的增长。
关于人口问题已有多方面的研究，并积累了大量数据资料。现在得到了《深圳市人口统计年鉴》上收集到的部分数据，其中包含1979至2010年的全市常住人口的数量、死亡率、生育率、男女出生比例、育龄妇女生育率的千分比( ‰) ；以及从国家卫生部公开信息网站、深圳市卫生和人口计划生育委员会网站与深圳市统计局官网上查询的其他相关数据。
根据已知数据或搜索相关文献和补充新的数据，解决以下的问题：从深圳市的实际情况和人口增长的上述特点出发，建立深圳人口增长的数学模型，并由此对深圳市未来十年人口增长的短期做出预测，并以此为依据预测深圳市不同医疗机构的资源（主要是床位数）的合理配置。
预测深圳市某一种疾病在不同类型医疗机构的床位需求就要预测该种疾病总的床位需求，而决定床位需求的就是该种疾病的患病人口，也就是深圳市该种疾病的患病率。而患病率又和人口结构有着密切的关系，因为每一种疾病都会有一个高发人群年龄段，例如，心脏病、高血压等疾病多发生在老年人中，而小儿麻痹发生在少年儿童中，因此改年龄段人口的比例严重影响着该种疾病患病率。因此，通过分析深圳市历年该种疾病患病率与人口结构的关系，回归出患病率函数，预测未来几年深圳市某种疾病患病率，并且通过预测人口求出患病人数，进而求出该种疾病的总床位需求。
同时根据高血压在老年人中的发病率较高这一现象，我们在已知高血压这一疾病的两周患病率和慢性病患病率的数据的前提下，对该疾病的床位需求进行预测是很有必要的。
2. 模型的假设
( 1) 考虑所研究的人口为常住人口；
( 2) 深圳市各区人口体质相同，即同一年度各区患病率相同，且各区相对封闭，本区人口不会外出跨区就医。
( 3) 人口数随时间变化是连续的，而且充分光滑。
( 4) 农村人口一旦迁入城镇或者城镇化, 其人口行为和特征即与城镇人口相同，即忽略城镇人口与迁入城镇人口或城镇化人口的差别.
( 5) 人口数据质量高，无误报和漏报等。
( 6) 在分析老年人口问题时，是以65岁作为老年人口的起点年龄；
( 7) 病床使用率不变，即未来的病床使用率沿用现在的标准病床使用率的数据，并且对现在病床使用率进行评价。
3．相关名词解释
人口数  指一定时点，一定地区范围内有生命的个人总和。
出生率  指在一定时期内( 通常为一年) 一定地区的出生人数与同期内平均人数( 或期中人数) 之比，用千分率表示。其计算公式为：

死亡率  指在一定时期内( 通常为一年) 一定地区的死亡人数与同期内平均人数( 或期中人数) 之比，用千分率表示。其计算公式为：

婴儿死亡率  指年内一定地区未满1岁婴儿死亡人数与同年出生的活产数之比，一般用‰表示。
人口自然增长率  是指在一定时期内( 通常为一年) 人口自然增加数( 出生人数减死亡人数) 与该时期内平均人数( 或期中人数) 之比，用千分率表示。计算公式为：

预测时期  短期( <10年)，中期( 10-25年)，长期( >25年) ；
出生人口性别比  是活产男婴数与活产女婴数的比值，通常用女婴数量为100时所对应的男婴数来表示。正常情况下，出生性别比是由生物学规律决定的，保持在103～107之间。
人口抚养比  指人口总体中处于供养年龄( 一般指15岁以下和64岁以上) 的人口与处于“经济活动”年龄( 15-64岁) 人口的比率。用百分比表示，计算公式为：

总和生育率：一定时期( 如某一年) 各年龄组妇女生育率的合计数，说明每名妇女按照某一年的各年龄组生育率度过育龄期，平均可能生育的子女数，是衡量生育水平最常用的指标之一。
总诊疗人次数: 所有诊疗工作的总人次数。诊疗人次数按挂号数统计，包括：①病人来院就诊的门诊、急诊人次；②出诊人次数；③单项健康检查及健康咨询指导人次；④未挂号就诊、本单位职工就诊及外出诊疗不收取挂号费的，按实际诊疗人次统计。患者一次就诊多次挂号，按实际诊疗次数进行统计，不包括根据医嘱进行的各项检查、治疗、处置工作量。
床位数：年底固定实有床位(非编制床位)，包括正规床、简易床、监护床、正在消毒和修理床位、因扩建或大修而停用的床位，不包括产科新生儿床、接产室待产床、库存床、观察床、临时加床和病人家属陪侍床。
出院人数：所有住院后出院的人数，包括治愈、好转、未愈、死亡及其他人数。其他人数指正常分娩、未产出院、住院经检查无病出院、未治出院及健康人进行人工流产或绝育手术后正常出院者。
实际占用总床日数：医院各科每日夜晚12点实际占用病床数(即每日夜晚12点住院人数)总和。包括实际占用的临时加床在内。病人入院后于当晚12点前死亡或因故出院的病人, 作为实际占用床位1天进行统计,同时亦应统计“出院者占用总床日数”1天,入院及出院人数各1人。
出院者占用总床日数：出院者(包括正常分娩、未产出院、住院经检查无病出院、未治出院及健康人进行人工流产或绝育手术后正常出院者)住院日数的总和。

潜在需求增长率：由于居民收入增长而导致的对医疗需求的增长，用百分比表示，计算公式为：

医院病床配置推荐标准：

病床使用率：

病床周转次数：

病床工作日：

出院者平均住院日：

居民年实际住院率：

居民两周就诊率：调查前两周内居民因病或身体不适到医疗机构就诊的人次数与调查人口数之比。
居民两周未就诊率：调查前两周内居民患病而未就诊的人次数与两周患病人次数之比。
居民两周患病率：

年平均床开放日数：

年净流入住院人数：

期望寿命  又称平均期望寿命。指0岁时的预期寿命。一般用“岁”表示。即在某一死亡水平下，已经活到岁年龄的人们平均还有可能继续存活的年岁数。
高、低限计算依据：《标准》中配置的低限为实际需求的计算结果，高限是按实际需求加上可能转化的潜在需求计算结果。
城镇居民可支配收入：将家庭总收入扣除交纳的个人所得税和个人交纳的各项社会保障支出后的收入，等于工资性收入、经营净收入、财产性收入、转移性收入之和，再减去交纳的个人所得税和个人交纳的社会保障支出。目前城镇居民可支配收入中只包括城镇居民以现金形式获得的收入。
人均可支配收入：居民可支配收入的算术平均数，即样本家庭可支配收入总额除以其家庭人口总数计算得出。
4. 模型的建立与求解
4.1  预用模型介绍
传统的人口预测方法主要有逻辑方法、常微分方程方法和动态预测方法等。这些方法在人口预测领域起到了一定的作用，但采用这些方法时都要对数据进行模型假设。由于真实模型往往是非线性的，如果在一些简单的模型假设下就进行数据模拟，常常不能达到较好的模拟效果。灰色系统理论中的灰色预测GM（1,1）模型因其所需信息少、运算方便、建模精度较高而被广泛应用于各种预测领域。近年来该模型已应用于人口规模预测，但其精度不高。人工神经网络具有高度的非线性映射能力，它能以任意精度逼近任意非线性函数，因此，它比较适合于一些复杂问题的建模。
4.1.1  GM(1,1)预测模型的基本原理
GM(1,1)灰色系统
所谓灰色系统是指既含有已知信息，又含有未知信息的系统，是由邓聚龙教授在1986年提出的。灰色理论自诞生以来，发展很快，由于它所需因素少，模型简单，特别是对于因素空间难以穷尽，运行机制尚不明确，又缺乏建立确定关系的信息系统，灰色系统理论及方法为解决此类问题提供了新的思路和有益的尝试。
灰色预测方法是根据过去及现在已知的或非确知的信息，建立一个从过去引申到将来的GM模型，从而确定系统在未来发展变化的趋势，为规划决策提供依据。在灰色预测模型中，对时间序列进行数量大小的预测，随机性被弱化了，确定性增强了。此时在生成层次上求解得到生成函数，据此建立被求序列的数列预测，其预测模型为一阶微分方程，即只有一个变量的灰色模型，记为GM(1,1)模型。
(2) GM(1,1)预测模型的基本原理
GM(1,1)模型是灰色预测的核心，它是一个单个变量预测的一阶微分方程模型，其离散时间响应函数近似呈指数规律。建立GM(1,1)模型的方法是：
设为原始非负时间序列，为累加生成序列，即
            (4-1)
GM(1,1)模型的白化微分方程为：
                                             (4-2)
式(2) 中，为待辨识参数, 亦称发展系数；为待辨识内生变量，亦称灰作用量。设待辨识向量，按最小二乘法求得式中

于是可得到灰色预测的离散时间响应函数为：
               (4-3)
为所得的累加的预测值，将预测值还原即为：
         (4-4)
4.1.2  BP神经网络模型的基本原理
4.1.2.1 神经网络的定义简介
神经网络是由多个神经元组成的广泛互连的神经网络，能够模拟生物神经系统真实世界及物体之间所做出的交互反应。人工神经网络处理信息是通过信息样本对神经网络的训练，使其具有人的大脑的记忆，辨识能力，完成名种信息处理功能，它不需要任何先验公式，就能从已有数据中自动地归纳规则，获得这些数据的内在规律，具有良好的自学习，自适应，联想记忆，并行处理和非线性形转换的能力，特别适合于因果关系复杂的非确定性推理、判断、识别和分类等问题. 对于任意一组随机的，正态的数据，都可以利用人工神经网络算法进行统计分析，做出拟合和预测。
基于误差反向传播(Back propagation)算法的多层前馈网络(Multiple-layer feedforward network, 简记为BP网络)，是目前应用最成功和广泛的人工神经网络。
4.1.2.2  BP模型的基本原理
学习过程中由信号的正向传播与误差的逆向传播两个过程组成。正向传播时，式作用于输入层，经隐含层处理后，传入误差的逆向传播阶段，将输出误差按某种子形式，通过隐含层向输入层逐层返回，并“分摊”给各层的所有单元，从而获得各层单元的参考误差或称误差信号，以作为修改各单元权值的依据。权值不断修改的过程，也就是网络学习过程。此过程一直进行到网络输出的误差准逐渐减少到可接受的程度或达到设定的学习次数为止。BP网络模型包括其输入输出模型，作用函数模型, 误差计算模型和自学习模型。
BP网络由输入层，输出层以及一个或多个隐含层节点互连而成的一种多层网，这种结构使多层前馈网络可在输入和输出间建立合适的线性或非线性关系，又不致使网络输出限制在-1和1之间。见图(4-1)

                        O          O       O             O

( 大于等于一层) W(1)…W(L)

4.1.2.3  BP神经网络的训练
BP算法通过“训练”这一事件来得到这种输入，输出间合适的线性或非线性关系。“训练”的过程可以分为向前传输和向后传输两个阶段：
1．向前传输阶段：
①从样本集中取一个样本，将输入网络；
②计算出误差测度和实际输出；
③对权重值各做一次调整，重复这个循环，直到。
2．向后传播阶段——误差传播阶段：
①计算实际输出与理想输出的差；
②用输出层的误差调整输出层权矩阵；
③ ；
④用此误差估计输出层的直接前导层的误差，再用输出层前导层误差估计更前一层的误差。如此获得所有其他各层的误差估计；
⑤并用这些估计实现对权矩阵的修改，形成将输出端表现出的误差沿着与输出信号相反的方向逐级向输出端传递的过程。
网络关于整个样本集的误差测度：

4.1.2.4  基于GASA混合学习策略的BP神经网络优化
鉴于BP算法易陷入局部极小，遗传算法（Genetic Algorithm，GA）虽有较强的全局搜索性能，但在实际应用中容易产生早熟收敛的问题，而改善其性能需增大种群数目或采用高级的进化策略，因此本文结合GA并行搜索结构和模拟退火（Simulated Annealing，SA）的概率突跳特性，提出一种神经网络权值学习的GASA混合学习策略以避免网络陷于局部极小，并将这种混合学习策略用于NARMA（p,q）递归网络和用作组合预测的多层前馈网络的学习。GASA混合策略在神经网络中学习步骤如下(流程图见图(4-2))：

图(4-2)  GASA混合策略在神经网络中学习步骤
(1)确定神经网络的结构，并用浮点数编码表示该网络。
鉴于浮点数编码更接近问题的本身，且在 v解的质量和算法效率方面均优于二进制编码，所以用基因串表示第层和层的权值向量，为第层的阈值向量，用浮点数编码来表示层BP网络。基于训练误差的单目标学习常会出现过拟合现象，影响网络的推广性，因此，采用训练样本集的训练误差和测试样本集的测试误差的综合误差指标作为网络性能的评价目标，适应度函数定义为：
     (4-5)
式中为学习误差，计算公式为

式中: 和分别为训练样本集和测试样本集中的样本数，才和，分别为训练样本或测试样本集第个样本输入对应网络输出层第个结点的期望输出和实际输出。
选择操作是按照优胜劣汰、适者生存的原则选择交配个体以产生子个体的过程。本文采用截断选择法，在该方法中，个体按适应度由大到小排序，只有截断阈值之上的优秀个体能够被选择作为父个体，在该阈值之下的个体不能产生子个体。
浮点数编码遗传算法(float-encoding genetic algorithm, FGA)的常用交叉算子有多种，如简单交叉、算术交叉、启发交叉、混合交叉和平坦交叉等。本文采用混合交叉算子。设，在交叉算子作用下产生两个新个体和，混合交叉算子是对的每个分量对，设，在区间中按均匀分布选择两个随机数作为，这里为事先给定的常数，一般取。
FGA常用变异算子有均匀变异、边界变异和高斯变异等。本文采用均匀变异的。
(2)确定种群大小、进化最大代数、选择操作时的淘汰率、变异概率、初温和退温速率，初始化种群，令。
(3)对中的各个个体进行SA搜索：
(3.1)利用SA状态产生函数产生新的个体。
(3.2)计算新、旧个体的综合误差之差。
(3.3)计算接受概率。
(3.4) 若，用新个体取代旧个体；否则，旧个体不变。
(4) 对中的个体按适应度由大到小进行排序，然后以淘汰率淘汰掉适应度值低的个体，被淘汰掉的个体数为，再将未被淘汰掉的优良个体保留到下一代种群中。
(5) 次从的优良个体中随机选择两个个体进行交叉操作，每次产生一个新个体填补到中以保持种群规模不变。
(6) 以变异概率对步骤(5)产生的新个体进行变异操作,至此产生种群。利用退温函数进行退温，交换训练样本集和测试样本集。
(7)若最优个体的综合误差满足要求精度或已达到进化最大代数，则终止算法并输出结果；否则，令，转到步骤(3)
4.2  针对问题（1）
4.2.1 预测深圳是未来十年全市总人口所采用模型----GM(1,1)模型和BP神经网络模型的组合预测
尽管目前时序预测的方法很多，但它们的应用条件、建模机理各异，都存在一定的局限，因此，在实际应用中传统的单一预测方法难以获得较为满意的预测结果。如果将各种预测方法进行组合，充分利用各自包含的一些有用的信息，扬长避短，将能产生较好的预测效果。自J.M.Bates和C.W.Granger(1969)首次提出组合预测以来，组合预测的方法和应用被广泛研究，但这些方法的大部分都侧重于预测误差方法的最小。文献 [1]用各种预测方法如平均值法、递归最小二乘法、模糊逻辑系统、神经网络法等对煤气日用量的无隐含层前馈网络和单隐层前馈网络的预测值进行了组合预测的研究，研究结果表明神经网络的组合预测效果优于其它方法。鉴于此，本文将人口规模的GM（1,1）等维新息模型的预测值和BP神经网络进行组合预测并求出其最终的预测值。用于人口预测的灰色预测和神经网络的组合模型的基本方法与步骤为：
(1)以人口的历史统计数据建立GM(1,1)等维数为的等维新息模型，其灰色预测值为。
(2)将灰色预测值作为用于组合预测的多层前馈网络的输入，其对应的实际值作为该网络的输出构成匹配对( , )然后将这些匹配对分为两部分，A部分用于网络的训练，B部分用于测试该网络的性能。
(3)如同递归网络，用GASA混合学习策略对A部分样本进行组合预测网络FNN的学习，然后作一步预测，从而得到人口规模的最终预测值。
4.2.2  未来十年深圳市总人口预测结果分析

表4-1  2011-2020年深圳市总人口预测

单位人口预测值（万人）
2011 1083.018
2012 1131.64
2013 1182.52
2014 1235.3
2015 1289.743
2016 1345.691
2017 1403.042
2018 1461.729
2019 1521.705
2020 1582.941

图(4-3)深圳市未来十年总人口预测图
按此预测，从以上图表中可以知道深圳市人口增长的中短期趋势为：深圳市人口自然增长率继续保持平稳下降，人口总量在中短期内继续增长，增速较为平稳。人口总量在未来10年还将净增500万人左右，总人口将于2020年达到1582.941万人。
单独的GM(1,1)模型和神经网络模型都能非常精确的预测出在短期内深圳市未来人口总数，在中期预测中，也能较好的反映出人口变化趋势。在长期预测时，GM(1,1)的预测数据偏差非常大，神经网络虽然变化趋势较符合深圳市未来人口变化情况，但偏差还是较大。而组合模型在这三个时期内，都能够很好的预测出深圳市未来人口总量的及其变化情况，显然组合模型的预测效果最佳。关于GM(1,1)长期预测的局限性将在模型评价中讨论。
4.3  针对问题（2）
4.3.1 预测深圳市未来十年人口年龄结构所采用模型----人口发展动力方程（部分指标值的预测见附表1）
4.3.1.1  人口的年龄结构
将人口按年龄大小逐年分成个年龄组，模型要讨论在不同时间人口的年龄分布，对时间也加以离散化，其单位与年龄组的间隔相同。时间离散化为 .设在时间段第年龄组的人口总数为，定义向量，根据分年龄的人口结构递推公式进行预测，模型的数学表达如下：

其中：

式中：为第年常住人口0岁出生婴儿数，为第年的第岁的常住人口数，为第年到第年迁入的总人口，为第年到第年迁入的岁人口，  为第年容纳的最大迁入人口，为第t年到第t+1年的迁出的总人口，为第年到第年的迁出的岁的人口，为年的迁入率（在一定时期内可以认为不变），为年的迁出率（在一定时期内可以认为不变），为第年常住人口出生婴儿当年死亡率，为常住人口中妇女总和生育率，即社会人中平均意义下一个妇女在整个育龄时期的生育总数（，即为生育年龄的上下限），为常住人口中第年年龄为的女性性别比，为第年第岁的常住人口死亡率，表示生育模式，反映某一地区某一个育龄妇女生育状态分布；表示迁入模式，反映某一地区迁入人口随迁入年龄的状态分布，表示迁出模式，反映某一地区迁出人口随迁出年龄的状态分布。
假定一：
三个模式在一定时期内稳定，生育模式采取对数正态分布，迁入模式和迁出模式均采取分布，
即：

其中；取总和生育率，为最低生育年龄，的取值范围为(1.7,2.5)，的取值范围为(0,1)，在本文中取2.4，取0.5，拟合效果比较理想。
其中期望生育年龄为，经计算等于26.49，比较符合实际。

其中为迁入峰值年龄，为迁入人群年龄下限，为可控变量，根据拟合可以得出其值约为0.67；

其中为迁出峰值年龄，为迁出人群年龄下限，为可控变量，根据拟合可以得出其值约为1.4；
假定二：
迁入人口的阻尼程度与总人口的阻尼程度成正比；迁出人口的逆阻尼程度与总人口的阻尼程度成正比。
即：

人口的阻尼程度利用经验公式：
;
4.3.1.2  人口的死亡率
人口的死亡率的计算公式为：

其中死亡率表示第岁的人口所占总人口的比例，表示第岁人口的分年龄层死亡率。
其中分年龄的死亡模式计算公式：

因而，预测未来十年的人口分年龄死亡模式为：

在这里，
(1)我们假定环境因子不变，设定为1；
(2)收入因子的计算公式为：，其中人均可支配收入的增长速率以最近五年的平均速率来计算。用反衰减因子法预测未来的人均可支配收入。即：

则，未来的人均可支配收入的计算公式为：
(3)居民健康水平：
4.3.1.3  人口的性别比
性别比的预测公式：

其中第三产业的增长速率数据可以从深圳市国民经济和社会发展统计公报获知。
4.3.1.4  各项预测指标调整的方法
1．先由已知的各指标值的数据，算出其均值和标准差，分别记为记为，我们定义一个相似随机因子，计算公式为。
2．对已预测出的数据进行随机操作：记以预测数的数据所组成的数列为，
①求出已预测出的数据的均值和标准差，分别记为和；
②调整后的数列为，则，调整后的预测值所组成的数列的计算公式为：

4.3.2 未来十年深圳市人口年龄结构预测结果分析
4.3.2.1  深圳市年龄结构变化趋势

图(4-4)  深圳市未来十年年龄别人口预测图

图(4-4-1)  深圳市未来十年中青年人口发展趋势

图(4-4-2)  深圳市未来十年老年人口发展趋势
按此预测，有以上图表可知，深圳市未来十年年龄别人口的发展趋势是：中青年的流动性大，人口结构相对不稳定，易受外部影响（政府的调整、经济的吸引力等）；而老年人口在缓慢增加，导致老龄化在平稳中逐年加剧。
但是人口老龄化将导致抚养比不断提高，尤其是乡老年人口变化显著，老龄化速度仅仅是深圳市在10年就增加了0.7个百分点。
老年人口比重的不断提高和老年人口绝对数的大量增加，在如何搞好老年人口的衣食住行和老有所养、老有所乐、老有所为等方面是社会不容忽视的问题。
4.3.2.2  深圳市人口分年龄死亡率变化
人口死亡水平是造成人口数量和结构变化的重要因素之一，随着深圳市经济的迅速发展和医疗卫生条件的进一步改善，深圳市人口的健康水平有了明显改善, 人口的死亡率总体上较低。

图(4-5)  深圳市未来十年人口年龄别死亡率变化预测图

图(4-5-1)  深圳市未来十年中青年人口死亡率变化预测图

图(4-5-2)  深圳市未来十年老年人口死亡率变化预测图
按此预测，由以上图表可知，深圳市未来十年青少年的死亡率在逐年下降，这与居民生活水平的提高、生活质量的改善有关，从而导致患病率降低；小中青年和青壮年的死亡率逐年递增，与外来务工人员的不断流入，和从事的工作（体力、高风险等）性质有关。
在刚进入老年时期时，死亡率不增反降，与居民的生活水平的提高和刚退休生活压力小有关，而后上升幅度较大，是由于居民的年龄增大和身体素质的下降。
4.3.2.3  深圳市性别比与第三产业关系

图(4-6)  深圳市人口性别比与第三产业关系图
图中居上的一条线代表人口性别比，居下的一条线表示第三产业的增长速度，根据深圳市国民经济和社会发展统计公报上的数据，在近十年中深圳市产业结构发生着巨大的改变，第一产业的增长速率在逐年减少，而第二、第三产业的增长速率却在逐年增加，因而大量的外来务工人员进入深圳市，导致了深圳市性别比、人口结构、分年龄的死亡模式发生了变化。
由图可以知道，第三产业的发展在一定程度上影响性别比（即模型中性别比与第三产业的关系式）。
4.3.3  预测深圳市全市医疗床位需求----卫生服务需求量法
在如何合理配置医疗卫生资源的问题上，有两点大家是有共识的：第一要以区域内居民的卫生服务需要和需求为基础；第二，规划是面向未来的，因此必须以某种方式较准确地反映未来的需要和需求。预测未来医疗服务的需要和需求的变化，不能忽略了一些重要的社会经济指标，多个社会经济因素对卫生服务需要和需求产生影响，这些因素包括人口(数量、年龄结构、性别等)、收入、价格、疾病谱及医疗保障制度等等。因此，在制订医疗资源配置规划时，必须对这些因素的未来状态做一个恰当的估计，并实实在在地纳入影响卫生服务需要和需求的计量中去。
同时在分析本市医疗资源历史发展及现有状况的基础上，考虑病人的流向、潜在需求、流动人口及人口增长等因素的影响，来进一步确定医疗资源的数量、结构、布局以及发展速度与规模。
4.3.3.1  卫生服务需求量法基本公式
医院床位需求量：
   医院床位需要量：

4.3.4  未来十年深圳市全市医疗床位需求预测结果分析
表4-2  2011-2020年深圳市全市医疗床位需求预测
单位全市床位需求（张）
2011 33949
2012 39063
2013 45795
2014 55200
2015 69759
2016 92470
2017 128464
2018 191571
2019 310318
2020 498966

图(4-7)深圳市未来十年全市医疗床位需求预测图
4.4  针对问题（3）
4.4.1  深圳市不同医疗机构的需求权重
通过综合患者偏好、医院规模（主要以床位数据为准）、医师比例等因素，求出了综合医院、专科医院以及街道医院三种医院床位需求权重。
表4-3  不同医疗机构床位需求权重
综合医院专科医院街道医院
消费者偏好 58% 33% 9%
医院规模 55% 40% 5%
医师比例 60% 33% 7%
权值 0.58 0.35 0.07
4.4.2  疾病别的床位需求预测
4.4.2.1  因病住院人数的计算
设，利用衰减因子法：，则对于深圳市未来的，有；其中，住院人数计算公式为：


图(4-8)住院人数与就诊人数的比值随年份的变化趋势图
4.4.2.2  因患高血压所需的床位数
针对深圳市老龄化的日趋严重，以及高血压在老年人口中的高发病率这一现状，随着经济的增长和社会福利制度的完善，老年人患病后的就诊需求会更加迫切，因此，我们预测仅仅因为高血压这一疾病深圳市全市就要增加的床位数总数，其计算公式：

4.4.2.3  因妊娠、分娩和产褥期小计所需的床位数
根据深圳市国民经济和社会发展统计公报的数据，第三产业的增长速率在逐年增加，因而人口性别比也在变化，同时根据深圳市卫生统计年鉴(数据来源于深圳市卫生与人口计划生育委员会网站)，在深圳市医院住院病人疾病顺位里，从2003年—2010年妊娠、分娩和产褥期小计的比重连续8年排在第一位，所以对妊娠、分娩和产褥期小计的床位需求预测是很有必要的，其计算公式为：

4.4.3 高血压在不同的医疗机构的床位需求的预测结果
表4-4  2011-2020年高血压在不同医疗机构的床位预测
单位高血压所需床位数（张）综合医院专科医院街道医院
2011 99.986 57.99 34.99 6.99
2012 100.054 58.03 35.02 7.00
2013 100.133 58.08 35.05 7.01
2014 100.212 58.12 35.07 7.015
2015 100.290 58.16 35.10 7.02
2016 100.369 58.21 35.13 7.025
2017 100.457 58.26 35.16 7.03
2018 100.546 58.31 35.19 7.038
2019 100.634 58.36 35.22 7.04
2020 100.722 58.41 35.25 7.05
4.4.4 妊娠、分娩和产褥期小计在不同的医疗机构的床位需求的预测结果
表4-5  2011-2020年分娩在不同医疗机构的床位预测
单位分娩所需床位数（张）综合医院专科医院街道医院
2011 7276 4220.1 2546.6 509.3
2012 7357 4266.9 2574.8 515.0
2013 7297 4232.1 2553.8 510.8
2014 7266 4214.1 2543.0 508.6
2015 7127 4133.7 2494.5 498.9
2016 6966 4040.4 2438.2 487.6
2017 7181 4165.1 2513.4 502.7
2018 7181 4165.1 2513.4 502.7
2019 7441 4315.8 2604.4 520.9
2020 10681 6194.9 3738.3 747.7
5. 模型检验
5.1  人口预测
现有深圳市1979—2010年的人口总数,、出生率和死亡率数据。用C语言编写的灰色GM(1,1)模型和改进的BP神经网络模型的程序，首先根据深圳市1979-2009年的数据，利用此组合模型进行预测，将所预测得到的2010年深圳市人口总数与已有数据进行比较，并验证组合模型的短期预测精度。
通过计算，可知GM(1,1)预测的数据与实际数值的绝对误差大于组合模型得到的仿真数据与实际数值的绝对误差，相对误差大于组合模型得到的仿真数据与实际数值的相对误差，均方差大于组合模型得到的仿真数据与实际数值的均方差，由此可见此组合模型在人口总数预测方面仿真数据的精确性较单独的GM(1,1)模型要高得多。
5.2  床位数量预测
5.2.1  卫生服务需求量法的精度和优势
预测未来医疗服务的需要和需求的变化，不能忽略了一些重要的社会经济指标。前面的分析己经证明，多个社会经济因素对卫生服务需要和需求产生影响，这些因素包括人口(数量、年龄结构、性别等)、收入、价格、疾病谱及医疗保障制度等等。因此，在制订医疗资源配置规划时，我们对这些因素的未来状态做一个恰当的估计，并实实在在地纳入影响卫生服务需要和需求的计量中去。同时在分析本市医疗资源历史发展及现有状况的基础上，考虑病人的流向、潜在需求、流动人口及人口增长等因素的影响，来进一步确定医疗资源的数量、结构、布局以及发展速度与规模，这样结合了实际情况的预测值比仅仅依靠历年床位数据所得出的预测值更可行，更贴合实际情况。
5.2.2  评价医院床位供需平衡状况
床位供需平衡评价采用供需比方法，即将当地实际医院床位供给数与医院床位需要（需求）数进行对比，求出比值再进行评价。
(1) 供需比值在范围内，为供需平衡；
(2) 供需比值在范围外，但在范围外，为基本平衡；
(3) 供需比值超出范围为供需不平衡，比值为短缺或不足，比值为过剩。
5.2.3  对医疗机构的划分
在这个问题上，我们依据经济学和消费心理学中的相关知识，综合患者偏好、医院规模、医师比例这三个指标求出不同医疗机构的需求权重，而不是根据医院科室的设置来划分，这样的处理更贴合居民看病消费的实际需求。
6. 模型的评价和推广
6.1  灰色GM(1,1) 模型评价及推广
6.1.1  灰色GM(1,1)模型优点
灰色GM(1,1)预测模型在计算过程中主要以矩阵为主，它与C语言的结合解决了它在计算中的问题。由C语言编制的灰色预测程序简单实用，容易操作，预测精度较高。
6.1.2  灰色GM(1,1)模型的缺点
该模型是指运用曲线拟合和灰色系统理论对我国人口发展进行预测的方法，因此它对历史数据有很强的依赖性，而且GM (1,1)的模型没有考虑各个因素之间的联系。因此，误差偏大，尤其是对中长期预测，例如对中国人口总数变化情况做长期预测时，误差偏大，脱离实际。下面我们来讨论GM(1,1)模型的适用范围。
GM(1,1)模型的白化微分方程：

其中为发展系数，
有命题当GM(1,1)发展系数时,GM(1,1)模型无意义。
通过分析，可得下述结论：
当时，GM(1,1)可用于中长期预测；
当时，GM(1,1)可用于短期预测，中长期预测慎用；
当时，GM(1,1)作短期预测应十分谨慎；
当时，应采用残差修正GM(1,1)；
当时，不宜采用GM(1,1)；
在对深圳市人口总数变化情况的预测过程中， =－0.040597，因此可做短期和中长期的预测。
如果要考虑到多因素的联系和影响，此时我们不妨建立GM( 1, n) 模型。 GM( 1, N) 模型能模拟系统发展的动态过程，不但吸收了传统的灰色模型的建立，而且建立了多中改进的灰色模型，提高了预测精度。具体参考[5]
6.2  BP神经网络模型的优化、评价及推广
6.2.1  学习因子h 的优化
采用变步长法根据输出误差大小自动调整学习因子，来减少迭代次数和加快收敛速度。
，为调整步长，在0～1之间取值
6.2.2  隐含层节点数的优化
  隐含层节点数的多少对网络性能的影响较大，当隐含层节点数太多时，会导致网络学习时间过长，甚至不能收敛；而当隐含层节点数过小时，网络的容错能力差。利用逐步回归分析法并进行参数的显著性检验来动态删除一些线形相关的隐节点，节点删除标准：当由该节点出发指向下一层节点的所有权值和阈值均落于死区（通常取±0.1、±0.05等区间）之中，则该节点可删除。最佳隐含层节点数可参考下面公式计算：

表示输入节点数；表示输出节点数；表示介于1～10的常数。
6.2.3  输入和输出神经元的确定
利用多元回归分析法对神经网络的输入参数进行处理，删除相关性强的输入参数，来减少输入节点数。
6.2.4  运用BP神经网络进行人口预测的可行性
一个好的人口预测模型首先应符合人口基本理论和数学建模要求，这是选择模型的关键。其次要保证模型数据可得，一致和可比性，在数据预测检验阶段应充分拟合原始数据，特别是有波动的数据，因为波动性数据往往蕴藏了系统重要信息。具有P个输入，Q个输出的BP网络可看作P维欧氏空间到Q维欧氏空间的一个非线性映射，含一个隐含层的BP网络可以逼近任何连续函数。BP网络的非线性映射与人口非线性特征是相近的，对于未知的人口动力学系统可通过神经网络来学习系统的表征量并进行预测，已有定理从数学上保证了网络用于时间序列预测的可行性。网络的输入向量和结构参数可由相空间重构技术予以确定，同时BP网络的动态学习能力对人口波动性数据具有较强的识别和拟合能力，克服了以往人口预测模型剔除奇异值或划分阶段处理的缺陷。因此从模型映射性质, 输入变量的选择和波动性数据拟合等方面表明BP神经网络模型用于人口预测是可行的。用神经网络对人口历史数据进行分析拟合，是人口预测的有效方法。与传统的人口预测方法相比，将基于BP神经网络的时间序列预测方法用于人口预测，避免了繁琐的常规建模过程。神经网络模型良好的适应和自学习能力，使预测系统计算简单、灵活，运用计算机强大的组合能力，可以更好地实现人口分类预测和管理，大大提高人口预测效率和预测精度。
6.2.5  BP神经网络的不足：
BP神经网络需要大量的样本数据用来训练和测试，当样本数量不够时，预测的误偏差很大。
针对这些问题，我们提出GM(1,1)和BP神经网络的组合模型，这样利用灰色系统理论具有所需要的样本数据少，原理简单，运算方便，短期预测精度高等优点，也发挥了神经网络并行计算，容错能力强，自适应能力强等优点。
6.3  供需比评价法对医院床位的预测的优缺点
6.3.1  供需评价法对医院床位的预测的优势
卫生服务的公益福利性质也决定了不可能使市场机制在卫生资源的配置中起基础性作用。因为在医疗卫生领域市场机制的局限性突出表现在这个机制不能解决医疗卫生服务分配不公的问题，不能解决人人享有基本医疗保健问题，这个局限性是市场固有的，是无法克服的。所以在医疗卫生领域，资源的配置只有在政府的宏观调控下，辅以市场调节，二者有机结合的资源配置方式。宏观调控的基本内容就是根据医疗需求，对医疗资源的总量、功能、结构和布局进行调控，合理配置医疗资源，保持总供给与总需求的基本平衡。
影响床位数的因素多而复杂，如人口数、人口年龄结构、经济水平、人均收入水平、居民健康状况、居民卫生服务需求、卫生服务利用、卫生服务能力等。其中，居民健康状况、卫生服务需求和利用是综合性指标，代表着医疗卫生服务的工作量，从而决定着床位的客观需要量。本文利用卫生服务调查中居民健康状况、居民卫生服务需要(需求)与利用以及卫生统计年鉴中卫生服务利用效率等数据，对深圳市全市床位的需要(需求)量进行测算，然后与实际床位供给数进行比较，求出供需比值，进行供需评价。此法具有以下的优点：
①按照深圳市居民的实际需要(需求)量来测算床位需要(需求)量，科学性和实用性较好；
②方法简单可行，可操作性强；
③结果是定量的而非定性的，在床位资源供需平衡状态评价方面，提供了一个客观的量化标准，为总量控制提供依据。
6.3.2  供需评价法对医院床位的预测的劣势
本法仅限于总量评价，而无法对各级各类医院床位的供需平衡状况进行客观的评价。
6.3.3  对医疗资源预测的评价和改进
该模型考虑的是常住人口，而根据深圳市的人口现状，有大量的外来务工人员在深圳市务工，因而可以对该模型做进一步的改进，即把深圳市人口的中非户籍人口远远高于户籍人口这一现状考虑进去，并考虑流动人口的经济水平和实际就诊需求，对医疗需求的预测会更完善。
7. 我们的一些建议
1.今后20年前后我国人口趋于年青化的发展态势，之后人口老年化的趋势逐渐显著，且成年群体的负担会越来越重，深圳市也不例外。鉴于此, 要加强发展基层的养老保险等社会保障事业，现在的年轻群体可以投入这样的组织来保障老年的生活，同时也减轻年轻一代的负担。
2.继续实施计划生育政策，促使人口健康、稳定发展，并利用教育，宣传等形式来。引导男女性别比的协调发展，如果按照上述的态势发展，势必会造成一系列严重的社会问题.
3.发挥深圳市当地的地区优势，合理调整甚至是的产业结构，创造就业机会，发展自己的经济，活跃市场，给上述的群体创造更多的就业和再就业机会。
结语：
此组合模型将灰色预测与神经网络相结合，充分利用了灰色预测建模所需信息少、方法简单的特点和神经网络具有较强的非线性映射能力的特性，采用多层前馈网络预测模型和灰色预测GM(1,1)等维新息模型的预测值进行组合预测，同时针对BP算法易陷入局部极小的缺陷和GA易产生早熟收敛的问题，提出了一种GASA混合策略的神经网络权值学习方法，并将这种混合策略应用于BP神经网络中进行学习，从而提高了预测的精度。此组合模型简单、实用、特别是在原始数据非常有限的情况下，可以得到相当精度的拟合数据，并能得到可靠的预测数据。
由于神经网络的功能之强大, 型式之多样，若能将其它网络形式同灰色预测相结合，则有可能进一步提高预测精度，并能在人口预测方面发挥更大的作用。
在参考宋健人口发展方程的基础上，我们提出了更切合深圳市人口特色的人口动力发展方程，在预测出深圳市未来十年的总人口的基础上，预测出了未来十年的人口结构，并基于此提出了生育模式和死亡模式。
在预测床位的数量这一问题上，我们结合了深圳市的产业结构发展特点、外来务工人员较多、非户籍人口远远大于户籍人口的特点、深圳市人均可支配收入、居民健康状况、卫生服务需求等种种因素，以医疗服务需求法来预测深圳市未来十年全市的床位需要量、需求量以及疾病别的床位需求量，得出的数据比单纯使用历年数据所预测出的结果要精确得多。
在医疗资源稀缺的情况下，对于医疗资源配置的方式主要包括一下三种：以需求为基础的模式，以供给为基础的模式，以供给和需求相结合为基础的模式。但是随着人类社会的发展和进步、疾病谱的改变、医学模式的转变和人均期望寿命的延长等等，如何更好地体现医疗服务的公平性和可及性以及更好地配置医疗资源成为困扰宏观调控的又一课题。
8. 参考文献
[1]Khotanzad A，Elaragal H and Lu Tsun_Liang. Combination of Artificial Neural-Network Forecasters for Prediction of Natural Gas Consumption[J]. IEEE Transactions on Neural Networks，2000,11(2):464-473.
[2]赖红松，祝国瑞，董品杰.基于灰色预测和神经网络的人口预测[J].经济地理，2004，24（2）：197-201；
[3]汪璇，谢德体，吕家恪，武伟.集成GASA混合学习策略的BP神经网络优化研究[J].(2007)，03(12)；
[4]邓聚龙.灰预测与灰决策[M].武汉：华中科技大学出版社，2002；
[5]深圳市卫生和人口计划生育委员会[EB\OL]. http://www.szhpfpc.gov.cn/view?f ... 032=menunews&nt ；
[6]深圳市统计局[EB\OL].http://www.sztj.com/main/xxgk/tjsj/tjgb/gmjjhshfzgb/
[7]政务公开站点——卫生部政府信息公开专题[EB\OL].http://www.moh.gov.cn/sofpro/cms/previewjspfile/zwg
[8]林安弟.吐鲁番地区医院床位医生配比标准研究[D].；
[9]刘丽娜，我国医院卫生院床位配置情况及预测研究[D].山东大学.2007。

附录:
附表1  2011-2020年深圳市各指标值预测
单位老龄化（老年人口比例）（%）人均可支配收入增长速率（%）第一产业增速（%）第三产业增速（%）
2011 0.0178 0.1270 -21.6090 11.08
2012 0.0183 0.1150 -16.5183 10.62
2013 0.019 0.0912 -19.2546 10.96
2014 0.0198 0.1012 -15.9456 11.14
2015 0.0206 0.1037 -18.3001 11.99
2016 0.0214 0.1046 -22.9454 13.08
2017 0.0222 0.0829 -20.4666 11.65
2018 0.0231 0.0983 -20.0182 11.65
2019 0.0240 0.0887 -11.2366 10.16
2020 0.0249 0.0943 -3.0914 9.37

(1) GM(1,1) 灰色系统C语言源程序清单：
#include<stdio.h>
#include<math.h>
#define N 100
void main()
{
int t0,tn,t,n,i,m;
float e[N],q[N],z,z11,z12,z21,z22,c1,c2,a0,p,u,yy,y,s1,s2,g0,g;
float y1[N-1],h1[N],h0[N],h4[N],r[N-1],z1[N-1],a[N],a1[N];
float z2,v,s11,s12,s21,s22,ee,l1,l2,c3,o;

z=0;
z11=0;
z12=0;
z21=0;
z22=0;
a0=0;
p=0;
u=0;
printf("===========================GM（1，1）===========================\n");
printf("请输入起始年份：");
scanf("%d",&t0);
printf("请输入终止年份：");
scanf("%d",&tn);
n=tn-t0+1;
for(i=0;i<n;i++)
{
printf("请输入%d个数据：",i+1);
scanf("%f",&a);3 e$ ?( X* G7 n& G7 E' W) a7 M
}9 |; @. |% @. v& U
m=1;* W$ X0 R5 r  B/ s9 Y$ C
while(m>0)
* E5 S- r8 k% f2 v- c9 {9 Z { # H7 c0 R0 _3 \  h! `- C
for(i=1;i<n;i++)2 Y' P' n% m6 C
{8 R, E" n3 q9 \% F
r[i-1]=a[i-1]/a;
4 y4 s4 a% ~0 g2 y4 l }7 ^# n0 C6 v1 t+ Y* ~$ C+ n" H0 C
for(i=0;i<n-1;i++)
2 o5 _- b- @/ J3 q4 g {
5 {6 p) P) B3 B/ C; e8 I  f// printf("r[%d]:%f\n",i,r);3 ~8 R0 r' Z2 P+ ?1 g  K0 p+ t' j5 }
}
" h$ {: s8 Q+ W # a4 ~8 C/ Q# X6 f* Z& s1 w& l+ C
m=0;
+ X% j! O! }- ]$ q  I* _ v=-2/(float)(n+1);
  N& q# P  i1 o* v4 r l1=pow(2.7183,v);
( M0 ~/ d" {8 A% N0 k. Q l2=pow(2.7183,-v);
) T" }  [$ f5 e
- p* A2 K! m. Q/ I9 Z for(i=0;i<n-1;i++)
. G/ F! H$ K/ ^ {
+ X9 f. Y3 D+ c" y  q9 x if(r>l2||r<l1)! g- N4 x4 f3 H$ ]
{; u9 \! B# o! z! D3 V/ w, G
printf("r[%d]:%f\n",i,r);
6 l& n7 P- c) ^0 }3 }& s printf("11");! ]. x. H, m( ?
m=1;
( U; ^$ b) p, T# k6 W4 S7 b! B- v printf("需要调整，请输入调整值：");
+ y2 ?1 \# n5 [) P! t1 Y0 I# X scanf("%f",&c3);
9 L& `* n/ j0 x* Q& o1 o for(i=0;i<n;i++)* p  z5 i" k0 d# v& ~' F
{# L7 w4 K% D/ ]* O9 V- |2 I4 e+ s" i
a=a+c3;
! F4 U9 H7 G/ f, d/ d: S7 T) @ }1 a4 k( w8 r( |7 h
break;# D! r/ v. B* D

" ^6 g& f7 _# P }
1 H3 @1 U  D% X6 Z  w }
6 u& k, o3 C  o; e! x' z* x# W }6 N$ w- p4 [9 K/ w" {
a1[0]=a[0];- Q1 p( h2 \& r* r/ a9 N
for(i=1;i<n;i++)3 [/ P& s2 v$ y/ A" [/ R
{
0 R' P0 T% M. B$ ?: N2 W/ V3 k3 N a1=a1[i-1]+a;
, V" W+ f6 j; n// printf("a1 %f \n",a1); //累和
9 a( ~$ l: V7 }6 b0 d4 S+ ` }
7 d8 ^6 |4 H+ ] & ]* R, a: y4 B. k1 x; ]5 r
for(i=1;i<n;i++)
. M1 T( m* k% a- ~( [ {
, D& I( x) X2 V1 F& k! w y1[i-1]=a;
% \6 x" R' d5 F3 M" w6 ~ }- U8 a( ^9 }" h/ T/ i
for(i=0;i<n-1;i++)
7 {( f, W* U3 j) Q& P1 ?1 p6 U {5 i- r. D& }1 o
// printf("y %f \n",y1);//缺原始数据第一个元素
% k/ Y9 ]; i0 v1 ` }
" u+ @' y. k  Q" x# U for(i=0;i<n-1;i++)
0 x/ W! A" [) u) w, \ {
6 a5 W: }, |7 u9 _ z1=(a1+a1[i+1])*-1/2;
8 z3 a) H" |; Y8 u* _! c }
7 u1 D" X4 ~" g$ `8 _3 j for(i=0;i<n-1;i++)6 S, _  f7 h/ p# V$ G' f
{$ ~+ s7 E3 Y2 B7 \7 N" S+ A
// printf("z:%f \n",z1);// 求1/2（相邻两数和）$ ~4 l) X7 n; m( n. K' T6 ^- Y6 G
}
% p4 w8 W1 N  s! J for(i=0;i<n-1;i++)) w( y0 r, d5 O2 x5 Y
{
7 I% h/ Z( W& G" p z11+=z1*z1;
4 l" s! T# T0 l  H7 D$ k- R& g z12+=z1;2 k# O! a6 \+ R' h' e- D
}) R9 ]& i% F8 L
z22=n-1;
! e. b* S# n; S/ M% m5 R! r6 ~ z21=z12;: t4 e: J  I8 p( ^# q, L7 v% l
// printf("z矩阵：\n");+ l7 x7 o/ U$ \; P9 h
// printf("%f %f\n",z11,z12);
# w9 s! r9 V" y, |. h( N/ e/ M// printf("%f %f",z21,z22);1 v, _7 m' \* I
z2=z11*z22-z12*z21;
( \3 ^/ E* }- u$ u// printf("行列式：%f",z2);9 w2 s& m7 q- S2 t
s11=z22/z2;1 R1 S# H% }8 L: V0 x( I* S  l
s12=-z12/z2;1 z/ V' b  f5 f- w
s22=z11/z2;; ~) o! R" V& C, V8 L6 G
s21=-z21/z2;8 h8 K1 T6 t% K/ v. [8 E" Y
// printf("\n");1 ~1 A9 Q% B  L1 M
// printf("%f  %f\n",s11,s12);
& S% h! e7 r& ?1 E// printf("%f  %f",s21,s22);+ h3 A  W0 x$ y4 Y( |
c1=0;% n) K4 }  z, e4 e. z7 }
c2=0;
: F" J+ U; }1 Q! M0 a* Q# Y& w" x for(i=0;i<n-1;i++)5 `- C7 Q+ V  `/ n/ M
{
  E/ }' _1 L' D# o7 R c2=c2+y1;
  q, J( L5 B' O  y* P  E c1=c1+z1*y1;! m  ~9 Z6 f4 Q) V0 o+ X1 e, i( v$ D
}
7 P# [+ n/ \$ Z3 N// printf("c1:%f c2:%f",c1,c2);
6 I' X: S2 d! h2 i. J  y- S2 o. z
a0=s11*c1+s12*c2;
( W' Y  {6 u0 C6 S! J- @& N u=s21*c1+s22*c2;
( r  Y* e& ]0 e1 g* l$ ?// printf("a=%f u=%f\n",a0,u);7 E! n# {2 n6 V# g
for(i=0;i<n;i++)
% y+ ?- W) f5 L8 K0 h3 |& r+ V  z {. z* o( u6 `* O5 q$ z5 O
h1=(a[1]-u/a0)*exp(-a0*i)+u/a0;$ F! J& f* w( z  {4 [* F' R
}; D, }+ ?3 v+ T, C. @. v
h1[0]=a[0];% }4 ^6 ]7 S$ R; `+ F/ w) K2 \. l6 e
h0[0]=a[0];
6 G& a: b; ?4 T for(i=1;i<n;i++)% ]; O  J- E1 _& V& U$ H
{) B3 P: u% Z2 f/ j
h0=h1-h1[i-1];& [+ J5 g* U+ f$ L* ], d! y/ w- v
}+ h+ x2 B& U9 T% q
for(i=0;i<n;i++)" B4 P& J, o4 d6 [' }. G3 D
{
+ ~% o% U$ c! x3 x// printf("预测：%f\n",h0); //预测值！3 X( s9 Y! ]' M0 v7 j
}& x9 O% H3 ^- C  \# D
for(i=0;i<n;i++)) X9 G) x' g7 E9 o/ ~2 k* [8 z
{" q6 v4 e; Y3 A+ G$ m
e=a-h0;  H  D& s, @+ }9 u" H
}/ I' B+ J3 k$ \4 Z: `
for(i=0;i<n;i++)$ W' F9 x) i( Z! I+ r0 H
{
  ]$ `6 z) [9 j9 e6 }1 h" I q=e/a;, p+ \! ?$ J, e1 {6 u- y% u
}
& f0 z% F, i9 [+ w0 o5 ?6 s for(i=0;i<n;i++)
# w+ z+ j4 T2 d/ H! o/ x {6 T* j% I6 C- h0 o! Y
// printf("e(%d)=%f\t\tq(%d)=%f\n",i,e,i,q); //--------e为残差！ q相对误差！、
) v9 u5 X) C8 R% _! A! x: Y  \ }
: ]+ T6 G$ k' J0 V# C yy=0;
4 Y8 ?* n2 e( M/ N7 d9 N! } for(i=0;i<n;i++)" U* Y. D% P* m% u
{
* [3 b: F9 f. Z0 Y- L3 c) R9 l9 ^ yy+=a;& v5 L1 G2 V* n3 R1 o4 G
}, L4 o9 `, u' v; }& k
yy=yy/n;
4 V  D& a7 F7 y2 g& V! S% P y=0;) S9 C- L6 Q& {/ b) L7 Y
for(i=0;i<n;i++)6 t0 V! j7 H5 u  g  k) Q
{
7 J: S! `; E) K& T0 v' d y+=e;
8 {0 \+ g9 L7 @! a }9 a! ~# e0 T5 Z& q- y9 U1 r
y=y/n;
# a/ n: k# E* {! B) W9 B5 Y7 t// printf("平均数：y：%f e:%f\n",yy,y);//原始数据的平均数
  h4 Z& r, d2 w1 B* q: e: y9 c ee=0;
$ `6 M$ Q7 x# a0 `) j, L  I for(i=0;i<n;i++)! o  I& m6 s2 S; P' Z* [% X- Y8 V
{4 D8 Q5 X3 t. c- j# P' p& S) ?
ee+=(a-yy)*(a-yy);4 y7 G4 [4 _. c! A
}
/ U7 @  l' r2 V1 `. v1 q0 { s1=ee/(float)n;/ X: M9 s- p# w2 j. @
// printf("%f ,%d\n",s1,n);
2 x' A6 d: @9 e6 z: p s1=sqrt(s1);1 p% c) q1 B" H  n  X* t0 W2 b' e2 k
// printf("s1:%f\n",s1);//---------------------s1
! N. u# N# N  ^  v7 ]& V ee=0;
4 C& [* E, @2 y7 o' L, ], t: ~ for(i=0;i<n;i++)0 L& g1 Q% ?% R0 F# R. x; S3 k8 ]& b* N
{/ u: Q4 N! F' e. ^
ee+=(e-y)*(e-y);* ]: K$ f3 i, i8 A4 X
}9 B+ Q# S; z/ K# F( T" }5 V0 D
s2=ee/(float)n;
8 b9 {1 h; I* q2 |// printf("%f ,%d\n",s2,n);5 F5 }$ `4 y# |2 Q* Q- f
s2=sqrt(s2);7 N8 q( @9 L( }3 ^$ j) q9 l
// printf("s2:%f\n",s2);//---------------------s24 V3 {& X1 j# i7 U" P  Q, j6 R& d
ee=s2/s1;
- ~3 k2 [, n# V7 u4 [9 Q: i9 l// printf("均方差比值：%f",ee);//-------------ee均方差比值
& r, _) a; g7 k2 B/ G o=0;
2 _! t9 t; m& q& ]( W8 b& x for(i=0;i<n;i++)2 |! r$ D0 B$ J4 ^& O
{
, D' `8 w; ]+ w/ v1 {# D3 ?$ k if((y-0.6745*s1)<e<(y+0.6745*s1))
+ k$ V3 B' E4 E1 _) P, k! ?( c {- H$ |' Z* u) N' w9 ]- D, ^4 b
o++;, O# ]8 x- ^7 ?* f* J+ S
}9 X2 ^- P/ F5 T
& C4 n6 n, M  q9 X
}; |, d/ ]" q& F  Q, E2 v1 m: r
o=o/(float)n;
5 f6 p, V, F5 I$ f7 z2 f// printf("小误差概率为：%lf\n",o);//----------o 小误差概率; v. W4 c  ~) }# l9 n' H
printf("请输入预测终止年份：");4 \. Q1 E2 ?1 g, y
scanf("%d",&t);
* }! l5 t. C* X5 c0 y t=t-tn;
; U; n# ]; j+ e! n7 A g0=(a[1]-u/a0)*exp(-a0*n)+u/a0;
' Z% H# n0 j. a2 _2 [" D h4[0]=g0-a1[n-1];
' Q" n; b1 H# ]& a) u for(i=0;i<t-1;i++)
7 J2 |: Q: _1 X  \3 ` {
  p2 H) r: }3 a! f; r/ ` g=(a[1]-u/a0)*exp(-a0*(n+i+1))+u/a0;# e" |# c  M5 n  a
h4[i+1]=g-g0;
. t( t/ |! Z9 e& w4 i1 j g0=g;
) c( W1 E+ {; \ }//  预测# }, k9 G' }9 P% ?. k
printf("===============================结果==============================\n");$ y1 a' q1 }$ U+ ^& C7 L
printf("序号：");; x( Y. ^4 T8 `) c
for(i=0;i<n+t;i++), E1 \2 \! v3 l! @
{/ r  \, E, a5 @, h% a6 C
printf("%8d",i+1);
. i0 L" u+ F5 H$ D) W( Y7 t }3 T' n# G  E: X* F7 e; y
printf("\n");8 T7 J- \8 H7 K* w% J' o, N
printf("年份：");
' q1 q3 b. G  S for(i=0;i<n+t;i++)
4 T- }0 P; ~  }5 y5 A" Y {
8 W: }6 C! R( l8 O8 L printf("%8d",t0+i);* w- n6 m7 T5 ?% M4 j) `" ?' g5 |
}3 B0 _4 J. ]4 A/ f: X- F
printf("\n");
. t+ Y# B4 m0 w! Q/ r8 G  ?# K printf("原始：");
9 f4 o4 }3 Z$ Z for(i=0;i<n;i++)) M: \6 S+ e) G
{# u( t7 j4 h4 ?$ j
printf("%8.4f",a);
: r4 f4 B3 {4 n9 h }' n) k  D. |8 T- {2 D0 f
printf("\n");7 n& x. G, Q% T7 W
printf("预测：");2 M3 X  R" U1 j; k
for(i=0;i<n;i++)
" T( [$ v* }9 c8 g9 _4 N! S# ~ {3 B3 ~1 b: v# C
printf("%8.4f",h0);" l. N0 _# @' d, m3 H$ O
}
2 x$ a& [% I- P5 [ for(i=0;i<t;i++)
; \: C# J& b$ c# v' v6 ^  _- p$ ^ {& l, V( W. N0 p
printf("%8.4f",h4);% D3 E7 b. o7 S: P8 n
}# d8 _5 E/ i3 v- ?: z
printf("\n");
4 L2 T; e: ]# r printf("残差：");
' C! n' \( n  a$ O, k for(i=0;i<n;i++)
  W0 g% y$ I. _5 G: t {+ B, ?# U8 X. B$ h1 }& O( }1 M
printf("%8.4f",e);; t. R$ \2 z2 U8 H, j7 Z
}
* V! q6 N% J" Y$ A' B7 _ printf("\n");
$ b& v* z: E# y$ ?1 k2 J. E printf("均方差比值：");0 e5 O  Q/ m+ C  E
printf("\t\t%f",ee);( ~% s( v# x/ ]
printf("\n");" ~  I6 c$ m! a) [
printf("小概率：");. V! I$ f: r* w/ e3 s2 ~/ F# Z
printf("\t\t%f",o);
, l$ V; L5 y* ~- \' h6 H printf("\n");& a  b$ ?5 E+ P
printf("==============================精度评价===========================");- m& Q6 y+ g$ e2 _8 [

+ `4 g5 l, Y# O  w5 m printf("\n");
& e, ~; I  {, o/ t6 D if(ee<0.35&&o>0.95)! K) C' N/ M' s# L+ |
printf("\t模型预测精度好！");
- {5 a1 _3 H' P( d% [- S$ G else if(ee<0.5&&o>0.8)) `% ~6 H+ {  m9 ?' M" @! N: I5 J
printf("\t模型预测精度一般！");7 W# _* H6 S7 Z( i- L
else if(ee<0.65&&o>0.7)  p+ H" D" N9 s
printf("\t模型预测精度勉强合格！");
- ?, H1 m; F8 ]9 Z; c2 Y else printf("\t模型预测精度不好");) {, `- U2 O% q9 U
printf("\n");
3 Y8 s) p# N! _0 Q# Y% D9 k printf("==============================预测结束===========================");
# t1 F/ ]! E/ i, ?9 S' B# L- c+ D+ v8 \ printf("\n");6 m- ?2 D. |' P, l( r3 j
printf("\n");
+ p) t$ L5 G  e6 N# [+ x printf("\n");
  K' n- z# X1 |3 }' F$ [! B5 \- R printf("\n");& @& T% T9 ]' f1 R5 g
6 W3 E( i" O2 K% b3 ?4 P
( B8 R, V" S! k! o
scanf("%f",&o);
8 n9 A( H9 R5 k# Q9 }
& x- R6 s: ]. ^$ G& \}4 ~+ f6 {. e4 _& H+ B
(2)基于GASA混合学习策略的BP神经网络的C语言源程序清单：4 `5 A4 U- ~% }& m. L* Q# [
#include<stdio.h>3 [, j3 P6 T1 e% [' ^2 z3 b1 a( V
#include<stdlib.h>+ T( G3 }3 T8 H. y9 s, X
#include<math.h>: E6 M5 y/ j. ]& F" ^  x( o
#define M 10; x: a8 @# b) e; A' u
#define N 165 ^. M! ~  b$ a# l) t4 F
#define m 10' k  y2 c' D, E: }; r: D( K
#define jingdu 2000
0 N: @4 Q; T+ L" j) }' v; c+ ?#define jingdu1 1000" K& e$ h- o6 s8 q
#define jingdu2 0.1) S6 d. x9 V, H$ ~' n! I

6 n1 T2 U: J& m' v2 kconst double e=2.71828; ) m9 d1 A/ b% d# k
- C7 r& x% z3 \1 O, }# O
float in[N];
/ H3 b0 Q+ u( S1 _5 Vfloat out[N];1 T+ E! ^) H2 j: w5 r9 y  Q  S
float get[m];
: {5 D# ^0 d$ p) y" o$ ?$ Z" \* _/ S1 c

4 [  i8 [! w: a4 \' G) `. efloat one[8][M][N];
  I  D9 y* y- s, g6 a. q9 b( Zfloat two[8][N][m];
6 Z1 ~& n. O- ntypedef struct
0 q$ M% x) B3 b% [! @; c" H+ z{
# q7 d5 p5 o4 c7 o( l, U; P float yi[M][N];1 U: N; i) f" V5 L9 T
float er[N][m];
# t) n0 k9 n* f' ~3 n/ o! B float fi;  _+ i% d4 F* w4 `1 E5 ~
float Fi;4 F* l# c4 [! J& a0 q. O3 F
}dui;
3 g& |- j0 ~9 w* \1 Adui du[64];
9 u6 e/ g; C  n) m8 A& n( [dui du1[64];& P" N! }, f9 d7 r$ Y4 u
dui du2;* d, k; J4 `$ q' l
dui rao;
6 j" s) Y) o. [; T  n& ]& W: ]& {dui gd;
+ a6 V) b0 w6 L( t* M3 @. y. Y8 ~! m& a& R9 E. W2 c
float T=100;
& J$ V/ j5 W+ R0 q6 J$ y7 h% Q; `3 E; z- `5 A4 d+ d
typedef struct
& \; y! s; g6 f5 T8 z) ]. e2 F: a{6 j0 ?' g5 \* ~
float year;. p5 U3 [+ S# p9 l- o! ^! x; |+ g
float num;5 F: r( @1 i  R+ H% D' Z# g/ b
}Data;
: [* w& n; u8 e/ EData data[10];4 E! u; e3 v) I, p
- @! P. q; P, B

2 `1 c( l4 Q7 j4 i' L1 ^6 evoid chushihua(), @6 M1 @/ c! ?4 \+ g, }) O
{0 \3 t3 G4 _3 N) o' I" C
for(int i=0;i<8;i++)3 w3 f1 r3 ]  s4 Y9 u& d
{' e( k9 p1 U1 i4 z' e0 E
for(int j=0;j<M;j++)& M1 {& X2 m8 P0 Q- `* `  P4 z
{" }! C' Y$ C7 ]/ a4 j2 Z
for(int k=0;k<N;k++)4 t0 M( J. j+ L8 G5 M( U9 X8 v
{
5 a( B( ]0 P' S int h=rand()%700;: [1 ]3 k0 h: ?  W! |
int w=rand()%10000;! P2 E& H$ q) ~7 a+ M# n3 I+ o
float q;& t* j: ~% W5 R$ x0 G/ c
q=(float)h/10000;+ k4 {* c$ }$ B7 M9 e! P
q=q+(float)w/10000/10000;% W( @  ]. F9 `: U& L9 ]$ O: b
one[j][k]=0.0375-q;//9 ]" ]$ T4 \+ t+ ?5 T1 W* ^, w' b# `
h=0; 9 r; X1 F, M2 D! ]
}% Z2 E" a, u! k. V
}  D: O( _8 z# ?5 k) a( f
}5 ^/ `( m) t8 e" @% T

  M) I; X2 p( ?( H+ A& a, G for(i=0;i<8;i++)
; ^2 I6 l( a1 {$ g {. w* ?. z- U& {! z9 U
for(int j=0;j<N;j++)
# q  R. E9 @! Q  g# V {2 z- M0 r/ B8 I7 Z
for(int k=0;k<m;k++)
/ ]) ]7 u  T( [ {* H9 w% C4 J- g8 J. H' ]+ H/ r
int h=rand()%24;) s: n2 A9 U; l1 z0 K  r! D
int w=rand()%1000;' D7 L" `' X2 d5 D% h
float q;8 P1 f. W% {6 L( V! L5 w# r
q=(float)h/1000+(float)w/1000/1000;9 u! S# J5 u& e
two[j][k]=q;
, y' E) ~; Q2 l1 q% i h=0; //8 _& F. N2 y* A: l! Z
}
3 S& e! ?  }7 L3 d% k9 Y2 \ }0 _) a8 D6 ^9 T# o; v& k& U1 F' j
}
: a5 _( T# Z' Q/ o0 U for(i=0;i<64;i++)& }  L0 l7 Q; V% r* s
{ int h=i/8;
; e% q3 T+ ]) K2 D' p/ u for(int j=0;j<M;j++)
' [, m( H8 g+ J" N {
1 c8 r5 m5 E/ L7 Y for(int k=0;k<N;k++)
  `8 {0 @* c3 K' h5 Z4 Y% s {
& F* P. o) a! Q$ ^7 {  X, ?6 X; ~ du.yi[j][k]=one[h][j][k];  H1 N9 |! h3 Y, Z' O5 K. Q
}% o* U) D  C) A
}& ^4 m7 P! Q# _+ J! N! w
int z=i%8;
5 Q; b0 |' z# j( V: F for(j=0;j<N;j++)
; q" A. M) w7 P' M  h3 B4 }+ [! Z {$ B& d, s2 H8 s' m* m/ J/ Q
for(int k=0;k<m;k++)
1 u4 R- v+ \; L. h1 `+ x8 |# S7 k {7 m4 _5 N5 E8 M' a# ~
du.er[j][k]=two[z][j][k];
3 w. Q4 q* b' @6 j, F' g3 l }4 t2 U( s# y( K/ D0 d
}, D% z% k" l* J9 f2 V% e$ s

) Y5 m9 M* {, }# a! i3 V }5 b) e7 d3 j9 ]

% p1 b; X: ]$ J$ @/* for(i=0;i<10;i++)
; w  t# z6 u' q; g {
/ d+ I1 |2 j& W data.year=i;
2 i- _6 i- c( O printf("请输入第%d个数据：",i+1);  G4 I: y7 S6 }
scanf("%f",&data.num);
/ e! w7 t. E% i7 x }*/
) a/ _# Y2 j- A2 [+ W1 c! E" P data[0].year=1;1 y- Z9 s* b( p6 D1 g0 {$ e/ b. e$ Y6 k
data[0].num=0.1106;, m9 G0 f, V+ r
data[1].year=2;
) l2 [; j* ^- a3 x, h) w4 S  j data[1].num=0.1879;
6 C  \6 P/ A0 r8 [ data[2].year=3;
8 M+ c% E8 b1 z" Y4 I4 l data[2].num=0.3153;
" l  ?3 |8 W. ?) G0 b data[3].year=4;0 Q3 \% i& l4 Q/ c' L& ^8 }
data[3].num=0.4591;
8 L6 Z0 Q# k4 n' |: \, S  T data[4].year=5;
# p- e& j" M) b1 p$ ] data[4].num=0.5274;$ I' L2 V5 A# b* {6 a% U  X
data[5].year=6;3 K# V. R! S% X9 B. S
data[5].num=0.5907;/ u: V/ X" M! S. e. x$ U0 m# [
data[6].year=7;
9 c0 S; ~: q- L* n' A data[6].num=0.6748;
: L0 J% y4 _. a) K! Z data[7].year=8;
! r4 [& V- I% I) F2 _ data[7].num=0.7733;
6 {4 J) r1 d& k: Y! R2 f data[8].year=9;
; J: s' [  U6 y2 u- m' l data[8].num=0.8713;& c. B' i% |5 @! }
data[9].year=10;
7 ]8 c# X9 B5 q+ l: q5 D& f data[9].num=1.0000;
1 O8 ~! p2 U1 j0 m
. n) H+ z( I. `}
3 f, J7 p% {! H. M: {( L& T
& i% `  s1 a1 ]) ^  A% j, p+ N4 g

$ I4 Z- [5 _. c4 X. k$ s! u: c* d# O4 c$ \
: W. k: K. c" e1 }9 @6 y, F
; c$ n4 j3 ^$ w: A0 e$ m2 o
& Q& p) O: i- T9 y; d* r6 [1 x
void yuce(dui h)$ m0 G$ N" ^3 i, F2 w! K
{6 Q6 D$ F7 [" G" j- }* n
float z,g;
  \- R* V5 ^& m8 A0 w! C for(int i=0;i<N;i++)
4 J; m( E' |' p$ W$ m4 o. a6 } { g=0;2 H* m4 L) w4 }/ |; t* ]; A' i
for(int j=0;j<M;j++)
0 R# \3 s! b' D! ]1 t {
6 K1 K! D+ {6 l. K g=g+(j+1)*h.yi[j];
, u1 g% V$ a1 U }
) `! E8 |' O& g) k! M- N
+ O4 J$ W* N! h7 p. t- ?& ? in=g;
% M2 C5 Y- d8 p  c: q# Q1 Y }
9 A6 F, c! n4 s- o* x( Z5 L6 B! `7 x2 L
for(i=0;i<N;i++)3 C- n) m0 Z% I. m- h+ H
{
9 }4 w8 l' J, U, R  O% y z=in;
. y& n% p5 t* l7 l$ p z=pow(e,z);. O: x1 h  G' M. ?2 O0 K/ _  ?
z=1/z;1 `- ?" P; h( }: H8 P5 |
z=1+z;
1 J" ^  M! I$ \- e% g5 _ z=1/z;
1 J# j- _7 w4 y: E8 @& e! m out=z;
: ^0 a; {  |. `0 u  c4 U+ k* M; A }
. a- Q1 u1 `6 I9 S3 d/ w5 Y) E
' q6 h; U1 c& i; K; t for(i=0;i<m;i++)) a2 ~6 A* s8 M7 _$ a* s7 Q
{ g=0;
; i& a: `1 i8 N" }% J for(int j=0;j<N;j++)* J" U( h& X$ B! m8 i
{
5 Z4 x! J$ ~+ g0 G8 o# U( u: |3 l$ g g=g+out[j]*h.er[j];4 _& N& i& a" _) X" n4 J

& e. ~. r' |8 g: M% }$ W7 O }) A  E5 Q9 l3 c- Y
get=g*10;2 X" M! R, Z3 m: |5 p. y
}
3 O: c0 b& G2 a6 d; m% ^" L. P for(i=0;i<m;i++)
& y  O; W/ S. k+ j {
% A0 Y; p# i3 m; f* x+ Q printf("get:%f\n",get);, }! l5 T8 E$ {: e; w) s3 p& [: ~
}
' v+ A5 t9 e) ~, O! q  B scanf("%f",&z);
( v# _7 T' y% D: V& v4 y7 P}$ K9 V8 u7 i5 M* T# q0 p
float shiyingdu(dui h)
' h& K" q7 n! c6 w4 [6 E1 m5 Q4 ]+ o{
1 ?" E- V# U1 B; m4 d float Fi=0;
9 B4 _, x# k, k/ s float E=0;/ U1 S- v, L& d7 g
float z=0;, W6 e7 |+ W( A: ~  z9 q6 V
float g=0;
0 _8 e; s7 w9 j; W6 y float in[N];0 ~0 ^/ c0 K+ q/ S8 U
float get[m];
3 v2 v& Y1 k" p* L7 h float out[N];* Y0 n/ k/ q# }8 s9 H$ I0 m
for(int i=0;i<N;i++)4 x" c- U8 Z- A2 X; k& ]
{$ b  z5 I. O. X$ X( u* e
for(int j=0;j<M;j++)
2 q0 E7 Y+ M+ Y( K& K/ K( z {& L+ e  W3 P& X+ y" d
g=g+data[j].year*h.yi[j];
$ a, Y6 G9 l/ K3 g+ _8 S: W8 h }' c* V: K! f7 W6 K5 `/ {; ?: x  b
in=g;
% V' N' K# j7 W' I9 I* s3 ]
. I2 H& v# S/ m5 N. I }
& E& f7 q" v& ]' U' k5 \- O, [
0 V8 u8 m. a; ]! ]" y0 J& k: w% W. ?
7 A! l- k( @% F for(i=0;i<N;i++)
: D5 a0 x  M7 h5 }( B5 F& ] {! i1 Y; N/ @9 f% d- ?
z=in;
% Q- I: T; N) a) p% ?% s z=pow(e,z);
+ N4 G8 G0 x' i$ M# @ z=1/z;
8 _3 C) s* n7 g& a2 k$ n z=1+z;
3 I) y" P2 W$ Q% x& Z4 {2 b# M z=1/z;
" t! q. N( M9 c3 ~ out=z;; S' `# z" y; R1 w
}
# E& K' O+ B' c$ Q4 @) l" f2 F( i
8 y: q& @- x* w" I6 | for(i=0;i<m;i++)
* @4 H7 \3 n) \5 q { g=0;' _2 @8 n4 w8 D3 v
for(int j=0;j<N;j++)/ I: b% A5 v# K0 M" _. q
{
: ~6 v( w- |6 X- ] g=g+out[j]*h.er[j];
4 v; d& A. F# h" A }. M; x. ?! [% m  q- `
get=g;% a, `, f8 a( l4 R0 S( @- ?
}
& y% T, Z* P7 j9 i6 \
; O0 }- E" u0 P; X6 ]1 ?" G& L8 }0 z; A2 p' q0 [* g
E=0;# W- M% I$ h7 I( }5 j& E# d
for(i=0;i<m;i++)3 p+ C' {5 ?( L
{
, ~6 ^' x1 T; c/ @1 C/ S E=E+(get-data.num)*(get-data.num)/2;
$ b  {0 F% ~$ ?  Y$ p  @ }' k! F1 M. ]& J! ]$ c, H- M, H

/ r$ V2 ]: u" D9 w0 O9 _% e( h& v if(E<0.01)
: E: V9 p$ N6 A. j& v" o {" _( Z* J$ @$ n
yuce(h);& p' f' E6 r, y. ?& p9 D* w
exit(0);& p2 S4 p- V& e# X! u( c
}
; G3 F7 T$ y# k9 b' P* E$ [9 E1 u return(E);' q# H6 L' M3 q2 ^
}
8 a  I2 v+ A  R2 v
9 k7 D- N6 p4 }  I) q/ t( n  n1 |5 w8 `8 Y% H9 _; @
void gailv()3 z5 t2 Q3 Y, Q5 [, j
{
: k2 C- Y0 f0 M% |) \
) |. k& Z$ G8 I% ^ float l=0;- U. Y1 U$ L* F+ H0 v1 E
float max=0;7 N- W" o# G0 ?5 Z
float min=1000;  }+ L9 k: m6 D& ~8 G% V

3 w( u/ x4 V3 p# t+ a. l( ?& K for(int i=0;i<64;i++)8 j, Y9 o. p7 U. y( S; @
{
$ _4 ]& E" U9 ]# \ if(du.Fi>max)
/ @5 }* u2 a% E max=du.Fi;9 a. E2 Q6 q! m8 @3 T# j
}* f$ c4 S- U3 N  f
for(i=0;i<64;i++)
9 q+ M) H. h1 \- T {5 F1 z7 K% n5 \& x/ A5 o' J% {4 Y& T
if(du.Fi<min)
, R) i, D+ G9 x/ d( ?- x min=du.Fi;
; [4 I8 N; |' C% I }
. |& K* v9 H4 g+ H for(i=0;i<64;i++)  y, h! Y! _$ Y% y0 e( {( `7 q
{8 j/ k$ n2 W  E, y6 B$ i
du.Fi=(du.Fi-min+0.000001)/(max-min);/ _. I( `3 L1 K
}& r7 p5 |9 C3 C$ P% B
8 W) @2 B9 K  t# {- C/ e
for( i=0;i<64;i++)9 z2 P2 p/ R2 Q+ F
{' k0 N7 V' |4 n4 B1 ~

2 q8 }  I% }! Q l=l+du.Fi;
9 Q' ~  R- l+ X# |8 B# @ }0 C0 I0 P- N  r$ R3 ]2 G, g* `1 d
for(i=0;i<64;i++)) o* Q' V# T- \
{
9 _) q8 b3 n, `6 @) p# p& z% R- O. z du.fi=du.Fi/l;
1 h- x0 W$ u% x7 ? }$ J5 {( x* S- g; P. H

4 t& K  j( n+ n}% U7 f& L2 G% S: g

. S9 l. P% @  d# Z% S& b  E$ d. E. k; g, w9 }" H) _

+ S* [2 A2 J4 ~: p5 }
& v5 }# T8 T# p
5 z/ x* |. a: f" U1 ]
9 f9 s$ d( s9 W3 b9 w! C9 ?
. v0 `) ^; M% q0 y$ U; d* M
. D+ z: U% J, p% ~
6 F( n) H4 q$ D! {/ d3 Y& O5 T; R
# t* C4 E5 M$ K+ q: dvoid lunpan(), a, U+ {" X5 L
{int t=0;0 j: {8 J8 E% W7 I
for(int k=0;k<64;k++). s2 w/ q: f  e
{5 J- g$ B! _6 e
float p=0;4 C6 v2 X: p" ]1 H
- T; f9 I0 L& A% \+ B
int h=rand()%1000;, i! ?3 q2 S: l/ S- i" P
int w=rand()%1000;% z+ b9 h; v, j1 Q
float q;
9 }% i3 k+ [0 \* H* E q=(float)h/1000;1 h' B0 n4 g- T# `
q=q+(float)w/1000/1000;
, n3 V& S- p3 ]; [- l- G  R
9 h1 Z% \/ U$ h. d2 P! `; z2 l for(int i=0;i<64;i++)* E  ?( b6 P& Z# z
{
; J, d- a6 ^8 X( L$ [ p=p+du.fi;
* n  @, n7 n* v if(q<p)
0 f1 q3 c1 z0 W8 k; m3 p  S {" j/ m/ i1 G6 ?
for(int w=0;w<M;w++)
/ K: R+ x7 [) d$ f2 t {
* ~" w4 c. z$ |# T  ^7 d, Y+ U for(int r=0;r<N;r++)
+ X5 c# r* b) ?* C) y7 E7 Y {0 M* u4 v$ T- T0 t* [
du1[t].yi[w][r]=du[i-1].yi[w][r];
3 Y7 D2 q5 Y6 X, {# V+ H" s4 ^0 Z }
) u! l) ^! g  M4 t/ R }; Q: y4 K2 Q% H# Z' l& C( m1 K
for(w=0;w<N;w++)
# e6 X& q4 M! z {
. A; O6 A! o+ X8 h9 Y" g3 c for(int r=0;r<m;r++)
% C. S) d" k7 Q& ^( G$ L. m {
' \8 f; K& [3 i: u du1[t].er[w][r]=du[i-1].er[w][r];
) M2 E9 m4 {" A* m! ^- M9 w }/ t8 @! W! \3 [5 g0 t0 L0 c5 [
}: m* Q( k. T9 S- T
t++;
6 V5 m' ^4 q, i8 e  u) ] break;
0 X  V, K  ]0 g% U9 F9 s" B/ O }, a  b3 C& U' w' V
}
' l. P7 L6 O; I8 W1 c: {5 j
: X# t5 M/ V2 V7 U1 a6 a4 c) @( O* Q: G! I& f$ K( [& {
}
- T: P* S0 Y$ n}4 o' Q( q4 I# Z2 J

/ X3 l  @" p4 w, N+ m, a
( ^$ O4 e. a0 K
/ ?" I, k9 Z( C8 G2 X& O% u! H& h; Y- V

$ U0 j* \8 d+ |7 n0 W( T1 Q' F. A2 V, H. E- \: g1 {
3 h. r( w) u) f0 M4 g
void jiaocha()' w! b0 q3 c; Z& M( L' `
{: T; K0 ]( ~7 ]" ^
for(int b=0;b<64;b++)
7 V, d( O) e8 Q8 k7 U+ v {
/ u# m% t. n) [: ^6 p3 M* E; k; A0 A int p=0;# {; g4 i" e& l; u; f
int q=0;
5 }/ D) h1 s% K1 |& X' @/ O int o=0;) N" c/ g; @7 r8 i/ z7 B8 {
& g. I5 k' h) P# o$ m
int s1,s4;
8 X0 k2 w2 {1 J float s2[M][N],s3[N][m],s5[M][N],s6[M][N];% ?2 o8 ~- u1 B/ s' B5 j
p=rand()%64;" `/ p) @. j. P- i
q=rand()%64;1 }% d2 q# Z9 ]- g6 b4 F: n
o=rand()%10;- x% x" P8 o  ^2 [( i/ p0 X! v
o=(float)o/10;4 g, M$ E$ H0 O! b7 b3 @4 `
if(o<0.2)
1 B- v* ~" U! w$ W- \/ @5 E {6 X! U/ T! t/ C6 c% c% \  \% ?
s1=rand()%10;
+ a2 P1 S3 q/ e8 \9 r6 t s1=(float)s1/10;+ j& X1 j1 G/ V6 W8 n! ]& r
s4=rand()%10;
2 x, i$ ^8 m, b6 | s4=(float)s4/10;/ p, O) T* ^; `: j: X" s# `

4 ?1 P/ q8 C8 F. n2 L$ T for(int w=0;w<M;w++)
7 n- D3 G( q2 f* b7 A* K {
+ z/ a/ f1 G; V: V$ | for(int j=0;j<N;j++)
+ g+ A2 K9 U/ M2 o% E {
7 Y% D7 r; q0 U( P" B0 q$ i0 B s2[w][j]=du1[p].yi[w][j]*s1+du1[q].yi[w][j]*(1-s1);
- @# }8 o/ `: F( ~% X6 f  i% ~ }
: p$ W+ e+ q" c% t( o( C }& t  {  q6 a$ p& [" U' I7 }
for(int i=0;i<N;i++); H2 Y: G: j( N, S# ^! o, k
{6 k& \1 a& c; e; F5 ~; F
for(int j=0;j<m;j++)! w7 D/ Z- D& U3 i
{
9 `& Q% [2 c! [  K1 f s3[j]=du1[p].er[j]*s4+du1[q].er[j]*(1-s4);7 T1 ]- R3 N: ~; J# _
}2 |/ ~1 n1 E1 ~2 K) ^
}
# v! ^. F8 e  Z5 s. a4 h' ^& B/ {
$ V, z9 \, Q1 t- V1 D" d for(i=0;i<M;i++)9 `- Y4 {% k( x; `
{: R8 d7 Y+ d$ v' h% a
for(int j=0;j<N;j++)
- s  y1 o/ l" S/ U {
; e2 |, j" m: ?1 L s5[j]=du1[p].yi[j]*(1-s1)+du1[q].yi[j]*s1;. N' ]$ L+ P4 `* R: H2 y7 s
}
/ v/ h' k+ Q3 X& _& M }; X& e7 x( {: z; W. _
for(i=0;i<N;i++)
5 J- e( P5 |& U {
0 z; r2 k" n+ \ for(int j=0;j<m;j++)2 i0 G' @. G4 {: M( K$ U3 d
{
3 E; N2 M" D" B! o7 a s6[j]=du1[p].er[j]*(1-s4)+du1[q].er[j]*s4;
& S* E$ @2 o' h# i }7 b" a. S) W* o2 m
}
! X( s9 _! X0 K7 N4 G0 S  s
, @- i/ `# U9 o- p, V( H) ^6 v  K! _
! g: j+ K" _/ B" k( g) J- I$ i
for(i=0;i<M;i++)
! R0 y7 p+ U/ V) w6 B) u {7 X( Z& B6 G, C0 q, X& G
for(int j=0;j<N;j++)
; a" l' y$ Z7 _8 X+ U {/ D, i0 e) D8 `
du1[p].yi[j]=s2[j];
' d" x9 _9 Q# M9 o }
3 _9 d0 l, g% e! Q* K, h( d4 _% n }) @) |. t9 R; a" a, Y
for(i=0;i<N;i++)1 @' R8 o% _) j1 F# D+ N' M
{& Q! t6 B" L* J0 r& o9 G
for(int j=0;j<m;j++)
( W+ `; L7 d7 Q. t0 a {
1 x: u0 W) q9 f. f du1[p].er[j]=s3[j];4 l/ C" T, ^! @9 q4 \8 a$ {8 f6 Z
}
' Q1 k. I1 z1 a4 U) D }
6 O5 q1 J) V% u6 c; D* w
' b3 [6 ]( @- w! q5 j$ t; d$ k1 ] for(i=0;i<M;i++)
7 L  g+ X" E" c9 e3 x$ |  T {
9 _" |( ?- A& B7 a; S' P9 p  T for(int j=0;j<N;j++)
; e& S: e- o) M4 a" f" o8 [ {
  G# N, H" w3 T du1[q].yi[j]=s5[j];
1 o: M, h" y* r" m }
' o- v# b. T) c: t, b" ~% H }7 p1 X* M( e, S3 \  K! Y: A& j
for(i=0;i<N;i++)& [& G4 q* z1 J8 p0 Z& _' c
{
9 A# E  N% T6 _+ ? for(int j=0;j<m;j++)0 S3 Q; |% x2 Q( }2 @# H
{# k$ o& v/ e% x: C3 q1 N/ w6 C
du1[q].er[j]=s6[j];. P* y2 z$ m- g3 M
}
7 {) j4 B) L/ g4 G' h/ ~ }% }' k: w2 v6 |, h
}) M6 h* i7 N6 D' v4 Y& k
}
* \% m3 A. G8 q}
4 O7 s$ ~% F. I6 S, l
3 S9 Y" K6 ?6 t! U  ^5 I' R$ e8 X
' f4 e5 M% _) w1 l; Rvoid bianyi()
5 B8 _8 e. ]" j2 }2 E4 m# V{+ g& _8 m3 x# K% h
int p,o;
+ J; J9 `) Q& I( M. b' f% l float r1[M][N],r2[N][m];
: G; o9 S+ P. Y* C! w p=rand()%64;* v  B4 Y# ~+ ^! K& I8 L- ~
o=rand()%10;
" t, B1 k% r& i o=(float)o/10;
! a) Q* p) T  [7 @5 a3 b0 L if(o<0.01)
% O3 h4 [( s3 h+ u+ E! \5 K {
7 U; Y' M" F9 _, H6 y9 c for(int i=0;i<M;i++)
) t6 N9 R; R9 D& n; J+ M/ g {1 [9 C& x% \9 w; K9 @  u+ q) q4 O
for(int j=0;j<N;j++)$ m* m& K. X3 Z5 t5 P5 W
{
% Y% i- \2 ]; S" T) M3 S8 L9 C r1[j]=rand()%10/1000;
2 S5 S2 C9 c7 }& m! ?2 \) B1 E }+ r& I. q: a0 V; l3 w1 x# N+ j9 }, I
}+ K! e& O( K# l* Q4 C$ ~) Q3 X9 D
for(i=0;i<N;i++)
. z' `: r  d/ Y6 Y; d% w {
0 k/ U* [& ^. A* n' y for(int j=0;j<m;j++)
' d% c5 z" t( v/ O1 P {
- O, @$ }# n0 `) Z& n9 f r2[j]=rand()%10/100;: F' @7 O% @" z8 }& _/ r
}# i3 u0 G/ q2 Z# j: t- H
}
; D$ t; N# `( V3 X% E; z) n0 G# I& `# Z1 e8 d: o
for(i=0;i<M;i++)7 N6 S; U  y# i- g
{
2 \2 l% G$ b" k for(int j=0;j<N;j++)- O+ ?" `( r% J  j7 l' Y
{- A: c  F8 c" ~9 L' j# I* u2 t" C
du1[p].yi[j]=du1[p].yi[j]+r1[j];
# Z) i* C; E& \ }6 b+ G: }1 B- s! S( P! q1 {/ J
}6 ^+ C& T7 O( i" K) `9 f9 g& {
for(i=0;i<N;i++)
0 M* Q; w- p) c" H3 W {4 L( T. [$ P+ E4 e: b
for(int j=0;j<m;j++)! l% m) g( d& v5 p- o! V$ w
{
! w8 @2 W/ P/ D0 d9 Y3 M, n! l# ~$ s du1[p].er[j]=du1[p].er[j]+r2[j];+ _+ z" R* w! |' E, W% o( n- b, [
}
* S$ S3 b6 ~& ~$ M2 L& O/ C }+ u3 g: M, j! [1 k
& P/ z9 v6 w0 M6 [) k
}
$ `& e* {& U$ b. v7 @, v}
; h' l0 ~; R. |7 j4 a7 s
, Z3 D7 ^% y5 T4 B6 Z7 |' F& [/ e1 L# T: k! o/ t' K

4 j7 z) Y4 v0 p' n' evoid change()# O3 a6 R1 Z2 p' T* O/ F
{
# T4 {4 J( S( h& \2 j$ s for(int i=0;i<64;i++)
0 |1 A* ?! o) X8 m2 b. z/ m {
6 [) e5 `, r1 c for(int j=0;j<M;j++)
, Y7 J( j1 |, y% Y {
! j' W* D6 `4 {. P7 g' E- _ for(int k=0;k<N;k++)! k  m. M6 M! I; X7 ^+ S
{
' C7 P3 R6 @) }; }! l3 s5 q du.yi[j][k]=du1.yi[j][k];' E/ \7 c& p$ |' r. x
}( y8 C& c7 h( i4 t/ K3 Q
}
9 C/ C& I& \6 S% R, m6 } for(j=0;j<N;j++)
5 E2 I# ?) j& M {
% ^$ e, {0 D' x$ S6 f for(int k=0;k<m;k++): F! @% X, ?7 L8 H+ Q
{
1 R3 {5 {0 [4 @' W" L9 w du.er[j][k]=du1.er[j][k];
, z5 e7 i- L. ^3 z& g$ ~ }/ |7 v( E: h7 _+ B! e3 ~$ |
}
5 H) b! H2 y8 n" r0 n }
- A+ f7 Z' ^6 c0 G$ c6 a}
) ^. E" t/ S) n, I* T! p. X6 A4 W* U% N! Z

- E4 E# |9 q  S% V; \  L  k9 `
" [, e) _( j7 x/ w1 c) G3 F& W1 J& m8 M& X/ x, r9 N; `6 \0 u1 D
void raodong()# ^% @4 z0 q0 k2 ~
{
) ]; ^1 h4 W' \ for(int i=0;i<M;i++)
: c4 J$ a5 ?1 Q  r {
- E+ C: f9 U2 Q# a* B for(int j=0;j<N;j++)
( R8 D. R, W! \" [ {
4 d  V% \' K+ h: T rao.yi[j]=du2.yi[j]+(0.1-rand()%2000/10000)/10;
( ?9 Q- P( ^2 ?7 ?, _7 g  A2 u }
- @9 K! f- l( U3 w; U* M) U# [ }
4 l# N1 R  |8 f for(i=0;i<N;i++)" h7 ^  R/ d' z2 ?
{0 G0 |6 a5 P) w7 d. A
for(int j=0;j<m;j++)
* M# h7 W# x/ l- Y5 |6 D& w {) Q3 m$ Q$ W: O
rao.er[j]=du2.er[j]+(20-rand()%20)/10/100;* r0 W' L* S  x2 y; Q
}$ |) S4 _! t3 _& `) z/ {
}
" h- `4 M1 d% R0 h}
  N5 f7 ?, C) z5 K: j# m3 [
. |5 U: c6 Q' N* ]9 D4 v5 [7 @" v; h+ N" g7 r" n

* l% _+ {) u) Q2 ~2 i2 W2 P: ?7 f# c0 N" r& Z7 l- _9 \' G8 o" d
  f/ T2 f$ _6 M' w- }+ n6 F0 E" _
: E% y( m  H0 v7 Z; k
int qushe(dui d,dui r,float T)
5 D" U9 i3 }, b( C{; b6 X1 _1 V4 a. l* r% e% c% a7 c+ N
float w=0;  P! j+ E. _% l+ }
float p=0;( p* \+ B3 m! J0 v3 \) B4 x) B
float h=0;
! M$ K% O. _# k1 F w=d.Fi-r.Fi;
7 J9 f7 O1 x! P! ]2 D w=w/T;
( Q- }5 J/ p9 Q/ n  F- m p=pow(e,w);
( `4 x6 H/ |7 V: X h=rand()%1000/1000;7 S+ r  o0 x0 `! A* x" H
if(p>h)- X* ^5 p! p$ u( i- c+ S
{
" U2 U; h# D; l9 F/ V$ S0 X return(1);% _( M  o* P! z: R& B
printf("\n概率：%f,%f\n",p,h);* ]" L1 Z' l0 Z, s3 f
}) B; O3 m; x8 [4 T/ Z) c# e
else* S6 ^( _" G( i, Z' N$ _* h
{9 b! i8 B; D4 F) f! L& H9 ^  }
return(0);
0 @' l. y5 A! n }  y+ d* U6 o( {0 a
}
. ?% t  E& v7 z
4 X. e& {  W3 y3 M8 r9 ]0 ~$ M
7 }. o+ m- ^  n3 T4 X) K% N& l! e- u- G' r8 W" B# z8 B& k; `
; T9 e8 j" \: S/ ?! ^
6 [; J  W! \3 R7 E& @
void yichuan(). ^* C+ I6 ^/ `. D, Q
{ 4 Q2 t+ b9 b/ G+ O! A
for(int i=0;i<64;i++)
- _9 w0 ^6 L( R* L {2 b6 l- y8 q; x
for(int j=0;j<M;j++)- I% {. S; _0 \* ~3 U' b
{8 N3 G1 X. R2 ~. J
for(int k=0;k<N;k++)# H7 F- s3 A5 {3 U
{3 A% t2 m$ a1 _$ V  k; l
gd.yi[j][k]=du.yi[j][k];
. U1 B1 h& }* b# L2 Z0 [ }
' w7 ]* J$ i: w, X }
# a2 f+ J# D' T" `! I5 v
, k0 h9 s* A) k% v for(j=0;j<N;j++)8 h6 w6 _; ]. c
{7 x/ i8 q) H5 ~8 N# L% n
for(int k=0;k<m;k++)
5 ~1 e  J5 w% Q' w$ T {" A( G: n( J' t* B  ^2 K5 ]0 l
gd.er[j][k]=du.er[j][k];
! @# w/ |: j4 z3 }  u }: X2 T' x% u$ g! p( `
}7 b, Q3 G9 X* Z/ b! i( C

) }! o8 h* ^8 `  E8 ^% u/ [
% w0 W* V7 ]  `& B# {' e- l) f$ X du.Fi=5-shiyingdu(gd);
& }, T4 Z$ W) S% P% D
- t) o3 ]* s+ _- Q/ F/ z }, W# K& y9 D2 y$ @  i) A

) y* @0 i9 U6 w/ U/ b: U( F, K$ x gailv();7 q2 `3 p4 t4 l6 X' ?
lunpan();
" x; g: C6 O* x0 V* o% O8 s5 Q/ U jiaocha();& G8 o0 w, u2 `* K
bianyi();
; |4 ~0 K, ]# n) x- p, Q# }9 | change();
9 K9 [$ y) e( a* ^9 I/ Q0 N) X& E
' Q1 `( E1 \/ g4 ? for( i=0;i<64;i++)1 }& ^% p, ~' I
{
6 |/ u# h! N& {- I5 q5 I for(int j=0;j<M;j++)
- X8 G$ n+ P8 i' _- T  _, m {- L3 A, V' v% n, X) i+ \
for(int k=0;k<N;k++)# f% R/ |; d' M/ ?& u- ~$ ]/ L
{
, V9 [" Z* O3 _" k) ~ gd.yi[j][k]=du.yi[j][k];
+ v; w8 O7 H3 n: ?, u( ~" }' \2 C }, b* m5 p5 b( R/ L  r: G6 v0 c) C7 \
}
6 T. ~; h: Z5 M, K
/ {$ }* _9 M& b( {5 p: y for(j=0;j<N;j++)
3 g! p+ z3 B1 E8 B! |" v4 A {
4 Y2 C1 I  R0 A, U, J$ d' K  l for(int k=0;k<m;k++)
! C& d- ^3 Y0 |% x, U* i3 H" F {
* B2 X$ P, g. v gd.er[j][k]=du.er[j][k];- n' f+ P9 O: x9 K( d
}
) m. @- w6 ^" s3 } }2 T& F! g9 b7 b5 U4 M2 u" D. a
% }6 o9 h3 A. Y3 a) W& f4 g
# @7 ]8 n# Q: T/ L8 \& T
if(shiyingdu(gd)<0.01)
  R& m" ^& J3 R0 f; @, f: U {# X5 N8 k% O) \. j3 a
for(int j=0;j<N;j++)) Y0 z( Z: n7 j0 @% p5 Y  v
{0 n/ E3 e- Q) }( A$ o& ^
for(int k=0;k<M;k++)
2 ^) s  R! e' o, t {
1 f" G4 Z* y; F! V printf("%f ",gd.yi[j][k]);0 F  l: Y$ U' ~0 s" `% a
}0 g) o; o7 S! N8 z/ [- r
}$ s2 v# @$ l& N$ N( @& b7 O
printf("\n");
* e( Q, o$ ?- \2 m5 j) U) k for(j=0;j<M;j++)$ R" x- A" |" R$ n6 M# f
{
/ K" r6 ]* E$ O# F$ n: C2 J for(int k=0;k<m;k++)
' h" A; i* j# ]! p {3 u1 r0 V) r- l* L. x0 I
printf("%f ",gd.er[j][k]);  _  H, P2 ^' ~8 }
}
* f9 }, }+ m2 l% z- X+ M }# h+ l3 [7 N! F+ C# ]. C
printf("\n");0 ^) _0 b' _& l. @8 z
exit(0);
) X* m1 ~: G3 I. M: ]5 I& f }
7 f& O8 H3 b" _- N
$ L; ~. `5 h- o- Q }9 d2 S. M4 ^5 ?& a3 [" m6 _2 l+ V4 t
- z5 p7 L# b% |* M. ]9 K
" Y7 B& M. c4 U9 C) |' L3 }
}
0 R  Q! l6 g9 B* W8 o* c5 W
6 u0 @; n  t- Lvoid tuihuo()/ u7 R: ?4 }- A% e6 D* C9 {
{
6 G* g8 D5 R% n  ^1 q; G for(int i=0;i<10;i++)+ R8 n) Y, ?, U" ], x* X6 b
{0 d4 T# M. v& \$ z  x
int sj;) `+ p. b6 T* m9 x. `  I
sj=rand()%63;
3 d; ?4 l! h3 o) }
( p6 `' @& n# E+ g5 X for(int j=0;j<M;j++)
; q/ i/ C& z! L$ u# N4 j3 n6 } {
8 j, H! a1 R. l for(int k=0;k<N;k++)
! S+ x/ z9 Z8 r {
( j* N. P; g. a) [6 K* S! | du2.yi[j][k]=du[sj].yi[j][k];& {' w/ i' p6 I4 C( |3 V. P
}
% O& @# T' f8 O3 F }
- r' R) {& o2 A# I' V1 Z5 Y- w2 r4 Y" O6 ]& f" X/ N2 x
for(j=0;j<N;j++)
' a- t# e6 Z9 o8 k4 ? {
- e3 \/ W$ H$ f' H* ?" v# k for(int k=0;k<m;k++)2 r( h1 {+ \5 P1 V! S! n0 e8 ?1 L
{
) H/ y# m1 Q) z du2.er[j][k]=du[sj].er[j][k];
4 d) t7 v  q7 U$ x }
' I. u3 \" u  z' h }
7 u% [! ]) Y" j5 |' @: v float Ei,Ej;
: s: M8 z) R4 a, ~6 c, U Ei=shiyingdu(du2);
" f, q2 Z. l: {! h: d raodong();
6 X( x3 B' y4 ^5 X4 |7 {& c# r! Q Ej=shiyingdu(du2);
  {) @; A: ?  h6 S9 r) t while(Ei>Ej)3 S4 k$ s$ q6 O, r# C
{' m/ C! p. R0 H2 m( C+ b- F+ k
raodong();
8 j$ q) y" x# x# ] Ej=shiyingdu(du2);
6 Q! f" i8 S7 | }
2 }( x/ F' ^7 v6 q. Q, m if(Ej<0.01)
; O( D' B: Y% V) r4 T {8 a9 A7 z5 f: c/ [
yuce(du[sj]);
. [, V- \  h" G0 `+ p exit(0);9 A' |& V- y/ O3 w  b1 O7 Z
}8 q8 ]* N# ^9 q
if(T<0.01); p7 m; y0 u4 b/ Z, B
{5 K! ^) |8 t  N. s& o
yuce(du[sj]);
9 t. C+ I( h6 f exit(0);( L) R5 |; T0 ]. z
}1 }  b% o0 B2 G7 h" t, x: a
+ d/ f# o" }! X
7 {0 h$ `- g0 U9 O) Y
if(qushe(du2,rao,T)==1)
! A* c3 W% o6 i- Z" q9 z, O- w {
, l, J8 p  f+ U6 F. { for(int j=0;j<M;j++)
+ ~% Y# S0 @. x. K. ^/ ~  \" f9 S" D {" f7 ]# R; D0 W4 E0 b! r
for(int k=0;k<N;k++)
$ t# `* w4 b$ ], }+ g: r/ N! v6 {% y {6 Z: G8 t% T+ `2 V/ ?& Y. J- E
du[sj].yi[j][k]=du2.yi[j][k];) s. @7 i, t# k2 U0 T" p
}& Q& q& [; z& \6 d8 ?
}
; Z8 r$ w/ ~( Y, p' i  O0 ^  ?; ?
3 l" m: U! Z( B% q/ Z2 B% n for(j=0;j<N;j++)
$ B; {" |, w% E3 X6 ] {
" v8 t; Z: ?# { for(int k=0;k<m;k++)
  N8 s3 c/ m% Y8 g$ N8 t3 a, ^ {: E7 Z! `, p, ?) L
du[sj].er[j][k]=du2.er[j][k];
) |' E. r' ]2 Y2 x }
8 }, J% |( X$ Y4 F }$ |7 c/ H/ f6 \' y# L
}/ R0 ]0 z* p* ]8 q
" V5 `( x0 e. U6 y2 C0 G: Y1 l
8 P- B7 G8 c, s1 f$ B: ^$ t' I
}
  L( F5 W0 R) R+ F$ g& K0 M/ j6 ~
1 r3 f0 o0 [3 R2 F3 X5 [- n0 L) V, B6 s2 J
}
5 h: O" |6 Y. }4 ^- L6 S& C9 w
/ x7 m1 y" X5 e0 x; l2 K- `7 O& f+ i3 ]

; Q- ?- I- u' ~; p5 M( D. k0 f7 j8 ]+ G8 J3 o4 D) y0 N
1 |* q' E8 d; k  M; y
) S/ l+ H2 s5 N' o& i9 _# j
void main()6 t" e" g) \1 x- `" M
{ ( ~( Y4 W( v: N/ |$ t
chushihua();5 k* ~' \  F2 f2 y: ~, q% k
int n=1;1 L& c+ z/ Q: z, S
int jishu=0;
1 U5 C* B: B6 D8 Z  t2 M% p for(int i=0;i<2000;i++)" j% ^) n' e# g- W* l  y& y$ H
{
7 q) s1 v, w0 R$ K& X( q/ T8 d" [: R2 ~9 ^) t/ ~

+ ?/ @. J7 l6 d8 g1 w$ [ yichuan();, O2 @8 ~, V$ C* c! {  Z) Y
tuihuo();) o2 x: K& c: y$ f8 [

2 l4 t6 P& o$ }( ]' K float p=0;/ X* W8 E2 q( w5 @' {
p=log(n)/log(e);+ u' c: o3 `5 C) ~
n++;
. K- c$ B1 H, I. q! e, r3 v p=1+p;6 q4 E  ]% t4 k3 Z
T=100/p;. K4 J5 C! p) K) a! v. H
printf(" 次数:%d,温度：%f\n",jishu++,T);
1 H" z' g7 f# H0 J% F! t }
2 i9 s' m  A# [3 n4 Z5 V2 Y yuce(du[0]);" d3 k* ?. r. J5 |
printf("\n\n");
/ N8 z! H" T" R) W9 n printf("\n");! t1 s: _2 T' K6 J: @
exit(0);
8 G4 V5 u: y. |
; k1 M6 M+ ?1 ~6 x# p5 U* r}
! V; B% W; P8 w(3)人口动力发展方程C语言源程序清单：- k1 X/ t* Z* y, D8 j8 T/ F' A
#include <stdio.h>
$ d4 e* Q9 c2 f9 l# C#include <stdlib.h>
$ E! o% @/ @' J+ \#include <string.h>
+ i  @: O5 ^  w. n: M6 Z+ V#include <ctype.h>
. ~0 b' z+ @' E- L4 m) i( @5 s( ~5 k2 Z. N
#define N 100//年龄分段
! S7 |- `: Z" F6 p3 o# h#define M 10//未来几年
' p8 [: |4 t# l) l% v: G1 q9 Vvoid main()
8 D+ q+ o9 Z2 w9 I0 s4 r! D( q{ % Q+ V; i; R1 M/ i$ k
FILE *fp = fopen("实验结果.txt","w");4 Q) v1 F& K0 S( I' e4 s/ x
8 P& H' h. [1 h9 _
float num[11][N],out[N],in[N],Nin[N],Nout[N],ch[M][N],gd[N+1],m,t[M-1];
) T8 r* k: F$ B float c1[M][35],c2[35],c3,c4[N],h[9];
9 x9 b" A4 C$ Y) V, e float he;
' E" b( f& O. L" u5 [7 C int t0,tn,jh;4 Z: W  ^; c7 m; l- N: \4 }
int i;7 d7 Z& ~% i8 c7 Y
  y4 K. M$ b6 k7 ?# j$ l; [5 p
t0=1;! }/ B" U1 N: j8 k- c+ S1 Q* P
tn=10;
, J5 N6 I9 _: q+ d2 l
/ D  y# E- n$ q9 x2 b for(i=0;i<N;i++)
) {5 w& G2 t! C& w; S% x {
* w0 h' v$ J4 }8 ] printf("请输入第%d年%d岁的人口:",t0,i);$ {( H: y9 X$ i$ x. e0 f: _' b
scanf("%f",&num[0]);4 \! I2 D, D3 ?
//printf("%f",num[0]);
3 z, w+ k7 Z# L& Z! s }# `1 ]7 i0 K- \1 Y

. M  ]9 z7 Q) M/ A2 p3 i
: b7 @0 b. {" a4 Z, g* m5 u7 v. B
: h5 X  @+ L; e  G' Q! p) F) I: Y for(i=0;i<N;i++)
" O0 e! D) ?# U5 N3 s {4 y. x% _9 B/ y4 a3 t
out=0;
4 j8 ]% s% x/ C# T in=0;
+ B5 u! p5 o) [9 v }
% c$ y5 T3 S3 |7 m
( K3 z% y6 j/ Z" I4 u) h for(i=0;i<30;i++)6 X% a. `  `; r8 `& L; L
{  }5 c9 R. L" b; h  X6 n- s
printf("请输入%d岁迁入比例：",i+20);
1 |5 W9 c* c2 b2 j0 L7 C' N scanf("%f",&out[i+20]);
1 e/ G' L2 W( L // printf("%f",out);
7 y+ l/ d# q# U: t+ K- `! w }
! Q! [5 G4 H, M2 c. W0 Y+ _/ L  Y  I9 }2 C4 I' R! t
for(i=0;i<30;i++)
& i5 b; m& S+ Q2 g5 G6 G6 _ {* I3 _- p; h# D
printf("请输入%d岁迁出比例：",i+20);+ [9 ^: Z* O  _! Y. N9 x( G
scanf("%f",&in[i+20]);8 }- K) m0 H0 s7 w- c& H$ b
// printf("%f",in);
$ d- F% d: t5 t5 i: X }4 q6 [# S8 D7 d! C* ~- c7 h- M2 W

6 ?- A9 o. c& n$ h; b- B for(i=0;i<M;i++)
* U9 o& {& b" j8 U- ` {7 k7 F  N8 p) d' F& y
printf("请输入%d年迁入人数：",t0+i);6 ]5 U% ]# `  @' {/ P
scanf("%f",&Nin);
* U% P! {: \0 c4 i* C // printf("%f",Nin);3 ^9 l9 v) _, |( }% U; o
}3 n. Y1 f0 b' b* {
for(i=0;i<M;i++)) G1 ~6 x7 @4 c3 h: {3 O
{
1 v, h# o9 q* {1 x printf("请输入%d年迁出人数：",t0+i);
: i, O4 N4 l: x% ] scanf("%f",&Nout);
- V* N1 [) O1 J$ v2 j5 P" z/ N% ^ // printf("%f",Nout);
- c( R% P, S* O* x' \1 h1 ] }3 {, |# x2 Z: P  Y8 N

2 `5 [, r; w" p8 y, N  T: o for(i=0;i<M;i++)% M8 @. R9 _5 k; |: n
{
& D8 u+ K3 f2 e4 U" d for(int j=0;j<N;j++)
- O  N3 A1 b6 t+ Z0 B {. u* t: ^& H; t" Z
printf("请输入%d年%d岁死亡率：",t0+i,j);
8 K; I7 I1 t( Z+ }& G' H scanf("%f",&ch[j]);. x) h  r* e( O/ B: K* g) e2 f
// printf("%f",t0+i,j+1,ch[j]);
: z9 z7 x* Y7 u }
; B9 [" y! E2 T }4 q  M: ^0 S& |, F3 m

7 Z( @" u/ z+ x+ q6 y- {- Z, K: s! d* M. K
for(i=0;i<10;i++)) F$ k. I# C) q) \
{ for(int j=0;j<35;j++)% ]7 o/ P2 U# U& a% b% s
{$ W+ ~5 f* C. p* p8 p
printf("请输入第%d年%d岁妇女比：",i+1,j+15);/ w; X! Z/ t' ?
scanf("%f",&c1[j]);
7 a, l0 @* q8 }6 S }
* C3 b( U8 b- y# k8 z3 X+ U$ B 3 t2 x# s( N7 r& ~8 A
}
& ^5 A3 o4 ~# y- |0 K  T
* m, W4 b0 _1 ^) P3 ?5 F0 u: m+ N. Q5 t# I2 o9 Y3 [' q
for(i=0;i<35;i++)
9 }3 M+ P3 v- M {$ v1 u! h1 \0 k+ m( ^4 y
printf("请输入生育模式率");
  T4 U1 R- P; y+ R' D+ C scanf("%f",&c2);+ L. I% D0 C4 B
}' N3 F* z- X) `8 n, o) ?

# v+ V  q- @  D7 U* K2 O5 K7 H7 J/ c) l, \' W+ f/ c# _

- R( h/ E: ^9 a/ _1 e3 b7 L# [ printf("请输入总和生育率：");
* v5 C8 A" a7 [# t4 R5 O2 P% l5 L scanf("%f",&c3);
& _$ i" S3 m  g; v* `( b5 \
# p. B! o! _* r6 R
5 k, w6 l" S6 A" v; c* i$ \0 e$ M% M! K6 E- V# k% w7 ~
for(i=0;i<10;i++), j  G" I$ T# j& q
{8 c& Z; E5 i- a- I) b1 N0 g
printf("请输入新生婴儿存活率：");
5 Z8 ?$ l' N' o+ ~2 C- z; @9 \ scanf("%f",&c4);7 a9 a$ m/ @/ _& D4 V9 O+ z! i
}. ~; h4 |+ O3 y* Q2 n5 X/ o; C
% T/ E. x2 y' @) ~0 H1 o+ T
he=0;7 f- u+ ^& X: [1 G
for(i=0;i<10;i++)
4 }$ s/ J. W; p, b! y- v* g3 B& H {0 C4 w% V0 U" z; g1 q
for(int j=15;j<51;j++); H4 @  m0 F" I
{
6 v) g% F& I7 Y7 v, O: X he=he+num[j]*c1[j-15]*c2[j-15];
" [% `, U3 G7 |/ V9 K9 q0 k( S }
5 G: f3 }! w! `2 X3 @/ G# e3 C# p" ?5 n* R) e8 l
h=he*c3*c4;5 Z. T& ~5 x; Z3 D0 n9 q
) M6 f5 I- Q) J" Q
}
4 {8 W$ F2 F5 {% e" E; M
! d, U8 O* |+ X& a for(i=0;i<M;i++)- u( P) J+ p7 s, @0 B
{
/ Y% G/ [" r, M2 [9 _3 e- Z for(int j=0;j<N;j++)
6 V" T5 j* [5 i3 \# Q8 r, @2 R; } {4 v' ?& u; j& Z9 W" a
m=in[j]*Nin-out[j]*Nout;7 X0 g0 B5 E! F
gd[j+1]=num[j]*(1-ch[j])+m;
! N  D. U; O2 R" j' ~' l7 _ $ }/ j$ @, T# x! t) h
}! h( U$ C0 g+ g" L4 P5 Q
gd[0]=h;
- D/ z' S5 k6 w' L5 Q) |) c! g( P( a& S: R0 b0 D4 i; r( F
  U& f5 U" L* }
for(j=0;j<N;j++)
* q; y- E; F. y  q3 z% c {
' X! l1 B( t* s/ V num[i+1][j]=gd[j];4 p0 h7 P' Y4 d& \& R7 t4 N* F
}
% K+ h, [8 _" V$ T4 r9 |  C; t- D }7 X( _! C3 [) c5 C1 U9 H" R, F
4 k; ^9 _1 w- U! @, i# s
printf("\n");
) ]8 ?6 ^+ ?0 ?9 d1 ~1 [  p- Z for(i=0;i<M+1;i++)+ ^( d! f. i& P- ]) g& m5 B5 I
{
$ }2 H3 |5 z( v+ B for(int j=0;j<N;j++)
: {0 t" N% X1 O, |/ j3 r/ O {) ]& I# }3 G4 {$ w: k/ Y: h
printf("%f ",num[j]);( X; p& G/ [4 W8 ]3 ^% l. s
fprintf(fp,"%f  ",num[j]);
, C7 i$ M6 ?, f; S- m* l }
- n& x" @3 y5 l- [8 j2 _& w printf("\n");$ l4 L% G9 f1 R& Y) p, h2 g
fprintf(fp,"\n");4 X1 s/ _' u$ S3 N% |/ h
fprintf(fp,"\n");/ d/ q6 o6 L3 \
fprintf(fp,"\n");
0 k; A/ B9 F9 v, k }
8 E0 Y) Y7 D7 J, e# ]0 Q! E
& D* c5 a$ K7 U5 y. ^" { scanf("%f",&num[0][0]);5 D& c" _' }. S: M# d) W0 [9 ^+ ?% j

6 R/ j( A. m7 [4 [. {}% a9 q+ A( a; F+ P* p3 T
! ]0 \6 T+ I8 r" j" V2 I9 u

作者: 刘李 时间: 2013-1-24 13:32
哇~居然通过啦！好开心呢
作者: woxingzhe 时间: 2013-4-16 15:30
楼主好人啊
作者: 淡语夕林 时间: 2013-9-13 15:56
gooooooooooooooooooooooooooooooooooooooooooooooooooooooood

欢迎光临数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5