#1.射手向目标独立地进行了3次射击，每次击中率为0.8，求3次射击中至少击中2次的概率。 ##由于题目要求是三次至少击中两次，可以计算P(X=2),P(X=3)的概率加和。 p1= dbinom(2,3,0.8);p2 = dbinom(3,3,0.8) P = p1+p2 ##或者可以使用逆概率:1-P(X<=1)的方法。 P=1-pbinom(1,3,0.8) #对于题目1二项分布的绘图如下: x=seq(0,3,1) pmf=dbinom(x,3,0.8) plot(x,pmf,type=“h”,main=“X~B(3,0.8)分布条状图”)
#2.#某地某天下雪的概率为0.3，下雨的概率为0.5，既下雨又下雪的概率为0.1，求： #2.1在下雨的条件下下雪的概率为？ #2.2这天下雨或下雪的概率为？
##2.1： snow_only <- 0.3 rain_only <- 0.5 snow_and_rain <- 0.1 probability_rain_given_snow <- snow_and_rain/ rain_only print(paste(“在已知下雨的情况下下雪的概率为:”, probability_rain_given_snow)) ##2.2： # 定义已知的概率值 snow_prob <- 0.3 rain_prob <- 0.5 snow_rain_prob <- 0.1 # 计算下雨或下雪的概率 RainOrSnow_prob <- rain_prob + snow_prob - snow_rain_prob # 输出结果 print(paste(“这天下雨或下雪的概率为:”, RainOrSnow_prob))