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 plot in the world top journal

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+
View previous topic :: View next topic  
Author Message
DanRRight



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

PostPosted: Sun Jul 26, 2020 1:49 am    Post subject: Native PL plot in the world top journal Reply with quote

Journal "Nature" just published another paper where one of figures was made with FTN95 Clearwin native PL. This article reported how using advanced nanostructures to strip heavy atoms of most of their electrons utilizing relativistic laser pulses.
Back to top
View user's profile Send private message
Kenneth_Smith



Joined: 18 May 2012
Posts: 361
Location: Hamilton, Lanarkshire, Scotland.

PostPosted: Sun Jul 26, 2020 10:07 am    Post subject: Reply with quote

Dan,

How do you get the x axis label of the %pl to include the greek letter mu i.e. your show micro metres with the correct SI symbol ?
Back to top
View user's profile Send private message Visit poster's website
John-Silver



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

PostPosted: Sun Jul 26, 2020 10:53 am    Post subject: Reply with quote

you beat me to it Ken !

I assume it's because the font has that greek symbol in it (it's not quite the one included in 'SYMBOL' font so must be a different one), or more likely because Dan has written his own labels using DRAW_CHARACTERS switching to a special font in the middle for that character??
_________________
''Computers (HAL and MARVIN excepted) are incredibly rigid. They question nothing. Especially input data.Human beings are incredibly trusting of computers and don't check input data. Together cocking up even the simplest calculation ... Smile "


Last edited by John-Silver on Sun Jul 26, 2020 4:49 pm; edited 1 time in total
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


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

PostPosted: Sun Jul 26, 2020 2:07 pm    Post subject: Reply with quote

One way is to call enable_utf8@(1). You can get the character by opening the Character Map dialog directly or from Plato. You don't need to set the font. The file must be saved using Advanced Save Options with "UNICODE (UTF-8 without signature)".
Back to top
View user's profile Send private message AIM Address
John-Silver



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

PostPosted: Sun Jul 26, 2020 4:48 pm    Post subject: Reply with quote

the documentation (i=on-line) regarding UTF8 characters states
Quote:
Limitations: UTF-8 encoded characters cannot be used with %eb nor %pl

_________________
''Computers (HAL and MARVIN excepted) are incredibly rigid. They question nothing. Especially input data.Human beings are incredibly trusting of computers and don't check input data. Together cocking up even the simplest calculation ... Smile "
Back to top
View user's profile Send private message
John-Silver



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

PostPosted: Sun Jul 26, 2020 5:05 pm    Post subject: Reply with quote

there's an example code for the option you give above Paul on a post from way back 5 years ago, where you fixed some specific problems for Dietar
http://forums.silverfrost.com/viewtopic.php?t=2914&postdays=0&postorder=asc&start=15
but as I understand it that uses a pop-up box to select a greek letter ?

What if you just want to put a greek letter into a %pl label, like Dan has achieved ?
_________________
''Computers (HAL and MARVIN excepted) are incredibly rigid. They question nothing. Especially input data.Human beings are incredibly trusting of computers and don't check input data. Together cocking up even the simplest calculation ... Smile "
Back to top
View user's profile Send private message
Kenneth_Smith



Joined: 18 May 2012
Posts: 361
Location: Hamilton, Lanarkshire, Scotland.

PostPosted: Sun Jul 26, 2020 5:22 pm    Post subject: Reply with quote

Thanks Paul, that works fine.

John, Example below:

