| 查看: 790 | 回复: 6 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】MATLAB卡了 已有1人参与
|
|||
| 就一个循环，cpu100%， |
回复此楼» 猜你喜欢
求调剂
已经有3人回复
-
材料277求调剂
已经有7人回复
-
数一英一271专硕（085401）求调剂，可跨
已经有5人回复
-
291求调剂
已经有21人回复
-
一志愿哈尔滨工业大学材料与化工方向336分
已经有8人回复
-
药学105500求调剂
已经有3人回复
-
考研调剂
已经有4人回复
-
0703化学
已经有7人回复
-
学硕274求调剂
已经有6人回复
-
321求调剂
已经有6人回复
|
函数文件： y.m function Y=y(w) a=50.5; E=7.2e10; L=0.25; d=2700; h=0.002; b=0.04; x1=0.22; xf=0.125; q(1)=1.875/a; q(2)=4.214/a; for m=3:12 q(m)=(m-0.5)*pi/a; end for m=1:12 W(m)=(q(m)*L)^2*(E/(3*L))^(1/2); r(m)=(sin(q(m)*a)-sinh(q(m)*a))/(cos(q(m)*a)+cosh(q(m)*a)); syms x; T(m)=cos(q(m)*x)-cosh(q(m)*x)+r(m)*(sin(q(m)*x)-sinh(q(m)*x)); v(m)=int(d*b*h*(T(m))^2,x,0,L); end V=subs(v); for j=1:12 for k=1:12 if j==k M(j,k)=(V(j)*((W(j))^2*(1+i*0.06)-w^2)); else M(j,k)=0; end end end x=x1; T1=subs(T); x=xf; Tf=subs(T); A=eye(12)/M*Tf'; x=L; Tl=subs(T); Y=norm(20*log10(w^2*Tl*A)); 脚本文件acc.m clear all n=input('Please input the total step number:') wmin=input('Please input the min frequent:') wmax=input('Please input the max frequent:') w=linspace(wmin,wmax,n); for j=1:n Y(j)=y(w(j)); end plot(w,Y) |
3楼2010-03-17 19:29:32
senlia
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 贵宾: 3.521
- 金币: 2178.1
- 红花: 1
- 帖子: 223
- 在线: 6.7小时
- 虫号: 849005
- 注册: 2009-09-16
- 性别: GG
- 专业: 计算数学与科学工程计算
2楼2010-03-17 19:27:07
senlia
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 贵宾: 3.521
- 金币: 2178.1
- 红花: 1
- 帖子: 223
- 在线: 6.7小时
- 虫号: 849005
- 注册: 2009-09-16
- 性别: GG
- 专业: 计算数学与科学工程计算
4楼2010-03-18 22:15:52
5楼2010-03-19 18:34:09
