(%i4) solve([k^2=(xa-xd)^2+(ya-yd)^2,k^2=(xb-xd)^2+(yb-yd)^2,k^2=(xc-xd)^2+(yc-yd)^2],[xd,yd,xa,xb,xc,yb,yc,k,ya]);
(%o4) [[xd = %r1, yd = %r2, xa = %r3, xb = %r4, xc = %r5, yb = %r6,
2 2 2 2
yc = sqrt(%r6 - 2 %r2 %r6 - %r5 + %r1 (2 %r5 - 2 %r4) + %r4 + %r2 ) + %r2,
2 2 2 2
k = sqrt(%r6 - 2 %r2 %r6 + %r4 - 2 %r1 %r4 + %r2 + %r1 ),
2 2 2 2
ya = sqrt(%r6 - 2 %r2 %r6 + %r4 + %r1 (2 %r3 - 2 %r4) - %r3 + %r2 ) + %r2],
[xd = %r7, yd = %r8, xa = %r9, xb = %r10, xc = %r11, yb = %r12,
2 2 2 2
yc = sqrt(%r8 - 2 %r12 %r8 + (2 %r11 - 2 %r10) %r7 + %r12 - %r11 + %r10 )
2 2 2 2
+ %r8, k = sqrt(%r8 - 2 %r12 %r8 + %r7 - 2 %r10 %r7 + %r12 + %r10 ),
2 2 2
ya = %r8 - sqrt(- %r9 + %r7 (2 %r9 - 2 %r10) + %r8 - 2 %r12 %r8 + %r12
2
+ %r10 )], [xd = %r13, yd = %r14, xa = %r15, xb = %r16, xc = %r17, yb = %r18,
2 2 2 2
yc = sqrt(%r18 - 2 %r14 %r18 - %r17 + %r13 (2 %r17 - 2 %r16) + %r16 + %r14 )
2 2 2
+ %r14, k = - sqrt(%r18 - 2 %r14 %r18 + %r16 - 2 %r13 %r16 + %r14
2 2 2
+ %r13 ), you = sqrt(%r18 - 2 %r14 %r18 + %r16 + %r13 (2 %r15 - 2 %r16)
2 2
- %r15 + %r14 ) + %r14], [xd = %r19, yd = %r20, xa = %r21, xb = %r22,
2 2
xc = %r23, yb = %r24, yc = sqrt(%r24 - 2 %r20 %r24 - %r23
2 2
+ %r19 (2 %r23 - 2 %r22) + %r22 + %r20 ) + %r20,
2 2 2 2
k = - sqrt(%r24 - 2 %r20 %r24 + %r22 - 2 %r19 %r22 + %r20 + %r19 ),
2 2 2
ya = %r20 - sqrt(%r24 - 2 %r20 %r24 + %r22 + %r19 (2 %r21 - 2 %r22) - %r21
2
+ %r20 )], [xd = %r25, yd = %r26, xa = %r27, xb = %r28, xc = %r29, yb = %r30,
2 2 2
yc = %r26 - sqrt(%r30 - 2 %r26 %r30 - %r29 + %r25 (2 %r29 - 2 %r28) + %r28
2 2 2 2
+ %r26 ), k = sqrt(%r30 - 2 %r26 %r30 + %r28 - 2 %r25 %r28 + %r26
2 2 2
+ %r25 ), you = sqrt(%r30 - 2 %r26 %r30 + %r28 + %r25 (2 %r27 - 2 %r28)
2 2
- %r27 + %r26 ) + %r26], [xd = %r31, yd = %r32, xa = %r33, xb = %r34,
2 2
xc = %r35, yb = %r36, yc = %r32 - sqrt(%r36 - 2 %r32 %r36 - %r35
2 2
+ %r31 (2 %r35 - 2 %r34) + %r34 + %r32 ),
2 2 2 2
k = sqrt(%r36 - 2 %r32 %r36 + %r34 - 2 %r31 %r34 + %r32 + %r31 ),
2 2 2
ya = %r32 - sqrt(%r36 - 2 %r32 %r36 + %r34 + %r31 (2 %r33 - 2 %r34) - %r33
2
+ %r32 )], [xd = %r37, yd = %r38, xa = %r39, xb = %r40, xc = %r41, yb = %r42,
2 2 2
yc = %r38 - sqrt(%r42 - 2 %r38 %r42 - %r41 + %r37 (2 %r41 - 2 %r40) + %r40
2 2 2 2
+ %r38 ), k = - sqrt(%r42 - 2 %r38 %r42 + %r40 - 2 %r37 %r40 + %r38
2 2 2
+ %r37 ), you = sqrt(%r42 - 2 %r38 %r42 + %r40 + %r37 (2 %r39 - 2 %r40)
2 2
- %r39 + %r38 ) + %r38], [xd = %r43, yd = %r44, xa = %r45, xb = %r46,
2 2
xc = %r47, yb = %r48, yc = %r44 - sqrt(%r48 - 2 %r44 %r48 - %r47
2 2
+ %r43 (2 %r47 - 2 %r46) + %r46 + %r44 ),
2 2 2 2
k = - sqrt(%r48 - 2 %r44 %r48 + %r46 - 2 %r43 %r46 + %r44 + %r43 ),
2 2 2
ya = %r44 - sqrt(%r48 - 2 %r44 %r48 + %r46 + %r43 (2 %r45 - 2 %r46) - %r45
2
+ %r44 )]]