Loading ...
Sorry, an error occurred while loading the content.

38610Re: [libertybasic] Re: SINE WAVE

Expand Messages
  • Henrik
    Jul 6, 2009
      Thanks Harmon Vinson

      --- On Mon, 7/6/09, Harmon Vinson <harmonv@...> wrote:


      From: Harmon Vinson <harmonv@...>
      Subject: [libertybasic] Re: SINE WAVE
      To: libertybasic@yahoogroups.com
      Date: Monday, July 6, 2009, 12:07 PM








      Hello Henrik.
      Here is a slightly altered version of Stefan's SIN() plotting program.
      To change the Y-axis edit the CenterX variable (set to 120 in this program)..
      The starting and ending x values are controlled by the startx and endx variables, here -1*PI and 4*PI.
      The xscale and yscale variables convert from real numbers to pixels.

      '-----code start (watch for line wraps)
      nomainwin
      WindowWidth = 700
      WindowHeight = WindowWidth/ 2

      open "Graph" for graphics_nf_ nsb as #m
      #m "trapclose [quit]"

      CenterX = 120
      CenterY = (WindowHeight- 40) / 2

      #m "down"
      #m "color lightgray"
      #m "size 1"
      #m "line 0 "; CenterY; " "; WindowWidth; " "; CenterY
      #m "line "; CenterX; " 0 "; CenterX; " "; WindowHeight

      #m "color red"
      #m "size 2"

      PI = acs(-1)
      startx = -1*PI
      endx = 4*PI
      xinterval = (endx-startx) /1000

      Xscale = WindowWidth / (endx - startx)
      Yscale = CenterY - 10

      for i = startx to endx step xinterval
      x = CenterX + i * Xscale
      y = CenterY - sin(i) * Yscale
      #m "set "; x; " "; y
      next i

      #m "flush"
      wait

      [quit]
      close #m
      end
      ----- code ends

      --- In libertybasic@ yahoogroups. com, Henrik <henriknilson@ ...> wrote:
      > Thanks,Could you please clear it how to move the Y axis from
      > the center to the left side.



















      [Non-text portions of this message have been removed]
    • Show all 19 messages in this topic