小中学校範囲の算数・数学の問題のスレ

小中学生の数学大好き少年少女！
ならびに小中学校範囲の算数・数学の問題で悩んでいる方！(年代を問わず)
小中学生に問題の意味がわかる問題があったら気軽にレスしてください。解法に制限はありません

これが後継スレ、Part 62ということでよいのでしょうか。
ありがとうございます。

長方形の紙を2枚重ねて端に画鋲をとめます。
そして上の紙と下の紙を画鋲を回転軸に直角にします。
そこから上の紙をΘ度回転させて固定したとき、上の紙と下の紙の辺が重なっている部分の長さを求める。

p:長辺の長さ
q:短辺の長さ
θ:回転角(°）

source('toolmini.R')
calc=\(p,q,θ=36){
heta=θ*pi/180
r=abs(p/2+1i*q/2)
Plot(-r,r)
A=p/2+1i*q/2
pta(A)
B=Conj(A)
pta(B)
C=-p/2-(q/2)*1i
pta(C)
D=Conj(C)
pta(D)
Polygon(A,B,C,D,Col=8,Lty=3)
theta=pi/5
a=A*exp(1i*theta)
pta(a)
b=B*exp(1i*theta)
pta(b)
c=C*exp(1i*theta)
pta(c)
d=D*exp(1i*theta)
#pta(d)
Polygon(a,b,c,d)
ADab=intsect(A,D,a,b)
#pta(ADab)
ADad=intsect(A,D,a,d)
#pta(ADad)
DCad=intsect(D,C,a,d)
#pta(DCad)
DCdc=intsect(D,C,d,c)
#pta(DCdc)
BCbc=intsect(B,C,b,c)
#pta(BCbc)
BCdc=intsect(B,C,d,c)
#pta(BCdc)
ABcb=intsect(A,B,c,b)
#pta(ABcb)
ABab=intsect(A,B,a,b)
#pta(ABab)
seg(ADab,ADad,col=2,lwd=2)
seg(DCad,DCdc,col=2,lwd=2)
seg(BCdc,BCbc,col=2,lwd=2)
seg(ABab,ABcb,col=2,lwd=2)

abs(ADab-ADad)+abs(DCad-DCdc)+abs(BCdc-BCbc)+abs(ABcb-ABab)
}