สร้างสามเหลี่ยมตามโจทย์ที่ให้มา
สร้างสามเหลี่ยมตามโจทย์ที่ให้มา
scn=RandomInstance[GeometricScene[{"A","B","C","D"},{Triangle[{"A","B","D"}],PlanarAngle[{"D","B","A"}]30Degree,EuclideanDistance["A","C"]EuclideanDistance["A","D"],Line[{"B","C","D"}],Line[{"A","C"}]}],RandomSeeding8]
In[]:=
Out[]=
คำนวณหามุมCAD
คำนวณหามุมCAD
cad=PlanarAngle["A"{"C","D"},"Interior"]/.(scn["Points"]);UnitConvert[Quantity[cad,"Radians"],"Degrees"]
In[]:=
Out[]=
เนื่องจากว่าไม่มีการกำหนดมุมBAD ดังนั้นมันจะมีความเป็นไปได้เยอะมาก
ทดลองสุ่มขึ้นมาสัก100แบบ
เนื่องจากว่าไม่มีการกำหนดมุมBAD ดังนั้นมันจะมีความเป็นไปได้เยอะมาก
ทดลองสุ่มขึ้นมาสัก100แบบ
ทดลองสุ่มขึ้นมาสัก100แบบ
ls=RandomInstance[GeometricScene[{"A","B","C","D"},{Triangle[{"A","B","D"}],PlanarAngle[{"D","B","A"}]30Degree,EuclideanDistance["A","C"]EuclideanDistance["A","D"],Line[{"B","C","D"}],Line[{"A","C"}]}],100];GraphicsGrid[Partition[ls,5]]
In[]:=
Out[]=
มุมCADจาก100แบบที่สุ่มขึ้นมา
มุมCADจาก100แบบที่สุ่มขึ้นมา
angs=UnitConvert[Quantity[PlanarAngle["A"{"C","D"},"Interior"]/.(#["Points"]),"Radians"],"Degrees"]&/@ls
In[]:=
{,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,}
Out[]=
ดูการกระจายตัวของมุมCAD
ดูการกระจายตัวของมุมCAD
ListPlot[angs,PlotRange{0,Automatic},FrameTrue,GridLinesAutomatic]
In[]:=
Out[]=
ตัวอย่างของสามเหลี่ยนมที่มุม CADน้อยที่สุดและมากที่สุดจาก100แบบที่สุ่มมา
ตัวอย่างของสามเหลี่ยนมที่มุม CADน้อยที่สุดและมากที่สุดจาก100แบบที่สุ่มมา
ls[[{Position[angs,Min[angs]]//Flatten//First,Position[angs,Max[angs]]//Flatten//First}]]
In[]:=
,
Out[]=
ลองกำหนดให้มุมBADเป็น90องศา
ลองกำหนดให้มุมBADเป็น90องศา
scn90=RandomInstance[GeometricScene[{"A","B","C","D"},{Triangle[{"A","B","D"}],PlanarAngle[{"D","B","A"}]30Degree,PlanarAngle[{"B","A","D"}]90Degree,EuclideanDistance["A","C"]EuclideanDistance["A","D"],Line[{"B","C","D"}],Line[{"A","C"}]}]]
In[]:=
Out[]=
มุมCADที่ได้คือ60องศา
มุมCADที่ได้คือ60องศา
cad=PlanarAngle["A"{"C","D"},"Interior"]/.(scn90["Points"]);UnitConvert[Quantity[cad,"Radians"],"Degrees"]
In[]:=
Out[]=
scn90=RandomInstance[GeometricScene[{"A","B","C","D"},{Triangle[{"A","B","D"}],PlanarAngle[{"D","B","A"}]30Degree,PlanarAngle[{"B","A","D"}]90Degree,EuclideanDistance["A","C"]EuclideanDistance["A","D"],Line[{"B","C","D"}],Line[{"A","C"}]}],10]
In[]:=
,
,
,
,
,
,
,
,
,
Out[]=
UnitConvert[Quantity[PlanarAngle["A"{"C","D"},"Interior"]/.(#["Points"]),"Radians"],"Degrees"]&/@scn90
In[]:=
{,,,,,,,,,}
Out[]=