求

×

A = (0, 0)
B = (5, -2)
C = (5, 2)
D: B + C - A
a = 14 (slider from 1 to 20, step 1)
b = 11 (slider from 1 to 30, step 1)
InputBox1 = Textfield(a)
InputBox2 = Textfield(b)
a1 = Div(a, 10)
a2 = Mod(a, 10)
b1 = Div(b, 10)
b2 = Mod(b, 10)
g: 1
list1 = Sequence(Translate[Line[A, B], ((k * g), 0)], k, 0, a1 - 1)
list3 = Sequence(Translate[Line[A, C], ((k * g), 0)], k, 0, b1 - 1)
list4 = Sequence(Translate[Line[B, D], ((k * g), 0)], k, 0, b2 - 1)
list2 = Sequence(Translate[Line[C, D], ((k * g), 0)], k, 0, a2 - 1)
bai = Flatten(Zip[Zip[Intersect[p, q], p, list1], q, list3])
shi1 = Flatten(Zip[Zip[Intersect[p, q], p, list2], q, list3])
shi2 = Flatten(Zip[Zip[Intersect[p, q], p, list1], q, list4])
ge = Flatten(Zip[Zip[Intersect[p, q], p, list2], q, list4])
E = (0, -2)
F = (0, 1.78)
G = Point(list1)
c = Ellipse(E, F, G)
H = (5.2, 3.32)
I = (5.36, -3.36)
J = (6.38, -4.24)
d = Ellipse(H, I, J)
K = (10.8, 1.34)
L = (10.82, -1.48)
M = (11.68, -2.3)
e = Ellipse(K, L, M)
text1: "" + (Length[bai]) + ""
text2: "" + (Length[shi1] + Length[shi2]) + ""
text3: "" + (Length[ge]) + ""