Qbasicnews.com

Full Version: Triangular Number Function
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
This is just a small function to return the nth triangular number... I can't think of an application at this time, I was just bored in math class. Smile

The first code has to do with summation notation (sigma for you math gurus)

Code:
FUNCTION NTriNum& (n&)
  FOR x = 1 TO n&
    result& = result& + x
  NEXT x
  NTriNum& = result&
END FUNCTION

OR:

The second code is simply the fomula derived from the summation...

Code:
Function NTriNum&(n&)
  NTriNum& = ((n&^2) + n&) \ 2
END FUNCTION

Note: I tested them with longs so I could see the 10,000th triangular number, which was 50,005,000 just in case anyone was wondering Smile
Wait until StatLib comes out, you'll be able to do the 1,000,000,000,000,000,000,000,000,000,000,000,000,000....th triangle number with ease...
are you using strings to represent numbers? or BCD? or what?



[Flexibal>