烟囱抗震动力计算的BASIC程序

利用虚功法,并不考虑纯弯曲型杆件的剪切影响,求出烟囱各分段质量处的位移。再利用柔度矩阵列出多自由度体系的自由振动方程u] {A~(r)}=入{A~(r+1},式中u]为质量柔度矩阵,仅与质量分布及刚度有关。按照所要求的精度反复迭代,并利用振型正交性,求得第一、二、三振型的频率ω_j及周期T_j。最后按振型组合求出各截面的内力。