% addanode.m  Neuen Knoten anfuegen, Hilfsskript zu platobuild.m
ndepth = ndepth+1;
bkmat(1:3,1:3,ndepth) = Royf^2*eye(3);
ppt = [Royf^2*ppt ppo];
bkmat(1:3,1:3,ndepth) = Rozh*bkmat(1:3,1:3,ndepth) ;
ppt = Rozh*ppt;
