Tests/testcomm7/f.comm

   1 from Numeric import size
   2
   3 DEBUT()
   4
   5 # Definition des parametres de l'excitation sinusoidale
   6 freq=1500.0
   7 periode=1.0/freq
   8 pas=periode/100.0
   9
  10 LISTTM=DEFI_LIST_REEL(DEBUT=0.0*periode,
  11                        INTERVALLE=_F(JUSQU_A=100.0*periode,
  12                                      PAS=pas,),);
  13
  14 LISTRD=DEFI_LIST_REEL(DEBUT=(98.0)*periode+pas,
  15                        INTERVALLE=_F(JUSQU_A=(100.0)*periode,
  16                                      PAS=pas,),);
  17
  18 FIN()