สร้างสามเหลี่ยมตามโจทย์ที่ให้มา
สร้างสามเหลี่ยมตามโจทย์ที่ให้มา
In[]:=
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]
Out[]=
คำนวณหามุมCAD
คำนวณหามุมCAD
In[]:=
cad=PlanarAngle["A"{"C","D"},"Interior"]/.(scn["Points"]);UnitConvert[Quantity[cad,"Radians"],"Degrees"]
Out[]=
เนื่องจากว่าไม่มีการกำหนดมุมBAD ดังนั้นมันจะมีความเป็นไปได้เยอะมาก
ทดลองสุ่มขึ้นมาสัก100แบบ
เนื่องจากว่าไม่มีการกำหนดมุมBAD ดังนั้นมันจะมีความเป็นไปได้เยอะมาก
ทดลองสุ่มขึ้นมาสัก100แบบ
ทดลองสุ่มขึ้นมาสัก100แบบ
In[]:=
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]]
Out[]=
มุมCADจาก100แบบที่สุ่มขึ้นมา
มุมCADจาก100แบบที่สุ่มขึ้นมา
ดูการกระจายตัวของมุมCAD
ดูการกระจายตัวของมุมCAD
ตัวอย่างของสามเหลี่ยนมที่มุม CADน้อยที่สุดและมากที่สุดจาก100แบบที่สุ่มมา
ตัวอย่างของสามเหลี่ยนมที่มุม CADน้อยที่สุดและมากที่สุดจาก100แบบที่สุ่มมา
ลองกำหนดให้มุมBADเป็น90องศา
ลองกำหนดให้มุมBADเป็น90องศา
มุมCADที่ได้คือ60องศา
มุมCADที่ได้คือ60องศา