多元回归分析excel-vba程序设计new

《多元回归分析excel-vba程序设计new》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、万方数据第1l卷第5期重庆科技学院学报(自然科学版)2009年10月多元回归分析的ExceI／VBA程序设计王晓荣1甘庆明2(1．苏里格气田开发指挥部苏里格气田研究中心，西安710018；2．长庆油田公司油气工艺研究院，西安710018)摘要：基于Excel中的回归分析函数。编制了进行多元回归分析的VBA程序。利用该程序可方便、快速、准确地对实验数据进行回归分析。关键词：Excel；VBA；多元回归中图分类号：TP31l文献标识码：A文章编号：1673一1980(20019)05—0168—03在工程

2、领域我们常常会遇到一些变量，这些变量之间没有确定性关系；不能用函数关系来表达。回归分析是处理不确定性变量之间相关关系的数学工具．是数理统计中广泛应用的内容之一。利用它可以帮助我们分析变量之间存在的关系。从而建立起变量问的经验公式(回归方程)，并进行相关性分析。对于多元回归，当自变量个数或者样本数据较多时，计算量是非常大的，通常难以用手T计算完成。本文以目前普遍应用的MicmsoftExcel2003为基础，利用Excel自带的回归分析函数．编制了多元回归分析的VBA程序。利用该程序，只要在Excel工

3、作表中输入欲分析的数据。不需查统计用表和分析判断，程序就能自动给出回归结果和分析判断结论。1多元回归分析及Excel中回归分析函数1．1多元回归分析【11如果变量)，与多个变量z。，菇：，⋯，茗。(p>1)之间具有某种相关关系，(z⋯戈Ⅲ⋯，石∽)，，)，⋯，(％，，茗以，⋯，茗。，以)为n次观测数据，即为一个样本。如果，，与鼍之间存在如下关系：y=60+6l石l+⋯+6％(1)或者y=60×6：1×幽如×67(2)其中，6。，6l’．一，6。为同归常数，利用最小二乘法来求出。即取6。，6l，．一，艿

4、，，当60_6。，61-艿∥一，6，一，时，Q=2j(儿一60一6。以l一⋯一6∥iP)达至U最，j、。‘2l1．2Excel中回归分析函数四LINEST函数：UNEST函数可通过使用最小二乘法计算与现有数据最佳拟合的直线，然后返回描述此直线的数组。描述此直线的公式为)，=60+6一l+⋯舶卉，语法为LINEST(knowny，s，[known_x，s]，[c叩一st]，[stats])。TREND函数：TREND函数返回一条线性回归拟合线的值。即找到适合已知数组knowIly，s和kno帅x，s的直

5、线(用最小二乘法)，并返回指定数组new』，s在直线上对应的y值。语法为TREND(knowrL-y，s，knowrl_．x，s，new』’s，const)，如果省略neMr--x，s，则假设它和known-x7s一样。LOGEST函数：IDGEST函数用来计算最符合现有数据的指数同归拟合曲线，并返回描述该髓线的数值数组。描述此曲线的公式为，，=6。×6，’×面如×67，语法为LoGEsT(known_y7s，knowrl．-x，s，const，stats)。GROWTH函数：GROⅣrH函数根据现有

6、的数据预测指数增长值，即找到适合已知数组known_y，s和known-x7s的指数曲线，并返回指定数组new-x7s在曲线上对应的，，值。语法为GROW矸【(knowrI_y，s，known_x，s，new-x，s，const)，如果省略new-x勺，则假设它和known-x，s一样。收稿日期：2009—03一12作者简介：王晓荣(1975-)，女，陕西大荔人，硕士，T程师。研究方向为采气工艺技术。·168·万方数据王晓荣，甘庆明：多元回归分析的EXcel／vBA程序设计2多元回归分析VBA程序清单

7、多元线性回归分析清单如下：PrivateSubcommalldButtonl—Click()[A1]=”=””自变量个数⋯⋯：=。--count(F12：Z121”[A2]=”=⋯’样本容量⋯⋯：=”=count但12：E30()00)”[A4]=”=””回归系数⋯”’：=”=⋯’si．．．”’：=”=⋯’R2⋯”’[A7]-”=⋯。Ft-⋯’：=”=⋯’u⋯”’：=”=m’结论：⋯⋯[A9]=”=⋯’F0．01t．⋯’：=”=⋯’F0．05⋯⋯：=’t=⋯’F0．1”"”[E1]=”=⋯’线性回归⋯

8、⋯F1=Nam燃．Add(”x”，”=o瓜et(E12，0，1，B2，B1)”)·F2=N锄es．Add(’吖”，”=o伍et但12，0，O，B2，1)”)n=．Valuem=．Valuej=2Fofi2mTo0Step一1Cells(3，j)．Value=”b”&Trim(Str(i))j2j+1NexciRange(Cells(4，2)，Cells(8，2+m))．selectSekcdon．Fomula^盯叫=”=LINESTⅣ，X，1，1)”[A