生成一個隨機數與最大值，最小值和平均值（平均值）在視覺基礎 - 三角dist

Question

我期待看看我可以創建一個三角分佈使用3個數字的最小值（40）最大值（330）和平均值（100 ）。

這段代碼只給我2號的隨機性和不攜帶平均：

z = =RAND()*(b-a)+a 

我怎樣才能使一個三角形DIST。 ？

Answer 1

更正爲每@Severin Pappadeux

Function trigDist(dMIn As Double, dMax As Double, dMean As Double) As Double 

    Dim dFR   As Double 
    Dim bProceed As Boolean 

    bProceed = True 

    '/ error checks    

    If dMIn >= dMax Then 
     MsgBox "max value less than min value." 
     bProceed = False 
    End If 

    If dMean < dMIn Then 
     MsgBox "Mean is less than min value." 
     bProceed = False 
    End If 

    If dMean > dMax Then 
     MsgBox "Mean is larger than max value." 
     bProceed = False 
    End If 


    If bProceed Then 

     dFR = Rnd() 

     If dFR < ((dMean - dMIn)/(dMax - dMIn)) Then 
      trigDist = Sqr(dFR * (dMean - dMIn) * (dMax - dMIn)) + dMIn 
     Else 
      trigDist = dMax - Sqr((1 - dFR) * (dMax - dMean) * (dMax - dMIn)) 
     End If 
    Else 

     trigDist = 0 
    End If 

End Function 

Answer 2

顯然，通過@cyboashu答案是錯的，因爲你有Min，Max和Mean。

因此，您從輸入中恢復A，B，C開始，使用here這一事實，意思是等於(A+B+C)/3。不瞭解足夠的VBA，請耐心等待

A = Min 
B = Max 
C = 3.0*Mean - A - B 

If A >= B Then 
    print 'Error, Min is greater than Max' 
End If 

If C < A Then 
    print 'Error, Mean is too small' 
End If 

If C > B Then 
    print 'Error, Mean is too large' 
End If 

r = Rnd() 

If r < ((C - A)/(B - A)) Then 
    Res = A + Sqr(r * (B - A) * (C - A)) 
Else 
    Res = B - Sqr((1.0 - r) * (B - A) * (B - C)) 
End If 

return Res