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)分布条状图”) http://127.0.0.1:41743/graphics/7a4256cc-d77c-4c2a-81f5-d61348a00ebe.png

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