Bonjour !
cela fait plusieurs jours que j'essaie de faire un programme sur R qui permet de trouver le TRI.
Pour cela je dois utiliser la méthode de résolution d'une équation du second degré, pour trouver ensuite TRI=(1/x)-1.
Quelqu'un peut m'aider ?
Voilà ce que j'ai fait pour le moment, il doit y avoir entre autres de gros problèmes de nomenclature...
Pour l'instant, il me retourne tjr que l'équation n'a pas de solutions...
Merci !Code:tir<-function(f0,f1,f2){ #Fonction pour calculer "TIR" avec F0 + F1x + F2x² = 0 if(f2==0) #equation du premier degré if(f1==0) cat("L'équation n'a pas de solutions\n") else {x<--f0/f1 if(x==0) cat("L'équation n'a pas de solutions\n") else {tir<- (1/x)-1 cat("TIR =",tir,"\n") } } if(!(f2==0)) #équation du second degré {Delta<- f1^2-4*f2*f0 if(Delta<0) cat("L'équation n'a pas de solutions\n") if(Delta==0) #Deux racines égales {x<--f1/2*f2 {tir<- (1/x)-1 cat("TIR =",tir,"\n") } } if(Delta>0) #Deux racines distinctes {x<-(-f1-(Delta)^(1/2))/2*f2 {tir<- (1/x)-1 if(x<0) {y<-(-f1-(Delta)^(1/2))/2*f2 {tir<- (1/y)-1 cat("TIR =",tir,"\n") }} }} } }![]()
-----