编写反应谱计算程序需要根据具体的应用场景和需求选择合适的方法。以下是几种常见的反应谱计算方法及其对应的MATLAB程序示例：
1. 精确法
精确法是一种通过分段线性差值来表示地面运动加速度记录的方法。以下是一个使用MATLAB实现精确法的示例程序：
```matlab
% 读入地震记录
fid = fopen（'CHI010.txt'）；
Accelerate, count = fscanf（fid, '%g'）； % 读入的记录的量
Accelerate = 9.8 * Accelerate； % 单位统一为 m/s^2
stime = 0:0.005:（count-1）*0.005； % 单位 s
% 精确法计算各反应
Displace = zeros（1, count）； % 相对位移
for i = 1:count-1
Displace（i+1） = （Accelerate（i+1） + Accelerate（i）） / 2 * stime（i+1）；
end
% 输出结果
disp（Displace）；
```
2. 振型分解反应谱法
这种方法用于计算框架结构在水平地震作用下的反应谱。以下是一个示例程序：
```matlab
% 初始化参数
k0 = [263770, 123582]； % 各层框架侧移刚度
m0 = [1, 1]； % 各层质量，重力荷载代表值/g
n1 = 1； % 单榀框架地震力分配系数
Tg = 0.3； % 特征周期（按规范选取）
s = 0.05； % 阻尼比（按规范选取）
y2 = 1； % 阻尼比调整系数
amax = 1.0； % 水平地震最大影响系数（按规范选取）
zjxu = 0.9； % 周期折减系数（按规范选取）
cn = length（m0）； % 计算楼层数
l = diag（ones（cn））； % 质量矩阵对角线
m = diag（m0）； % 刚度矩阵对角线
ik = matrixju（k0, cn）； % 计算刚度矩阵
% 求解特征值和特征向量
[x, d] = eig（ik, m）；
d = diag（sqrt（d））； % 求解结构圆频率
T = zjxu * 2 * pi ./ d； % 求解结构特征周期并作折减
% 计算自振频率和振型参与系数
for i = 1:cn；
[dl（i）, j] = min（d）；
xgd（:, i） = x（:, j）；
d（j） = max（d） + 1；
end
w = dl； % 输出结构自振频率
% 计算各质点的水平相对位移
for j = 1:cn；
x（:, j） = x（:, j） / x（cn, j）；
zhcan（j） = （x（:, j））' * m * l / （（x（:, j））' * m * x（:, j））；
end
```
3. Python计算加速度反应谱
```python
import numpy as np
import matplotlib.pyplot as plt
def response_spectrum（acc, dt）:
"""计算加速度反应谱"""
n = len（acc）
freq = np.fft.fftfreq（n, dt）
freq = freq[:n // 2]
spectrum = np.abs（np.fft.fft（acc））[:n // 2]
response = np.abs（np.gradient（spectrum, freq））
return response
生成随机加速度时间历程
dt = 0.01
t = np.arange（0, 10, dt）
acc = np.random.rand（len（t））
计算反应谱
response = response_spectrum（acc, dt）
绘制反应谱
plt.figure（）
plt.plot（t, response）
plt.title（'Acceleration Response Spectrum'）
plt.xlabel（'Time （s）'）
plt.ylabel（'Response'）
plt.grid（True）
plt.show（）
```
4. 其他方法
除了上述方法外，还可以使用其他方法如卷积计算法、傅立叶变换法等来计算反应谱。这些方法通常需要更复杂的数学和信号处理知识。
总结
编写反应谱计算程序时，首先需要