from Numeric import size

DEBUT()

# Definition des parametres de l'excitation sinusoidale
freq=1500.0
periode=1.0/freq
pas=periode/100.0

LISTTM=DEFI_LIST_REEL(DEBUT=0.0*periode,
                       INTERVALLE=_F(JUSQU_A=100.0*periode,
                                     PAS=pas,),);

LISTRD=DEFI_LIST_REEL(DEBUT=(98.0)*periode+pas,
                       INTERVALLE=_F(JUSQU_A=(100.0)*periode,
                                     PAS=pas,),);

FIN()