- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
(3).我们首先假设光从空气进入水屮, 此时n=1.5o用一次函数图像来表示光的传播路线, 通
过改变光的入射点来改变光的入射角和入射方向, 并根据反射光、折射光与入射光的斜率关
系来控制反射角、折射角与入射角关系,设计程序如下:
function ZHEFAN;
set(gcf,double buffer,on);
axis(卜2,2,?l,l]);hold on;
rectangle (Position,[-2,-1,4,1],...
TaceColoF,[0.1,0.6,0.6]);
text(l .4,0.4,air,^olor/f,fontsize *,14)
te xt( 1.4,-0.4,water*,color,r/fonts izer, 14)
n=l .5;t=0;
text(0.7,0.6,[n= ,,num2str(n)],,fbntsize,14);
HL=rectangle (Position, [-0.02,0.4,0.04,0.2],...
TaceColorJ 03,0.8,0.4 ]);
Hi=plot([0,0],[0,0.4];b,);
Ho=plot([0,0],[0,-1]);
H=plot([0,0],[0,l],T);
xlabelf 请按空格停止 fontsize, 14,color*,Y);
k=l;dt=0.1;
while k
pause(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);
s e t(Hr,xdata\[Xi,Xr]);
set(HL,Facecolor,rand(l,3))
end
%光的折射光的反射
%设置图片属性,双缓存防止图闪烁
%设置坐标轴范围(x轴-2到2, y轴-1到1)
%给图形下半部分设置成水的颜色
%注明空气和水,并且设置字体
%设置折射率
%在图形上标明折射率
%在图形上画出光源
%设置入射光
%设置折射光
%设置反射光
%设置结束提示
%初始化k方便循环,设置入射光变化量
%循环体
%设置每次图形变换间隔为 0.5秒
%输入空格终止演示,是图形停止
%设置入射光变化的范围
%入射光发生改变
%绘制最后折射光
%绘制最后反射光
figure (get); %显示图形窗口
运行程序,得到运动的图形,即入射角改变,折射光和反射光的变化。得到截图如下:
您可能关注的文档
最近下载
- [2025秋期版]国开电大专科《成本会计》一平台在线形考(形考4)试题及答案.pdf VIP
- 2023-2024学年江苏省无锡市天一中学高一(上)期中数学试卷【答案版】.pdf VIP
- (完整版)物资出入库单(模板).doc VIP
- 最新国家义务教育质量监测德育模拟试题.docx VIP
- 注塑生产排程月计划(ASDJS)自动排程.xls VIP
- 《离散型制造企业数字化转型成熟度评估模型》.pdf VIP
- 混凝土挡土墙施工组织设计方案.docx VIP
- 量子计算密码学导论.pptx VIP
- 2025国家义务教育质量监测艺术试题(附答案).docx VIP
- 2025党支部与党员一对一谈心谈话记录(5篇).docx VIP
原创力文档


文档评论(0)