% 405 slov
\appendix
\chapter{Source code listing}\label{programy}
Files listed in this appendix were used to generate pictures in
this thesis. They are written with {\sc Matlab},
version~6.0.0.88~(R12)\footnote{www.mathworks.com} and Maple~6\footnote{www.maplesoft.com}.

\section{{\sc Matlab} codes} \label{Matlab}
\subsection{Files that create figure~\ref{radial}}
\subsubsection{Listing of {\tt prp\_time.m}}
\verbatiminput{schwarzs/prp_time.m}
\subsubsection{Listing of {\tt radius.m}}
\verbatiminput{schwarzs/radius.m}
\subsubsection{Listing of {\tt time.m}}
\verbatiminput{schwarzs/time.m}
\subsubsection{Listing of {\tt plot\_rad.m}}
\verbatiminput{schwarzs/plot_rad.m}
%\subsection{File that creates figure~\ref{Schkrrad}}
%\subsubsection{Listing of {\tt krusradi.m}}
%\verbatiminput{schwarzs/krusradi.m}

\subsection{Files that create figure~\ref{potentia}}
\subsubsection{Listing of {\tt potentia.m}}
\verbatiminput{schwarzs/potentia.m}
\subsubsection{Listing of {\tt plot\_pot.m}}
\verbatiminput{schwarzs/plot_pot.m}

\subsection{File that creates figure~\ref{koef_mue}}
File {\tt implot.m} was downloaded from\\
http://www.mathworks.com/support/ftp/graphicsv5.shtml on 13th
January~2003.
\subsubsection{Listing of {\tt koef\_mue.m}}
\verbatiminput{schwarzs/koef_mue.m}
%\verbatiminput{implot.m}

\subsection{Files that create figure~\ref{222}, figure~\ref{timelike} and
figure~\ref{tm ubn a}} \label{a222}
\subsubsection{Listing of {\tt radius1.m }}
\verbatiminput{schwarzs/radius1.m}
\subsubsection{Listing of {\tt radius2.m}}
\verbatiminput{schwarzs/radius2.m}
\subsubsection{Listing of {\tt spacelik.m}}
\verbatiminput{schwarzs/spacelik.m}

\subsection{Files that create figure~\ref{plottime}}
Files {\tt radius1.m} and {\tt radius2.m} are listed in
section~\ref{a222}.
\subsubsection{Listing of {\tt plottime.m}}
\verbatiminput{schwarzs/plottime.m}

\subsection{Files that create figure~\ref{pic2}, figure~\ref{timelike g} and
figure~\ref{tm ubn b}} Files {\tt radius1.m} and {\tt radius2.m}
are listed in section~\ref{a222}.
\subsubsection{Listing of {\tt spac\_spc.m}}
\verbatiminput{schwarzs/spac_spc.m}

\subsection{Files that create figure~\ref{s-l imag} and figure~\ref{tm_bnd_i}}
\subsubsection{Listing of {\tt i\_radius.m}} \label{iradius}
\verbatiminput{schwarzs/i_radius.m}
\subsubsection{Listing of {\tt imaginar.m}}
\verbatiminput{schwarzs/imaginar.m}


\subsection{Files that create figure~\ref{pl_itime}}
File {\tt i\_radius.m} is listed in section \ref{iradius}.
\subsubsection{Listing of {\tt pl\_itime.m}}
\verbatiminput{schwarzs/pl_itime.m} 

\subsection{File that creates figure~\ref{tm radia}}
\subsubsection{Listing of {\tt tm\_prp\_t.m}}
\verbatiminput{schwarzs/tm_prp_t.m}

\subsubsection{Listing of {\tt tm\_rads.m}}
\verbatiminput{schwarzs/tm_rads.m}

\subsubsection{Listing of {\tt tm\_radia.m}}
\verbatiminput{schwarzs/tm_radia.m}

\subsection{File that creates figure~\ref{time pot}}
\subsubsection{Listing of {\tt time\_pot.m}}
\verbatiminput{schwarzs/time_pot.m}

\subsubsection{Listing of {\tt pl\_tpot.m}}
\verbatiminput{schwarzs/pl_tpot.m}

\subsection{File that creates figure~\ref{timelike b}}
\subsubsection{Listing of {\tt tm\_bnd\_b.m}}
\verbatiminput{schwarzs/tm_bnd_b.m}

