************************************************************************ ************************************************************************ * Section : Mathematiques Fonctions ************************************************************************ * NOM : conversion_enti.dgibi * * DESCRIPTION : Comparaison entre les differentes fonctions pour * convertir un reel en entier * * MOTS-CLÉS : troncature,partie entiere,arrondi,proche,floor,ceiling, * plancher,plafond,round * ************************************************************************ * HISTORIQUE : 18/12/2014 : JCARDO : creation du jeu de données * HISTORIQUE : * HISTORIQUE : ************************************************************************ * Prière de PRENDRE LE TEMPS DE COMPLÉTER LES COMMENTAIRES * en cas de modification de ce cas test afin de faciliter * la maintenance ! ************************************************************************ OPTI 'ECHO' 0 ; * GRAINE ALEATOIRE SEED1 = 235 ; * NOMBRE DE VALEURS DANS LES LISTES ALEATOIRES NB1 = 1000 ; * NOMBRE D'ELEMENTS PAR COTE DU CUBE NB2 = 5 ; * TRACER LES RESULTATS ? GRAPH = VRAI ; OPTI 'TRAC' 'PSC' ; * boucle sur les options LOPTI = MOTS 'TRON' 'INFE' 'SUPE' 'PROC' ; NOPTI = DIME LOPTI ; REPE BLOC1 NOPTI ; MOPTI = EXTR LOPTI &BLOC1 ; SI (EGA MOPTI 'TRON') ; EMIN1 = -1 ; EMAX1 = 1 ; FINS ; SI (EGA MOPTI 'INFE') ; EMIN1 = -1 ; EMAX1 = 0 ; FINS ; SI (EGA MOPTI 'SUPE') ; EMIN1 = 0 ; EMAX1 = 1 ; FINS ; SI (EGA MOPTI 'PROC') ; EMIN1 = -0.5 ; EMAX1 = 0.5 ; FINS ; SAUT 3 'LIGNES' ; MESS '+----------------------------------+' ; MESS '| |' ; MESS '| O P T I O N " ' MOPTI ' " |' ; MESS '| |' ; MESS '+----------------------------------+' ; * =============================== * TEST 1 POUR LES OBJETS LISTREEL * =============================== SAUT 1 'LIGNE' ; MESS 'TEST 1 LISTREEL' ; MESS '===============' ; LREE1 = BRUI 'BLAN' 'UNIF' 0 100 NB1 SEED1 ; LENT1 = ENTI MOPTI LREE1 ; LECA1 = LENT1 - LREE1 ; EMIN2 = MINI LECA1 ; EMAX2 = MAXI LECA1 ; MESS (CHAI 'MINI{ (ENTI "' MOPTI '" LREE1) - LREE1 } = ' EMIN2) ; MESS (CHAI 'MAXI{ (ENTI "' MOPTI '" LREE1) - LREE1 } = ' EMAX2) ; SI GRAPH ; EVOL1 = EVOL 'ROUG' 'MANU' (PROG 1. 'PAS' 1. (DIME LREE1)) LECA1 ; EVOL2 = EVOL 'VERT' 'MANU' (PROG 1. 'PAS' 1. (DIME LREE1)) (PROG (DIME LREE1)*0.5) ; EVOL3 = EVOL 'VERT' 'MANU' (PROG 1. 'PAS' 1. (DIME LREE1)) (PROG (DIME LREE1)*-0.5) ; EVOL4 = EVOL 'BLEU' 'MANU' (PROG 1. 'PAS' 1. (DIME LREE1)) (PROG (DIME LREE1)*1.) ; EVOL5 = EVOL 'BLEU' 'MANU' (PROG 1. 'PAS' 1. (DIME LREE1)) (PROG (DIME LREE1)*-1.) ; EVOL6 = EVOL 'BLAN' 'MANU' (PROG 1. 'PAS' 1. (DIME LREE1)) (PROG (DIME LREE1)*0.) ; DESS (EVOL1 ET EVOL2 ET EVOL3 ET EVOL4 ET EVOL5 ET EVOL6) 'TITR' (CHAI '(ENTI "' MOPTI '" LREE1) - LREE1') 'TITY' 'Ecart absolu' 'YBOR' -1.5 1.5 'YGRA' 0.5 ; FINS ; ********* VALIDATION ********* SI ((EMAX2 >EG EMAX1) OU (EMIN2 EG EMAX1) OU (EMIN2