Hi,
I have tried to draw topologist's comb using vectors.
Is it possible to draw vector without head ?
TIA
Adam
/* ----------- code --------------*/
kill(all);
remvalue(all);
/* ------- functions --------------- */
/* compute vectors at the given points */
GiveVector(i):= vector([1/i,0],[0,1])$
compile(all);
/* ----- constans and variables --- */
iMax:100;
v:[]; /* list with ector object */
vv:[]; /* list of vectors */
/* --------- main -------------*/
for i:1 thru iMax step 1 do
(
v:v:GiveVector(i),
vv:cons(v,vv))$
/* ----------- draw image --------- */
draw2d(
xrange= [-0.5,1.5],
yrange= [-0.5,1.5],
head_both = false,
head_type = empty,
head_angle = 1,
head_length = 0.00000000000000000000000001,
color = blue,
vv); /* Graphic object: vector ([x,y], [dx,dy]) */