BLITZ BASIC 2 "floor,ceiling and modulo% equivalent"

[Raislin77it]

hi, there are this operators in blitz basic 2 ?

floor ?
ceiling ?
modulo "%" ?

i cannot find in the manual unfortunately

[leathered]

I don't think you'll find anything specifically to that effect but the manual is here: http://coagulus.newport.net/t/b.pdf
If you're looking to do something 'Doomy' you might have some luck with a C2P library, Mildred is one of them. I've never used it, so can't say what it's like but there were some good examples made with one of the C2P libraries on the Blitz BUM's.

[Ze Emulatron]

From Blitz Basic 2 - Reference Guide-ENG.pdf available on http://amiga-manuals.xiik.net/amiga.php in eBooks category Blitz_Basic_2___ebook_ENG.rar -> 37328 KB

For floor

Function: Int
Syntax: Int (Expression)
Modes: Amiga/Blitz
Description:
This returns the Integer part (before the decimal point) of Expression.
Example:

Print Int(23.456) ; Will simply print 23

Mod

Print 10 MOD 3 ; Will print 1

For Ceiling you could do

PRINT (INT(23.456))+1

If you really want to use ceiling and floor you could do

function ceiling{n}
  function return (INT(n))+1
end function

function floor{n}
  function return INT(n)
end function

[Raislin77it]

Originally Posted by Ze Emulatron

From Blitz Basic 2 - Reference Guide-ENG.pdf available on http://amiga-manuals.xiik.net/amiga.php in eBooks category Blitz_Basic_2___ebook_ENG.rar -> 37328 KB

For floor

Function: Int
Syntax: Int (Expression)
Modes: Amiga/Blitz
Description:
This returns the Integer part (before the decimal point) of Expression.
Example:

Print Int(23.456) ; Will simply print 23

Mod

Print 10 MOD 3 ; Will print 1

For Ceiling you could do

PRINT (INT(23.456))+1

If you really want to use ceiling and floor you could do

function ceiling{n}
  function return (INT(n))+1
end function

function floor{n}
  function return INT(n)
end function

thanks a lot, Ze Emulatron i have skipped the INT and MOD commands
(and thanks leathered for the sprite trick in the other thread )

[thomas]

Originally Posted by Ze Emulatron

If you really want to use ceiling and floor you could do

function ceiling{n}
  function return (INT(n))+1
end function

function floor{n}
  function return INT(n)
end function

It's a bit more complicated than that.

These should do:

function ceiling{n}
  i = abs(int(n))
  f = abs(n) - i

  if f = 0 then
    return n
  endif

  if n < 0 then
     return -i
  else
     return i + 1
  endif
end function

function floor{n}
  i = abs(int(n))
  f = abs(n) - i

  if f = 0 then
    return n
  endif

  if n < 0 then
     return -i - 1
  else
     return i
  endif
end function

(Note that I never used (Blitz) Basic. I just adopted your syntax. So the actual syntax might need to be different.)

[thomas]

Your ceiling example doesn't work for whole numbers, either.

[Ze Emulatron]

Originally Posted by thomas

It's a bit more complicated than that.

These should do:

function ceiling{n}
  i = abs(int(n))
  f = abs(n) - i

  if f = 0 then
    return n
  endif

  if n < 0 then
     return -i
  else
     return i + 1
  endif
end function

function floor{n}
  i = abs(int(n))
  f = abs(n) - i

  if f = 0 then
    return n
  endif

  if n < 0 then
     return -i - 1
  else
     return i
  endif
end function

(Note that I never used (Blitz) Basic. I just adopted your syntax. So the actual syntax might need to be different.)

Those seem to work fine when adapted to Blitz, I didn't get around to testing whole numbers or negative numbers when I wrote mine, I couldn't remember what way floor and ceil worked with negatives off the top of my head and I didn't have an environment to test them in.

Originally Posted by thomas

Your ceiling example doesn't work for whole numbers, either.

I adapted my code to fix those issues, I think I copied the new code correctly. Sorry about the caps, I write reserved keywords in BASIC languages in caps since using amiga basic.

FUNCTION ceiling{n}
  IF SGN(n) = 1 AND FRAC(n) <> 0
    FUNCTION RETURN (INT(n))+1
  END IF
  FUNCTION RETURN (INT(n))
END FUNCTION

FUNCTION floor{n}
  IF SGN(n) = -1 AND FRAC(n) <> 0
    FUNCTION RETURN (INT(n))-1
  END IF
  FUNCTION RETURN (INT(n))
END FUNCTION

[idrougge]

I think the ceiling function is accomplished using QWrap().

[Cylon]

Originally Posted by idrougge

I think the ceiling function is accomplished using QWrap().

No, QWrap(in,min,max) does:

IF in => max THEN in=min

As in :

While NOT(JoyB(0))
   a=QWrap (a+1,1,20)
   Print a," "
   VWait 25
Wend

End

Will output:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 1 2 3 4 5 ...

Furthermore, the difference in-max is added to min, if in exceeds max:

NPrint QWrap(35,1,20)
MouseWait

> 16

[Daedalus]

Again, just adding to this slightly old thread with another option: Use QLimit() instead of QWrap() - you give that min and max values and it gives the min value if the input is lower than the min, and the max value if the input is higher than the max. Bear in mind it only works on quick type variables so feeding it longs might give you strange results.

Also, for the modulo function there is Frac() which returns the fractional part of a number. QFrac() can be used if the input is a quick type, and will execute quicker.

A full version of the original Blitz Basic 2.1 manual is available here: http://www.amiblitz.de/content/blitz...mers/0001.html

[Cylon]

Thanks, but the whole QWrap()/QLimit() stuff is useless if you want to use faster calculations. You have to write your own WWrap()/LWrap()/LLimit() funcs and so on.
Quick types suck for advanced coding. They are nice for beginners but slow down the real sh*t.