分享一个求解一元二次方程根的小程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

quad2<-function(a1,b1,c1){
  #求解一元二次方程的解a1*x^2+b1*x+c1=0
    if(a1==0&&b1==0&&c1==0){
      roots<-NA
       }else if(a1==0&&b1==0){
         roots<-NULL} else if(
           a1==0){
             roots<--c1/b1}else {
               discrim<-b1^2-4*a1*c1
               if(discrim>=0){
                 roots<-(-b1+c(1,-1)*sqrt(discrim))/(2*a1)
               }else {roots<-NULL}
             }
  return(roots)
}

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：一元二次方程 小程序 quad 程序