even2004： bladegen 生成的 hub shroud profile 整体平移操作 matlab
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)
|
|
阳光精品论坛 >> 『 CFD 专栏 』 >> 回复文章