Question

视频中的光很强,用matlab怎么处理

Answer 1

结果：

代码如下：
%===================================================
close all
figure;
set(gcf,'doublebuffer','on');
axis([-2,2,-1,1]);hold on;
rectangle('Position',[-2,-1,4,1],...
'FaceColor','b');
text(1.4,0.4,'air','color','r','fontsize',14)
text(1.4,-0.4,'glass','color','r','fontsize',14)
n=2;t=0;
text(0.7,0.6,['N= ',num2str(n)],'fontsize',14);
HL=rectangle('Position',[-0.02,0.4,0.04,0.2],...
'FaceColor','b');
Hi=plot([0,0],[0,0.4],'b');
Ho=plot([0,0],[0,-1]);
Hr=plot([0,0],[0,1],'r');
xlabel('Please press "space" key and stop this program!',...
'fontsize',14,'color','r');
k=1;dt=0.1;
while k
pause(0.1);
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);
Xr=Xi+tan(A);
set(Ho,'xdata',[Xi,Xo]);
set(Hr,'xdata',[Xi,Xr]);
set(HL,'Facecolor',rand(1,3))
end
figure(gcf);
%===================================