| 查看: 1900 | 回复: 13 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
重金求matlab模拟柱面透镜全息干涉图 已有1人参与
|
||
要程序能模拟出所给图形，谢了。 untitled.jpg |
回复此楼» 猜你喜欢
小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊
已经有8人回复
-
应该是93bebmhtak前后十一个字符比较关键
已经有24人回复
-
分享一下我之前已中青C的计划书的filecode
已经有4人回复
-
职称评审，求友友推荐见刊最快的期刊
已经有3人回复
-
为什么网上很多人说本周 12号出结果
已经有6人回复
-
听说今天filecode变了
已经有49人回复
-
帮忙看看fileCode
已经有12人回复
-
FileCode能看出啥？
已经有17人回复
-
奇怪，两个人的filecode固定段从头到尾一模一样
已经有6人回复
-
filecode
已经有9人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 【求助】光学方面小白求助柱面透镜的选择
已经有6人回复
hytao2012
铁杆木虫 (正式写手)
木头虫子
- 应助: 53 (初中生)
- 金币: 6569.8
- 散金: 115
- 红花: 11
- 帖子: 532
- 在线: 208.4小时
- 虫号: 2050091
- 注册: 2012-10-08
- 性别: GG
- 专业: 固体力学
8楼2014-09-05 10:28:04
hytao2012
铁杆木虫 (正式写手)
木头虫子
- 应助: 53 (初中生)
- 金币: 6569.8
- 散金: 115
- 红花: 11
- 帖子: 532
- 在线: 208.4小时
- 虫号: 2050091
- 注册: 2012-10-08
- 性别: GG
- 专业: 固体力学
【答案】应助回帖
★ ★ ★ ★ ★
感谢参与，应助指数 +1
晨曦晓月(xzhdty代发): 金币+5, 谢谢参与 2014-09-07 10:13:09
感谢参与，应助指数 +1
晨曦晓月(xzhdty代发): 金币+5, 谢谢参与 2014-09-07 10:13:09
|
% 模拟光栅 clear; clc; f0=10; % 栅线频率 Liang=220; An=40; % 亮暗程度 A=(Liang+An)/2; B=(Liang-An)/2; mylength=150; mywidth=100; % 区域大小 unknow=10; % 控制条纹粗细及曲率 I=zeros(mywidth,mylength/2); for i=1:mylength/2 for j=1:mywidth I(j,i)=A-B*cos(2*pi/f0*(j+(i/10)^2)); end end I=uint8(I); J=fliplr(I); K=[J I]; imwrite(K,'A.bmp') |
2楼2014-09-04 19:47:44
hytao2012
铁杆木虫 (正式写手)
木头虫子
- 应助: 53 (初中生)
- 金币: 6569.8
- 散金: 115
- 红花: 11
- 帖子: 532
- 在线: 208.4小时
- 虫号: 2050091
- 注册: 2012-10-08
- 性别: GG
- 专业: 固体力学
【答案】应助回帖
|
% 不好意思上面没调参数，感觉下面这组数比较像 % 模拟光栅 clear; clc; f0=20; % 栅线频率 Liang=220; An=40; % 亮暗程度 A=(Liang+An)/2; B=(Liang-An)/2; mylength=800; mywidth=600; % 区域大小 unknow=20; % 控制条纹粗细及曲率 I=zeros(mywidth,mylength/2); for i=1:mylength/2 for j=1:mywidth I(j,i)=A-B*cos(2*pi/f0*(j+(i/unknow)^2)); end end I=uint8(I); J=fliplr(I); K=[J I]; imwrite(K,'A.bmp') |
3楼2014-09-04 19:51:42
hytao2012
铁杆木虫 (正式写手)
木头虫子
- 应助: 53 (初中生)
- 金币: 6569.8
- 散金: 115
- 红花: 11
- 帖子: 532
- 在线: 208.4小时
- 虫号: 2050091
- 注册: 2012-10-08
- 性别: GG
- 专业: 固体力学
【答案】应助回帖
|
% 最后一次。。。 % 模拟光栅 clear; clc; Liang=220; An=40; % 亮暗程度 A=(Liang+An)/2; B=(Liang-An)/2; mylength=800; mywidth=600; % 区域大小 unknow1=10; unknow2=20; unknow3=110; % 控制栅线频率、粗细及曲率 I=zeros(mywidth,mylength/2); for i=1:mylength/2 for j=1:mywidth I(j,i)=A-B*cos(unknow1*((j/unknow2)+(i/unknow3)^2)); end end I=uint8(I); J=[fliplr(I) I]; imwrite(J,'Image.bmp') |
4楼2014-09-04 22:00:55
