forums.silverfrost.com

[PaulLaidler]

John

I don't have a simple answer to your questions. You will appreciate that the personal edition is free and is aimed at students learning Fortran who have no interest in the latest developments. All they need is a stable product.

[silicondale]

I have a task which may or may not be implementable in native %pl. Sonar data consists of a set of N wavy lines which are separate. N is a large number which can vary from one plot to another. Each wavy line contains m points, where m can be different for each line.

This is what they should look like:


but the lines all get linked together in native %pl, like this:


Is there a way of suppressing the unwanted line segments?

[PaulLaidler]

Does each wavy line have its own y array?

[silicondale]

Each wavy line is a set of x(i) y(i) pairs. All I need to do is separate the lines so that the last element of each wavy line isn't joined to the first element of the next one.

[PaulLaidler]

Can you post some code that illustrates how the y array or arrays are constructed?

[silicondale]

The upper plot was generated using old coding:
call draw_line_between@ (iu1,iv1,iu2,iv2,irgb)
where each line segment is drawn separately by computing the pixel positions iu1,iv1 and iu2,iv2 for the ends of each line segment

The lower plot uses
i=winio@('%`pl[x_array,link=lines,symbol=0]&',
1 iwvm,ihvm,NUMDAT,xval,yval,ighandle)
where all of the wavy lines are held in the same xval,yval arrays - of necessity since it isn't practical to have umpteen separate arrays.

[PaulLaidler]

I am guessing that you get the join because to ask for it. Make sure that the end point of one wiggly line is not the start point of the next.

[silicondale]

The first wiggly line ends at xval(n),yval(n)
The second wiggly line starts at xval(n+1),yval(n+1) and goes on to xval(n+m),yval(n+m) ... and so on, for several wiggly lines. In the sample plots there are about 40 of them, but the exact number can vary.

So how, using %pl, do I suppress the line segments n to n+1 etc. so that the end point of one line is NOT the start point of the next?

Yes, I know you can set the number of graphs such as
call winop@ ('%pl[N_GRAPHS=10]')
but as N_GRAPHS gets bigger, the final i=winio@('%`pl.... call gets steadily longer because of all the arrays for the N_GRAPHS different data sets, and has to be coded separately for every possible different N_GRAPHS value.

Maybe I have missed the answer in this very long thread, but just how do you plot 40 separate wiggly lines using %pl ?

[PaulLaidler]

If you have the release that includes v8.20 of FTN95 then look at item 394 in the document cwplus.enh.

[silicondale]

Sadly I just have v8.0. Can't afford to keep on buying new versions at full commercial price. I don't even qualify for an academic licence though all my work is now on EU research projects. Would be good if you could offer an annual maintenance contract for loyal customers, that provides updates as and when issued.

[silverfrost]

[silicondale]

Problem resolved. Many thanks to quick response from Silverfrost!
Looking forward to installing v8.20 soonish.

[silicondale]

I have updated the program but it's giving me a run-time error

[DanRRight]

Silicondale, You are probably the first to try new feature 'stacked'. Post full demo

[silicondale]

This was just a snippet out of a large program. In fact each winop@ call was constructed by a formatted write because the numeric values had to be inserted from variables. What I posted was just the set of resulting calls.