六跨连续梁内力计算程序程序_4.docx

上传人:安*** 文档编号:71033496 上传时间:2023-01-31 格式:DOCX 页数:7 大小:75.41KB
返回 下载 相关 举报
六跨连续梁内力计算程序程序_4.docx_第1页
第1页 / 共7页
六跨连续梁内力计算程序程序_4.docx_第2页
第2页 / 共7页
点击查看更多>>
资源描述

《六跨连续梁内力计算程序程序_4.docx》由会员分享,可在线阅读,更多相关《六跨连续梁内力计算程序程序_4.docx(7页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、六跨连续梁内力计算程序程序六跨连续梁内力计算程序讲明文档一程序适用范围本程序用来解决六跨连续梁在荷载作用下的弯矩计算。荷载能够是集中力Fp作用于跨中、分布荷载q分布全垮、集中力偶m作用于结点的任意组合情况。端部支承可为铰支或固支。二程序编辑方法使用TurboC按矩阵位移法的思路进行编辑,用TurboC中的数组来完成矩阵的实现,关键的求解K=P的步骤用高斯消元法。三程序使用方法运行程序后,根据提示,依次输入结点编号,单元编号,单元长度,抗弯刚度EI的倍数,集中力,均部荷载,集中力偶,各个数据间用空格隔开,每一项输入完毕后按回车键,所有数据输入完毕后按任意键输出结果。输出结果中包括输入的数据以便校

2、核,角位移的值以1/EI为单位以及每个单元的左右两端弯矩值。四程序试算1算例1算力图示:输入数据:结点:1234560;单元:123456;长度:466846;EI:11.51211.5;Fp:0128060;q:800406;m:00-801000运行程序如下:结果为:角位移为:1(11.383738,-1.434142,-8.980504,14.053733,-10.192107,10.048027,0)2算例2算例图示:1输入数据:结点:0123456;单元:123456;长度:466846;EI:11.51211.5;Fp:0128060;q:800406;m:00-801000运行程

3、序如下:结果为:角位移为:1(0,1.686721,-10.080218,14.871010,-12.183221,17.195206,-26.597603)弯矩图如下:3算例3算例图示:1输入数据:结点:0123450;单元:123456;长度:466846;EI:11.51211.5;Fp:0128060;q:800406;m:00-801000运行程序如下:结果为:角位移为:1(0,1.653925,-9.949034,14.264283,-10.248253,10.062063,0)弯矩图如下:4算例4算例图示:输入数据:结点:1234567;单元:123456;长度:466846;E

4、I:11.51211.5;Fp:0128060;q:800406;m:00-801000运行程序如下:结果为:角位移为:1(11.364772,-1.396211,-9.113262,14.660626,-12.126579,17.179023,-26.589511)弯矩图如下:五源程序#include#include定义变量intjoint7;结点编号intunit6;单元编号floatlength6;长度floatEI6;抗弯刚度floatP6;集中力floatq6;均部荷载floatm7;集中力偶doubleI6;线刚度intnumber=7,i,j;doubleK77=0;整体刚度矩阵

5、doublek622;单元刚度矩阵doubleMP62,Mq62,Mlast62,M7=0,tatleM7,mm7,Mqueue7=0,antiM7=0;依次为:集中力、均布荷载引起的固端弯矩,最终杆端弯矩,全部荷载引起的弯矩,总的结点荷载,按结点编号排列的结点集中力偶,按结点编号排列的固端弯矩,等效结点弯矩doubleangle7=0;角位移voidinput();输入函数voidsolve();求解函数voidoutput();输出函数voidGauss();高斯消元法voidmain()input();solve();output();voidinput()clrscr();printf(Pleaseinputdata.nnThejointnumber:);for(i=0;i=1;i+)Mqueuejointi-1=Mi;mmjointi-1=mi;for(i=0;i=1&jointi+1=1&i=j;m-)Klm+=-Kjm*Klj;tatleMnumber-1/=Knumber-1number-1;Knumber-1number-1=1;for(i=0;i=0;i-)for(j=number-1;ji;j-)anglei=anglei-Kij*anglej;

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 应用文书 > 工作报告

本站为文档C TO C交易模式,本站只提供存储空间、用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。本站仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知淘文阁网,我们立即给予删除!客服QQ:136780468 微信:18945177775 电话:18904686070

工信部备案号:黑ICP备15003705号© 2020-2023 www.taowenge.com 淘文阁