| 查看: 233 | 回复: 0 | |||
[求助]
这个程序应该怎么修改啊！
|
|
clear all clc d=5e-3; %单元口径 L=10e-3; %周期间距10um D=7.2; %总尺寸 lambda=1.064e-3; %波长 z=1e+6; %传播距离1km phi=20/180*pi; %偏转角度0.2 xksi=-0.5:0.01:0.5; %观察屏的位置 yksi=-0.5:0.01:0.5; %观察屏的位置 N=round(D/L/2); %阵元个数 n=-N:N; %取某个阵元当变量 I=zeros(length(xksi),length(yksi)); for x=1:length(xksi) T(x)=0; for m=1:length(n) I(x)=(1/L)*(D*sinc(D*(xksi(x)-(n(m)/L))))*(d*sinc(d*((n(m)/L)-(tan(phi)/(2*pi)))))+I(x); end x end for y=1:length(yksi) I(y)=0; for p=1:length(n) I(y)=(1/L)*(D*sinc(D*(yksi(y)-(n(p)/L))))*(d*sinc(d*((n(p)/L)-(tan(phi)/(2*pi)))))+I(y); end y end I=I(x).*I(y); I=I/(max(max(I))); [X,Y]=meshgrid(xksi,yksi); figure(1) mesh(X,Y,I); xlable=('x'); ylable=('y'); zlable=('光强'); hold on figure(2) imshow(255*I); |
回复此楼» 猜你喜欢
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有6人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有5人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有5人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有8人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有8人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有10人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有6人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有6人回复
找到一些相关的精华帖子，希望有用哦~
Matlab用fsolve求解非线性方程，卡了三四天了跪求帮助！
已经有35人回复
- 审稿人找的这几个英文表达问题，有什么写作软件，可以自动检查修改吗？谢谢
已经有4人回复
- 高分求将我的MATLAB程序改写为FORTRAN程序（1000BB）
已经有13人回复
- MATLAB解方程提示错误‘is not a valid expression equation’
已经有10人回复
- C++中，如何将二维数组读到一维中，并且是按列读取。(有程序望修改)（注意不是按行）
已经有12人回复
- Matlab心得及学习方法（不断更新）
已经有26人回复
- 急求助用ModFit软件分析流式细胞仪测定的细胞周期，gate如何设置啊？
已经有5人回复
- 梯度荧光定量的程序如何设置
已经有9人回复
- 谁有QM-BP行星式球磨机的说明书？程序怎么设置啊？
已经有11人回复
- 求助数组越界问题！
已经有8人回复
- 没有按编辑要求使用word软件“修订”项对稿件进行修改，怎么办？
已经有4人回复
- 求大神帮我改一下下面的程序！matlab迭代法的 不知道错在哪里！
已经有7人回复
- 多个函数都要用到共同的变量和数据，数据不止一组，这个程序，该怎么组织
已经有16人回复
- 大家爱帮我看看这段MATLAB程序为啥出错了
已经有5人回复
- 请帮忙编写一个perl程序处理文本
已经有26人回复
- 有人问作者要过源程序吗？邮件该怎么写合适？
已经有15人回复
- C++编程，关于循环结构的，大家看看我这程序哪里错了？
已经有21人回复
- 有没有人知道安捷伦的原始使用日志怎么修改或删除
已经有7人回复
- 【求助】请各位大侠看看这个gaussian为啥不能运行
已经有17人回复
- 【求助】梯度洗脱程序的设置
已经有8人回复
- 求助修改稿的cover letter怎么写？
已经有13人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