\subsection{File that creates figure~\ref{timelike d}}
\subsubsection{Listing of {\tt tm\_bnd\_d.m}}
\verbatiminput{schwarzs/tm_bnd_d.m}

\subsection{File that creates figure~\ref{Schwnull}}
\subsubsection{Listing of {\tt null.m}}
\verbatiminput{schwarzs/null.m}

\subsection{File that creates figure~\ref{Schwnullcirc}}
\subsubsection{Listing of {\tt null\_spc.m}}
\verbatiminput{schwarzs/null_spc.m}

\subsection{File that creates figure~\ref{RNslpotentpic}}
\subsubsection{Listing of {\tt slpotent.m}}
\verbatiminput{Reis-Nor/slpotent.m}


                                                    
\subsection{File that creates figure~\ref{4.8}}     
\subsubsection{Listing of {\tt r\_Ltimel.m}}        
\verbatiminput{Kerr/r_Ltimel.m}                     
                                                    
\subsection{File that creates figure~\ref{4.8null}} 
\subsubsection{Listing of {\tt r\_Lnull.m}}         
\verbatiminput{Kerr/r_Lnull.m}                      
                                                    
\subsection{File that creates figure~\ref{4.8space}}
\subsubsection{Listing of {\tt r\_Lspace.m}}        
\verbatiminput{Kerr/r_Lspace.m}                     


\subsection{File that created figure \ref{keqnull}}
Data for this figure were obtained by Maple code listed in section
\ref{eqnuplot.mws}.
\subsubsection{Listing of {\tt eqnuplot.m}} \label{eqnuplot.m}
\verbatiminput{Kerr/eqnuplot.m}

\subsection{File that created figure \ref{eqspacsp}}
\subsubsection{Listing of {\tt eqspacsp.m}}
\verbatiminput{Kerr/eqspacsp.m}

\subsection{File that created figures \ref{nulcirc1} and \ref{nulcirc2}}               
Data for this figure were obtained by Maple code listed in section
\ref{nullcirc.mws}. 
\subsubsection{Listing of {\tt nullcirc.m}}    
\verbatiminput{Kerr/nullcirc.m}    

\subsection{File that creates figure \ref{nul2} and \ref{nul3}}
Data for this figure were obtained by Maple code listed in section \ref{null2}.
\subsubsection{Listing of {\tt null2.m}}
\verbatiminput{Kerr/null2.m}

\subsection{File that creates figure \ref{null_Cart}}
Data for this figure were obtained by Maple code listed in     
section \ref{null-Cart}.                                           
\subsubsection{Listing of {\tt null\_Cart.m}}                       
\verbatiminput{Kerr/null_Cart.m}                                   
\subsection{File that creates figure \ref{nuetapr} and \ref{nuneta3D}}
\subsubsection{Listing of {\tt                            
nullneta.m}}                                            
\verbatiminput{Kerr/nullneta.m}                          

\subsection{File that creates figure \ref{spacpara}}
\subsubsection{Listing of {\tt spacpara.m}}
\verbatiminput{Kerr/spacpara.m}

\subsection{File that creates figure \ref{tlmgcirc}}
Data for this figure were obtained by Maple code listed in     
section \ref{tlmgcirc.mws}.                                          
\subsubsection{Listing of {\tt tlmgcirc.m}}                      
\verbatiminput{Kerr/tlmgcirc.m}

\subsection{File that creates figure \ref{tlbdcirc}}
Data for this figure were obtained by Maple code listed in     
section \ref{tmbdcirc.mws}.                                          
\subsubsection{Listing of {\tt tmbdcirc.m}}                      
\verbatiminput{Kerr/tmbdcirc.m}

\subsection{File that creates figure \ref{tim-Cart}}
Data for this figure were obtained by Maple code listed in     
section \ref{tim-Cart.mws}.                                          
\subsubsection{Listing of {\tt tim\_Cart.m}}                      \verbatiminput{Kerr/tim_Cart.m}



\section{Maple codes}
Maple output is blue.
\subsection{File that creates figure~\ref{RNNull}}
\subsubsection{Listing of {\tt null\_2.mws}}
\input{Reis-Nor/null_2}

\subsection{File that creates figures~\ref{RNnuima1},
\ref{RNnuima2}, \ref{RNnuima3}, \ref{RNnuimagi4} and \ref{RNnuimagi5}}
\subsubsection{Listing of {\tt nuimagin.mws}}
\input{Reis-Nor/nuimagin}

