forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Native %pl
Goto page Previous  1, 2, 3 ... 21, 22, 23 ... 25, 26, 27  Next
 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+
View previous topic :: View next topic  
Author Message
silicondale



Joined: 15 Mar 2007
Posts: 216
Location: Matlock, Derbyshire, UK

PostPosted: Tue Jan 23, 2018 12:49 pm    Post subject: Reply with quote

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.
Back to top
View user's profile Send private message Visit poster's website
silverfrost
Site Admin


Joined: 29 Nov 2006
Posts: 158
Location: Manchester

PostPosted: Tue Jan 23, 2018 1:20 pm    Post subject: Reply with quote

Quote:
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.


We do and have always provided exactly what you require.
Back to top
View user's profile Send private message Visit poster's website
silicondale



Joined: 15 Mar 2007
Posts: 216
Location: Matlock, Derbyshire, UK

PostPosted: Tue Jan 23, 2018 6:54 pm    Post subject: Reply with quote

Problem resolved. Many thanks to quick response from Silverfrost!
Looking forward to installing v8.20 soonish.
Back to top
View user's profile Send private message Visit poster's website
silicondale



Joined: 15 Mar 2007
Posts: 216
Location: Matlock, Derbyshire, UK

PostPosted: Fri Jan 26, 2018 2:21 pm    Post subject: Reply with quote

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

Code:

call winop@ ('%pl[native,independent,stacked,n_graphs=39]')
call winop@ ('%pl[x_min=7500]')
call winop@ ('%pl[x_max=7710]')
call winop@ ('%pl[y_min=0]')
call winop@ ('%pl[y_max=130]')
call winop@ ('%pl[x_axis=X]')
call winop@ ('%pl[y_axis=SEQNUM]')
call winop@ ('%pl[color=black]')
call winop@ ('%pl[link=lines,symbol=0]')
i=winio@ ('%`pl&',iwvm,ihvm,numld,xval,yval,ighandle)

where
where iwvm = 500 ihvm = 500
numld is an integer array holding the number of points for each of the 39 graphs
xval is a double precision array of all the x values for all graphs
yval is a double precision array of all the y values for all graphs
ighandle = 1

The error message is
Argument No.7 of winio@ (continuation 1) should be a REAL*8

Definitely refers to this winio@ call - which has no continuation lines and is not over-length. Am I missing an argument somehow?


Last edited by silicondale on Fri Jan 26, 2018 3:07 pm; edited 1 time in total
Back to top
View user's profile Send private message Visit poster's website
DanRRight



Joined: 10 Mar 2008
Posts: 1878
Location: South Pole, Antarctica

PostPosted: Fri Jan 26, 2018 2:52 pm    Post subject: Reply with quote

Silicondale, You are probably the first to try new feature 'stacked'. Post full demo
Back to top
View user's profile Send private message
silicondale



Joined: 15 Mar 2007
Posts: 216
Location: Matlock, Derbyshire, UK

PostPosted: Fri Jan 26, 2018 3:06 pm    Post subject: Reply with quote

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.
Back to top
View user's profile Send private message Visit poster's website
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 5584
Location: Salford, UK

PostPosted: Fri Jan 26, 2018 4:17 pm    Post subject: Reply with quote

Maybe you just need [x_array].
Back to top
View user's profile Send private message
silicondale



Joined: 15 Mar 2007
Posts: 216
Location: Matlock, Derbyshire, UK

PostPosted: Fri Jan 26, 2018 5:04 pm    Post subject: Reply with quote

Magic !
I was just trying to be too clever - replaced [x_array] by [independent], but actually need both.
Back to top
View user's profile Send private message Visit poster's website
John-Silver



Joined: 30 Jul 2013
Posts: 959
Location: Aerospace Valley

PostPosted: Fri Jan 26, 2018 9:38 pm    Post subject: Reply with quote

Quote:
In fact each winop@ call was constructed by a formatted write because the numeric values had to be inserted from variables


This 'formatted write' method, while ok for isolated cases could become a pain in the neck if required many times in a code.
why isn't it possible to allow parameter values to be entered as the variable name ?
Is it just a question that the parsing becomes a lot more complex and isn't foreseen to be implemented ?