Code:
module sine_mod
use clrwin
implicit none
integer, parameter :: dp = kind(1.d0)
integer, parameter :: n=360+1
real(kind=dp), parameter :: pi = 4.d0*atan(1.d0), deg2rad = pi/180.d0, sqrt2 = sqrt(2.d0)
real(kind=dp) x1(1:n), y1(1:n)
contains
  integer function build_gui()
  integer winio@, i
  integer, save :: iw
    x1 = (/(deg2rad*(i-1),i=1,n,1)/) ; y1 = sqrt2*sin(x1)
    call enable_utf8@(1)
    iw = winio@('%mn[Exit]&','exit')
    iw = winio@('%fn[consolas]&')
    call winop@('%pl[native, independent, x_array, n_graphs=1,gridlines,frame,y_min=-1.5,y_max=1.5, dy=0.5]')
    call winop@('%pl[title="2π (rad) = 360",x_axis=" Angle θ (rad)",y_axis=@]')
    iw= winio@('%bf%ts&',2.d0)
    iw = winio@('%pl&',600,400,n,x1,y1)
    iw = winio@(' ')
    build_gui =1
  end function build_gui
end module sine_mod

program main
use sine_mod
implicit none
integer i
  i = build_gui()
end program main
Back to top
View user's profile Send private message Visit poster's website
John-Silver



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

PostPosted: Sun Jul 26, 2020 6:24 pm    Post subject: Reply with quote

thanks for the example Ken

but how does one manage to type greek letters notepad , any ideas !?
_________________
''Computers (HAL and MARVIN excepted) are incredibly rigid. They question nothing. Especially input data.Human beings are incredibly trusting of computers and don't check input data. Together cocking up even the simplest calculation ... Smile "
Back to top
View user's profile Send private message
Robert



Joined: 29 Nov 2006
Posts: 329
Location: Manchester

PostPosted: Sun Jul 26, 2020 6:46 pm    Post subject: Reply with quote

ALT + 0181

0181 have to be numeric pad digits
Back to top
View user's profile Send private message Visit poster's website
John-Silver



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

PostPosted: Sun Jul 26, 2020 7:03 pm    Post subject: Reply with quote

ok, so I've worked out that you write using <ctrl< andtyping the UTF8 decimal code - problem is, when I get beyond 128 the charcter omes out arbitrary and not what it says in the table I use for the codes

why is that ? what are the correct code table(s) to use ?
_________________
''Computers (HAL and MARVIN excepted) are incredibly rigid. They question nothing. Especially input data.Human beings are incredibly trusting of computers and don't check input data. Together cocking up even the simplest calculation ... Smile "
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


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

PostPosted: Sun Jul 26, 2020 7:27 pm    Post subject: Reply with quote

John

One way is to follow my directions above.

1) From Plato, goto to the View menu and select Character Map.

2) Find the character that you want and copy it to the clipboard.

3) Paste the character into your code.

4) Find the Advanced Save Options on the File menu, open the dialog and select UNICODE etc. as descibed above.
Back to top
View user's profile Send private message AIM Address
Robert



Joined: 29 Nov 2006
Posts: 329
Location: Manchester

PostPosted: Mon Jul 27, 2020 4:45 pm    Post subject: Reply with quote

What is a 'relativistic laser pulse'?
Back to top
View user's profile Send private message Visit poster's website
DanRRight



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

PostPosted: Mon Jul 27, 2020 8:25 pm    Post subject: Reply with quote

Robert,
It is when the laser field becomes so strong that it is capable to accelerate the electrons in one oscillation of the field close to their momentum M=mc and energy close to famous E=mc^2 = 511 keV (where m is electron rest mass and c is speed of light). At such intensities the relativistic effects start to dominate. In this work the laser was even 20x more powerful than that


Last edited by DanRRight on Sun Aug 02, 2020 1:12 am; edited 1 time in total
Back to top
View user's profile Send private message
John-Silver



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

PostPosted: Sat Aug 01, 2020 10:27 pm    Post subject: Reply with quote

Paul, thnks for the suggeston, but I could do that in word.
Then copy to notepad - copy-pasting works fine.

But it"'s all a bit fastidious.
_________________
''Computers (HAL and MARVIN excepted) are incredibly rigid. They question nothing. Especially input data.Human beings are incredibly trusting of computers and don't check input data. Together cocking up even the simplest calculation ... Smile "
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
Page 1 of 1

 
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