matlab 模拟锁屏程序

function[]=Billiards（NumberOfBalls）
% Call: Billiards（Number of Balls） e.g.:
% Billiards（10）
if nargin == 0
    NumberOfBalls = 10;
end
close all;
hold on;
drawflag=1;
factor=82; %Adjust this factor when scaling
DT=5e-3;
Bound=[-4 4 -2 2];
BallColour=[[1 0 0];[1 0 0.5];[1 0.5 0];[0 1 0];[0 0 1];[1 1 0];[1 1 1];...
[0 0.3 0];[0 0 0];[0.65 0.65 0.65];[0 0.75 0.75];[0.3 0 0.6];[0.95 0.65 0.75];...
[0.5 0.25 0];[0 0.2 0.4];[0.9 0.4 0.7];[0.4 0.2 0.3];[0.65 0.55 0.15];[0.25 0.35 0.25];[0.5 0 0]];
TableColour=[.4 .5 .8];
%Plothandle
axis（Bound）;
set（gca‘Color‘TableColour‘xcolor‘TableColour‘ycolor‘...
TableColour‘PlotBoxAspectRatio‘[1 abs（（Bound（3）-Bound（4））/（Bound（2）-Bound（1））） 1]‘xtick‘[]‘ytick‘[]）
%===============================================================