The medium term aim should be to progressivly 'slimline' the native %pl capability. The uptopian goal being Dan's long-expressed wish to have an 'as-short-as-possible' single-line command. If the 'array input' options are expanded further (as discussed on previous comments in this thread) to cover more parameters then it's feasible, and the introduction of allowinf all inpur parameters to be via arguments would sensibly be included alongside.
[/quote]
Back to top
View user's profile Send private message
John-Silver



Joined: 30 Jul 2013
Posts: 959
Location: Aerospace Valley

PostPosted: Sat Jan 27, 2018 6:47 am    Post subject: Reply with quote

Promisingly, for the above plot the selection of the x axis range from 7500 - 7710 gives a logical tics spacing of 25.

Can you try a couple of things maybe please SilicoDale when you have the time:
1. comment out the axes ranges definitions compltely and see what the 'automatic' selection of ranges produces.
2. select ranges of say : x: -110 to +7750
y: -35 to 135
(these are just arbitrary, plucked-ou-of-the-air values just to see wha t happens in v.8.2 with both the scales and with the axes labelling)

Ta.

Apart from that, you're next project should be to reproduce the CP1919 Pulsar ...


Since it reflects the Unknown Pleasures of ftn95 it could be a good new logo for Silverfrost to adopt, and would look good on T-shirts :O) ... just replace the writing with 'Native %pl' :O)
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 5584
Location: Salford, UK

PostPosted: Sat Jan 27, 2018 8:42 am    Post subject: Reply with quote

Current work on %pl will allow you to send %pl output to a printer using the printer's high resolution. So if you can get your T-shirt into the printer, all well and good.

As for implanting numeric values easily into a string of other characters, maybe you could write a Fortran function to do that. There are no plans to make winop@ work like winio@ in the sense of taking additional arguments.
Back to top
View user's profile Send private message
LitusSaxonicum



Joined: 23 Aug 2005
Posts: 1873
Location: Yateley, Hants, UK

PostPosted: Sat Jan 27, 2018 10:11 am    Post subject: Reply with quote

Paul,

Quote:
So if you can get your T-shirt into the printer, all well and good.


Google with search terms: 'tee shirt transfer paper'

Eddie
Back to top
View user's profile Send private message
JohnCampbell



Joined: 16 Feb 2006
Posts: 1997
Location: Sydney

PostPosted: Sat Jan 27, 2018 10:37 am    Post subject: Reply with quote

Paul,

Could you define a derived type record structure, as an alternative subroutine input for format %pl.
The record structure could have lots of fields, to cover all that have been discussed in this very long thread and there could be a PL_record_default parameter to set each series, something like:

TYPE PL_DATA_RECORD
integer*4 :: num_points
....
END TYPE PL_DATA_RECORD

type (PL_DATA_RECORD), parameter :: &
PL_record_default = PL_DATA_RECORD(0,...)

type (PL_DATA_RECORD), allocatable :: All_PL_Options(:)
real*8, allocatable :: PL_series_values(:,:)

allocate ( All_PL_Options(num_series) )
allocate ( PL_series_values(2,num_series,max_points) )

Perhaps a derived type record for the chart and another derived type for each series, as an allocatable array.
Can we have real*8, allocatable :: x_values(:) in the derived type ?

It may need more work, but the parameter pl_record_default would be very useful for documentation, if it could be devised.

That would be a good project !!
Back to top
View user's profile Send private message
Kenneth_Smith



Joined: 18 May 2012
Posts: 189
Location: Glasgow, Scotland.

PostPosted: Sun Jan 28, 2018 9:05 pm    Post subject: Reply with quote

A short video I made for some of my colleagues. Not the best video on YouTube, but it does show the native %pl in action.

https://www.youtube.com/watch?v=TcUP3f-ZUak&t=64s
Back to top
View user's profile Send private message Visit poster's website
John-Silver



Joined: 30 Jul 2013
Posts: 959
Location: Aerospace Valley

PostPosted: Sun Jan 28, 2018 11:21 pm    Post subject: Reply with quote

Paul said:
Quote:
Current work on %pl will allow ... etc ...


... tell us more ! tell us more ! about all this current work !!!


Last edited by John-Silver on Sun Jan 28, 2018 11:34 pm; edited 1 time in total
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+ All times are GMT + 1 Hour
Goto page Previous  1, 2, 3 ... 21, 22, 23 ... 25, 26, 27  Next
Page 22 of 27

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group