View previous topic :: View next topic |
Author |
Message |
silicondale
Joined: 15 Mar 2007 Posts: 252 Location: Matlock, Derbyshire, UK
|
Posted: Tue Jan 23, 2018 12:49 pm Post subject: |
|
|
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 |
|
|
silverfrost Site Admin
Joined: 29 Nov 2006 Posts: 191 Location: Manchester
|
Posted: Tue Jan 23, 2018 1:20 pm Post subject: |
|
|
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 |
|
|
silicondale
Joined: 15 Mar 2007 Posts: 252 Location: Matlock, Derbyshire, UK
|
Posted: Tue Jan 23, 2018 6:54 pm Post subject: |
|
|
Problem resolved. Many thanks to quick response from Silverfrost!
Looking forward to installing v8.20 soonish. |
|
Back to top |
|
|
silicondale
Joined: 15 Mar 2007 Posts: 252 Location: Matlock, Derbyshire, UK
|
Posted: Fri Jan 26, 2018 2:21 pm Post subject: |
|
|
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 |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2826 Location: South Pole, Antarctica
|
Posted: Fri Jan 26, 2018 2:52 pm Post subject: |
|
|
Silicondale, You are probably the first to try new feature 'stacked'. Post full demo |
|
Back to top |
|
|
silicondale
Joined: 15 Mar 2007 Posts: 252 Location: Matlock, Derbyshire, UK
|
Posted: Fri Jan 26, 2018 3:06 pm Post subject: |
|
|
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 |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7931 Location: Salford, UK
|
Posted: Fri Jan 26, 2018 4:17 pm Post subject: |
|
|
Maybe you just need [x_array]. |
|
Back to top |
|
|
silicondale
Joined: 15 Mar 2007 Posts: 252 Location: Matlock, Derbyshire, UK
|
Posted: Fri Jan 26, 2018 5:04 pm Post subject: |
|
|
Magic !
I was just trying to be too clever - replaced [x_array] by [independent], but actually need both.
|
|
Back to top |
|
|
John-Silver
Joined: 30 Jul 2013 Posts: 1520 Location: Aerospace Valley
|
Posted: Fri Jan 26, 2018 9:38 pm Post subject: |
|
|
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 |
|
|
John-Silver
Joined: 30 Jul 2013 Posts: 1520 Location: Aerospace Valley
|
Posted: Sat Jan 27, 2018 6:47 am Post subject: |
|
|
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 |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7931 Location: Salford, UK
|
Posted: Sat Jan 27, 2018 8:42 am Post subject: |
|
|
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 |
|
|
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2390 Location: Yateley, Hants, UK
|
Posted: Sat Jan 27, 2018 10:11 am Post subject: |
|
|
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 |
|
|
JohnCampbell
Joined: 16 Feb 2006 Posts: 2556 Location: Sydney
|
Posted: Sat Jan 27, 2018 10:37 am Post subject: |
|
|
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 |
|
|
Kenneth_Smith
Joined: 18 May 2012 Posts: 697 Location: Hamilton, Lanarkshire, Scotland.
|
|
Back to top |
|
|
John-Silver
Joined: 30 Jul 2013 Posts: 1520 Location: Aerospace Valley
|
Posted: Sun Jan 28, 2018 11:21 pm Post subject: |
|
|
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 |
|
|
|