-
数学
-
小中学校範囲の算数・数学の問題のスレ
-
UPLIFTで広告なしで体験しましょう!快適な閲覧ライフをお約束します!
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
↑今すぐ読める無料コミック大量配信中!↑