home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 8 / CDACTUAL8.iso / share / os2 / graficos / gle / adphas.gle < prev    next >
Encoding:
Text File  |  1994-05-21  |  2.6 KB  |  107 lines

  1. ! Nice example to send 16-Bit gle's to nirwana 
  2. ! by Axel Rohde
  3. ! size 25 25 ! too large for DIN A4 -> shrink to fit
  4. ! set all colours to black for b/w printers
  5. size 19 19
  6. set font pldr fontlwidth 0.03 cap round
  7. beginn = -0.15
  8. endd = 0.6
  9. stepp = 0.001
  10. pi = 3.14156294
  11.  
  12. ! shrink to fit
  13. begin scale 0.75 0.75
  14.  
  15. amove 0 14
  16. begin graph
  17.   nobox
  18.   size 25 10
  19.   xaxis min 0 max 10 
  20.   yaxis min -0.3 max 2*pi+0.3  nticks 6
  21.   yplaces 0 pi/2 pi 3/2*pi 2*pi
  22.   ynames  "0" "\pi/2" "\pi" "3\pi/2" "2\pi" 
  23.   xtitle "time/a.u." hei .60
  24.   ytitle "phase/radian" hei .60
  25.   xlabels hei .4
  26.   ylabels hei .4
  27.  
  28.   let d1 = pi+2*atn(0.3-sqrt(1-0.3**2)*tan(25*x*sqrt(1-0.3**2)/2)) from beginn to endd step stepp
  29.   d1 line color black lstyle 0 xmin beginn xmax endd 
  30.   let d2 = pi+2*atn(0.5-sqrt(1-0.5**2)*tan(25*x*sqrt(1-0.5**2)/2)) from beginn to endd step stepp
  31.   d2 line color red lstyle 2 xmin beginn xmax endd 
  32.   let d3 = pi+2*atn(0.8-sqrt(1-0.8**2)*tan(25*x*sqrt(1-0.8**2)/2)) from beginn to endd step stepp
  33.   d3 line color blue lstyle 4 xmin beginn xmax endd 
  34.   let d4 = pi+2*atn(0.99-sqrt(1-0.99**2)*tan(25*x*sqrt(1-0.99**2)/2)) from beginn to endd step stepp
  35.   d4 line color green lstyle 9 xmin beginn xmax endd 
  36.   let d5 = pi+2*atn(0-sqrt(1-0**2)*tan(25*x*sqrt(1-0**2)/2)) from beginn to endd step stepp
  37.   d5 line color cyan lstyle 3 xmin beginn xmax endd 
  38.   title "driven Van der Pol oscillator - Adler's equation" hei .7
  39. end graph
  40.  
  41. begin key
  42. hei 0.25
  43. position tr
  44. line color green lstyle 9 text "\alpha=0.99"
  45. line color blue lstyle 4 text "\alpha=0.8"
  46. line color red lstyle 2 text "\alpha=0.5"
  47. line color black lstyle 0 text "\alpha=0.3"
  48. line color cyan lstyle 3 text "\alpha=0"
  49. end key
  50.  
  51. amove xg(3) yg(3.14)
  52. set hei 0.35
  53. text fast
  54. amove xg(1.5) yg(5.5)
  55. set hei 0.35
  56. text slow
  57.  
  58. amove 0 0
  59. begin graph
  60.     nobox
  61.     size 25 14
  62.     xaxis min 83 max 210  
  63.     yaxis min -3 max 3  
  64.     data resp.dat
  65.     d1 line smooth lstyle 1 color red
  66.     !d2 line color blue
  67.     !d3 line color green
  68.     let d4 = d3*1.2
  69.     d4 line smooth lstyle 2 color blue
  70.     xtitle "time/a.u." hei 0.6
  71.     ytitle "amplitude/a.u." hei .6
  72.     title "driven Van der Pol oscillator - numerical results" hei .7
  73. end graph
  74. begin key
  75. hei 0.4
  76. position tr
  77. line lstyle 1 color red text "response"
  78. line lstyle 2 color blue text "driver"
  79. end key
  80. set hei 0.7 
  81. amove 0.9 yg(2.6)
  82. text b
  83. set hei 1.3
  84. amove 1 yg(2.75)
  85. marker circle
  86.  
  87. set hei 0.7 
  88. amove 0.85 yg(9.1)
  89. text a
  90. set hei 1.3
  91. amove 1 yg(9.25)
  92. marker circle
  93.  
  94. amove 9 yg(2.3)
  95. set hei 0.35
  96. text fast
  97. amove 6 yg(2.3)
  98. set hei 0.35
  99. text slow
  100.  
  101. amove 5.5 2.5
  102. text out of phase
  103. amove 9.4 2.5 
  104. text in phase
  105.  
  106. end scale
  107.