Mapping: 1/z
- Author:
- Juan Carlos Ponce Campuzano
A = (0,0)
h = Slider(0, 1, 0.01, 1, 140, false, true, false, false)
Execute(Sequence("C"+i+" = Circle(A, "+i+"/8)", i, 1, 8))
t=Slider(0, 6.28, 0.01, 1, 140, false, true, false, false)
Execute(Sequence("P"+i+" = "+i+"/8*cos(t) + x(A) + ί*("+i+"/8*sin(t)+y(A)) ", i, 1, 8))
Execute(Sequence("Z"+i+" = P"+i+"*(1-h)+ 1/(P"+i+")*h", i, 1, 8))
Execute(Sequence("L"+i+" = Locus(Z"+i+", t)", i, 1, 8))
Execute(Sequence("S"+i+" = Segment(A, (cos("+i+"/10 * 2*pi)+x(A), sin("+i+"/10 * 2* pi)+y(A)))", i, 1, 10))
s = Slider(0, 1, 0.01, 1, 140, false, true, false, false)
Execute(Sequence("Q"+i+" = (cos("+i+"/10 * 2*pi)+x(A))*s + x(A) * (1-s) + ί*((sin("+i+"/10 * 2*pi)+y(A))*s+y(A)*(1-s)) ", i, 1, 10))
Execute(Sequence("X"+i+" = Q"+i+"*(1-h)+ 1/(Q"+i+")*h", i, 1, 10))
Execute(Sequence("M"+i+" = Locus(X"+i+", s)", i, 1, 10))