Wrote

Just an exercise on Smath to test functionalities and capabilities.
Try the attached file and play with it.

Thanks
Marco
InterX.sm (85 КиБ) скачан 168 раз(а).

Wrote

Try the attached file and play with it.

Wrote

Try the attached file and play with it.

Wrote

Hi Marco. Here some comments about your great file. As you suggest, I play with it.
Best regards.
Alvaro.

Wrote

1 min 53 sec on my windows tablet pc.

Wrote

Originally Posted by: Andrey Ivashov [url=/forum/yaf_postsm47126_Line-intersections.aspx#post47126][/url]

1 min 53 sec on my windows tablet pc.
SMath Studio 0.99.6611time(0)-to =83.735 son my windows10

Wrote

5 min 25 s (win 10 x64, intel i5 quad core 2.40GHz)

Wrote

I don't replace plotG because don't understand very well that syntax.

Wrote

Wrote

I don't replace plotG because don't understand very well that syntax.

It is simple - ranged indexes used.

plotG(xy,char,size,color):if(cols(xy)>1,plotG(col(xy,1),col(xy,2),char,size,color),plotG(Re(xy),Im(xy),char,size,color))

Цитата

because I think that any good plot implementation must to use complexes but not couple of reals. So, if xy argument have only one column, one can assume that data are as Z = X + iY.

Wrote

But double the amazing time obtained by Davide. But it's just a "scalar" implementation, sure there are better ones.

Wrote

BTW, I would suggest to use another version of plotG which is much faster then previous one (and simplier):

plotG(x,y,char,size,color):line(k:range(1,rows(x)),augment(x,y,el(r3,k):char,el(r4,k):size,el(r5,k):color),2,1)

plotG(xy,char,size,color):line(k:range(1,rows(xy)),augment(xy,el(r3,k):char,el(r4,k):size,el(r5,k):color),2,1)

Best regards.

augment(x,y,"*",10,"red"

Wrote

For such uses it would be good if the augment and stack functions could expand scalar arguments (or more generally any arguments not matching the maximum number of rows or cols) to uniformly populated vectors of the required size).

Then the above example wouldn't even need a helper function as you could write

augment(x,y,"*",10,"red"

plot(x,y)
plot(x,y,"*"
plot(x,y,"*",10)
plot(x,y,"*",10,"red"