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