文件名称:
matlab 仿真电磁场与声波耦合小程序
开发工具:
文件大小: 22kb
下载次数: 0
上传时间: 2010-03-16
详细说明： matlab 仿真电磁场与声波耦合程序最近用到耦合,写了一段小程序,奉献出来,与大家共享。 如果有很多节点，每两个节点位置相同，如果将这些杂乱无章的节点 耦合，是件很麻烦的事，可用这段程序，轻松解决。 cpnum=0 cmsel,s,n-zhong !需要耦合的节点 *GET,n_num,NODE,,COUNT, , , , !节点总数 *do,i,1,n_num cmsel,s,n-zhong *GET,n_lowest,NODE,,NUM,MIN, , , , !号码最小的节点 *GET,n_x,NODE,n_lowest,LOC,X !该节点坐标 *GET,n_y,NODE,n_lowest,LOC,Y *GET,n_z,NODE,n_lowest,LOC,Z NSEL,s,LOC,X,n_x-0.3,n_x+0.3 !寻找与该节点位置相同的节点 NSEL,R,LOC,Y,n_y-0.3,n_y+0.3 NSEL,R,LOC,z,n_z-0.3,n_z+0.3 cm,n_cp_cp,node !位置相同的节点形成一个组 cmsel,s,n-zhong cmsel,u,n_cp_cp cm,n-zhong,n ode !取消这些点后剩余的点形成组 *GET,n_num_1,NODE,,COUNT, , , , !节点总数 *if,n_num_1,lt,2,exit !如果节点数小于二则退出 cmsel,s,n_cp_cp *GET,n_num,NODE,,COUNT, , , , *if,n_num,gt,1,then CP,cpnum+1,ux,all CP,cpnum+2,uy,all CP,cpnum+3,uz,all cpnum=cpnum+3 *else *endif *enddo 该段程序可用 CPINTF，UX，0.001 CPINTF，UY，0.001 CPINTF，UZ，0.001 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
