Plot Complex Lines with mathematica -


z1=a; z2=b; z3=c; z[t_]=z1+(z2-z1)t; z[t_]=z1+(z3-z1)t; z[t_]=z2+(z3-z2)t; 

i want plot these lines mathematica on unit circle. do?

you this:

(*represent complexes vectors*)  z1 = {5, 3}; z2 = {.5, .1}; z3 = {-.1, .25}; za[t_] = z1 + (z2 - z1) t; zb[t_] = z1 + (z3 - z1) t; zc[t_] = z2 + (z3 - z2) t;    (*find parameter boundaries*) s = t /. union[solve[norm[za[t]] == 1, t],                 solve[norm[zb[t]] == 1, t],                solve[norm[zc[t]] == 1, t]          ];  (*and plot*) show[parametricplot[{za[t], zb[t], zc[t]}, {t, min[s], max[s]},                       regionfunction -> function[{x, y}, x^2 + y^2 < 1],                       plotrange -> {{-1, 1}, {-1, 1}}],       graphics@circle[] ] 

enter image description here


Comments

Popular posts from this blog

c# - Is it possible to remove an existing registration from Autofac container builder? -

c++ - Warning : overflow in implicit constant conversion -