大家好,今天二狗准备介绍一下如何利用matlab写一些简单的脚本去解决一些复杂的事情,比如为大型有限元软件Ansys服务(类比)包括数值模拟的前处理和后处理,都大有作为。
用过Ansys(没有Ctrl+z)的童鞋知道,它有GUI和命令流俩个操作模式,优缺点就不多说了。前处理就是建模,点线面体几何拓扑。如果有几千个坐标点(XYZ),成点很麻烦,线面体更麻烦。简单,可回退,可传播分享的一种方式就是利用脚本批量写入命令流到文本文件(Txt-dat-sca-csv...)
下面是导入点的源码,欢迎参考:
%三维数据到ANSYS[filename,pathname,filterindex]=uigetfile({'*.csv';'*.xlsx';'*.mat'},'选择数据文件'); str=[pathname filename]; if filename==0 % 取消return;endif filterindex==2 c_temp=importdata(str);c_close=c_temp.Sheet1;elsec_temp=importdata(str);c_close=c_temp;end[hang,lie]=size(c_close);if lie==3mingzinn=char(filename);ll=strfind(mingzinn,'.');ll0=mingzinn(1:ll-1);nametxt=[ll0,'2ANSYS','.dat'];%扩展名可改fp=fopen(nametxt,'a');str111='k , ';str222=' , ';str333=' ';str444='LP1 = _return';%str555='L,LP1,LP2';%str666='LP1 = LP2';%str777='LP2 = _return';for i=1:1:hang if i==1 fprintf(fp,'%s\r\n','/prep7'); fprintf(fp,'%s\r\n','CSYS,0'); str1=[str111,num2str(i),str222,num2str(c_close(1,1)),str222,num2str(c_close(1,2)),str222,num2str(c_close(1,3))]; fprintf(fp,'%s\r\n',str1); else str2=[str111,num2str(i),str222,num2str(c_close(i,1)),str222,num2str(c_close(i,2)),str222,num2str(c_close(i,3))]; fprintf(fp,'%s\r\n',str2); end endfprintf(fp,'%s\r\n','!File generation using Matlab.m');fclose(fp);sound(sin(2*pi*25*(1:4000)/100));elsemsgbox('数字矩阵必须为x*3形态'); end
这个是导入点自动成线的源码:
[filename,pathname,filterindex]=uigetfile({'*.sca';'*.csv';'*.xlsx';'*.mat'},'选择数据文件'); str=[pathname filename]; if filename==0 % 取消return;endif filterindex==3 c_temp=importdata(str);c_close=c_temp.Sheet1;elseif filterindex==1 c_temp=importdata(str);c_close=c_temp.data; c_close=c_close(:,2:4);elseif filterindex==2 c_temp=importdata(str);c_close=c_temp;elseif filterindex==4 c_temp=importdata(str);c_close=c_temp;end[hang,lie]=size(c_close);if lie==3mingzinn=char(filename);ll=strfind(mingzinn,'.');ll0=mingzinn(1:ll-1);nametxt=[ll0,'-Ansys','.dat'];%扩展名可改fp=fopen(nametxt,'a');str111='K,, ';str222=' , ';str333=' ';str444='LP1 = _return';str555='L,LP1,LP2';str666='LP1 = LP2';str777='LP2 = _return';for i=1:1:hang if i==1 fprintf(fp,'%s\r\n','/prep7'); str1=[str111,num2str(c_close(1,1)),str222,num2str(c_close(1,2)),str222,num2str(c_close(1,3)),str333]; fprintf(fp,'%s\r\n',str1); fprintf(fp,'%s\r\n',str444); else str2=[str111,num2str(c_close(i,1)),str222,num2str(c_close(i,2)),str222,num2str(c_close(i,3)),str333]; fprintf(fp,'%s\r\n',str2); fprintf(fp,'%s\r\n',str777); fprintf(fp,'%s\r\n',str555); fprintf(fp,'%s\r\n',str666); end endfprintf(fp,'%s\r\n','!File generation using Matlab.m');fprintf(fp,'%s\r\n','!By 阿辉');fclose(fp);sound(sin(2*pi*25*(1:4000)/100));elsemsgbox('数字矩阵必须为x*3形态(不算 *.sca)'); end
成面与体,看自己实际需求,也可直接在ansys里写命令流。Ansys求解后的结果该如何导出呢,举个栗子,比如各节点的x方向位移(需要把Ansys里对应的List的文本复制出来,比如到csv),源码如下:
% load a88[hang,lie]=size(a88);ping=[];for i=1:1:hangjiancha=a88(i,1);kankan=str2num(jiancha);if isempty(kankan)==1 else ping=[ping;kankan]; endh=waitbar(i/hang);enddelete(h);msgbox('OK');
这样得到的就是数据文件而不是字符串,且没有空白,没有注释。
对于Ansys,懂的看它的Log日志文件很重要,但是此文件里有很多的无效命令,就是前面加了!,感叹号是注释的意思,如何把这些非实质性操作清空呢,以下是二狗写的几句代码:
[h,l]=size(log);xin=[];nametxt=['log1','-Ansys','.dat'];fp=fopen(nametxt,'a');for p=1:1:h jiancha= log(p,1); l8= strlength(jiancha); if l8>1 weizhi=strfind(jiancha,'!'); [k1,k2]=size(weizhi); if k1>0 && weizhi(1,1)==1 else xin=[xin;jiancha]; fprintf(fp,'%s\r\n',jiancha); end else end jdt=waitbar(p/h);endfprintf(fp,'%s\r\n','!File idealization using Matlab.m');%写下来源 嘿嘿delete(jdt);fclose(fp);sound(sin(2*pi*25*(1:4000)/100));
之前是:
之后是:
是不是很方便哦⊙∀⊙!
在学习工作中,有很多操作可以用代码去准确高效的实现,也可直接把其打包成Exe,若需要。嗯。为达目的,“不择手段”。
二狗就写这么多,文笔不好,见谅,有错误的地方请告诉二狗。解释一下,提到的Ansys是支持数据导入导出的,二狗觉得,不好用。这些操作用vb、c、Python、office的宏等等都可以实现,但是matlab,除了生孩子,无所不能,哈哈ヾノ≧∀≦)o
欢迎大家评论,关注,转发!
您的赞赏就是我们前进的动力