原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
matlab模拟光的反射折射
(3).我们首先假设光从空气进入水中，此时n=1.5。用一次函数图像来表示光的传播路线，通过改变光的入射点来改变光的入射角和入射方向，并根据反射光、折射光与入射光的斜率关系来控制反射角、折射角与入射角关系，设计程序如下：
function ZHEFAN; % 光的折射 光的反射
set(gcf,doublebuffer,on); %设置图片属性，双缓存防止图闪烁
axis([-2,2,-1,1]);hold on; %设置坐标轴范围（x轴-2到2，y轴-1到1）
rectangle(Position,[-2,-1,4,1],...
FaceColor,[0.1,0.6,0.6]); %给图形下半部分设置成水的颜色
text(1.4,0.4,air,color,r,fontsize,14)
text(1.4,-0.4,water,color,r,fontsize,14) %注明空气和水，并且设置字体
n=1.5;t=0; %设置折射率
text(0.7,0.6,[n= ,num2str(n)],fontsize,14); %在图形上标明折射率
HL=rectangle(Position,[-0.02,0.4,0.04,0.2],...
FaceColor,[ 0.3,0.8,0.4]); %在图形上画出光源
Hi=plot([0,0],[0,0.4],b); %设置入射光
Ho=plot([0,0],[0,-1]); %设置折射光
Hr=plot([0,0],[0,1],r); %设置反射光
xlabel(请按空格停止,... fontsize,14,color,r); %设置结束提示
k=1;dt=0.1; %初始化k方便循环，设置入射光变化量
while k %循环体
pause(0.5); % 设置每次图形变换间隔为0.5秒
s=get(gcf,currentkey);
if strcmp(s,space);
clc;k=0;
end %输入空格终止演示，是图形停止
if abs(t)0.3*pi
dt=-dt;
end %设置入射光变化的范围
t=t+dt;
A=t;
Xi=0.4*tan(A);
set(Hi,xdata,[Xi,0]); %入射光发生改变
Ao=asin(sin(A)/n);
Xo=Xi+tan(Ao);
set(Ho,xdata,[Xi,Xo]); %绘制最后折射光
Xr=Xi+tan(A);
set(Hr,xdata,[Xi,Xr]); %绘制最后反射光
set(HL,Facecolor,rand(1,3))
end
figure(gcf); %显示图形窗口
运行程序，得到运动的图形，即入射角改变，折射光和反射光的变化。得到截图如下：
文档评论（0）