Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: lomalena on February 29, 2020, 08:05:09 am

Title: Mathematical Problems
Post by: lomalena on February 29, 2020, 08:05:09 am
Hello, I'm new in qb64 and we are using this in our master's degree classes. Since I'm an architect and programming is very hard for me to understand.

I have a question that I cannot figure it out.

For example, I have a function lets say f(x)=sin(x)+5
I want to divide that function into random 4 pieces and I want to find the coordinates of the points which cut the function.

I started like this but I don't know how to solve it.

Can someone plz help? Thank you.

OPTION _EXPLICIT
DIM m AS INTEGER
INPUT "how many pieces should we divide", m
DIM n AS INTEGER

FUNCTION fx (x AS DOUBLE)
    fx = SIN(x) + 5
FOR

NEXT

END FUNCTION
well I have no idea that what I am doing.
Title: Re: Mathematical Problems
Post by: STxAxTIC on February 29, 2020, 08:27:06 am
Are you asking for the coordinates of the blue diamonds given random x1 x2 x3 etc? See below.
Title: Re: Mathematical Problems
Post by: bplus on February 29, 2020, 12:30:40 pm
Code: QB64: [Select]
  1. _TITLE "Quick SIN Plot" 'b+ 2020-02-29
  2. SCREEN _NEWIMAGE(1000, 600, 32) ' 800 x 600 window allowing graphics ie 32 bit color or RGB and RGBA
  4. amplitude = 200
  5. yCenter = _HEIGHT / 2
  6.  
  7. 'lets plot sin(x)
  8. FOR x = 0 TO _WIDTH - 350
  9.     y = yCenter + amplitude * SIN(_D2R(x)) '_D2R is a degrees to Radians function
  10.     PSET (x, y), &HFFFF0000
  12. INPUT "How many points along x axis "; xPts
  13. FOR i = 1 TO xPts
  14.     x = RND * (_WIDTH - 350) ' rand x on screen's x axis
  15.     y = yCenter + amplitude * SIN(_D2R(x))
  16.     PSET (x, y), &HFFFFFF00
  17.     CIRCLE (x, y), 2, &HFF0000FF
  18.     _PRINTSTRING (x - 12, y - 20), STR$(i)
  19.      LOCATE i, (_WIDTH - 350) \ 8 + 2: PRINT "Point"; i; " x ="; INT(x); ", y ="; INT(y) '<<< fix location
  21.  

EDIT: fix location
Title: Re: Mathematical Problems
Post by: lomalena on February 29, 2020, 05:58:15 pm
Thank you so much :D

I think I understand now. I will try to make it more simple maybe :D Thank you so much!
Text Only | Text with Attachments