Comprueba

F = (5.64, 0.1)
D = (4.12, -3.1)
G = (11.36, 2.7)
ex = 1 (slider from 0.6 to 2, step 0.05)
e = 2.718281828459045
d = Line(D, G)
c = OrthogonalLine(F, d)
A = Intersect(d, c)
B = Point(c)
f = Circle(F, (ex * Distance[A, B]))
g = Line(B, d)
E, H = Intersect(f, g)
lugar1 = Locus(H, B)
I = Point(lugar1)
J = Point(lugar1)
lugar2 = Locus(E, B)
K = Point(lugar2)
escena = 4 (slider from 1 to 4, step 1)
A1 = 1
A2 = 2
A3: (2 * A2) - A1
A4: (2 * A3) - A2
A5: (2 * A4) - A3
A6: (2 * A5) - A4
A7: (2 * A6) - A5
A8: (2 * A7) - A6
A9: (2 * A8) - A7
A10: (2 * A9) - A8
A11: (2 * A10) - A9
A12: (2 * A11) - A10
A13: (2 * A12) - A11
A14: (2 * A13) - A12
A15: (2 * A14) - A13
A16: (2 * A15) - A14
A17: (2 * A16) - A15
A18: (2 * A17) - A16
A19: (2 * A18) - A17
A20: (2 * A19) - A18
A21: (2 * A20) - A19
A22: (2 * A21) - A20
A23: (2 * A22) - A21
A24: (2 * A23) - A22
A25: (2 * A24) - A23
A26: (2 * A25) - A24
A27: (2 * A26) - A25
A28: (2 * A27) - A26
A29: (2 * A28) - A27
A30: (2 * A29) - A28
A31: (2 * A30) - A29
A32: (2 * A31) - A30
A33: (2 * A32) - A31
A34: (2 * A33) - A32
A35: (2 * A34) - A33
A36: (2 * A35) - A34
A37: (2 * A36) - A35
A38: (2 * A37) - A36
A39: (2 * A38) - A37
A40: (2 * A39) - A38
A41: (2 * A40) - A39
A42: (2 * A41) - A40
A43: (2 * A42) - A41
A44: (2 * A43) - A42
A45: (2 * A44) - A43
A46: (2 * A45) - A44
A47: (2 * A46) - A45
A48: (2 * A47) - A46
A49: (2 * A48) - A47
A50: (2 * A49) - A48
A51: (2 * A50) - A49
A52: (2 * A51) - A50
A53: (2 * A52) - A51
A54: (2 * A53) - A52
A55: (2 * A54) - A53
A56: (2 * A55) - A54
A57: (2 * A56) - A55
A58: (2 * A57) - A56
A59: (2 * A58) - A57
A60: (2 * A59) - A58
A61: (2 * A60) - A59
A62: (2 * A61) - A60
A63: (2 * A62) - A61
A64: (2 * A63) - A62
A65: (2 * A64) - A63
A66: (2 * A65) - A64
A67: (2 * A66) - A65
A68: (2 * A67) - A66
A69: (2 * A68) - A67
A70: (2 * A69) - A68
A71: (2 * A70) - A69
A72: (2 * A71) - A70
A73: (2 * A72) - A71
A74: (2 * A73) - A72
A75: (2 * A74) - A73
A76: (2 * A75) - A74
A77: (2 * A76) - A75
A78: (2 * A77) - A76
A79: (2 * A78) - A77
A80: (2 * A79) - A78
A81: (2 * A80) - A79
A82: (2 * A81) - A80
A83: (2 * A82) - A81
A84: (2 * A83) - A82
A85: (2 * A84) - A83
A86: (2 * A85) - A84
A87: (2 * A86) - A85
A88: (2 * A87) - A86
A89: (2 * A88) - A87
A90: (2 * A89) - A88
A91: (2 * A90) - A89
A92: (2 * A91) - A90
A93: (2 * A92) - A91
A94: (2 * A93) - A92
A95: (2 * A94) - A93
A96: (2 * A95) - A94
A97: (2 * A96) - A95
A98: (2 * A97) - A96
A99: (2 * A98) - A97
A100: (2 * A99) - A98
A101: (2 * A100) - A99
A102: (2 * A101) - A100
A103: (2 * A102) - A101
A104: (2 * A103) - A102
A105: (2 * A104) - A103
A106: (2 * A105) - A104
A107: (2 * A106) - A105
A108: (2 * A107) - A106
A109: (2 * A108) - A107
A110: (2 * A109) - A108
A111: (2 * A110) - A109
A112: (2 * A111) - A110
A113: (2 * A112) - A111
A114: (2 * A113) - A112
A115: (2 * A114) - A113
A116: (2 * A115) - A114
A117: (2 * A116) - A115
A118: (2 * A117) - A116
A119: (2 * A118) - A117
A120: (2 * A119) - A118
A121: (2 * A120) - A119
A122: (2 * A121) - A120
A123: (2 * A122) - A121
A124: (2 * A123) - A122
A125: (2 * A124) - A123
A126: (2 * A125) - A124
A127: (2 * A126) - A125
A128: (2 * A127) - A126
A129: (2 * A128) - A127
A130: (2 * A129) - A128
A131: (2 * A130) - A129
A132: (2 * A131) - A130
A133: (2 * A132) - A131
A134: (2 * A133) - A132
A135: (2 * A134) - A133
A136: (2 * A135) - A134
A137: (2 * A136) - A135
A138: (2 * A137) - A136
A139: (2 * A138) - A137
A140: (2 * A139) - A138
A141: (2 * A140) - A139
A142: (2 * A141) - A140
A143: (2 * A142) - A141
A144: (2 * A143) - A142
A145: (2 * A144) - A143
A146: (2 * A145) - A144
A147: (2 * A146) - A145
A148: (2 * A147) - A146
A149: (2 * A148) - A147
A150: (2 * A149) - A148
A151: (2 * A150) - A149
A152: (2 * A151) - A150
A153: (2 * A152) - A151
A154: (2 * A153) - A152
A155: (2 * A154) - A153
A156: (2 * A155) - A154
A157: (2 * A156) - A155
A158: (2 * A157) - A156
A159: (2 * A158) - A157
A160: (2 * A159) - A158
A161: (2 * A160) - A159
A162: (2 * A161) - A160
A163: (2 * A162) - A161
A164: (2 * A163) - A162
A165: (2 * A164) - A163
A166: (2 * A165) - A164
A167: (2 * A166) - A165
A168: (2 * A167) - A166
A169: (2 * A168) - A167
A170: (2 * A169) - A168
A171: (2 * A170) - A169
A172: (2 * A171) - A170
A173: (2 * A172) - A171
A174: (2 * A173) - A172
A175: (2 * A174) - A173
A176: (2 * A175) - A174
A177: (2 * A176) - A175
A178: (2 * A177) - A176
A179: (2 * A178) - A177
A180: (2 * A179) - A178
A181: (2 * A180) - A179
A182: (2 * A181) - A180
A183: (2 * A182) - A181
A184: (2 * A183) - A182
A185: (2 * A184) - A183
A186: (2 * A185) - A184
A187: (2 * A186) - A185
A188: (2 * A187) - A186
A189: (2 * A188) - A187
A190: (2 * A189) - A188
A191: (2 * A190) - A189
A192: (2 * A191) - A190
A193: (2 * A192) - A191
A194: (2 * A193) - A192
A195: (2 * A194) - A193
A196: (2 * A195) - A194
A197: (2 * A196) - A195
A198: (2 * A197) - A196
A199: (2 * A198) - A197
A200: (2 * A199) - A198
A201: (2 * A200) - A199
A202: (2 * A201) - A200
A203: (2 * A202) - A201
A204: (2 * A203) - A202
A205: (2 * A204) - A203
A206: (2 * A205) - A204
A207: (2 * A206) - A205
A208: (2 * A207) - A206
A209: (2 * A208) - A207
A210: (2 * A209) - A208
A211: (2 * A210) - A209
A212: (2 * A211) - A210
A213: (2 * A212) - A211
A214: (2 * A213) - A212
A215: (2 * A214) - A213
A216: (2 * A215) - A214
A217: (2 * A216) - A215
A218: (2 * A217) - A216
A219: (2 * A218) - A217
A220: (2 * A219) - A218
A221: (2 * A220) - A219
A222: (2 * A221) - A220
A223: (2 * A222) - A221
A224: (2 * A223) - A222
A225: (2 * A224) - A223
A226: (2 * A225) - A224
A227: (2 * A226) - A225
A228: (2 * A227) - A226
A229: (2 * A228) - A227
A230: (2 * A229) - A228
A231: (2 * A230) - A229
A232: (2 * A231) - A230
A233: (2 * A232) - A231
A234: (2 * A233) - A232
A235: (2 * A234) - A233
A236: (2 * A235) - A234
A237: (2 * A236) - A235
A238: (2 * A237) - A236
A239: (2 * A238) - A237
A240: (2 * A239) - A238
A241: (2 * A240) - A239
A242: (2 * A241) - A240
A243: (2 * A242) - A241
A244: (2 * A243) - A242
A245: (2 * A244) - A243
A246: (2 * A245) - A244
A247: (2 * A246) - A245
A248: (2 * A247) - A246
A249: (2 * A248) - A247
A250: (2 * A249) - A248
A251: (2 * A250) - A249
A252: (2 * A251) - A250
A253: (2 * A252) - A251
A254: (2 * A253) - A252
A255: (2 * A254) - A253
A256: (2 * A255) - A254
A257: (2 * A256) - A255
A258: (2 * A257) - A256
A259: (2 * A258) - A257
A260: (2 * A259) - A258
A261: (2 * A260) - A259
A262: (2 * A261) - A260
A263: (2 * A262) - A261
A264: (2 * A263) - A262
A265: (2 * A264) - A263
A266: (2 * A265) - A264
A267: (2 * A266) - A265
A268: (2 * A267) - A266
A269: (2 * A268) - A267
A270: (2 * A269) - A268
A271: (2 * A270) - A269
A272: (2 * A271) - A270
A273: (2 * A272) - A271
A274: (2 * A273) - A272
A275: (2 * A274) - A273
A276: (2 * A275) - A274
A277: (2 * A276) - A275
A278: (2 * A277) - A276
A279: (2 * A278) - A277
A280: (2 * A279) - A278
A281: (2 * A280) - A279
A282: (2 * A281) - A280
A283: (2 * A282) - A281
A284: (2 * A283) - A282
A285: (2 * A284) - A283
A286: (2 * A285) - A284
A287: (2 * A286) - A285
A288: (2 * A287) - A286
A289: (2 * A288) - A287
A290: (2 * A289) - A288
comprobar = false
b = LineBisector(F, G)
L = (-2.2600000000000002, 2.62)
lista1: {Polygon[L, L - (20, 0), L + (-20, 20), L + (0, 20)]}
texto1: "e = " + ex
j = OrthogonalLine(F, d)
C = Intersect(j, d)
P = Point(lugar1)
h = Segment(F, P)
i = OrthogonalLine(P, d)
M = Intersect(i, d)
k = Segment(P, M)