TPMS曲面的matlab生成及可视化-导出stl文件-导出abaqus的inp文件-周期性边界条件施加

自编写函数包含的功能:
tpms曲面生成
tpms可视化
tpms曲面采用拉普拉斯方法进行平滑(为了可以在abaqus中通过单元质量检测),函数为SmoothIsosurface
tpms导出stl文件,函数为WriteSTL
tpms导出inp文件(施加周期性边界条件)函数为WriteINP

clc
clear
Numberofgridpoints=[20,20,20];
Numberofunitcells=[1,1,1];
[x, y, z]=meshgrid(linspace(0, Numberofunitcells(1),Numberofgridpoints(1)), ...
                linspace(0, Numberofunitcells(2),Numberofgridpoints(2)), ...
                linspace(0, Numberofunitcells(3),Numberofgridpoints(3)));

cx = cos(2*pi*x); cy = cos(2*pi*y); cz = cos(2*pi*z); 
sx = sin(2*pi*x); sy = sin(2*pi*y); sz = sin(2*pi*z);
c2x = cos(2*2*pi*x); c2y = cos(2*2*pi*y); c2z = cos(2*2*pi*z); 
s2x = sin(2*2*pi*x); s2y = sin(2*2*pi*y); s2z = sin(2*2*pi*z);
c3x = cos(3*2*pi*x); c3y = cos(3*2*pi*y); c3z = cos(3*2*pi*z); 
s3x = sin(3*2*pi*x); s3y = sin(3*2*pi*y); s3z = sin(3*2*pi*z);

f= (sx.*sy).*sz+(sx.*cy).*cz+(cx.*sy).*cz+(cx.*cy).*sz;
%f = cx+cy+cz;

FV=isosurface(x,y,z,f,0); 
%FV3=reducepatch(FV3,30^3);%缩减FV3的补片的面数,同时尝试保留原始的整体形状
% FV=reducepatch(FV,0.9);

newFV=ClearIsosurface(FV,1e-3);
newFV = SmoothIsosurface(newFV,1e-3);
WriteINP(newFV, 'main.inp')

在这里插入图片描述

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
以下是一个可能的实现代码,包括定义函数、生成三维网格、定义有限元、定义有限元方程、解决有限元方程和输出inp文件: ```matlab % 定义函数,计算有厚度gyroid结构 function [u,v,w] = gyroid_with_thickness(x,y,z,t) r = sqrt(x^2+y^2+z^2); u = sin(x)*cos(y) + sin(y)*cos(z) + sin(z)*cos(x) + t*sin(r); v = sin(x)*cos(z) + sin(y)*cos(x) + sin(z)*cos(y) + t*sin(r); w = sin(y)*cos(x) + sin(z)*cos(y) + sin(x)*cos(z) + t*sin(r); end % 定义常量和变量 xmin = -1; xmax = 1; ymin = -1; ymax = 1; zmin = -1; zmax = 1; nx = 20; ny = 20; nz = 20; ne = (nx-1)*(ny-1)*(nz-1); thickness = 0.1; % 生成三维网格 [x,y,z] = meshgrid(linspace(xmin,xmax,nx),linspace(ymin,ymax,ny),linspace(zmin,zmax,nz)); % 定义有限元 pde = struct('msh',[],'coeffs',[],'fea',[]); pde.msh = struct('x',x(:),'y',y(:),'z',z(:),'e',delaunay(x(:),y(:),z(:))); pde.fea = struct('u',[],'v',[],'w',[]); pde.fea.u = zeros(size(x)); pde.fea.v = zeros(size(x)); pde.fea.w = zeros(size(x)); % 定义有限元方程 pde.coeffs = struct('a',[],'b',[],'c',[],'d',[],'e',[],'f',[]); pde.coeffs.a = @(region,state) 1; pde.coeffs.b = @(region,state) 0; pde.coeffs.c = @(region,state) 1; pde.coeffs.d = @(region,state) 0; pde.coeffs.e = @(region,state) 1; pde.coeffs.f = @(region,state) gyroid_with_thickness(state.x,state.y,state.z,thickness); % 解决有限元方程 fea = parabolic(pde,'tlist',1); % 输出inp文件 fid = fopen('gyroid_with_thickness.inp','w'); fprintf(fid,'*NODE, NSET=NALL\n'); for i = 1:numel(x) fprintf(fid,'%d, %f, %f, %f\n',i,x(i),y(i),z(i)); end fprintf(fid,'*ELEMENT, TYPE=C3D8R, ELSET=EALL\n'); for i = 1:ne n1 = pde.msh.e(i,1); n2 = pde.msh.e(i,2); n3 = pde.msh.e(i,3); n4 = pde.msh.e(i,4); n5 = pde.msh.e(i,5); n6 = pde.msh.e(i,6); n7 = pde.msh.e(i,7); n8 = pde.msh.e(i,8); fprintf(fid,'%d, %d, %d, %d, %d, %d, %d, %d, %d\n',i,n1,n2,n3,n4,n5,n6,n7,n8); end fprintf(fid,'*ELASTIC\n'); fprintf(fid,'1.0E+07,0.3\n'); fprintf(fid,'*DENSITY\n'); fprintf(fid,'1.0\n'); fprintf(fid,'*THERMAL\n'); fprintf(fid,'1.0,0.0\n'); fprintf(fid,'*STEP\n'); fprintf(fid,'*STATIC\n'); fprintf(fid,'1.0,1.0,1.0E-04,1.0E-04\n'); fprintf(fid,'*BOUNDARY\n'); fprintf(fid,'NFACE1,1,6\n'); fprintf(fid,'NFACE2,2,5\n'); fprintf(fid,'NFACE3,3,4\n'); fprintf(fid,'NFACE4,1,2\n'); fprintf(fid,'NFACE5,3,6\n'); fprintf(fid,'NFACE6,4,5\n'); fprintf(fid,'*INITIAL CONDITIONS, TYPE=TEMPERATURE\n'); for i = 1:numel(x) fprintf(fid,'%d, %f\n',i,0); end fprintf(fid,'*STEP\n'); fprintf(fid,'*HEAT TRANSFER, DELTMX=1.0, RTOL=1.0E-06\n'); fprintf(fid,'1.0,1.0,1.0E-04,1.0E-04\n'); fprintf(fid,'*NODE FILE\n'); fprintf(fid,'U, TEMP\n'); for i = 1:numel(x) fprintf(fid,'%d, %f, %f\n',i,fea.sol.u(i),fea.sol.T(i)); end fclose(fid); ``` 这段代码可能还需要进行调试和修改,具体实现细节还需要参考相关文献和实际情况进行调整。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值