可打印版本

标题: bladegen 生成的 hub shroud profile 整体平移操作 matlab [打印本页]

作者： even2004 标题:bladegen 生成的 hub shroud profile 整体平移操作 matlab 时间： 2010/05/25/07:36
bladegen 生成的 hub shroud profile 整体平移操作;
直接操作生成的文件, z坐标加30的例子.
附件

http://www.MegaShare.com/2158087

n = 16;
大致代码如下所示

fid = fopen('BladeGen_profile1.curve');
fid1 = fopen('BladeGen_profile.curve','w+');

while ~feof(fid)
s1 = fgetl(fid);
% if s1 ==''
if isempty(s1)
fprintf(fid1,'n');
% 换行
elseif s1(end) =='%'
fprintf(fid1,'%sn',s1);
elseif s1(end) =='E'
s2 = s1;
s3 =s2(1:n);
s4 = str2double(s3);
s3=s2(n+1:2*n);
s5 = str2double(s3);
s3=s2(2*n+1:3*n);
s6 = str2double(s3);

fprintf(fid1,formatstr,[s4,s5,s6+zz]);
s3=s2(3*n+1:end);
fprintf(fid1,'%sn',s3);
else

s2 = s1;
s3 =s2(1:n);
s4 = str2double(s3);
s3=s2(n+1:2*n);
s5 = str2double(s3);
s3=s2(2*n+1:3*n);
s6 = str2double(s3);

fprintf(fid1,formatstr1,[s4,s5,s6+zz])

end
end

fclose(fid)
fclose(fid1)