小中学校範囲の算数・数学の問題のスレ (139ﾚｽ)
上下前次1-新

---

7: 2024/12/21(土) 14:20:52.47 ID:f7LXyG5q(3/5)調 AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
7: [sage] 2024/12/21(土) 14:20:52.47 ID:f7LXyG5q Wolframへの移植完成！ solve[L_,S_,θ_]:=( pA=S/2+I*S/2; pB=-(L-S/2)+I*S/2; pC=Conjugate[pB]; pD=Conjugate[pA]; pP=-S/2+I*S/2; pQ=-S/2-(L-S/2)*I; pR=S/2-(L-S/2)*I; theta=Pi/180*θ; ro=E^(I*theta); a=pA*ro; b=pB*ro; c=pC*ro; d=pD*ro; line1={{Re[pP],Im[pP]},{Re[pQ],Im[pQ]}}; line2={{Re[c],Im[c]},{Re[d],Im[d]}}; pI=ResourceFunction["LineIntersection"][line1,line2]; line3={{Re[pC],Im[pC]},{Re[pD],Im[pD]}}; line4={{Re[a],Im[a]},{Re[b],Im[b]}}; pJ=ResourceFunction["LineIntersection"][line3,line4]; tate=Simplify@EuclideanDistance[{Re[pP],Im[pP]},pI]; yoko=Simplify@EuclideanDistance[pJ,{Re[pD],Im[pD]}]; {tate,yoko} ) solve[20,6,33] % // N http://rio2016.5ch.net/test/read.cgi/math/1734324426/7
への移植完成！

---

上下前次1-新書関写板覧索設栞歴

---

あと 132 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.022s