|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7928 Location: Salford, UK
|
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2819 Location: South Pole, Antarctica
|
Posted: Wed Oct 04, 2017 7:16 pm Post subject: |
|
|
In other respects the 14 is still the same as 13. Do you see these two examples differently? The 12 showed something in the first LOG_LINEAR example. The LOG_LOG is not changed.
Code: | WINAPP
MODULE modd
USE clrwin
INTEGER,PARAMETER::N=65
REAL*8 X(N),Y(N),Z(N),T(N), U(N)
!.....................................
CONTAINS
!.....................................
INTEGER FUNCTION callb()
REAL(2) random
DO i=1,N
X(i)=i
Y(i)=exp(0.35*i) * random()
T(i)=Y(i)
Z(i)=exp(0.7*i) * (random()-0.003)
U(i)=Z(i)
ENDDO
CALL SIMPLEPLOT_REDRAW@
callb = 2
END FUNCTION
END MODULE
!.....................................
PROGRAM KKK
USE modd
j=callb()
i=winio@('%ww&')
CALL winop@("%pl[native]")
! CALL winop@('%pl[title="Log_linear@(115,299)"]')
CALL winop@('%pl[title="Title: ideal log_linear@(-15,10)"]')
CALL winop@("%pl[x_array]")
CALL winop@("%pl[scale=log_linear]")
! CALL winop@("%pl[y_min=.3]")
CALL winop@("%pl[y_max=1e7]")
CALL winop@("%pl[N_GRAPHS=4]")
call winop@("%pl[framed]")
CALL winop@("%pl[tick_len=10]")
CALL winop@("%pl[axes_pen=4]")
CALL winop@("%pl[x_axis='Wavelength (A)@(-202,2)']")
CALL winop@("%pl[y_axis='Intensity (arb.units)@(-20,-222)']")
! i=winio@('%fn[Tahoma]&') ! Verdana
i=winio@('%sf&')
i=winio@('%ts&', 2.2d0)
i=winio@('%tc&',rgb@(0,0,0))
i=winio@('%bf&')
CALL winop@("%pl[width=3]")
CALL winop@("%pl[colour=red,link=none,symbol=7]")
CALL winop@("%pl[colour=blue,link=none,symbol=9]")
CALL winop@("%pl[symbol_size=8.]")
CALL winop@("%pl[colour=black]")
CALL winop@("%pl[colour=green]")
i=winio@('%pv%pl&', 700,570, N, X,Y,Z,T,U)
i=winio@('%ac[Ctrl+Z]&',callb)
i=winio@('%sf%ts&', 1.d0)
i=winio@('%ff%cn%^bt[Redraw]%es',callb)
END |
Code: | use clrwin
parameter (N=9)
real*8 X(N), Y(N)
Data X/0.001,0.01,0.1,1,10, 100,1000,10000,100000/
Data Y/0.0022, 0.011,0.044,0.33,2.2,66,3333,1111,777/
i=winio@('%sf%ts%bf%es&', 2d0)
call winop@("%pl[axes_pen=3,width=3,x_axis='X Axis Title',y_axis='Y Axis Title']")
call winop@("%pl[fixed_aspect]")
i=winio@('%ww%pv%pl[native,framed,x_array,scale=log_log,N_GRAPHS=1]', 625,500, n, X, Y)
end |
|
|
Back to top |
|
|
John-Silver
Joined: 30 Jul 2013 Posts: 1520 Location: Aerospace Valley
|
Posted: Thu Oct 05, 2017 7:15 am Post subject: |
|
|
Dan asked ...
Quote: | John, Would be nice if you show the pictures, so I will compare with mine and also this will help Paul to check if these problems were the ones which as he wrote are already fixed |
here are some plots ...
(made with the code origin as in my comment on Oct2 p.1 of this post)
they are done WITH DLLs13 remember ...
Dan, the code you just posted above looks like the one I used to start with.
(*UPDATE 07/10/2017* - the code used to produce the following plots was actually NOT the same ! - see further comment below with further discussion of that)*)
Oh, just to note one thing I might have mentioned somewhere else previously - the term Log-Linear for the type of scales requsted is confusing as logically it should be Linear-Log (X axis first followed by Y axis) and not the reverse-serbo_croation rule being applied at the moment ! (apologies to any serbs or croatians on the list for the analogy :O)).
IMO it should be changed to avoid more confusion (se NOTE 1) than necessary.
A. First, the unchanged program ...
note:
i) the strange 'over-shoots' on the last couple of line segments (seen often when clicking the button to Refrexhed)
ii) the non-centreing of axes titles is as expected becrause the code has offsets defined still.
iii) interestingly, th x scale always goes to 65, even when the generated plot data doesn't !
1a_1
B. After removing the previously defined offsets ....
note:
i) strange over-shoots are still there
ii) the x-axis title is now correctly centred
iii) the y-axis title is:
a) not centred ! I've indcated with lines to show where it appears to be centred about
b) still overlaping axis labels (why you had x-offset before)
1b_1
C. Scales Changed to Linear-Linear ....
note:
i) there are NO line segments ! Actually the symbols are plotted first (IS THIS HOW IT SHOULD BE , I think not) then there is a lot of flickering of the cursor
ii) the Refrech button is blank while all that is going on
1b_2
D. Log-Linear but with axes scale limits set to include NEGATIVE x x = -30.0 to +60.0
note:
i) x-axis aìscale is +30 ! to +65 and the curves are plotted partially to left of Y axis (as if there were scales from -30 upwards on x !!! This means the positions o the points are calculated as if there was a negative x-axis but that part of the axis isn't there !
iii) all other deficiences mentioned above remain
1c_1
Last edited by John-Silver on Sat Oct 07, 2017 12:35 am; edited 5 times in total |
|
Back to top |
|
|
John-Silver
Joined: 30 Jul 2013 Posts: 1520 Location: Aerospace Valley
|
Posted: Thu Oct 05, 2017 7:29 am Post subject: |
|
|
... AND FINALLY ...
E. Linear-Linear with same change to x-axis scale range as in D. above
note:
i) same deficiencies as above for Log-Linear
and with addition of ...
ii) strange black triangular symbol just to left of y-axis title
iii) the y-axis scale at bottom JUMPS from 0.000 to 5*1^5 - by design or anomaly I know not.
Typical y values for X=around 30 (which is made the origin in this plot) is around 10^3 on other plots, This odd selection of 1st graduation but it's no explanation for why all those early symbols appear close to x-axis.
Hint for possible correction of this 'limitation' sometime in the future :-
What's missing in this case is that scales need to be calculated in a more consistent manner based noìon the range and NOT LIMITED because of label size 'cramming' which appears to be the case here in this example. How on earth it comes up with a major spacing of 5x10^5 is anyone's guess.
Similarly, for very large LOG scales the auto-calculated major divisions need allow the possibility of being not only in powers of 10 but in the flexibility to allow powers of 100 or 1000, or even bigger so that all the range can be put on the axis ! (applies to Y and X axis).
1d_1
[/quote]
________________________________________
NOTES:
(1) - https://www.youtube.com/watch?v=1jUvhJ_Tgzw |
|
Back to top |
|
|
John-Silver
Joined: 30 Jul 2013 Posts: 1520 Location: Aerospace Valley
|
Posted: Thu Oct 05, 2017 7:48 am Post subject: |
|
|
DLLs14 of course shouldn't make a jot of a difference, but eh, stranger things have happened have they not.
Maybe someone who has DLLs14 installed (I don't) could run Dan's 2 codes above (the first one corresponding to my case A. above (I think) |
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2819 Location: South Pole, Antarctica
|
Posted: Thu Oct 05, 2017 1:05 pm Post subject: |
|
|
John, Please confirm that you run exactly my log_linear code above in your first picture, not modified in any way. Because I saw with dll13 exactly the same garbage only like I show in my first picture with dll14.
Same request to everyone
Right now for me 3/4 of native pl does not work right, out of log_log, log_linear, linear_log and linear only linear works |
|
Back to top |
|
|
John-Silver
Joined: 30 Jul 2013 Posts: 1520 Location: Aerospace Valley
|
Posted: Sat Oct 07, 2017 12:26 am Post subject: |
|
|
Dan,
I ran exactly the code you last posted and ..... I get the same result as you !!!! (remember I 32bit run with dlls13)
To note -
If I redraw 1st time and the 'curves' shift slightly further outside y-axis
Second redraw nothing appears to happen (but I think the 'curves which are 'glusìed'0 towards upper border of plot box do change
On 3rd redraw I get the 'y-axis has zero or negative values message
a) If I select change to linear scales then:-
the cursor flickers 10 seconds or so, then goes into the 'turning' mode (indicating activity and about 10-20 seconds later the program bombs out (just cloases and disappears - NO MESSAGE.
b) if I select 'No' i.e. continue with Log scales - then THE PROGRAM DOES NOT BOMB OUT ! It just continues on each redraw with little change (just some changes each time to the values along top border of box).
So ... I then checked your posted code line-by-line with my earlier one (which remember was from a previosu post you made on the (3rd) ' Native %pl' post, your code after 'CONTINUED 2') and the one difference is that this line is commented out in your code above ....
Code: | ! CALL winop@("%pl[y_min=.3]") |
*CONCLUSION* - the problem from your last code seems to be thus pin-pointed as when the y_max parameter is user-defined but the y_min is not !!!
I also checked with dlls14 and same results (as expected) |
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2819 Location: South Pole, Antarctica
|
Posted: Sat Oct 07, 2017 1:49 am Post subject: |
|
|
Thanks.
That means Paul did not look yet at my examples.
I intentionally set no manual min limit to emphasize that new %PL sets wrong Y tic marks and labels as opposed to older Simpleplot %pl. The native PL code has to be clever to take right min and max values by itself. Manual set of limits can be used for further beautifications and adjustments. |
|
Back to top |
|
|
|
|
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
|