Here is an improved version of our program for finding the roots of a quadratic. Try it with some different values of a2, a1, and a0. # program spuRs/resources/scripts/quad2.r # find the zeros of a2*x^2 + a1*x + a0 = 0 # clear the workspace rm (list=1s()) #input a2 <- 1 a1 <- 4 a0 <- 5 # calculate the discriminant discrim <- a1^2 - 4*a2*a0 # calculate the roots depending on the value of the discriminant if (discrim > 0) { roots <-c( (-a1 + sqrt (a1^2 - 4*a2*a0))/(2*a2), (-a1 sqrt (a1^2-4*a2*a0))/(2*a2) ) } else { if (discrim == 0) { } else { } roots < -a1/(2*a2) - roots <-c() # output show (roots)
Here is an improved version of our program for finding the roots of a quadratic. Try it with some different values of a2, a1, and a0. # program spuRs/resources/scripts/quad2.r # find the zeros of a2*x^2 + a1*x + a0 = 0 # clear the workspace rm (list=1s()) #input a2 <- 1 a1 <- 4 a0 <- 5 # calculate the discriminant discrim <- a1^2 - 4*a2*a0 # calculate the roots depending on the value of the discriminant if (discrim > 0) { roots <-c( (-a1 + sqrt (a1^2 - 4*a2*a0))/(2*a2), (-a1 sqrt (a1^2-4*a2*a0))/(2*a2) ) } else { if (discrim == 0) { } else { } roots < -a1/(2*a2) - roots <-c() # output show (roots)
Database System Concepts
7th Edition
ISBN:9780078022159
Author:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Chapter1: Introduction
Section: Chapter Questions
Problem 1PE
Related questions
Question
![Here is an improved version of our program for finding the roots of a quadratic.
Try it with some different values of a2, a1, and a0.
# program spuRs/resources/scripts/quad2.r
# find the zeros of a2*x^2 + a1*x + a0 = 0
#clear the workspace
rm (list=1s())
# input
a2 < 1
al <- 4
a0 < - 5
# calculate the discriminant
discrim <- al^2 - 4*a2*a0
# calculate the roots depending on the value of the discriminant
if (discrim > 0) {
roots <-c( (-al+sqrt (a1^2 - 4*a2*a0))/(2*a2),
sqrt (a1^2 4*a2*a0))/(2*a2) )
} else {
}
(-a1
if (discrim = : 0) {
} else {
}
roots <-a1/(2*a2)
-
roots <-c()
# output
show (roots)](/v2/_next/image?url=https%3A%2F%2Fcontent.bartleby.com%2Fqna-images%2Fquestion%2F97fb5bb8-35fa-4cb4-bd4b-35f12808d5c6%2F02da0fff-77b3-4731-996d-5a96fbe894d2%2F53s8igp_processed.jpeg&w=3840&q=75)
Transcribed Image Text:Here is an improved version of our program for finding the roots of a quadratic.
Try it with some different values of a2, a1, and a0.
# program spuRs/resources/scripts/quad2.r
# find the zeros of a2*x^2 + a1*x + a0 = 0
#clear the workspace
rm (list=1s())
# input
a2 < 1
al <- 4
a0 < - 5
# calculate the discriminant
discrim <- al^2 - 4*a2*a0
# calculate the roots depending on the value of the discriminant
if (discrim > 0) {
roots <-c( (-al+sqrt (a1^2 - 4*a2*a0))/(2*a2),
sqrt (a1^2 4*a2*a0))/(2*a2) )
} else {
}
(-a1
if (discrim = : 0) {
} else {
}
roots <-a1/(2*a2)
-
roots <-c()
# output
show (roots)
Expert Solution
![](/static/compass_v2/shared-icons/check-mark.png)
This question has been solved!
Explore an expertly crafted, step-by-step solution for a thorough understanding of key concepts.
Step by step
Solved in 3 steps with 1 images
![Blurred answer](/static/compass_v2/solution-images/blurred-answer.jpg)
Knowledge Booster
Learn more about
Need a deep-dive on the concept behind this application? Look no further. Learn more about this topic, computer-science and related others by exploring similar questions and additional content below.Recommended textbooks for you
![Database System Concepts](https://www.bartleby.com/isbn_cover_images/9780078022159/9780078022159_smallCoverImage.jpg)
Database System Concepts
Computer Science
ISBN:
9780078022159
Author:
Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:
McGraw-Hill Education
![Starting Out with Python (4th Edition)](https://www.bartleby.com/isbn_cover_images/9780134444321/9780134444321_smallCoverImage.gif)
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
![Digital Fundamentals (11th Edition)](https://www.bartleby.com/isbn_cover_images/9780132737968/9780132737968_smallCoverImage.gif)
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
![Database System Concepts](https://www.bartleby.com/isbn_cover_images/9780078022159/9780078022159_smallCoverImage.jpg)
Database System Concepts
Computer Science
ISBN:
9780078022159
Author:
Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:
McGraw-Hill Education
![Starting Out with Python (4th Edition)](https://www.bartleby.com/isbn_cover_images/9780134444321/9780134444321_smallCoverImage.gif)
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
![Digital Fundamentals (11th Edition)](https://www.bartleby.com/isbn_cover_images/9780132737968/9780132737968_smallCoverImage.gif)
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
![C How to Program (8th Edition)](https://www.bartleby.com/isbn_cover_images/9780133976892/9780133976892_smallCoverImage.gif)
C How to Program (8th Edition)
Computer Science
ISBN:
9780133976892
Author:
Paul J. Deitel, Harvey Deitel
Publisher:
PEARSON
![Database Systems: Design, Implementation, & Manag…](https://www.bartleby.com/isbn_cover_images/9781337627900/9781337627900_smallCoverImage.gif)
Database Systems: Design, Implementation, & Manag…
Computer Science
ISBN:
9781337627900
Author:
Carlos Coronel, Steven Morris
Publisher:
Cengage Learning
![Programmable Logic Controllers](https://www.bartleby.com/isbn_cover_images/9780073373843/9780073373843_smallCoverImage.gif)
Programmable Logic Controllers
Computer Science
ISBN:
9780073373843
Author:
Frank D. Petruzella
Publisher:
McGraw-Hill Education