Question

这很可能是重复的，但我似乎无法找到特定于我的问题的东西。

我在图片框中有一个xy网格。每个网格单元具有特定质量。我想根据质量在这个xy网格上创建轮廓线。

有没有人对一个好的算法有任何想法来执行这项任务？我试图在VB6中完成这个，但任何算法都可以。

修改

Contour Grid

我有一个网格。我想根据质量显示轮廓线（IE，其中有多个点的单元格质量会更重）

Answer 1

这个问题有点陈旧，但我的经历也是如此：差不多30年前我做过类似的事情。

这会在位图上生成简单的轮廓：

计算网格中每个点的场强（我假设你试图根据点的质量绘制重力场轮廓图）。
以两种交替颜色为轮廓线（您尚未获得）之间的替代空间着色。例如如果轮廓线应该是100个单位（场强），则根据ToInt(pixel_field_strength / 100) % 2选择每个像素的颜色。
跟踪颜色边界的边缘以产生轮廓。例如，如果您的两种颜色是白色和黑色，则只保留与黑色像素相邻的白色像素。

如果您只对结果感兴趣，请按照评论中的建议使用库。

纯粹为了怀旧，我找到了我原来的BBC BASIC代码。它仍然在modelb（BBC Micro仿真器）上运行。

   10 REM THIS COMES WITH NO WARRANTY!
   20  
   30 REM Gravity field
   40  
   50 MODE 1
   60 PROCsetup
   70 FOR Y%=300 TO 900 STEP 4
   80   FOR X%=200 TO 800 STEP 4
   90     R=LOG(FNforce(X%,Y%))
  100     GCOL0,((R*10) MOD 2)+1
  110     PLOT69,X%,Y%
  120     NEXT
  130   NEXT
  140 PROCcontour
  150 VDU19,1,0,0,0,0
  160 VDU19,2,0,0,0,0
  170 END
  180 DEFPROCsetup
  190 N%=5
  200 DIM X%(N%),Y%(N%),M%(N%)
  210 FOR P%=1 TO N%
  220   READ X%(P%),Y%(P%),M%(P%)
  230   NEXT
  240 ENDPROC
  250 DATA 625,625,1000000
  260 DATA 425,725,1000000
  270 DATA 475,425,1000000
  280 DATA 375,575,1000000
  290 DATA 725,525,1000000
  300 DEFFNforce(X,Y)
  310 P=0
  320 FOR P%=1 TO N%
  330   DX=X%(P%)-X:DY=Y%(P%)-Y
  340   R=SQR(DX*DX+DY*DY)
  350   P=P+M%(P%)/R
  360   NEXT
  370 =P
  380 DEFPROCcontour
  390 GCOL0,3
  400 FOR Y%=300 TO 900 STEP 4
  410   FOR X%=200 TO 800 STEP 4
  420     IF POINT(X%,Y%)=1 AND (POINT(X%+4,Y%)=2 OR POINT(X%-4,Y%)=2 OR POINT(X%,Y%+4)=2 OR POINT(X%,Y%-4)=2) THEN PLOT69,X%,Y% 
  430     NEXT
  440   NEXT
  450 ENDPROC

轮廓线算法

1 个答案: