scmdemo.m

%SCMDEMO Demonstration of the SCM Method 

%July ~ December 2005, by Reinaldo M. do Nascimento

echo off
clear all
while 1
 selec1 = menu('SCM Models', ...
 	'Onelink', ...
 	'Twolink', ...
 	'UW', ...
 	'Scara', ...
 	'Scorbot', ...
 	'Cloos', ...
 	'Puma560', ...
    'Puma560x',...
 	'Puma600', ...
    'KR100P', ...
    'KR125', ...
    'KR2150K', ...
    'KR2150S',...
    'Stanford', ...
 	'Exit');

 switch selec1
 case 1
     scm_script='scm_onelink';
     scm_figure='fig_onelink.bmp';
 case 2
     scm_script='scm_twolink';
     scm_figure='fig_twolink.bmp';
 case 3
     scm_script='scm_uw';
     scm_figure='fig_uw.bmp';
 case 4
     scm_script='scm_scara';
     scm_figure='fig_scara.bmp';
 case 5
     scm_script='scm_scorbot';
     scm_figure='fig_scorbot.bmp';
 case 6
     scm_script='scm_cloos';
     scm_figure='fig_cloos.bmp';
 case 7
     scm_script='scm_puma560';
     scm_figure='fig_puma560.bmp';
 case 8
     scm_script='scm_puma560x';
     scm_figure='fig_puma560x.bmp';
 case 9
     scm_script='scm_puma600';
     scm_figure='fig_puma600.bmp';
 case 10
     scm_script='scm_kr100p';
     scm_figure='fig_kr100p.bmp';
 case 11
     scm_script='scm_kr125';
     scm_figure='fig_kr125.bmp';
 case 12
     scm_script='scm_kr2150k';
     scm_figure='fig_kr2150.bmp';
 case 13
     scm_script='scm_kr2150S';
     scm_figure='fig_kr2150.bmp';
 case 14
     scm_script='scm_stanford';
     scm_figure='fig_stanford.bmp';
 case 15
 	break;
 end
     scm_menu1
end
clear selec1 scm*