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 

New DLLs
Goto page Previous  1, 2
 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+
View previous topic :: View next topic  
Author Message
PaulLaidler
Site Admin


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

PostPosted: Wed Oct 04, 2017 2:17 pm    Post subject: Reply with quote

There was a regression in the latest DLL upload (v13) relating to %gr. This has been fixed here...

https://www.dropbox.com/s/qbe7moxz1w4psa7/newDLLs14.zip?dl=0
Back to top
View user's profile Send private message AIM Address
DanRRight



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

PostPosted: Wed Oct 04, 2017 7:16 pm    Post subject: Reply with quote

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
View user's profile Send private message
John-Silver



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

PostPosted: Thu Oct 05, 2017 7:15 am    Post subject: Reply with quote

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 Wink 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
View user's profile Send private message
John-Silver



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

PostPosted: Thu Oct 05, 2017 7:29 am    Post subject: Reply with quote

... 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
View user's profile Send private message
John-Silver



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

PostPosted: Thu Oct 05, 2017 7:48 am    Post subject: Reply with quote

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
View user's profile Send private message
DanRRight



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

PostPosted: Thu Oct 05, 2017 1:05 pm    Post subject: Reply with quote

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
View user's profile Send private message
John-Silver



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

PostPosted: Sat Oct 07, 2017 12:26 am    Post subject: Reply with quote

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
View user's profile Send private message
DanRRight



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

PostPosted: Sat Oct 07, 2017 1:49 am    Post subject: Reply with quote

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
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
Page 2 of 2

 
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