|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
DanRRight
Joined: 10 Mar 2008 Posts: 2828 Location: South Pole, Antarctica
|
Posted: Tue Mar 05, 2013 12:35 pm Post subject: Simpleplot |
|
|
SimplePlot has some adverse effect on CWP. For example adding Y_min causes Clearwin not to show the CWP text. In other cases it can change values in the boxes back etc. Since rarely who uses it, it has bugs and is stable just in limited field of parameters. Am i wrong to suppose that Simpleplot was added by the same person who wrote buddy Salford Fortran90 and who hates programming? User made an error in 1.e-40 which should be 1.d-40 which fixes corruption of CWP but brakes Simpleplot :-/
Code: | program BuggySimpleplot
use clrwin
real*8 a1,a2,a3,a4,Uarray(10000), IntegradArray(10000)
save
n=1000
i=winio@('%ww%ca[plot]%bg[btnface]&')
i=winio@('%1tl&',16)
i=winio@('Par1, Par2 [eV]%ta%rf%rf%ff&',a1,a2)
i=winio@('Par3, Par4 %ta%rf%rf%ff&',a3,a4)
i=winio@('Par N %ta%rd%ff&',N)
iwid=300; iheig=200
i=winio@('%pl[title="Integrand",x_array,N_GRAPHS=1,&
& Y_min=1.e-40, SCALE=LOG_LINEAR,colour=black]%ff&', &
iwid, iheig, 10000, Uarray, IntegradArray)
i=winio@('%ac[esc]&','exit')
i=winio@('%cn%bt[OK]')
end |
Last edited by DanRRight on Tue Mar 05, 2013 2:00 pm; edited 2 times in total |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7934 Location: Salford, UK
|
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2828 Location: South Pole, Antarctica
|
Posted: Tue Mar 05, 2013 1:43 pm Post subject: |
|
|
Yes, i know that, but somebody at Salford added it to CWP without much testing! |
|
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
|