代码和使用方法.docVIP

代码及使用方法.txt我这人从不记仇，一般有仇当场我就报了。没什么事不要找我，有事更不用找我！就算是believe中间也藏了一个lie！我那么喜欢你，你喜欢我一下会死啊?我又不是人民币，怎么能让人人都喜欢我？程序执行方法：（just for matlab new users） 7.1以上版本 打开matlab，点开new M-file，将上述源程序复制粘贴到M-文件中，修改蓝色部分的格式，保存。按F5即可执行~ %%%% A 99 LINE TOPOLOGY OPTIMIZATION CODE BY OLE SIGMUND, JANUARY 2000 %%% %%%% CODE MODIFIED FOR INCREASED SPEED, September 2002, BY OLE SIGMUND %%% function top(nelx,nely,volfrac,penal,rmin); nelx=80;%x轴向单元数目 nely=20;%y轴向单元数据 volfrac=0.4;%体积比 penal=3;%材料插值的惩罚因子 rmin=2; %敏度过滤的半径 % INITIALIZE 初始化 x(1:nely,1:nelx) = volfrac; %x是设计变量 loop = 0; %存放迭代次数的变量 change = 1.; %每次迭代目标函数的改变值，用来判断何时收敛 % START ITERATION 开始迭代 while change 0.01 %当两次目标函数的迭代的差小于0.01时候，停止迭代 loop = loop + 1; %迭代次数加1 xold = x; %将前一次的设计变量付给xold % FE-ANALYSIS 有限元分析 [U]=FE(nelx,nely,x,penal); % OBJECTIVE FUNCTION AND SENSITIVITY ANALYSIS 目标函数和灵敏度很细 [KE] = lk; %单元刚度矩阵 c = 0.; %用来存放目标函数的变量，这里目标函数是刚度最大，也就是柔度最小 for ely = 1:nely for elx = 1:nelx n1 = (nely+1)*(elx-1)+ely; n2 = (nely+1)* elx +ely; Ue = U([2*n1-1;2*n1; 2*n2-1;2*n2; 2*n2+1;2*n2+2; 2*n1+1;2*n1+2],1); c = c + x(ely,elx)^penal*Ue*KE*Ue;%计算目标函数柔度的值 dc(ely,elx) = -penal*x(ely,elx)^(penal-1)*Ue*KE*Ue; %灵敏度分析的结果，参考文献公式 end end % FILTERING OF SENSITIVITIES [dc] = check(nelx,nely,rmin,x,dc); %灵敏度过滤，为了边界光顺 % DESIGN UPDATE BY THE OPTIMALITY CRITERIA METHOD [x] = OC(nelx,nely,x,volfrac,dc); %优化准则法更新设计变量 % PRINT RESULTS change = max(max(abs(x-xold))); %计算目标函数的该变量 disp([ It.: sprintf(%4i,loop) Obj.: sprintf(%10.4f,c) ... Vol.: sprintf(%6.3f,sum(sum(x))/(nelx*nely)) ... ch.: sprintf(%6.3f,change )]) %屏幕显示迭代信息 % PLOT DENSITIES colormap(gray); imagesc(-x); axis equal; axis tight; axis off;pause(1e-6); end %%%%%%%%%% OPTIMALITY CRITERIA UPDATE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function [xnew]=OC(nelx,nely,x,volfrac,dc) %oc算法子程序 l1 = 0; l2 = 100000; move = 0.2;%l1、l2用于体积约束的拉格朗日乘子 while (l2-l1 1e-4) lmid