Matlab绘制频散曲线程序代码
5页1、function disper %绘制平板频散曲线 %tic clc;clear;cl=5790;%材料纵波波速(钢板)cs=3200;%材料横波波速(钢板)dfd=0.01*1e3;fd0=(0.01:dfd/1e3:20)*1e3;% 频厚积( MHz*mm ) d_Q235=6;cps_min=2700;cpa_min=100;cp_max=10000;mode= 3 ; %绘制的模式数 precision=1e-8;cpa=zeros(length(fd0),mode); cps=zeros(length(fd0),mode);for i=1:length(fd0) fd=fd0(i);cp12 n=ss(cps_min,cp_max,fd,cl,cs,mode); for j=1:ncp1=cp12(j,1);cp2=cp12(j,2); cps(i,j)=serfen(cp1,cp2,fd,cl,cs,precision);endcp12 n=aa(cpa_min,cp_max,fd,cl,cs,mode); for j=1:ncp1=cp12(j,1);cp2=cp12(
2、j,2); cpa(i,j)=aerfen(cp1,cp2,fd,cl,cs,precision);end endh=zeros(mode,2);%相速度figure(1)for j=1:2 if j=1cp=cps;color=b;elsecp=cpa;color=r;endfor i=1:modecpp=cp(:,i);ind=find(cpp=0); if isempty(ind) h(i,j)=plot(fd0(ind(end)+1:end)/d_Q235,cpp(ind(end)+1:end),color);else h(i,j)=plot(fd0/d_Q235,cpp,color);endhold onendif j=2xlabel(f/(KHz)ylabel(C_p/(km sA-1)title(6mm 钢板 相速度频散曲线 ) set(gca,xtick,(0:0.6:20)*1e3/d_Q235,xticklabel,(0:0.6:20)*1e3/d_Q235) xlim(0, 1000);%set(gca,ylim,0 cp_max,ytick,(0:cp_max/
3、1e3)*1e3,. yticklabel,0:cp_max/1e3)grid onhSGroup = hggroup;%要在子对象构建之后构建,构建后立即使用,否那么将失效 hAGroup = hggroup;set(h(:,1),parent,hSGroup)set(h(:,2),parent,hAGroup) set(get(get(hSGroup,Annotation),LegendInformation),.IconDisplayStyle,on); set(get(get(hAGroup,Annotation),LegendInformation),.IconDisplayStyle,on);legend(对称模式,反对称模式)endend%群速度figure(2)for j=1:2if j=1cp=cps;color=b;elsecp=cpa;color=r;endfor i=1:modecpp=cp(:,i);ind=find(cpp=0);if isempty(ind)fd=fd0(ind(end)+1:end); cpp=cpp(ind(end)+1:end);el
《Matlab绘制频散曲线程序代码》由会员大米分享,可在线阅读,更多相关《Matlab绘制频散曲线程序代码》请在金锄头文库上搜索。
建筑安装工程拆迁房屋合同电子版(5篇)
【热门】企业资产损失扣除:认定要准确-程序要合规.doc
企业管理第五章护理危机管理
国外居家养老的社会服务模式.doc
农村自办宴席宣传材料1.doc
养老机构疫情常态化防控方案
2022年客服部年度工作总结范本.docx
学校德育2022年度工作总结.docx
每一个爱情备胎都有代价.doc
小学六年级优秀作文
单选题解题技巧20111103.doc
2022年特种设备安全事故应急处置预案
2023年疫情让我们学会了自律作文800字范本五篇(完整)
集体主义精神.doc
甲型H1N1流感防控知识问答2009.doc
专利权质押合同样式.docx
新办公司流程很全面的哦
金湖二中高二年级学情答案.doc
企业管理诊断内部调查问卷.doc
特殊作业风险分析
2022-10-19 23页
2023-07-09 17页
2023-05-30 8页
2023-12-16 3页
2024-01-30 6页
2023-04-11 9页
2023-03-18 2页
2022-08-27 4页
2022-08-15 20页
2023-09-14 155页