matlab编写路面谱文件 用于adams 整车平顺性仿真

function spectrum_of_road_surface_roughness 
clc;clear;close all
OldHandle = findobj（ ‘Type‘‘figure‘‘Tag‘‘PSD‘ ） ;
if ishandle（OldHandle）
    close（OldHandle） ;
end
fig = ‘figure‘;
h0=figure（‘name‘‘ADAMS三维随机路面生成器‘‘numbertitle‘‘off‘...
    ‘position‘[280 80 560 545]‘menubar‘‘none‘‘tag‘‘PSD‘...
    ‘resize‘‘off‘）;
uipanel（gcf‘highlightcolor‘‘b‘‘shadowcolor‘‘w‘）;
uicontrol（gcf‘position‘[20 450 80 30]‘style‘‘text‘...
    ‘string‘‘路面等级：‘‘fontsize‘10）;
uicontrol（gcf‘position‘[10 480 550 50]‘style‘‘text‘...
    ‘string‘‘基于正弦叠加原理模拟随机路面‘...
    ‘foregroundcolor‘[0.5 0.5 0.5]‘fontsize‘22‘fontname‘‘宋体‘）;
uicontrol（gcf‘position‘[110 440 60 45]‘style‘‘popupmenu‘...
    ‘string‘{‘A‘‘B‘‘C‘‘D‘‘E‘‘F‘‘G‘‘H‘}‘value‘2‘fontsize‘12...
    ‘tag‘‘lumiandengji‘‘enable‘‘on‘‘foregroundcolor‘‘b‘）;
uicontrol（gcf‘position‘[170 450 120 30]‘style‘‘text‘...
    ‘string‘‘纵向长度（X）：‘‘fontsize‘10）;
uicontrol（gcf‘position‘[270 460 50 25]‘style‘‘edit‘...
    ‘string‘‘40‘‘fontsize‘10‘tag‘‘zongxiangchangdu‘）;
uicontrol（gcf‘position‘[320 453 30 30]‘style‘‘text‘...
    ‘string‘‘m‘‘fontsize‘10）;
%==========================================================================
uicontrol（gcf‘position‘[350 450 120 30]‘style‘‘text‘...
    ‘string‘‘横向长度（Y）：‘‘fontsize‘10）;
uicontrol（gcf‘position‘[455 460 50 25]‘style‘‘edit‘...
    ‘string‘‘20 ‘‘fontsize‘10‘tag‘‘hengxiangchangdu‘）;
uicontrol（gcf‘position‘[505 453 30 30]‘style‘‘text‘...
    ‘string‘‘m‘‘fontsize‘10）;
%==========================================================================
uicontrol（gcf‘position‘[20 400 80 30]‘style‘‘text‘...
    ‘string‘‘迭代次数：‘‘fontsize‘10）;
uicontrol（gcf‘position‘[105 410 55 25]‘style‘‘edit‘...
    ‘string‘‘20‘‘fontsize‘12‘tag‘‘diedaicishu‘）;
uicontrol（gcf‘position‘[170 400 120 30]‘style‘‘text‘...
    ‘string‘‘空间频率上限：‘‘fontsize‘10）;
uicontrol（gcf‘position‘[270 410 50 25]‘style‘‘edit‘...
    ‘string‘‘4.83‘‘fontsize‘10‘tag‘‘pinlvshangxian‘）;
uicontrol（gcf‘position‘[320 403 30 30]‘style‘‘text‘...
    ‘string‘‘/m‘‘fontsize‘10）;
%==========================================================================
uicontrol（gcf‘position‘[350 400 120 30]‘style‘‘text‘...
    ‘string‘‘空间频率下限：‘‘fontsize‘10）;
uicontrol（gcf‘position‘[455 410 50 25]‘style‘‘edit‘...
    ‘string‘‘0.008‘‘fontsize‘10‘tag‘‘pinlvxiaxian‘）;
uicontrol（gcf‘position‘[505 403 30 30]‘style‘‘text‘...
    ‘string‘‘/m‘‘fontsize‘10）;
uicontrol（gcf‘position‘[20 350 80 30]‘style‘‘text‘...
    ‘string‘‘垂向偏移（Z）：‘‘fontsize‘10）;
uicontrol（gcf‘position‘[105 360 55 25]‘style‘‘edit‘...
    ‘string‘‘0 ‘‘fontsize‘12‘tag‘‘chuixiangpianyi‘）;
%==========================================================================
uicontrol（gcf‘position‘[370 350 80 30]‘style‘‘text‘...
    ‘string‘‘横向间隔（Y）：‘‘fontsize‘10）;
uicontrol（gcf‘pos