You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
872 B
27 lines
872 B
11 months ago
|
function make_plt_3Dbrick_disp(filename,V,MESH,u)
|
||
|
|
num_ele=size(MESH,1);
|
||
|
|
num_nod=size(V,1);
|
||
|
|
% OUTP1=zeros(6,num_nod);
|
||
|
|
idx_x=1:3:num_nod*3;
|
||
|
|
idx_y=2:3:num_nod*3;
|
||
|
|
idx_z=3:3:num_nod*3;
|
||
|
|
X=u(idx_x);
|
||
|
|
Y=u(idx_y);
|
||
|
|
Z=u(idx_z);
|
||
|
|
OUTP1=[V,X,Y,Z].';
|
||
|
|
% for inode=1:num_nod
|
||
|
|
% x=V(inode,1);y=V(inode,2);z=V(inode,3);
|
||
|
|
% OUTP1(:,inode)=[x;y;z;u(inode*3-2);u(inode*3-1);u(inode*3)];
|
||
|
|
% % fprintf(fileID,'%f %f %f %f %f %f\n',x,y,z,u(inode*3-2),u(inode*3-1),u(inode*3));
|
||
|
|
% end
|
||
|
|
|
||
|
|
OUTP2=MESH.';
|
||
|
|
disp('start writing----------------')
|
||
|
|
fileID=fopen([filename,'.plt'],'w');
|
||
|
|
fprintf(fileID,'TITLE="FE Solution"\n');
|
||
|
|
fprintf(fileID,'VARIABLES = "X", "Y", "Z","u","v","w"\n');
|
||
|
|
fprintf(fileID,'ZONE NODES=%d, ELEMENTS=%d, DATAPACKING=POINT, ZONETYPE=FEBRICK\n',num_nod,num_ele);
|
||
|
|
fprintf(fileID,'%f %f %f %f %f %f\n',OUTP1);
|
||
|
|
fprintf(fileID,'%d %d %d %d %d %d %d %d\n',OUTP2);
|
||
|
|
fclose(fileID);
|
||
|
|
end
|