import time[br]import math[br][br]def apolonio(A,B,C):[br] [br] [br] a=Distance(B,C)[br] b=Distance(A,C)[br] c=Distance(A,B)[br][br] r1=(-a+b+c)/2[br] r2=(a-b+c)/2[br] r3=(a+b-c)/2[br][br] C1=Circle(A,r1)[br] [br] C1.opacity=0[br] time.sleep(0.01)[br] C2=Circle(B,r2)[br] [br] C2.opacity=0[br] time.sleep(0.01)[br] C3=Circle(C,r3)[br][br] C3.opacity=0[br] time.sleep(0.01)[br] [br]#Dibujamos la circunferencia tangente[br][br]#radio de la circunferencia tangente[br] r=(r1*r2*r3)/(r1*r2+r2*r3+r1*r3+2*math.sqrt(r1*r2*r3*(r1+r2+r3)))[br] [br]#centro de la circunferencia tangente[br] a0=2*(A.x-B.x)[br] [br] a1=2*(A.x-C.x)[br] [br] b0=2*(A.y-B.y)[br] [br] b1=2*(A.y-C.y)[br] [br] c0=2*(r1-r2)[br][br] c1=2*(r1-r3)[br] [br] d0=(A.x**2+A.y**2-r1**2)-(B.x**2+B.y**2-r2**2)[br] [br] d1=(A.x**2+A.y**2-r1**2)-(C.x**2+C.y**2-r3**2)[br] [br] x=(b1*d0-b0*d1-b1*c0*r+b0*c1*r)/(a0*b1-b0*a1)[br][br] y=(-a1*d0+a0*d1+a1*c0*r-a0*c1*r)/(a0*b1-b0*a1)[br] S=Point(x,y,is_visible=False)[br] [br] C4=Circle(S,r)[br] [br] C4.opacity=0[br] time.sleep(0.01)[br] lista.append(S)[br] [br] [br]time.sleep(1)[br][br]def apolonioapolonio(A,B,C,D):[br] apolonio(D,A,B)[br] time.sleep(0.01)[br] apolonio(D,B,C)[br] time.sleep(0.01)[br] apolonio(D,C,A)[br] time.sleep(0.01)[br][br][br]#informamos en que consiste la actividad[br][br][br]#Dibujamos una circunferencia para que el fondo sea blanco[br]P=Point(0,0,is_visible=False)[br]C=Circle(P,30)[br]C.color='white'[br]C.opacity=1[br]time.sleep(0.1)[br][br][br][br]#introducimos las coordenadas de los puntos[br]xA= int(input('Coordenada x de A:'))[br]time.sleep(1)[br]yA= int(input('Coordenada y de A:'))[br]time.sleep(1)[br]xB= int(input('Coordenada x de B:'))[br]time.sleep(1)[br]yB= int(input('Coordenada y de B:'))[br]time.sleep(1)[br]xC= int(input('Coordenada x de C:'))[br]time.sleep(1)[br]yC= int(input('Coordenada y de C:'))[br]time.sleep(1)[br][br]#Dibujamos los puntos y el triángulo y las circunferencias tangentes[br]A=Point(xA,yA,is_visible=False)[br]B=Point(xB,yB,is_visible=False)[br]C=Point(xC,yC,is_visible=False)[br]lista=[A,B,C][br]apolonio(lista[0],lista[1],lista[2])[br][br][br][br]apolonioapolonio(lista[0],lista[1],lista[2],lista[3])[br][br][br]apolonioapolonio(lista[3],lista[0],lista[1],lista[4])[br]apolonioapolonio(lista[3],lista[1],lista[2],lista[5])[br]apolonioapolonio(lista[3],lista[2],lista[0],lista[6])[br][br][br]apolonioapolonio(lista[4],lista[3],lista[0],lista[7])[br]apolonioapolonio(lista[4],lista[0],lista[1],lista[8])[br]apolonioapolonio(lista[4],lista[3],lista[1],lista[9])[br][br][br]apolonioapolonio(lista[5],lista[3],lista[1],lista[10])[br]apolonioapolonio(lista[5],lista[1],lista[2],lista[11])[br]apolonioapolonio(lista[5],lista[2],lista[3],lista[12])[br][br][br]apolonioapolonio(lista[6],lista[3],lista[2],lista[13])[br]apolonioapolonio(lista[6],lista[2],lista[0],lista[14])[br]apolonioapolonio(lista[6],lista[0],lista[3],lista[15])[br]