Skriv en funktion för att kontrollera faktoriserbarhet
Nu ska vi skriva en funktion som avgör om ett givet andragradspolynom är faktoriserbart eller inte. Funktionens argument är koefficienterna a, b och c för ett andragradspolynom på formen
$$ ax^2 + bx + c
$$
Vi undersöker om diskriminanten i andragradsformeln $$ b^2 - 4ac $$
är ett perfekt kvadrattal. Om så är fallet är polynomet faktoriserbart.
Den här övningen är en del av kursen
Sannolikhetspussel i R
Övningsinstruktioner
- Fyll i villkoret för att kontrollera om lösningarna till andragradsekvationen är imaginära.
- Skriv villkorssatsen som anger att nästa avsnitt bara ska köras när det föregående villkoret är
FALSE. - Returnera resultatet av kontrollen för om diskriminanten är ett perfekt kvadrattal, vilket innebär att andragradspolynomet är faktoriserbart.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
is_factorable <- function(a,b,c){
# Check whether solutions are imaginary
if(b^2 - 4*a*c ___){
return(FALSE)
# Designate when the next section should run
} ___ {
sqrt_discriminant <- sqrt(b^2 - 4*a*c)
# return TRUE if quadratic is factorable
return(___)
}
}