Generation of 3D fractal trees

% This function allow you to build 3D-fractal trees
% by using modified algorithms based on the so-called Kantor`s array
% and method of inverse trace
% These methods allow you to economise time and computer memory
% considerably
% It`s arguments:
% FraktalTM3D(n,r,phi,chi,xb,yb,zb)
% n - number of iterations
% r - scale factor
% in case of nonuniform fractals where different scale-factors take
% place, r may be vector
% phi - vector of azimuth angles in fractal generator that are calculated
% chi - vector of polar angles in fractal generator relative to the
% trunk
% xb, yb and zb - coordinates of trunk
%
% For example for famous Pifagorus`s tree in it`s vertical position the call of this function is
% so:
% FraktalTM3DM(n,[0.5,0.8,0.8],[0,2*pi/3,4*pi/3],[pi/3,pi/3,pi/3],[0,0],[0,0],[0,1])
% n is recommended to be in range 1..10 not to call the overloaded of stack