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
icon
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)
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
steps

Step by step

Solved in 3 steps with 1 images

Blurred answer
Knowledge Booster
Arrays
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.
Similar questions
  • SEE MORE QUESTIONS
Recommended textbooks for you
Database System Concepts
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)
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
Digital Fundamentals (11th Edition)
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
C How to Program (8th Edition)
C How to Program (8th Edition)
Computer Science
ISBN:
9780133976892
Author:
Paul J. Deitel, Harvey Deitel
Publisher:
PEARSON
Database Systems: Design, Implementation, & Manag…
Database Systems: Design, Implementation, & Manag…
Computer Science
ISBN:
9781337627900
Author:
Carlos Coronel, Steven Morris
Publisher:
Cengage Learning
Programmable Logic Controllers
Programmable Logic Controllers
Computer Science
ISBN:
9780073373843
Author:
Frank D. Petruzella
Publisher:
McGraw-Hill Education