编制中心差分法程序报告(结构工程研究生作业)详解.doc

编制中心差分法程序报告(结构工程研究生作业)详解.doc

  1. 1、本文档共9页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
PAGE  第 PAGE 9页 中心差分法计算单自由度体系的动力反应 北京工业大学结构工程 组员:胡建华 S201204111 马 恒 S201204112 陈相家S201204083 张力嘉S201204022 0前言 时域逐步积分法是数值分析方法,它只假设结构本构关系在一个微小的时间步距内是线性的。时域逐步积分法是结构动力问题中一个得到广泛研究的课题,并在结构动力反应计算中得到广泛应用。由于引进的假设条件不同,可以有各种不同的方法,比如中心差分法,线性加速度法,平均常加速度法,Wilson-θ法等,其中中心差分法精度最高。在本文中,通过编制中心差分法计算单自由度体系的动力反应的程序来了解其应用及稳定性。 1中心差分法原理 中心差分法的基本思路:是将运动方程中的速度向量和加速度向量用位移的某种组合来表示,将微分方程组的求解问题转化为代数方程组的求解问题,并在时间区间内求得每个微小时间区间的递推公式,进而求得整个时程的反应。 中心差分法只在相隔一些离散的时间区间内满足运动方程,其基于有限差分代替位移对时间的求导(即速度和加速度),如果采用等时间步长,,则速度与加速度的中心差分近似为: (a) (b) 而离散时间点的运动为 ( 0,1,2,3,……) 由体系运动方程为: (c) 将速度和加速度的差分近似公式(a)和式(b)代入式(c)可以得到时刻的运动方程: (d) 在(d)式中,假设和是已知的,即在及以前时刻的运动已知,则可以把已知项移到方程的右边,整理得到: (e) 由式(e)就可以根据及以前时刻的运动,求得时刻的运动,如果需要可以用式(a)和式(b)求得体系的速度和加速度。 假设给定的初始条件为 (g) 由式(g)确定。在零时刻速度和加速度的中心差分公式为: (h) ` (i) 将式(i)消去得: (j) 而零时刻的加速度值可以用t=0时的运动方程 确定 即 (k) 这样就可以根据初始条件和初始荷载,就可以根据上式???定的值。 2中心差分法程序编制原理: 基本数据准备和初始条件计算 计算等效刚度和中心差分计算公式中的相关系数 根据及以前时刻的运动,计算时刻的运动 如果需要,可计算 (4)下一步计算用i+1代替i,对于线弹性结构体系,重复第3步,对于非线性结构体系,重复第2步和第3步。 以上为中心差分法逐步计算公式,其具有2阶精度,即误差;并且为有条件稳定,稳定条件为: 上式中,为结构的自振周期,对于多自由度结构体系则为结构的最小自振周期。 3算例 对于一个单层框架结构,假设楼板刚度无限大,且结构质量集中于楼层,其质量M=2000kg、刚度K=50KN/m、阻尼系数C=3KNs/m,假设结构处于线弹性状态,用中心差分法计算结构的自由振动反应。 采用MATLAB语言编程,并以单自由度体系为例进行计算,设初位移u0=0和初速度v0=0,取不同的步长分别计算,以验证中心差分法的稳定条件。 先计算,由稳定条件,而rad/s, 则 所以本次计算取=0.1, 0.3, 0.4, 0.41, 0.42, 0.45分别进行计算 4 MATLAB程序清单 [u,v,ac]=[M,C,K,u0,v0,time,dt] % 本程序采用中心差分法计算结构的动力响应 % 本程序是既可以计算单自由度体系又可以计算多自由度体系,且均假设结构体系处于线弹性状态; % %%%%%输入参数%%%%%%% % M质量矩阵 % C阻尼矩阵 % K刚度矩阵 % u0初始位移 % v0初始速度 % time模拟时间 % dt时间步长 % %%%%%%输出值%%%%%%%% % u位移 % v速度 % ac加速度 % %%%%%%%%中心差分法主要公式及原理%%%%%%%%%% % MX+CX+KX=0 % M*(X(t+dt)-2*X(t)+X(t-dt))/(dt^2)+C*(X(t+dt)-X(t-dt))/(2*dt)+K*X(t)=0 % (M/dt^2+C/2*dt)*(X(t+dt)

文档评论(0)

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

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

1亿VIP精品文档

相关文档