WOLFRAM NOTEBOOK

สร้างสามเหลี่ยมตามโจทย์ที่ให้มา

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

In[]:=
cad=PlanarAngle["A"{"C","D"},"Interior"]/.(scn["Points"]);​​UnitConvert[Quantity[cad,"Radians"],"Degrees"]
Out[]=
76.1251
°

เนื่องจากว่าไม่มีการกำหนดมุมBAD ดังนั้นมันจะมีความเป็นไปได้เยอะมาก
ทดลองสุ่มขึ้นมาสัก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

ตัวอย่างของสามเหลี่ยนมที่มุม CADน้อยที่สุดและมากที่สุดจาก100แบบที่สุ่มมา

ลองกำหนดให้มุมBADเป็น90องศา

มุมCADที่ได้คือ60องศา

Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.