function vueCoupe()

clc ;
%% Parameters

chxRando = 12;
vitessePlat = 4.2 ;

%% Choix rando

if chxRando == 1
    distance = [0,1.25,4.75,6.25,6.625,7.875,8.625,10.375,11.625,14,15.75] ;
    denivele = [327 447 806 999 955 828 927 738 472 352 327] ;
    pointPassage = {'Jungholtz \bf(départ)','Ste Annne','Holzwasen','','Firstacker','Col Amic', 'Freundstein \bf(repas)','Hartfelsenschloss','Croix Zimmermann','','Jungholtz \bf(arrivée)'} ;
    deniveleCummuleMontant = (999-327) + (927-828) ;
    deniveleCummuleDescendant = deniveleCummuleMontant ;
elseif chxRando == 2
    distance = [0,2.5,3.5,4,5,6.5,7.5,8.5,9.5] ;
    denivele = [460 800 950 1006 946 770 674 550 460] ;
    pointPassage = {'Kirchberg \bf(départ)','Sprickelsberg','','','Source de la Doller', 'Lachtelweiher \bf(repas)','Rischburg','Gaertnerberg','Kirchberg \bf(arrivée)'} ;
    deniveleCummuleMontant = (1006-460) ;
    deniveleCummuleDescendant = deniveleCummuleMontant ;
elseif chxRando == 3
    distance = [0,3.6,5.7,7.6,9.2,10.7,12.4,14.5] ;
    denivele = [738 776 1110 1135 965 1020 1363 930] ;
    pointPassage = {'lac de Longemer \bf(départ)','lac de Retournemer','Le Collet','Col de la Schlucht','Krappenfelts', 'Frankental','Hohneck','lac de Schiessrothried \bf(arrivée)'} ;
    deniveleCummuleMontant = (1135-738+1363-965) ;
    deniveleCummuleDescendant = (1135-965+1363-930) ;  
elseif chxRando == 4
    distance = [0,1.7,2.4,3.1,4.2,6,8,10,13.5] ;
    denivele = [930 1073 1166 1240 1192 984 1034 955 738] ;
    pointPassage = {'lac de Schiessrothried \bf(départ)','Kerbholz','Kastelbergwasen','','Ferschmuss', 'lac de Blanchemer','lac de la Lande','Col de Faignes','lac de Longemer \bf(arrivée)'} ;
    deniveleCummuleMontant = (1240-930+1034-984) ;
    deniveleCummuleDescendant = (1240-984+1034-738) ;
elseif chxRando == 5
    distance = [0,2.8,5.1,5.7,6.3,8.3,9.3,11.1,14,16.5,18.3,19.8,22.5] ;
    denivele = [993 1318 1477 1542 1609 1563 1688 1330 1206 1170 1510 1318 993] ;
    pointPassage = {'Mijoux \bf(départ)','Ecole de ski','Crozat','Mont Rond','', 'Pas de l''échine','Colomby de Gex','Chalet de Branveau','Chalet des Platières','la Quible','','Ecole de ski','Mijoux \bf(arrivée)'} ;
    deniveleCummuleMontant = 1609-993+1688-1563+1510-1170 ;
    deniveleCummuleDescendant = deniveleCummuleMontant ;
elseif chxRando == 6
    distance = [0,1.9,2.1,2.9,4,5.9,7.8,9.3,10.7,12,13.4,16.2] ;
    denivele = [438 494 475 535 639 596 1029 822 705 660 705 438] ;
    pointPassage = {'St Claude \bf(départ)','','Cascade des Combes','Trou de l''Abime','Vaucluse', '','Crêt Pourri','le Pontet','Chaumont','Cascade de la queue de cheval','Chaumont','St Claude \bf(arrivée)'} ;
    deniveleCummuleMontant = 494-438+639-475+1029-596+705-660 ;
    deniveleCummuleDescendant = deniveleCummuleMontant ;
elseif chxRando == 7
    distance = [0 2 5 7 9 15] ;
    denivele = [459 635 920 1074 735 459] ;
    pointPassage = {'Rougemont \bf(départ)','le Plainot','Abri','Baerenkopf','Trou du loup','Rougemont \bf(arrivée)'} ;
    deniveleCummuleMontant = 1074-459 ;
    deniveleCummuleDescendant = deniveleCummuleMontant ;
elseif chxRando == 8
    distance = [0 5 6 7 8 9 10.5 17] ;
    denivele = [400 913 957 1021 1081 1181 1108 400] ;
    pointPassage = {'Masevaux \bf(départ)','Abri Sattelboden','Rosseberggesick','Stèle Fuchsfelsen', 'Bannbergkopf','Vogelstein','Chalet S.G.S.M','Masevaux \bf(arrivée)'} ;
    deniveleCummuleMontant = 1181-400 ;
    deniveleCummuleDescendant = deniveleCummuleMontant ; 
