Calcul du TRI (taux de rendement interne) avec le logiciel R - méthode équation du second degré?

[invite073040e4]

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...

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")
           }}
          }}


}
}

Merci !
-----

[invite1c6b0acc]

Bonjour,
C'est totalement illisible ...
S'il te plait, indente ton code et encadre le avec la balise [CODE], ça simplifie vraiment le travail de ceux qui pourraient t'aider

[azad]

Salut
Identer, c'est bien, mais dans le cas présent cela ne résoudrait rien.
Déjà quelle drôle d'idée d'employer des variables f1, f2, f3 alors que des générations de potaches ont travaillé avec des a, b, c bien plus clairs.
Et puis, R n'est pas fait pour cela, les trois paramètres a, b, c ou f1, f2, f3 si tu préfères, sont considérés comme des variables. Jette plutôt un oeil sur la fonction "optimize" et ses possibilités. Entre autre, elle te donnera les extréma de ta fonction et tu pourras lui demander d'examiner le cas ou TRI=0