Matlab学习心得
批量处理试验数据
使用到的新内容包括:
1、批量导出word图:创建一个新的word文档,并将绘制出来的figure粘贴到word中。
2、批量处理变量a1,a2,a3,将字符串转化为程序语言运行,使用了eval函数和num2str函数。eval([’ h=plot(ff,b’,num2str(num),’(:,3*i-j),pl(2));’]);
clc
clear
close all
try
%若word服务器已经打开,返回其句柄Word
Word = actxGetRunningServer('Word.Application');
catch
%创建一个Microsoft Word服务器,返回句柄Word
Word = actxserver('Word.Application');
end
set(Word, 'Visible', 1); %或Word.Visible=1;
documents = Word.Documents;
if exist('wordname','file')
document = invoke(documents,'Open','wordname');
else
document = invoke(documents, 'Add');
end
filename1= 'FRF2.xlsx';%刚度为1e10
filename2='FRF5.xlsx';%刚度为1e8
xlRange = 'A64:BS1088';
pl=['r';'g';'b';'k';'y';'m'];
%%跨距1086(原跨距)
A1= xlsread(filename1,1,xlRange); %0r/min纵向激励
A2= xlsread(filename1,2,xlRange); %0r/min垂向激励
A3= xlsread(filename1,3,xlRange); %0r/min水平激励
A4= xlsread(filename1,4,xlRange); %300r/min纵向激励
A5= xlsread(filename1,5,xlRange); %300r/min垂向激励
A6= xlsread(filename1,6,xlRange); %300r/min水平激励
%跨距975
B1= xlsread(filename2,1,xlRange); %0r/min纵向激励
B2= xlsread(filename2,2,xlRange); %0r/min垂向激励
B3= xlsread(filename2,3,xlRange); %0r/min水平激励
B4= xlsread(filename2,4,xlRange); %300r/min纵