elseif chxRando == 9
    distance = [0 1.7 4 4.5 6.2 8 10.9 13.2 14.7 15.7 16.8 18.4] ;
    denivele = [844 859 1083 1093 1293 1104 1055 1110 937 1062 1033 844] ;
    pointPassage = {'Les Gras \bf(départ)','Les chaudières','Le pain de sucre','Sommet des Ages', 'Mont châteleu','Chez Voynet','les Seignes','Charopey','Le Théverot','','Champagne le dessus','Les Gras \bf(arrivée)'} ;
    deniveleCummuleMontant = 1293-844+1110-1055+1062-937 ;
    deniveleCummuleDescendant = deniveleCummuleMontant ;     
elseif chxRando == 10
    distance = [0 1.7 5.1 6.3 7.5 9.4 10.7 12.5 16.9 18 22.2] ;
    denivele = [357 538 499 366 547 507 602 641 711 584 357] ;
    pointPassage = {'St Hippolyte \bf(départ)','Belvédère','','Bief', '','Liebvillers','grotte du Bisontin','','','grotte de la Roche','St Hippolyte \bf(arrivée)'} ;
    deniveleCummuleMontant = 538-357+547-366+711-507 ;
    deniveleCummuleDescendant = deniveleCummuleMontant ;
elseif chxRando == 11
    name = 'Autour de la belle étoile' ;
    distance = [0,2.6,5.8,7.75,9,9.75,10.3,10.7,13,14.35,16.3,18] ;
    denivele = [346 484 565 550 942 991 830 1000 958 839 780 877] ;
    pointPassage = {'Camping\bf(départ)','Pallud','Chevronnet','Les Héris','', 'Pré Collat','','Belvédère','Collet de Tamie','Les Moulins','Pré Bolay','Les Combes \bf(arrivée)'} ;
    deniveleCummuleMontant = 927 ; 
    deniveleCummuleDescendant = 394 ;  
elseif chxRando == 12
    name = 'Le Grand Ballon' ;
    distance = [0,2.6,3.2,4.7,7.5,9.3,11.3,12.8,15.8,19.55,21.55] ;
    denivele = [445 813 672 910 978 992 1233 1424 979 655 445] ;
    pointPassage = {'Murbach\bf(départ)','Pré du Hohruph','Col du Wolfsgrube','Opsenkopf','Gustiberg', 'Lac du Ballon','Le Haag','Le Grand Ballon','Col de Judenhut','Munsteraeckerle','Murbach \bf(arrivée)'} ;
    deniveleCummuleMontant = 813-445+1424-672 ; 
    deniveleCummuleDescendant = deniveleCummuleMontant ;     
elseif chxRando == 13
    name = 'A l''assault du Mont Charvin' ;
    distance = [0,1.35,2.85,5.2,7.7,9.3,11.4,14.5] ;
    denivele = [470 479 597 1034 1336 1380 1470 2011] ;
    pointPassage = {'Camping Champ Tillet\bf(départ)','Marlens','','Col de l''épine','le pré','', 'les Fontanelles','Lac du Mont Charvin \bf(arrivée)'} ;
    deniveleCummuleMontant = 1489 ; 
    deniveleCummuleDescendant = deniveleCummuleMontant ;        
else
    error('Cette randonnée n''existe pas !')
    
end

%% Calcul temps de marche

tempsDeMarche = (((distance(end)/ vitessePlat) * 60) + (deniveleCummuleMontant/10) + (deniveleCummuleDescendant/20));

tempsDeMarche = datestr((tempsDeMarche/60)/24,13) ;

disp(['Longeur : ',num2str(distance(end))])
disp(['Dénivelé Cummulé Montant : ',num2str(deniveleCummuleMontant)])
disp(['Dénivelé Cummulé Descendant : ',num2str(deniveleCummuleDescendant)])
disp(['Temps de Marche : ',tempsDeMarche])

%% Affichage

% Petite figure
h = figure ;
set(h,'color','white')
set(h,'position',[400 400 550 300])
plot(distance,denivele, 'linewidth',3)
hold on ;
stem(distance,denivele,'color', [0 0.5 0])
box off ;
%plot(distance,denivele ,'rx', 'linewidth',2,'MarkerSize',10)
axis([min(distance)-1 max(distance)+4 min(denivele)-10 max(denivele)+50])
xlabel('\bf Distance en km','fontsize',11)
ylabel('\bf Dénivelé en m','fontsize',11)

for i=1:length(pointPassage)
    text(distance(i), denivele(i)+30, pointPassage{i},'fontsize',10,'Rotation',90)
end

% Figure agrandie (pour prochaine version site)
h = figure ;
set(h,'color','white')
set(h,'position',[400 400 800 450])
plot(distance,denivele, 'linewidth',3)
hold on ;
stem(distance,denivele,'color', [0 0.5 0])
%plot(distance,denivele ,'rx', 'linewidth',2,'MarkerSize',10)
axis([min(distance)-1 max(distance)+4 min(denivele)-10 max(denivele)+50])
xlabel('\bf Distance en km','fontsize',11)
ylabel('\bf Dénivelé en m','fontsize',11)

for i=1:length(pointPassage)
    text(distance(i), denivele(i)+30, pointPassage{i},'fontsize',10,'Rotation',90)
end