Télécharger normalim.procedur

Retour à la liste

Numérotation des lignes :

  1. * NORMALIM PROCEDUR BP208322 16/05/24 21:15:12 8932
  2. *----------------------------------------------------------------------*
  3. * *
  4. * PROCEDURE NORMALIM *
  5. * *
  6. * NORMALISATION A 1 DE CHAQUE FONCTION M *
  7. * *
  8. *----------------------------------------------------------------------*
  9. * *
  10. * ENTREE *
  11. * *
  12. * M M/T CONTENANT N FONCTION DE MODULATIONS *
  13. * TINI ET TFIN EGAUX POUR CHAQUE COURBE *
  14. * *
  15. * DTIME PAS DE TEMPS D'ANALYSE DE LA PREMIERE COURBE (POUR ONDELETTE) *
  16. * *
  17. * *
  18. *----------------------------------------------------------------------*
  19. * *
  20. * SORTIE *
  21. * *
  22. * MNORME M/T NORME *
  23. * *
  24. * VALSPE (LISTREEL) MOYENNE DU SPECTRE DANS CHAQUE BANDE *
  25. * *
  26. *----------------------------------------------------------------------*
  27. 'DEBPROC' NORMALIM M*'EVOLUTION' DTIME/'FLOTTANT';
  28. *----------------------------------------------------------------------*
  29. 'SI' ('EXISTE' DTIME);
  30. LONDEL=VRAI;
  31. DDTIME=DTIME;
  32. 'SINON';
  33. LONDEL=FAUX;
  34. 'FINSI';
  35. *
  36. 'SI' ('NON' LONDEL);
  37. T1='EXTRAIRE' M 'ABSC' 1;
  38. TI='EXTRAIRE' T1 1;
  39. TF='EXTRAIRE' T1 ('DIMENSION' T1);
  40. NI=1000;PAS=(TF-TI)/NI;
  41. TT='PROG' TI 'PAS' PAS TF;
  42. 'FINSI';
  43. *
  44. *
  45. *----------------------------------------------------------------------*
  46. NCOURB='DIMENSION' M;
  47. ICOURB=0;
  48. 'REPETER' LABC NCOURB;
  49. ICOURB=ICOURB+1;
  50. MI='EXTRAIRE' M 'COURBE' ICOURB;
  51. *
  52. 'SI' LONDEL;
  53. MIX='EXTRAIRE' MI 'ABSC' 1;
  54. TI='EXTRAIRE' MIX 1;
  55. TE=('EXTRAIRE' MIX ('DIMENSION' MIX)) - TI;
  56. NPT='ENTIER' ((TE/DDTIME) + 1.E-5);
  57. TTEST=TE-(NPT*DDTIME);
  58. 'SI' (('ABS' TTEST) '>' (DTIME*1.E-4));
  59. 'MESSAGE' 'Le pas de temps (DTIME) est incoherent avec la';
  60. 'MESSAGE' ' duree du signal ondelette (M) courbe' ICOURB;
  61. 'QUITTER' LABC;
  62. 'FINSI';
  63. TT='PROG' TI 'PAS' DDTIME 'NPAS' NPT;
  64. 'FINSI';
  65. *
  66. MMT='IPOL' TT ('EXTRAIRE' MI 'ABSC' 1) ('EXTRAIRE' MI 'ORDO' 1);
  67. *
  68. 'SI' LONDEL;
  69. NORME=('LTL' MMT) * DDTIME;
  70. 'SINON';
  71. MMT2=MMT**2;
  72. MTT2='EVOL' 'MANU' TT MMT2;
  73. NORME='EXTRAIRE' ('INTG' MTT2) 1;
  74. 'FINSI';
  75. *
  76. NORME=NORME ** .5;
  77. VALSPE='INSERER' VALSPE NORME ICOURB;
  78. *
  79. 'SI' (NORME EGA 0.); MINORME=MI;
  80. 'SINON'; MINORME=MI/NORME; 'FINSI';
  81. 'SI' (ICOURB EGA 1); MNORME=MINORME;
  82. 'SINON'; MNORME=MNORME 'ET' MINORME; 'FINSI';
  83. *
  84. 'SI' LONDEL; DDTIME=DDTIME/2; 'FINSI';
  85. 'FIN' LABC;
  86. *----------------------------------------------------------------------*
  87. 'FINPROC' VALSPE MNORME;
  88.  
  89.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales