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‘[]）
%===============================================================