import time[br]import math[br][br][br]#definimos una función que dibuja los puntos de la mariposa[br]def Puntos():[br] m=0[br] while m<=2*math.pi:[br] punto=Point(((math.e)**(math.sin(m))-2*math.cos(4*m)+(math.sin((2*m-math.pi)/24))**5)*math.cos(m),((math.e)**(math.sin(m))-2*math.cos(4*m)+(math.sin((2*m-math.pi)/24))**5)*math.sin(m))[br] punto.size=2[br] puntos.append(punto)[br] m=m+math.pi/100[br] time.sleep(0.01)[br] [br] [br] [br]#definimos una función que dibuja los segmentos entre puntos[br]def Segmentos():[br] for i in range(0,len(puntos)-1):[br] segmento=Segment(puntos[i], puntos[i+1])[br] segmento.color='red'[br] segmento. line_thickness=15[br] time.sleep(0.01)[br][br][br][br][br]#función que dibuja puntos en el interior de las alas superiores[br]def Interior1():[br] [br] for i in range(1,20):[br] for j in range(1,20):[br] m=math.atan(j/i)[br] m1=math.pi-m[br] if math.sqrt((i/5)**2+(j/5)**2)< ((math.e)**(math.sin(m))-2*math.cos(4*m)+(math.sin((2*m-math.pi)/24))**5):[br] P=Point(i/5,j/5)[br] P.color=((math.sin(m)),(math.sin(m))**4,0.1)[br] P.size=6[br] time.sleep(0.01)[br] [br] [br] if math.sqrt((i/5)**2+(j/5)**2)< ((math.e)**(math.sin(m1))-2*math.cos(4*m1)+(math.sin((2*m1-math.pi)/24))**5):[br] P=Point(-i/5,j/5)[br] P.color=((math.sin(m1)),(math.sin(m1))**4,0.1)[br] P.size=6[br] time.sleep(0.01)[br][br] [br] [br] [br]#función que dibuja puntos en el interior de las alas inferiores[br]def Interior2():[br] [br] for l in range(1,20):[br] for p in range(-20,0):[br] m2=math.atan(p/l)[br] [br] m3=math.pi-m2[br] if math.sqrt((l/5)**2+(p/5)**2)< ((math.e)**(math.sin(m2))-2*math.cos(4*m2)+(math.sin((2*m2-math.pi)/24))**5):[br] P1=Point(l/5,p/5)[br] P1.color=(abs((math.sin(m2)))**3,abs((math.sin(m2))),0.1)[br] P1.size=6[br] time.sleep(0.01)[br] [br] [br] if math.sqrt((l/5)**2+(p/5)**2)< ((math.e)**(math.sin(m3))-2*math.cos(4*m3)+(math.sin((2*m3-math.pi)/24))**5):[br] P1=Point(-l/5,p/5)[br] P1.color=(abs((math.sin(m3)))**3,abs((math.sin(m3))),0.1)[br] P1.size=6[br] time.sleep(0.01)[br][br][br][br][br]#programa principal [br]#Dibujamos una circunferencia en el fondo[br]P=Point(0,0,is_visible=False)[br]C=Circle(P,30)[br]C.color='black'[br]C.opacity=1[br]time.sleep(0.01)[br][br][br]puntos=[][br]Puntos()[br]Segmentos()[br]Interior1()[br]Interior2()[br]