- /
-
plot Dark Side
on 7 Oct 2021
- 109
- 1.2K
- 0
- 0
- 277
%% plot Dark Side, by Maximilian Schönau
y=[8:.15:8.8
6:.2:7];
w='LineW';
p=@plot;
figure(Color='k',Pos=[100
100
500
500])
% MATLAB rainbow
p([5
10],y(:,[2
5
4
1
3
6
6]),w,4)
hold
% White light
p([0
5],[6.8
8.5],'w',w,2);
% Prism
for k=99:-.1:9
p(5,7,'^',MarkerS=k,MarkerE=k^9/9e18.*(7:9))
end
% Gradient
patch([4.1
4.2
5.3
5.5],[8.15
8.3
8.55
7.6],[1
1
0
0],EdgeC='none')
colormap gray
ylim([0
15])
axis off