24小时热门版块排行榜

返回列表

【奖励】本帖被评价4次，作者chenzonghua0增加金币 3.2 个

chenzonghua0

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 407.7
帖子: 66
在线: 11.4小时
虫号: 2165602

[资源] 光线的折射和反射 Matlab源程序动画演示

CODE:

%% 光线的折射和反射

% 特性：光的折射与光的反射一样都是发生在两种介质的交界处，

% 只是反射光返回原介质中，而折射光线则进入到另一种介质中。

% 由于光在两种不同的物质里传播速度不同，故在两种介质的交界

% 处传播方向发生变化，这就是光的折射。在折射现象中，光路是可逆的。

figure(1); 

n1=1;n2=1.3;t=0; 

set(gcf,\\\'doublebuffer\\\',\\\'on\\\'); 

axis([-2,2,-1,1]);hold on; 

title(\\\'光线的折射和反射\\\',\\\'fontsize\\\',18)

rectangle(\\\'Position\\\',[-2,-1,4,1],... 

   \\\'FaceColor\\\',[0.1,0.3,0.4]); 

text(1.4,0.4,\\\'空气\\\',\\\'color\\\',\\\'c\\\',\\\'fontsize\\\',14) 

text(1.4,-0.4,\\\'玻璃\\\',\\\'color\\\',\\\'c\\\',\\\'fontsize\\\',14) 

text(0.7,0.6,[\\\'n_1= 1\\\'],\\\'fontsize\\\',14); 

text(0.7,-0.6,[\\\'n_2= \\\',num2str(n2)],\\\'fontsize\\\',14); 

text(-1.4,0.6,[\\\'$\\\\frac{sin(\\\\alpha_1)}{sin(\\\\alpha_2)}=\\\\frac{n_2}{n_1}$\\\'],\\\'interpreter\\\',\\\'latex\\\',\\\'fontsize\\\',18); 

HL=rectangle(\\\'Position\\\',[-0.02,0.4,0.04,0.2],... 

   \\\'FaceColor\\\',[0.1,0.3,0.4]); 

Hi=plot([0,0],[0,0.4],\\\'b\\\'); 

Ho=plot([0,0],[0,-1],\\\'k\\\'); 

Hr=plot([0,0],[0,1],\\\'r\\\'); 

Hf=plot([0,0],[-1,1],\\\'g-.\\\'); 

xlabel(\\\'按“空格键”停止程序    Chen.Z.H 814484233@qq.com\\\',... 

   \\\'fontsize\\\',14,\\\'color\\\',\\\'k\\\'); 

k=1;dt=0.1; 

while k 

   pause(0.1); 

   s=get(gcf,\\\'currentkey\\\'); % 返回按键字符串。

   if strcmp(s,\\\'space\\\'); % 对比字符串是否相同，相同返回值1.

       clc;k=0; 

   end 

   if abs(t)>0.3*pi 

       dt=-dt; 

   end 

   t=t+dt; 

   Ai=t; % 入射角

   Xi=0.4*tan(Ai); 

   set(Hi,\\\'xdata\\\',[Xi,0]); 

   Ao=asin(sin(Ai)*n1/n2); % 出射角

   Xo=Xi+tan(Ao); 

   Xr=Xi+tan(Ai);

   set(Ho,\\\'xdata\\\',[Xi,Xo]); 

   set(Hr,\\\'xdata\\\',[Xi,Xr]);

   set(Hf,\\\'xdata\\\',[Xi,Xi]);

   set(HL,\\\'Facecolor\\\',rand(1,3)) 

%    saveas(gcf,[\\\'E:\\\\Matlab work 2016\\\\光线的折射与反射\\\\\\\',num2str(1000+10*t),\\\'.jpg\\\'])

end 

figure(gcf);

光线的折射和反射.jpg

回复此楼

» 本帖附件资源列表

欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
附件 1 : 光线的折射和反射.gif

2017-09-01 20:56:57, 1.07 M

» 收录本帖的淘帖专辑推荐

资源收集

» 猜你喜欢

求国际会议网站已经有1人回复
求取一些关于纳米材料和纳米技术相关的英文PPT。已经有0人回复
物理学I论文润色/翻译怎么收费? 已经有120人回复
【复旦大学】二维材料方向招收2026年博士研究生1名已经有0人回复
北京纳米能源与系统研究所王中林院士/曹南颖研究员课题组2026级硕/博/博后招生已经有10人回复
荷兰Utrecht University超快太赫兹光谱王海教授课题招收2026 CSC博士生已经有19人回复
反铁磁体中的磁性切换：两种不同的机制已成功可视化已经有0人回复
26申博推荐：南京航空航天大学国际前沿院光学方向招收博士生！已经有0人回复
求标准粉末衍射卡号 ICDD 01-076-1802 已经有0人回复

1楼2017-09-01 20:59:28

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

chenzonghua0

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 407.7
帖子: 66
在线: 11.4小时
虫号: 2165602

%% 光线的折射和反射
% 特性：光的折射与光的反射一样都是发生在两种介质的交界处，
% 只是反射光返回原介质中，而折射光线则进入到另一种介质中。
% 由于光在两种不同的物质里传播速度不同，故在两种介质的交界
% 处传播方向发生变化，这就是光的折射。在折射现象中，光路是可逆的。
figure(1);
n1=1;n2=1.3;t=0;
set(gcf,'doublebuffer','on');
axis([-2,2,-1,1]);hold on;
title('光线的折射和反射','fontsize',18)
rectangle('Position',[-2,-1,4,1],...
'FaceColor',[0.1,0.3,0.4]);
text(1.4,0.4,'空气','color','c','fontsize',14)
text(1.4,-0.4,'玻璃','color','c','fontsize',14)
text(0.7,0.6,['n_1= 1'],'fontsize',14);
text(0.7,-0.6,['n_2= ',num2str(n2)],'fontsize',14);
text(-1.4,0.6,['$\frac{sin(\alpha_1)}{sin(\alpha_2)}=\frac{n_2}{n_1}$'],'interpreter','latex','fontsize',18);
HL=rectangle('Position',[-0.02,0.4,0.04,0.2],...
'FaceColor',[0.1,0.3,0.4]);
Hi=plot([0,0],[0,0.4],'b');
Ho=plot([0,0],[0,-1],'k');
Hr=plot([0,0],[0,1],'r');
Hf=plot([0,0],[-1,1],'g-.');
xlabel('按“空格键”停止程序 Chen.Z.H 814484233@qq.com',...
'fontsize',14,'color','k');
k=1;dt=0.1;
while k
pause(0.1);
s=get(gcf,'currentkey'); % 返回按键字符串。
if strcmp(s,'space'); % 对比字符串是否相同，相同返回值1.
clc;k=0;
end
if abs(t)>0.3*pi
dt=-dt;
end
t=t+dt;
Ai=t; % 入射角
Xi=0.4*tan(Ai);
set(Hi,'xdata',[Xi,0]);
Ao=asin(sin(Ai)*n1/n2); % 出射角
Xo=Xi+tan(Ao);
Xr=Xi+tan(Ai);
set(Ho,'xdata',[Xi,Xo]);
set(Hr,'xdata',[Xi,Xr]);
set(Hf,'xdata',[Xi,Xi]);
set(HL,'Facecolor',rand(1,3))
% saveas(gcf,['E:\Matlab work 2016\光线的折射与反射\',num2str(1000+10*t),'.jpg'])
end
figure(gcf);