n=1;
H{n,1}='Etunimi Sukunimi';
H{n,2}='Isän nimi';
H{n,3}='Äidin nimi os. nimi';
H{n,4}='Vaimon nimi os. nimi';
H{n,5}=1; %Lasten lukumäärä
H{n,11}='Lapsen nimi 1';

n=2;
H{n,1}='Kauko Huusko';
H{n,2}='Aleksanteri Huusko';
H{n,3}='Hanna Huusko os. Meriläinen';
H{n,4}='Tuija Huusko os. Pääkkönen';
H{n,11}='Juha-Matti Huusko';
H{n,5}=1; %Lasten lukumäärä
H{n,6}=3; %Isän numero

n=3;
H{n,1}='Aleksanteri Huusko';
H{n,2}='Iisak Huusko';
H{n,3}='Greta Sofia Boström';
H{n,4}='Hanna Huusko os. Meriläinen';
H{n,6}=4; %Isän numero
H{n,11}='Rauha Heikkinen os. Huusko';
H{n,12}='Rauni Piirainen os. Huusko';
H{n,13}='Helmi Huusko';
H{n,14}='Helvi Huusko';
H{n,15}='Sirkka Niskanen os. Huusko';
H{n,16}='Kauko Huusko';
H{n,17}='Erkki Huusko';
H{n,18}='Eeva Mertanen os. Huusko';
H{n,5}=18-10; %Lasten lukumäärä

n=4;
H{n,1}='Iisak Huusko';
H{n,2}='Simo Huusko';
H{n,3}='Iisakin vaimo';
H{n,4}='Greta Sofia Boström';
H{n,11}='Sanny Karoliina';
H{n,12}='Oskar Aukusti';
H{n,13}='Arwid';
H{n,14}='Alma';
H{n,15}='Nanni Sofia';
H{n,16}='Olga';
H{n,17}='Konsta';
H{n,18}='Kalle';
H{n,19}='Aleksanteri';
H{n,20}='Iines Maria';
H{n,21}='Akseli';
H{n,22}='Frans Eerik';
H{n,5}=22-10; %Lasten lukumäärä

>> disprel(H,2)

ans = 

    'Aleksanteri Huusko'            'Hanna Huusko os. Meriläinen'
    'Kauko Huusko'                  'Tuija Huusko os. Pääkkönen' 
    'Rauha Heikkinen os. Huusko'    'Juha-Matti Huusko'          
    'Rauni Piirainen os. Huusko'                               []
    'Helmi Huusko'                                             []
    'Helvi Huusko'                                             []
    'Sirkka Niskanen os. Huusko'                               []
    'Kauko Huusko'                                             []
    'Erkki Huusko'                                             []
    'Eeva Mertanen os. Huusko'                                 []

>> disprel(H,3)

ans = 

    'Iisak Huusko'          'Greta Sofia Boström'        
    'Aleksanteri Huusko'    'Hanna Huusko os. Meriläinen'
    'Sanny Karoliina'       'Rauha Heikkinen os. Huusko' 
    'Oskar Aukusti'         'Rauni Piirainen os. Huusko' 
    'Arwid'                 'Helmi Huusko'               
    'Alma'                  'Helvi Huusko'               
    'Nanni Sofia'           'Sirkka Niskanen os. Huusko' 
    'Olga'                  'Kauko Huusko'               
    'Konsta'                'Erkki Huusko'               
    'Kalle'                 'Eeva Mertanen os. Huusko'   
    'Aleksanteri'                                      []
    'Iines Maria'                                      []
    'Akseli'                                           []
    'Frans Eerik'                                      []

>>>
function [D] =disprel(H,n)
%Displays relatives from H for person n
%n=3;
D{1,1}=H{n,2};
D{1,2}=H{n,3};
D{2,1}=H{n,1};
D{2,2}=H{n,4};
ChildN=H{n,5};
FatherN=H{n,6};
FatherChildN=H{FatherN,5};
eval(['D(3:2+' num2str(ChildN) ',2)=H(n,11:10+' num2str(ChildN) ');'])
eval(['D(3:2+' num2str(FatherChildN) ',1)=H(FatherN,11:10+' num2str(FatherChildN) ');'])
%D
end
>>>