| 查看: 773 | 回复: 6 | |||
| 当前主题已经存档。 | |||
[交流]
【求助】MATLAB卡了 已有1人参与
|
|||
| 就一个循环，cpu100%， |
回复此楼» 猜你喜欢
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有6人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有9人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有8人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有4人回复
-
球磨粉体时遇到了大的问题，请指教！
已经有12人回复
-
江汉大学解明教授课题组招博士研究生/博士后
已经有3人回复
senlia
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 贵宾: 3.521
- 金币: 2178.1
- 红花: 1
- 帖子: 223
- 在线: 6.7小时
- 虫号: 849005
- 注册: 2009-09-16
- 性别: GG
- 专业: 计算数学与科学工程计算
2楼2010-03-17 19:27:07
|
函数文件： 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
- 专业: 计算数学与科学工程计算
4楼2010-03-18 22:15:52
5楼2010-03-19 18:34:09
6楼2010-03-20 15:48:52
yqx1985
木虫 (著名写手)
云中仙
- 应助: 34 (小学生)
- 贵宾: 0.032
- 金币: 1608.8
- 散金: 1181
- 红花: 33
- 帖子: 1544
- 在线: 620.3小时
- 虫号: 550008
- 注册: 2008-04-22
- 性别: GG
- 专业: 药物设计与药物信息
7楼2010-04-13 11:22:10