[分享]絕對(duì)隨機(jī)網(wǎng)點(diǎn)分布（excel之vba） [復(fù)制鏈接]

想學(xué)習(xí)的請(qǐng)研究下，直接給程序就沒意思了，由于公司想做一套導(dǎo)光板的模具，沒有現(xiàn)成的軟件可用，就自己做了較簡單的程序，雖然簡單，但基本功能已經(jīng)滿足了導(dǎo)光板網(wǎng)點(diǎn)設(shè)計(jì)的要求；具備功能：任意多邊形區(qū)域；含有光軸，且可以根據(jù)光源調(diào)整；網(wǎng)點(diǎn)密度可沿光軸方向調(diào)整，效果圖如下： B;vpG?s{9  
' ?4\  

描述:請(qǐng)輸入描述

圖片:2.jpg

=qJlSb  

關(guān)鍵點(diǎn)說幾個(gè)： \yE*nZ  
1.區(qū)域是由點(diǎn)圍成的，所以EXCEL中需要定義點(diǎn)的坐標(biāo)（區(qū)域） =Hd+KvA  
2.需要定義光軸的方向；簡便的方法就是指定光源坐標(biāo)，及網(wǎng)點(diǎn)區(qū)域坐標(biāo)，這樣光軸就確定了 #0*oj/  
3.網(wǎng)點(diǎn)區(qū)域密度可調(diào)；把區(qū)域分成若干小塊，每塊的密度不同即可 BJDSk#!J!{  

以下是幾個(gè)重要的函數(shù)： PK&\pkX  
1.判斷點(diǎn)在區(qū)域中函數(shù) %7v!aJ40  
2.計(jì)算夾角函數(shù) H/^t]bg,  
3.轉(zhuǎn)置函數(shù) =M],5<2;  
4.得到區(qū)域中心點(diǎn)，及區(qū)域半徑函數(shù) ]r(&hqdR  
5.再有就是若干個(gè)點(diǎn)抽取其中一部分；或者采用隨機(jī)分布（該方法會(huì)有重合點(diǎn)，所以沒采用） \c\z 6;j  
6.文件開啟與關(guān)閉，這個(gè)最常見了，就不說了

'計(jì)算夾角函數(shù) QB<~+dW  
Function ff_angle(x1 As Single, y1 As Single, x2 As Single, y2 As Single, x3 As Single, y3 As Single) As Single Q35D7wo'}  
   cax = x2 - x1 le150;7  
   cay = y2 - y1 iOdk)  
   cbx = x2 - x3 ] L6LB\  
   cby = y2 - y3 *%n(t+'q  
   mo_jj = cax * cbx + cay * cby s?7"iE  
   mo_ca = Sqr(cax * cax + cay * cay) E#VF7 9L  
   mo_cb = Sqr(cbx * cbx + cby * cby) |0nt u+  
   cos_acb = mo_jj / (mo_ca * mo_cb) ~[Z,:=z  
   'ff_cos = cos_acb .YlhK=d4  
   If cos_acb >= 1 Then giHWC%/  
   nn = 0 *q*$%H  
   ElseIf cos_acb <= -1 Then \q
kb8H  
   nn = 3.14159265258979 V|vXxWm/  
   Else ]-{A"tJ  
   nn = Atn(-cos_acb / Sqr(-cos_acb * cos_acb + 1)) + 2 * Atn(1) D}OhmOu3  
   End If >9Z7l63+}  
   'ff_angle = nn 2v`Q;%7O  
   ff_angle = nn * 180 / 3.14159265258979 K)#6&\0tT  
End Function

'判斷點(diǎn)在區(qū)域內(nèi)函數(shù) `4-m$ab  
Function point_in(p1x As Single, p1y As Single, p2x As Single, p2y As Single, p3x As Single, p3y As Single, p4x As Single, p4y As Single, ppx As Single, ppy As Single) As Boolean =\IUBH+C  
Dim aob, boc, cod, doa, sum As Single }$` PZUw>  
  If ppx = p1x And ppy = p1y Then 8|~