振动图谱的编程可以通过多种编程语言和工具来实现，以下是一些常见的方法和代码示例：
1. 使用Delphi和Matlab联合编程
Delphi和Matlab是两种常用的编程工具，可以用来绘制振动波形频谱图、趋势图、轴心轨迹图和历史曲线图等。以下是一个简单的联合编程示例：
Delphi代码示例：
```delphi
uses
Matlab.MATLABEngine；
procedure PlotSpectrum（const Signal: array of Double； Fs: Double）；
var
Engine: MATLABEngine；
Spectrum: array of Double；
begin
Engine := MATLABEngine.Create；
try
Engine.Put（'signal', Signal）；
Engine.Put（'Fs', Fs）；
Engine.Eval（'plot_spectrum（signal, Fs）'）；
finally
Engine.Free；
end；
end；
```
Matlab代码示例（plot_spectrum函数）：
```matlab
function spectrum = plot_spectrum（signal, Fs）
n = length（signal）；
freq = fftfreq（n, 1 / Fs）；
spectrum = abs（fft（signal））；
plot（freq, spectrum）；
xlabel（'Frequency （Hz）'）；
ylabel（'Amplitude'）；
title（'Spectrum'）；
grid on；
end
```
2. 使用Python和Matplotlib
Python是一种流行的编程语言，结合Matplotlib库可以方便地绘制各种振动图谱。以下是一个简单的Python代码示例：
```python
import numpy as np
import matplotlib.pyplot as plt
from scipy.fft import fft, fftfreq
from scipy.signal import spectrogram
输入振动信号数据
signal = np.random.randn（1000） 示例数据，实际应使用您的振动信号数据
频谱图
def plot_spectrum（signal, fs）:
n = len（signal）
freq = fftfreq（n, 1 / fs）
spectrum = np.abs（fft（signal））
plt.plot（freq, spectrum）
plt.xlabel（'Frequency （Hz）'）
plt.ylabel（'Amplitude'）
plt.title（'Spectrum'）
plt.show（）
plot_spectrum（signal, 1000）
```
3. 使用TURBO语言
TURBO语言是一种高级编程语言，适用于图形处理编程。以下是一个简单的TURBO语言代码示例：
```turbo
program VibrationAnalysis；
var
signal: array [1..1000] of Double；
fs: Double；
i, j, k: Integer；
x, y: Double；
begin
// 输入振动信号数据和采样频率
for i := 1 to 1000 do
signal[i] := Random；
fs := 1000；
// 频谱分析
for k := 1 to 10 do
begin
for j := 1 to 1000 do
begin
x := signal[j]；
y := x * sin（2 * pi * k * j / fs）；
plot（j, y）；
end；
plot（j, 0）；
end；
end.
```
建议
选择合适的编程语言和工具：根据具体需求和开发环境选择合适的编程语言和工具，如Delphi和Matlab适合需要高精度计算和图形界面的场合，Python适合快速开发和数据处理。
数据处理和分析：在编程前，需要对振动信号进行预处理和分析，提取有用的特征参数，以便更准确地判断设备的运行状态。
调试和优化：在编程过程中，不断调试和优化代码，确保程序的正确性和性能。
希望这些示例和建议能帮助你完成振动图谱的编程工作。