Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
QuantumMob`DrawingTools`
InPolygonQ  |
|
| | ||||
Examples
(1)
Basic Examples
(1)
In[1]:=
poly={{0,4},{7,4},{7,-3},{-2,-3},{0,2},{5,2},{3,-2},{-4,3},{-5,0},{-3,-3},{0,4}};pts={{-3,-1},{5,3},{2,1},{-2,4},{-1.85,-1.5},{-0.6,1.5}};Graphics[{Polygon@poly,Red,PointSize[0.02],Point/@pts,MapThread[Text[Framed[#1],#2,-{1,1}]&,{Range@Length@pts,pts}]},PlotRangePadding1]
Out[1]=
In[2]:=
more={poly〚2〛,0.27poly〚2〛+0.73poly〚3〛};Graphics[{Polygon@poly,PointSize[0.02],Red,Point/@pts,MapThread[Text[Framed[#1],#2,-{1,1}]&,{Range@Length@pts,pts}],Blue,Point/@more},PlotRangePadding1]
Out[2]=
In[3]:=
 | OnBoundaryQ |
Out[3]=
{False,False,False,False,False,False,True,True}
In[4]:=
| InPolygonQ |
Out[4]=
{True,True,True,False,False,True,True,True}
 |
|
 |
|
""