$\Large面积:%vcm^2$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large\bf显示周长$

 探索长方形周长变化规律

请试着拖动

s = 24 (slider from 12 to 24, step 2)
A1: (0, 0)
A2: A1 + (s + 2, 0)
A3: A2 + (s + 2, 0)
A4: A3 + (s + 2, 0)
B1, C1, D1, E1, F1, G1, H1, I1, J1, K1, L1 = 定面积矩形(A1, s)
B2, C2, D2, E2, F2, G2, H2, I2, J2, K2, L2 = 定面积矩形(A2, s)
B3, C3, D3, E3, F3, G3, H3, I3, J3, K3, L3 = 定面积矩形(A3, s)
B4, C4, D4, E4, F4, G4, H4, I4, J4, K4, L4 = 定面积矩形(A4, s)
l3': (2 * ({G1, G2, G3, G4} + {H1, H2, H3, H4}))
a = true
l = Append("长方形", 1…Length[K1])
l0 = Append("面积(cm^2) ", Sequence["\textcolor{red}{" + s + "}", k, 1, Length[K1]])
l1 = Append("长(cm)", Take[{G1, G2, G3, G4}, 1, Length[K1]])
l2 = Append("宽(cm)", Take[{H1, H2, H3, H4}, 1, Length[K1]])
l3 = Append("周长(cm)", If[a, Take[l3', 1, Length[K1]], {}])
text1 = TableText(l, l0, l1, l2, l3, "vc_|")
A = (72.23868206406998, -12.952154360860346)
B = (58.545608448441044, 3.658091165440281)
C = (72.65980551581386, 3.658091165440281)

Tool: 定面积矩形
请输入：左下顶点、面积
Input: A0, s
Output: A, A0', B, C, D, g, h, i, j, l1, q1

$\Large%v$

$\Large%v$

A0: (0, 0)
A0': A0 + (1, 0)
A = Point(Segment[A0, A0'], 0)
l1 = RemoveUndefined(Sequence[If[Mod[s, k] ≟ 0, A + (Div[s, k], 0)], k, 1, sqrt(s)])
B = Point(l1)
C: B + (0, s / abs(x(A) - x(B)))
D: A + (0, s / abs(x(A) - x(B)))
q1, g, h, i, j = Polygon(A, B, C, D)