%menu for synchronous machines
clc,close all
k=menu('SELECT DEMO:',...
        'V- and compounding C-curves of the synchronous machine',...
        'Synchronous motor start',...
        'Synchronization and loading of a synchronous machine',...
        'Short cicuit of a sychronous machine (S-function)under load',...
        'Same with vectorized model of the machine',...
        'Short circuit of an alternator initially open circuited',... 
        'Voltage dip following the sudden application of an R_L load on a synchronous generator',...
        'Synchronous generator with voltage regulator',...
        'Transient stability of a synchronous machine (swing curves)',...
        'Open-loop Volt/Hz control of a synchronous motor drive',...
        'Speed control of a permanent magnet synchronous motor',...
        'Close');
k1=num2str(k);     
    switch k1
        case '1', smvcurve;
        case '2', smvecstart;  
        case '3', smeqvec9;         
        case '4', smrun1;
        case '5', smeqvec0;   
        case '6', smeqvec2;      
        case '7', smalonevec;       
        case '8', smalonevecVR;   
        case '9', swing1;
        case '10', smeqvec5;   
        case '11', smpm3;       
        case '12',clc,close all,clear, break;   
     end