%\subsection{File that creates figure~\ref{RNnuima2}}
%\subsubsection{Listing of {\tt nuimagi2.mws}}
%\input{RNnuima2}

\subsection{File that creates figure~\ref{RNncst}}
\subsubsection{Listing of {\tt nulcircst2.mws}}
\input{Reis-Nor/nulcircst2}

%\subsection{File that creates figure~\ref{RNnuima3}}
%\subsubsection{Listing of {\tt nuimagi3.mws}}
%\input{RNnuima3}

\subsection{File that creates figure~\ref{RNnucst2}}
\subsubsection{Listing of {\tt nucirst2.mws}}
\input{Reis-Nor/nullcst2}

%\subsection{File that creates figure~\ref{RNnuimagi4}}
%\subsubsection{Listing of {\tt nuimagi4.mws}}
%\input{RNnimag4}

%\subsection{File that creates figure~\ref{RNnuimagi5}}
%\subsubsection{Listing of {\tt nuimagi5.mws}}
%\input{RNnuima5}

\subsection{File that creates figure~\ref{RNtimepl}}
\subsubsection{Listing of {\tt timeplot.mws}}
\input{Reis-Nor/timeplot}

\subsection{File that creates figure~\ref{RNcharpl}}
\subsubsection{Listing of {\tt charplot.mws}}
\input{Reis-Nor/charplot}

%\subsection{File that creates figures~\ref{4.8space}}
%\subsubsection{Listing of {\tt r-Ltimelik.mws}}
%\input{Kerr/r-Lplots}

\subsection{File that creates figures \ref{4.9time}, \ref{4.9null}, \ref{4.9space},
\ref{4.9space1}, \ref{4.11time}, \ref{4.11null}, \ref{4.11space}, \ref{4.12} and
\ref{4.13}} \subsubsection{Listing of {\tt orbits.mws}} \input{Kerr/orbits}

\subsection{File that creates figures \ref{4.9timef},              
\ref{4.9nullf}, \ref{4.9spacef},                                    
\ref{4.9space1f}, \ref{4.11timef}, \ref{4.11nullf}, \ref{4.11spacef}, 
\ref{4.12f} and                                                    
\ref{4.13f}} \subsubsection{Listing of {\tt orbits2.mws}}           
\input{Kerr/orbits2}                                               

\subsection{File that creates figures \ref{4.26slow}, \ref{4.26extreme},     and \ref{4.26fast}} \subsubsection{Listing of {\tt r-Lequat.mws}} \input{Kerr/r-Lequat}      

\subsection{File that creates figure \ref{keqnull}}
\subsubsection{Listing of {\tt eqnuplot.mws}} \label{eqnuplot.mws} \input{Kerr/eqnuplot}

\subsection{File that creates figures \ref{rLeqsls1}, \ref{rLeqsls2},
\ref{rLeqsls3}, \ref{rLeqsls4}, \ref{rLeqsls5}, \ref{rLeqsls6},
\ref{rLeqexs1}, \ref{rLeqexs2}, \ref{rLeqexs3}, \ref{rLeqexs4},
\ref{rLeqfas1} and \ref{rLeqfas2}}
\subsubsection{Listing of {\tt RLEQSPAC.mws}}
\input{Kerr/RLEQSPAC} 

\subsection{File that creates figures \ref{nulcirc1}      and \ref{nulcirc2}} \subsubsection{Listing of {\tt nullcirc.mws}} \label{nullcirc.mws} \input{Kerr/nullcirc}

\subsection{File that creates figures \ref{nul1}, \ref{nul2} and \ref{nul3}}
\subsubsection{Listing of {\tt null2.mws}}
\label{null2}
\input{Kerr/null2} 

\subsection{File that creates figure \ref{null_Cart}}
\subsubsection{Listing of {\tt null-Cart.mws}} \label{null-Cart}
\input{Kerr/null-Cart}

\subsection{File that creates figure \ref{tlmgcirc}}
\subsubsection{Listing of {\tt tlmgcirc.mws}}
\label{tlmgcirc.mws}
\input{Kerr/tlmgcirc}

\subsection{File that creates figure \ref{tlbdcirc}}
\subsubsection{Listing of {\tt tmbdcirc.mws}}
\label{tmbdcirc.mws}
\input{Kerr/tmbdcirc}

\subsection{File that creates figure \ref{tim-Cart}}
\subsubsection{Listing of {\tt tim\_Cart.mws}}
\label{tim-Cart.mws}
\input{Kerr/tim_Cart} 