复合材料力学上机编程作业(计算层合板刚度)供参习

(/)")WRITE(9,*)"TheNORMALISEDbendingstiffnessD*equals:"DOI=1,3WRITE(9,200)12*D(I,1:3)/TOTAL_TH**3ENDDOWRITE(*,*)"essfully,pleasepressanykeytoendprogram!"READ(*,*)POSITE附2杨涛同学的MATLAB(GUI)计算程序。主要程序:(编了个小界面,程序略长,删掉一些程序自带解释语句,添加了一些对关键语句的解释。)界面是:作的一个算例如下:该算例结果与组内同伴JamesWilson同学基本一致,其余算例结果也基本一致,仅仅在趋近于零时有略微差异,在此不赘于。后边附上源代码:posit_plate(varargin)gui_Singleton=1;gui_State=struct('gui_Name',mfilename,...'gui_Singleton',gui_Singleton,...'',@,...'',@,...'',[],...'gui_Callback',[]);ifnargin&&ischar(varargin{1})gui_State.gui_Callback=str2func(varargin{1});endifnargout[varargout{1:nargout}]=(gui_State,varargin{:});(gui_State,varargin{:});(hObject,eventdata,handles,varargin)handles.output=hObject;guidata(hObject,handles);ha=axes('units','normalized','position',[0011]);%嵌入坐标,为嵌入背景图片准备uistack(ha,'down')%作为背景