R语言求解方程实根

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问ax2+bx+c=0这个方程实根怎么表示呢？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 解方程

表示实根？这个应该是初一的数学吧？

1. get_root <- function(a,b,c){
   
2.   delta <- b^2-4*a*c
   
3.   if(delta < 0)
   
4.     return(print('no real root'))
   
5.   
   
6.   x1 <- (-b + sqrt(delta))/(2 * a)
   
7.   x2 <- (-b - sqrt(delta))/(2 * a)
   
8.   
   
9.   return(c(x1, x2))
   
10. }
    
11. 
    
12. get_prob <- function(n_sim){
    
13.   a <- runif(n_sim, 1, 5)
    
14.   b <- rnorm(n_sim, 3, 10)
    
15.   c <- rexp(n_sim, rate = 1) # mean is 1/rate
    
16.   return(sum(b^2-4*a*c >= 0)/n_sim)
    
17. }

复制代码