如题假如已经知道了一个分布，如何求出其对应分成N份离散的直方图的面积（即概率），
我自己试了一下，一开始的着眼点不是求直方图而是直接求间距之间的面积，但有个问题就是两个尾部的面积偏大（甚至大于均值附近的面积）因为包含了比较长的延伸。

因此现在想改为直方图求解的逻辑，但是不知道如何执行。下面也附上我直接求间距面积的代码。简单的说就是想求如图所示的直方图上每一条的面积，最后还能保证总体面积是100%，谢谢！
MEAN=10
   SD=3
   n=2*SD
   MEAN_SD =MEAN-SD
   for (i in 0:n)
   {
   Result <- pnorm(MEAN_SD+(i+0.5), mean=MEAN, sd =SD)-pnorm(MEAN_SD+(i-0.5), mean=MEAN, sd =SD)
   cat('section',i,':', Result,'\n')
   }
  section1 <- pnorm(MEAN_SD+0.5, mean=MEAN, sd =SD)
  section1
  Q100 <- qnorm(1,mean=MEAN, sd=SD)
  sectionN <- pnorm(Q100, mean=MEAN, sd =SD)-pnorm(MEAN+SD-0.5, mean=MEAN, sd =SD)
  sectionN