function scat3d;

scat3dcomp;

%playing with userinterface
Hm_reg1 = uimenu('Label', 'True Model');
Hm_lin = uimenu(Hm_reg1, 'Label', 'Linear', 'Callback', 'scat3dcomp(1);');
Hm_int = uimenu(Hm_reg1, 'Label', 'Interaction', 'Callback', 'scat3dcomp(2);');
Hm_int = uimenu(Hm_reg1, 'Label', 'Nonlinearity', 'Callback', 'scat3dcomp(3);');

Hm_reg2 = uimenu('Label', 'Model Fitted');
Hm_lin = uimenu(Hm_reg2, 'Label', 'Linear', 'Callback', 'scat3dcomp(4);');
Hm_int = uimenu(Hm_reg2, 'Label', 'Interaction', 'Callback', 'scat3dcomp(5);');
Hm_int = uimenu(Hm_reg2, 'Label', 'Nonlinearity', 'Callback', 'scat3dcomp(6);');

Hm_reg3 = uimenu('Label', 'Show Residuals');
Hm_resT= uimenu(Hm_reg3, 'Label', 'Yes', 'Callback', 'scat3dcomp(8)');
Hm_resF = uimenu(Hm_reg3, 'Label', 'No', 'Callback', 'scat3dcomp(7(');


Hc_label = uicontrol(gcf, 'Style', 'text', 'Position', [10 10 70 20], ...
       'String', 'N = ');

Hc_map = uicontrol(gcf, 'Style', 'edit', 'Position', [80 10 60 20], ...
   'String', '10',  'Value', 10, ...
        'tag', 'hmxedit', 'Callback', 'scat3dcomp(10);');


Hc_rholabel = uicontrol(gcf, 'Style', 'text', 'Position', [150 10 70 20], ...
       'String', 'multicol r = ');

Hc_rhomap = uicontrol(gcf, 'Style', 'edit', 'Position', [220 10 60 20], ...
   'String', '0',  'Value', 0, ...
        'tag', 'hmxrho', 'Callback', 'scat3dcomp(11);');


