| 查看: 577 | 回复: 0 | ||
sunjie2668木虫 (小有名气)
|
[求助]
求高人指点程序，谢谢啊！！??? Out of memory. Type HELP MEMORY for your options.
|
|
clc clear l1=0.51; l2=0.51; l3=0.51; l4=0.51; T=2.695; W=2; Wb=0; w=0; k=0; %过程 w=0:0.01:100000; k=w/22.36; a=(exp(1i*k.*l1)-exp(1i*k.*l1+2*1i*k.*l2))./(exp(1i*k.*l1)-exp(-1i*k.*l1)); b=(exp(1i*k.*l3)-exp(1i*k.*l3+2*1i*k.*l2))./(exp(1i*k.*l3)-exp(-1i*k.*l3)); c=(exp(1i*k.*l4)-exp(1i*k.*l4+2*1i*k.*l2))./(exp(-1i*k.*l4)-exp(1i*k.*l4)); d=(exp(1i*k.*l1+2*1i*k.*l2))./(exp(1i*k.*l1)-exp(-1i*k.*l1)); e=(exp(1i*k.*l3+2*1i*k.*l2))./(exp(1i*k.*l3)-exp(-1i*k.*l3)); f=(exp(1i*k.*l4+2*1i*k.*l2))./(exp(-1i*k.*l4)-exp(1i*k.*l4)); Wb=(d+e-f).*W./(1-a-b+c); Wo=(exp(-1i*k.*l2)-exp(1i*k.*l2)).*Wb+exp(1i*k.*l2).*W; figure plot(w,Wb,'k','LineWidth',2) axis([0 100 -200 200]) xlabel('Frequence/Hz') ylabel('Displacement') title('Displacement-Frequence') |
回复此楼» 猜你喜欢
调剂
已经有20人回复
-
0703化学
已经有32人回复
-
286求调剂
已经有9人回复
-
求调剂
已经有7人回复
-
278求调剂
已经有24人回复
-
材料类284调剂
已经有19人回复
-
一志愿0703化学招61最终排名62化学求调剂
已经有14人回复
-
求调剂
已经有13人回复
-
299求调剂
已经有3人回复
-
机械专硕273请求调剂
已经有6人回复
找到一些相关的精华帖子，希望有用哦~
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
